Salve Gente!!! ;D 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!!! :rotfl:
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!!! :)
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
Public controllo as boolean
Public Sub Button1_click()
TextBox1.Text = Rnd(1, 90)
controllo=false
TextBox2.Text = Rnd(1, 90)
IF TextBox2.text=TextBox1.text then
controllo=true
TextBox2.Text = Rnd(1, 90)
while controllo=true then
IF TextBox2.text=TextBox1.text then
controllo=false
endif
Wend
ENDIF
END
Facendo lo stesso per la terza casella. Questa è solo una soluzione ma ce ne sono molte altre.
(Non l'ho provata, credo che funzioni, sperando di ricordarmi bene la sintassi)