Visualizza post
1
Programmazione (Gambas 2) / [RISOLTO] Numeri senza ripetizione
« il: 25 Luglio 2010, 02:24:13 »
Salve Gente!!! 
Sono un nuovo utente ignorantello che si è appena intrufolato nel meraviglioso mondo di Gambas! In passato ho frequentato un pò Visual Basic, poi ho scoperto Linux e non ho più abbandonato il pinguino. Ora ho deciso di buttarmi a capofitto nell'impararmi un bel linguaggio di programmazione: il BASIC! Gambas fa al caso mio!!! 
Ora vengo al sodo. Stò cercando di creare un programmino che estrae dei numeri a caso, il problema è che si ripetono questi numeri, cioè, escono numeri uguali in più caselle. Come posso fare per non farli ripetere nelle altre caselle? Vi posto il codice sotto e spero in un vostro aiuto (come vi ho detto sono abbastanza ignorantello
) Grazie Infinite a quanti di voi mi aiuteranno!!! 
Sono un nuovo utente ignorantello che si è appena intrufolato nel meraviglioso mondo di Gambas! In passato ho frequentato un pò Visual Basic, poi ho scoperto Linux e non ho più abbandonato il pinguino. Ora ho deciso di buttarmi a capofitto nell'impararmi un bel linguaggio di programmazione: il BASIC! Gambas fa al caso mio!!! Ora vengo al sodo. Stò cercando di creare un programmino che estrae dei numeri a caso, il problema è che si ripetono questi numeri, cioè, escono numeri uguali in più caselle. Come posso fare per non farli ripetere nelle altre caselle? Vi posto il codice sotto e spero in un vostro aiuto (come vi ho detto sono abbastanza ignorantello
) Grazie Infinite a quanti di voi mi aiuteranno!!! Codice: gambas [Seleziona]
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
TextBox1.text = ""
TextBox2.text = ""
TextBox3.text = ""
END
PUBLIC SUB Button1_Click()
RANDOMIZE
TextBox1.Text = Rnd(1, 90)
TextBox2.Text = Rnd(1, 90)
TextBox3.Text = Rnd(1, 90)
END
PUBLIC SUB Button2_Click()
TextBox1.text = ""
TextBox2.text = ""
TextBox3.text = ""
END
PUBLIC SUB Button3_Click()
ME.Close
END