Visual Basic 6 - funzione random, come generare numeri casuali ma non uguali

Forum - Visual Basic 6 - funzione random, come generare numeri casuali ma non uguali

Pagine: [ 1 2 ]

Raffa50 (Normal User)
Pro

Messaggi: 68
Iscritto: 07/12/2008

Postato alle 16:05
Lunedì, 17/08/2009

c'è un modo di generare 5 numeri casuali (da 0 a 20) ma non uguali?

mi stò scervellando! :noway:

fusebyte (Normal User)
Expert

Messaggi: 332
Iscritto: 24/12/2008

Postato alle 16:44
Lunedì, 17/08/2009

Scritto al volo...

Codice sorgente - presumibilmente VB.NET

Private Sub cmdGenera_Click()
 
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
    
   Randomize Timer
 
 a = Int(Rnd * 21)
  b = Int(Rnd * 21)
   c = Int(Rnd * 21)
  d = Int(Rnd * 21)
 e = Int(Rnd * 21)
 
  Text1 = a & " - " & b & " - " & c & " - " & d & " - " & e
 
 
End Sub

Questo è il succo,poi sta a te modificarlo come meglio credi.

Ciao

Ultima modifica effettuata da fusebyte il 17/08/2009 alle 17:42

Raffa50 (Normal User)
Pro

Messaggi: 68
Iscritto: 07/12/2008

Postato alle 17:37
Lunedì, 17/08/2009

guarda ke anke così genera numeri uguali :grr:

fusebyte (Normal User)
Expert

Messaggi: 332
Iscritto: 24/12/2008

Postato alle 17:42
Lunedì, 17/08/2009

Vale a dire?

Se non vuoi che 2 numeri 10 appaiano nella stessa uscita,con degli IF THEN risolvi.
Li hai tutto per poterci lavorare.

Ultima modifica effettuata da fusebyte il 17/08/2009 alle 17:44

Raffa50 (Normal User)
Pro

Messaggi: 68
Iscritto: 07/12/2008

Postato alle 17:51
Lunedì, 17/08/2009

troppo banale, pensavo di utilizzare una array o un cliclo (con funzione!) :nono:

oubt:

pensa se volessi fare un gioco di carte...

Ultima modifica effettuata da Raffa50 il 17/08/2009 alle 18:07

fusebyte (Normal User)
Expert

Messaggi: 332
Iscritto: 24/12/2008

Postato alle 18:28
Lunedì, 17/08/2009

Codice sorgente - presumibilmente Delphi

If a = b Or c Or d Or e Then
a = Int(Rnd * 21)
End If

Si ,certo ma te hai detto di voler lavorare su 5 numeri solamente.

E' normale se indicizzi e lavori con array il codice è di
livello superiore.

Ma partendo da quella base ci vuole poco ad indicizzare.

Ciao

Ultima modifica effettuata da fusebyte il 17/08/2009 alle 18:28

Raffa50 (Normal User)
Pro

Messaggi: 68
Iscritto: 07/12/2008

Postato alle 18:42
Lunedì, 17/08/2009

ok mettiamo caso ke volgio lavorare con circa 52 numeri

xkè voglio creare un gioco di carte...

come la mettiamo??? :alert:

fusebyte (Normal User)
Expert

Messaggi: 332
Iscritto: 24/12/2008

Postato alle 19:04
Lunedì, 17/08/2009

Codice sorgente - presumibilmente VB.NET

Function Random(nByteString)
Randomize Timer
 For i = 1 To nByteString
        tmp = tmp & (Int(Rnd * 100)) & " "'<- imposta valore                        
      Next                                'gioco es:Lotto 90
 Random = (tmp)
 
End Function

Nella sub mettici

es:

Codice sorgente - presumibilmente Plain Text

label1 = random(52)

per il tuo gioco di carte,

Ora te l 'ho indicizzato(anche se avevi chiesto 5 numeri),
pero' devi mettergli sempre il controllo
sulle uscite doppie,ma penso non sia un grosso problema questo.

Ciao

Ultima modifica effettuata da fusebyte il 17/08/2009 alle 19:06

Raffa50 (Normal User)
Pro

Messaggi: 68
Iscritto: 07/12/2008

Postato alle 16:32
Martedì, 18/08/2009

ah no!

era proprio questo il problema: mika posso mettere 52 If !!!

bisognerebbe creare un array con le 52 carte e fare in modo ke le distribuisca (no numeri doppi) :idea:

Pagine: [ 1 2 ]