Visual Basic 6 - Coem si generano numeri casuali da 1 a 13?

Mi serve è importante!

dim x as integer
Randomize
x = (Rnd * 12) + 1
msgbox x
quando tu moltiplichi Rnd * n (n = numero che vuoi tu) uscirà un numero casuale da 0 a n. Visto che tu hai detto da 1 a 13 ho aggiunto + 1 così se esce come minimo 0 diventa 1 se esce come massimo 12 diventa 13.

grazie!già che ci sei mi puoi dire come si creano funzioni con visual basic 6. dovrei rendere questo codice una funzione:

Private Sub Command1_Click()
Randomize
Dim fisso As Long
Dim mobile As Long
Dim mobile2 As Long
Dim mobile3 As Long
fisso = 12
moblie = (fisso * Rnd + 1)
mobile2 = (fisso * Rnd + 1)
mobile3 = (fisso * Rnd + 1)
Label1.Caption = mobile
Label2.Caption = mobile2
Label3.Caption = mobile3
Label4.Caption = mobile1 + mobile2 + mobile3
If mobile + mobile2 + mobile3 > 21 Then
MsgBox "Hai vinto!Complimenti!"
Unload Me
End If
End Sub

grazie

rispondete uffi

LoL
Stavo a pranzo...
Questo è un forum non una chat, nei forum non si risponde subito...Ritieniti fortunato che questo forum è molto frequentato, ma ce ne sono alcuni dove devi aspettare 3 giorni prima che ti rispondono!

Per fare una funzione devi fare:
Private Function Ciao()

End Function

Alla fine Ciao dovrà contenere qualche valore...

Mi devi dire che funzione vorresti creare, cioè cosa deve fare la funzione? che valore deve restituire?

ecco una funzione di esempio per generare numeri casuali:

Private Function Casuale(ByVal NumberMAX as integer)
Randomize
Casuale = RND * NumberMAX
End Function

Casuale varrà un numero casuale...

p.s. Scrivere "Dai Rispondete!" non ti aiuterà...

dovrei fare un gioco, e per evitare di ripetere il codice vorrei usare una funzione

In questo caso devi usare una Sub da richiamare:

Private Sub Command1_Click()
Call Game
End Sub

Private Sub Game()
Randomize
Dim fisso As Long
Dim mobile As Long
Dim mobile2 As Long
Dim mobile3 As Long
fisso = 12
moblie = (fisso * Rnd + 1)
mobile2 = (fisso * Rnd + 1)
mobile3 = (fisso * Rnd + 1)
Label1.Caption = mobile
Label2.Caption = mobile2
Label3.Caption = mobile3
Label4.Caption = mobile1 + mobile2 + mobile3
If mobile + mobile2 + mobile3 > 21 Then
MsgBox "Hai vinto!Complimenti!"
Unload Me
End If
End Sub

grazie (guarda la tua casella ti ho inviato un'email)