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

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

Pagine: [ 1 2 ]

()
Newbie

Messaggi:
Iscritto:

Postato alle 1:00
Giovedì, 01/01/1970

Mi serve è importante! 8-|

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 13:36
Sabato, 06/09/2008

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.

()
Newbie

Messaggi:
Iscritto:

Postato alle 13:49
Sabato, 06/09/2008

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

Codice sorgente - presumibilmente VB.NET

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

()
Newbie

Messaggi:
Iscritto:

Postato alle 14:04
Sabato, 06/09/2008

rispondete uffi :alert:

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 14:12
Sabato, 06/09/2008

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\4 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à...

()
Newbie

Messaggi:
Iscritto:

Postato alle 14:21
Sabato, 06/09/2008

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

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 14:35
Sabato, 06/09/2008

In questo caso devi usare una Sub da richiamare:

Codice sorgente - presumibilmente VB.NET

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

()
Newbie

Messaggi:
Iscritto:

Postato alle 14:37
Sabato, 06/09/2008

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

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 0:11
Domenica, 07/09/2008

fate finta che io non ci sia (ufficialmente sono ancora assente ma volevo correggere 2 cose).
A)
la formula deve essere int((x*13) +1) e non * 12 altrimenti non potra` mai assumere il valore 13.
Rnd() da un numero maggiore o uguale a zero ma minore in senso stretto a 1.

B) le function sono abbastanza diverse dalle sub non facciamo confusione.

Pagine: [ 1 2 ]