[VB6] Generare numeri casuali con Randomize

[SimoDominik]

Ciao a tutti volevo chiedervi cm è possibili fare tramite la funzione RND un animazione cioè dire creare una texbox in cui eseguo la funz RND k deve looppare fin quando io nn premo stop e possibilmente i numeri devono essere Visibili nella textbox...una specie di SLOT MACHINE...grazie in anticipo

[MItaly]

Quale punto del progetto non sai come implementare?

[SimoDominik]

Nn so implementare il pezzo in cui i numeri fanno la rotazione RND da soli e solo quando io premo STOP si fermano su un numero random..tipo slot machine io ho 3 textbox e ad ognuna devo decidere io quando bloccare la rotazione dei numeri random....òlo so k è un po impicciata cm cosa...GRAZIE

[girobai]

non ti scrivo il codice ma ti dò dei suggerimenti:

usa il componente 'timer' (enable/disable)
usa 'DoEvents'

prova e fammi sapere

[SimoDominik]

girobai nn saprei propio dove mettere il timer ecco il mio codice:

Private Sub Command1_Click()
Randomize
    Dim i As Integer
    Dim LB As Integer
    Dim UB As Integer
    MINIMO = 1
    MASSIMO = 5
   Text1.Text = Int((MASSIMO - MINIMO + 1) * Rnd + MINIMO)
   Text2.Text = Int((MASSIMO - MINIMO + 1) * Rnd + MINIMO)
   Text3.Text = Int((MASSIMO - MINIMO + 1) * Rnd + MINIMO)
If Text1.Text = Text2.Text And Text2.Text = Text3.Text Then
Label1.Caption = "VITTORIA!!"
End If
If Not Text1.Text = Text2.Text = Text3.Text Then
Label1.Caption = "Ritenta!"
End If
a = Text4
If Text1.Text = Text2.Text And Text2.Text = Text3.Text Then
Text4.Text = a + 15
End If
a = Text4
If Not Text1.Text = Text2.Text = Text3.Text Then
Text4.Text = a - 1
End If
If Text4.Text = 0 Then
Label1.Caption = "Game Over"
End If
 End Sub

mi puoi dare qualke suggerimento?

[oregon]

Sinceramente, come suggerimento ti direi di studiare un bel libro di base ...

Non puoi scrivere righe come questa

If Not Text1.Text = Text2.Text = Text3.Text Then

.. dovresti fermarti e studiare un po' come hanno fatto tutti ...

[SimoDominik]

mi dispiace contrardirti ma ho sbagliato a postare il codice cm vedi nelle righe precedenti ho messo
If Text1.Text = Text2.Text And Text2.Text = Text3.Text Then

è solo xke il codice è vecchio.......nel prog lo ho aggiornato.......

[oregon]

E allora posta l'ultimo codice aggiornato ... altrimenti di cosa parliamo?

[SimoDominik]

il codice è quasi lo stesso cambia solo "AND"...parliamo del fatto k vorrei fare questo tipo di animazione dei numeri random k quando clikko "STOP" si ferma e mi da il numero...grazie

[oregon]

Guarda che quello che vuoi fare dipende dal codice che hai scritto ... dobbiamo partire da quello, o no?