Visual Basic 6 - Randomize

Forum - Visual Basic 6 - Randomize

Roberto VB (Member)
Expert

Messaggi: 419
Iscritto: 29/01/2007

Postato alle 18:55
Martedì, 06/03/2007

Salve, generalmente per randomizzare dei numeri o lettere utilizzo il seguente codice:

Codice sorgente - presumibilmente Plain Text

lblL1.Caption = Mid$("BCDFGHJKLMNPQRSTVWXZ", Int(Rnd * 20) + 1, 2)

Questo semplice codice quindi, randomizza tutte le lettere dell'alfabeto.
Ora mi chiedo: se io volessi randomizzare intere parole come per esempio "casa","albero","gelato", che codice devo utilizzare?

Ringrazio anticipatamente tutti coloro che mi daranno una risposta

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 19:34
Martedì, 06/03/2007

in che senso?

Roberto VB (Member)
Expert

Messaggi: 419
Iscritto: 29/01/2007

Postato alle 19:38
Martedì, 06/03/2007

con questo codice:
lblL1.Caption = Mid$("BCDFGHJKLMNPQRSTVWXZ", Int(Rnd * 20) + 1, 2)
mette in ordine casuale quelle lettere (BCDFGHJKLMNPQRSTVWXZ).
Vorrei sapere cosa dovrei fare per randomizzare intere parole, visto che nel codice precedente randomizza le singole lettere

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 19:52
Martedì, 06/03/2007

be fai un ciclo lungo quanto la parola poi scegli a caso la lettera e la togli dalla lista e ripeti fino alla fine

Hacker (Member)
Guru

Messaggi: 1014
Iscritto: 06/06/2006

Postato alle 19:24
Mercoledì, 07/03/2007

Forse così:

Dim parole

Private Sub Form_Load()
parole = Array("ciao", "lol", "miao", "bau")
Randomize
MsgBox parole(Rnd(3))

End Sub

intendevi questo più o meno?

Ultima modifica effettuata da Hacker il 07/03/2007 alle 19:25

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 20:41
Mercoledì, 07/03/2007

penso che intendesse più un anagramma.
dim lunghezza as integer
dim stringainiziale as string
dim stringafinale as string
dim caratteretolto as integer
stringafinale = ""
stringainiziale = text1.text
for x = 1 to len(text1.text)
caratteretolto =rnd()*len(stringainiziale)+1
stringafinale = stringafinale & MID(stringainiziale,caratteretolto,1)
stringainiziale = MID(stringainiziale,1,caratteretolto-1) & MID(stringainiziale,caratteretolto+1)
next x
text1.text = stringafinale

Ultima modifica effettuata da P4p3r0g4 il 07/03/2007 alle 20:49

Roberto VB (Member)
Expert

Messaggi: 419
Iscritto: 29/01/2007

Postato alle 7:06
Sabato, 10/03/2007

Testo quotato

Postato originariamente da Hacker:

Forse così:

Dim parole

Private Sub Form_Load()
parole = Array("ciao", "lol", "miao", "bau")
Randomize
MsgBox parole(Rnd(3))

End Sub

intendevi questo più o meno?

Sisi, ti ringrazio, anche se la cosa strana è che randomizza solo le parole "ciao" e "lol" :-|

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 14:43
Sabato, 10/03/2007

prova a cambiare "rnd(3)" con "int(rnd()*4)+1"

asp potrebbe essere anche "int(rnd()*4)" dipende se l'array parte da 0 o da 1

Ultima modifica effettuata da P4p3r0g4 il 10/03/2007 alle 14:45

Roberto VB (Member)
Expert

Messaggi: 419
Iscritto: 29/01/2007

Postato alle 15:50
Sabato, 10/03/2007

Ecco ora funziona, grazie mille per l'aiuto