Visual Basic 6 - random escudendo numeri

Forum - Visual Basic 6 - random escudendo numeri

gaffre (Normal User)
Pro

Messaggi: 65
Iscritto: 17/06/2008

Postato alle 22:11
Mercoledì, 27/08/2008

Ciao a tutti!
Qual'era la formula del random per escludere alcuni numeri tra Imax e Imin?

Int((10 - 0 + 1) * Rnd) + 0

Per esempio per escudere i numeri dispari 1 3 5 7 9 tra 1 ed il 10?

Grazie

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 23:46
Mercoledì, 27/08/2008

non so come si fa...
ma potresti fare un normale random, poi vedi che numero è uscito e se il numero è dispari allora riesegui il random finchè non esce un numero pari.

gaffre (Normal User)
Pro

Messaggi: 65
Iscritto: 17/06/2008

Postato alle 23:51
Mercoledì, 27/08/2008

scusa qual'è la funzione per vedere se è un numero paro?

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 0:50
Giovedì, 28/08/2008

potresti provare a vedere se è divisibile x 2.
Tra i sorgenti visualbasic ci dovrebbe essere un esempio, cercalo.

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 10:57
Giovedì, 28/08/2008

nel tuo caso puoi fare cheestrai un numero da 0 a 4 lo moltiplichi per 2 e ne aggiungi 1

num=int(rnd*4)*2+1

se viene generato 0 il risultato satà 1
se viene generato 4 il risultato sarà 9

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 11:27
Giovedì, 28/08/2008

ecco qui un codice di esempio:

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
Dim x As Integer
Dim i As Double
1 'etichetta Goto
Randomize
x = Int(Rnd * 11) ' Crea un numero da 0 a 11
i = x / 2 'divide il numero per due
If InStr(1, i, ",") > 0 Then 'se il numero diviso per 2 contiene una virgola, quindi non è intero allora:
GoTo 1 'ritorna all'etichetta 1
Else 'altrimenti:
Label1.Caption = x 'mette il numero originario (pari) ottenuto dall'estrazione nella label1
End If
End Sub

Overflow (Normal User)
Expert

Messaggi: 334
Iscritto: 11/01/2008

Postato alle 12:08
Giovedì, 28/08/2008

per ottenere numeri casuali pari da uno a 10 puoi fare cosi:

Codice sorgente - presumibilmente VB.NET

dim val
dim i as integer
val=array(2,4,6,8,10)
randomize
i=Int((4 - 0 + 1) * Rnd) + 0
msgbox val(i)

... per sapere se un numero è pari basta fare:

Codice sorgente - presumibilmente Delphi

if (num mod 2)=0then
msgbox "il numero è pari"
else
msgbox "il numero è dispari"
end if

Ultima modifica effettuata da Overflow il 28/08/2008 alle 12:11