Visual Basic 6 - randomizzare elementi array

Forum - Visual Basic 6 - randomizzare elementi array

iGuLy (Ex-Member)
Pro

Messaggi: 66
Iscritto: 17/05/2007

Postato alle 20:59
Mercoledì, 19/09/2007

Volevo chiedere se qualcuno mi può spiegare come randomizzare gli elementi di una array e poi farli visualizzare in una label.
La grandezza e gli elementi dell'array vengono definiti dall'utente.
Spero di essere stato chiaro.

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 21:31
Mercoledì, 19/09/2007

Puoi usare semplicemente la funzione Rnd ...

Di che tipo di array parli?

Dai maggiori dettagli ...

iGuLy (Ex-Member)
Pro

Messaggi: 66
Iscritto: 17/05/2007

Postato alle 17:35
Giovedì, 20/09/2007

Io ho una textbox e il valore della textbox viene preso carattere per carattere e inserito nell'array.
Adesso io voglio randomizzare gli elementi di questo array(in questo caso i caratteri della textbox), e poi farli visualizzare in una label.

LuigiBiasi (Normal User)
Expert

Messaggi: 237
Iscritto: 15/09/2006

Postato alle 17:52
Giovedì, 20/09/2007

Se ho capito, tu vuoi vedere in una label i singoli caratteri che hai messo nella textbox in maniera casuale giusto?
Penso che questo codice andra bene...
Aggiungi un timer, un bottone, una label e una textbox al form.

Codice sorgente - presumibilmente VB.NET

Dim c(100) As String
Dim i As Integer
 
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
 
Private Sub Form_Load()
i = - 1
 
Timer1.Enabled = False
End Sub
 
Private Sub Text1_Change()
i = i + 1
c(i) = Right(Text1.Text, (Len(Text1.Text) - (Len(Text1.Text) - 1)))
End Sub
 
Private Sub Timer1_Timer()
Dim d As Integer
Randomize
d = Int((i - 0 + 1) * Rnd + 0)
Label1.Caption = c(d)
End Sub

Spero di esserti stato di aiuto,
ciao.

Ultima modifica effettuata da LuigiBiasi il 20/09/2007 alle 18:08

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 17:57
Giovedì, 20/09/2007

Praticamente vuoi visualizzare il contenuto della textbox "mischiato"?

Esempio, se nella textbox c'e'

ABCDE

vuoi visualizzare qualcosa come

DCEAB

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 18:10
Giovedì, 20/09/2007

Qualcosa del genere

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
    Dim C() As Byte
    Dim L As Long
    Dim K As Long
    Dim Ix1 As Long, Ix2 As Long
    Dim T As Byte
    
    Randomize Timer
    
    L = Len(Text1.Text)
    ReDim C(0 To L - 1)
    C = StrConv(Text1.Text, vbFromUnicode)
    
    For K = 1 To L * 2
        Ix1 = Int(Rnd * L)
        Ix2 = Int(Rnd * L)
        T = C(Ix1)
        C(Ix1) = C(Ix2)
        C(Ix2) = T
    Next K
    
    Label1.Caption = StrConv(C, vbUnicode)
End Sub

@LuigiBiase
Scusami, ma molti punti del tuo codice non sono chiari ... e mi sembra che non vada ...

LuigiBiasi (Normal User)
Expert

Messaggi: 237
Iscritto: 15/09/2006

Postato alle 18:36
Giovedì, 20/09/2007

Ho capito male io.
Io ho capito che volesse visualizzare singolarmente i caratteri nella label, scritti prima nella text, a casaccio e non pensavo che volesse fare delle combinazioni con quei caratteri.
Scusate.

Ultima modifica effettuata da LuigiBiasi il 20/09/2007 alle 18:40

iGuLy (Ex-Member)
Pro

Messaggi: 66
Iscritto: 17/05/2007

Postato alle 19:37
Giovedì, 20/09/2007

Grazie a tutti e due, ma credo che ha me serva più il codice di gantonio.
Grazie