Visualizza post

Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.


Post - unt182

Pagine: [1]
1
Programmazione (Gambas 2) / Re: Numeri senza ripetizione
« il: 26 Luglio 2010, 15:05:12 »
Chiedo scusa a tutti per quello che ho scritto!! :) Gli array a scuola non li abbiamo fatti in Basic, siamo solo arrivati a if, then, else e while!!! Comunque ho risolto facendo controllo as boolean e poi mettendo gli if dove andavano messi :) scusate la mia ignoranza! :) grazie a voi e a presto!

2
Programmazione (Gambas 2) / Re: Numeri senza ripetizione
« il: 25 Luglio 2010, 15:02:35 »
Scusate, forse sarò ancora rincoglionito dal sonno visto che sono andato a dormire 4 ore fa e ora son di nuovo sveglio xkè mamma fa le pulizie...cmq nn ho capito gli array...come caspita devo fare? :)  :-\ :-\Grazie a quanti di voi mi aiutano e a quanti di voi dormiranno x me :D eheheheh!!! :rotfl:

3
Programmazione (Gambas 2) / [RISOLTO] Numeri senza ripetizione
« il: 25 Luglio 2010, 02:24:13 »
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!!! :)

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

Pagine: [1]