Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Generatore numeri da 1 a 90 ?
Forum - Visual Basic 6 - Generatore numeri da 1 a 90 ?

Avatar
frabelfagor_95 (Normal User)
Newbie


Messaggi: 17
Iscritto: 05/01/2011

Segnala al moderatore
Postato alle 20:35
Mercoledì, 05/01/2011
Questo topic è stato chiuso dal moderatore

Ciao ragazzi !

ho bisogno di un codice da immettere in un command, che ogni volta che lo premo mi viene fuori in una textbox un numero non in ordine ma casuale e che sopratutto non venga MAI ripetuto !

Qualcuno mi può fare un esempio facile ?
Grazie a tutti

uso VISUAL BASIC 6 :)

PM
Avatar
gigisoft (Member)
Guru


Messaggi: 696
Iscritto: 11/10/2008

Up
0
Down
V
Segnala al moderatore
Postato alle 20:53
Mercoledì, 05/01/2011
Salve,
sbaglio o stai chiedendo piu' o meno la stessa cosa che avevi chiesto nell'altro post?
Mi sembrava di averti gia' detto che su questo forum non abbiamo l'abitudine di fornire codice On Demand;
su, provaci prima da solo, poi se non ci riesci vediamo di aiutarti ok?

Ciao.

PM
Avatar
frabelfagor_95 (Normal User)
Newbie


Messaggi: 17
Iscritto: 05/01/2011

Up
0
Down
V
Segnala al moderatore
Postato alle 21:05
Mercoledì, 05/01/2011
Ehi !
ma cosa fai mi perseguiti ? :rotfl:

comunque si, hai ragione adesso ti posto il mio codice :)

Ho un timer1 con intervallo di 3000 e dentro ho inserito questo codice:

Codice sorgente - presumibilmente VB.NET

  1. Private Sub Timer1_Timer()
  2. Randomize
  3. txtestreatto= Int(Rnd * 15)
  4. if txtestratto.text = lbl1.caption then
  5. lbl1.visible = true
  6. end if
  7. if txtestratto.text = lbl2.caption then
  8. lbl2.visible = true
  9. end if
  10. if txtestratto.text = lbl3.caption then
  11. lbl3.visible = true
  12. end if
  13. if txtestratto.text = lbl4.caption then
  14. lbl4.visible = true
  15. end if
  16. 'ecc...
  17. End Sub



e i numeri escono in randomize ma come ho detto prima, purtroppo si ripetono !

poi, ho 90 label tutte numerate

Esempio:

la label che contiene il numero 1, si chiama lbl1 e così via... ovviamente ho messo nello stesso timer un controllo per rendere visibile le label in base al numero generato.

Ma ovviamente, l'unico problema è quello che i numeri estratti non devono ripetersi mai.

Ti basta ?

Grazie ancora ! :k:

Ultima modifica effettuata da frabelfagor_95 il 05/01/2011 alle 21:13
PM
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Up
0
Down
V
Segnala al moderatore
Postato alle 22:41
Mercoledì, 05/01/2011
Usa un array per memorizzare i numeri già usciti, se non sai cosa sia consulta questo buon manuale:

http://trj.altervista.org/A_scuola_con_Visual_Basic.pdf

Poi vedo che ogni label contiene un numero e in base al numero uscito mostri la label corrispondente... ma scusa non potresti usare un'unica label dove mostri il numero uscito? (Con: lbl1.caption = txtestratto.text)

Comunque ho visto che hai aperto due thread in parallelo, quindi chiudo questo.
Se hai problemi continui scrivendo nell'altro.

p.s. Leggiti il regolamento

PM