DeDos (Normal User)
Rookie
Messaggi: 21
Iscritto: 03/11/2008
|
Ciao a tutti ,
Come posso far in modo che ogni volta che , spingendo un bottone , richiamando una funzione , o comunque inserendo il codice in un timer , un immagine cambi posizione(posizione random)?
|
|
antometal (Member)
Guru
Messaggi: 691
Iscritto: 12/09/2007
|
cambiare posizione in che senso, dell' oggetto che la contine o dell' immagine proprio???
se parli dell' oggetto devi usare le proprietà top e left
se ti riferisci proprio all' immagine una soluzione sarebbe usare il paintpicture che ti permette di disegnare un immagine su di un elemento che sopporta la grafica
|
|
Louis (Normal User)
Pro
Messaggi: 150
Iscritto: 22/04/2008
|
Ciao,
di seguito posto un esempio che potrai affinare in base alle tue esigenze. In particolare l'immagine si sposta con il metodo Move; quindi poni sulla form un controllo Image con relativa Picture:
Codice sorgente - presumibilmente VB.NET |
Private Sub Form_Load() Timer1.Interval = 500 End Sub '-------------------------------------------- ' Muove l'immagine nell'intervallo dato con numeri casuali: Private Sub Timer1_Timer() Dim NumRndx As Single, NumRndy As Single, y As Integer, x As Integer x = 1500 y = 1500 ' Valori compresi tra 1 e 1500: NumRndx = Int((x * Rnd) + 1) NumRndy = Int((y * Rnd) + 1) Image1.Move NumRndx, NumRndy End Sub
|
Spero che ti sia utile.
|
|
DeDos (Normal User)
Rookie
Messaggi: 21
Iscritto: 03/11/2008
|
Grazie Louis è propio quello che mi serviva .
PS: come sempre sempre gentili e disponibili ^^
Ultima modifica effettuata da DeDos il 01/12/2008 alle 13:04 |
|
DeDos (Normal User)
Rookie
Messaggi: 21
Iscritto: 03/11/2008
|
Scusate il doppio post , mi serve un altra info , come faccio se voglio mettere un numero random?
Nel senso , che tipo io imposto 10 , 20 numeri che
devono uscire e in una label esce uno di quei numeri in modo casuale
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
dim x as integer
Randomize
x = rnd * 20 'usciranno numeri da 0 a 20
label1.caption = x
|
|
DeDos (Normal User)
Rookie
Messaggi: 21
Iscritto: 03/11/2008
|
In poche parole , in vb6 l istruzione rnd randomizza?!
Grazie
PS: ma se io voglio prestabilire che escano solo dei determinati numeri ?
Es . 10 , 14 , 16 e 25.... si puo fare?
Ultima modifica effettuata da DeDos il 01/12/2008 alle 20:12 |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Si...
Se vuoi per esempio che NON esca mai 14 basta fare:
1
dim x as integer
blabla...<-codice postato sopra
if x = 14 then: goto 1
label1.caption = x
invece se ad esempio si vuole fare uscire SEMPRE 14 basta fare:
1
dim x as integer
blabla...
if x <> 14 then: goto 1
label1.caption = x
Naturalmente poi se VUOI o NON VUOI più numeri basta che li unisci con operatori Or e And
|
|
DeDos (Normal User)
Rookie
Messaggi: 21
Iscritto: 03/11/2008
|
Bhe se voglio che esca sempre un numero basterebbe fare label1.caption = 14
Comunque , siccome devo mettere tantissimi numeri , quindi se faccio "NON METTERE" ci metterei una vita
|
|