PDA

Visualizza la versione completa : [vb] un aiuto semplice


lofcarlos
04-06-2002, 21:35
ho 2 immagini: picture1 e matt.
come faccio a far si che la picture1 non vada su di matt?
mi spiego meglio, vete presente pacmen? ecco, li la faccia, quando è sotto ad un muro orizzontale premendo su non va oltre.
Vorrei fare così.
come faccio? ho provato:

Private Sub su()
sux = True
For k = 0 To 3
If Picture1.Top = matt(k).Top + matt(k).Height _
And Picture1.Left >= matt(k).Left _
And Form1.Width - Picture1.Left >= _
Form1.Width - (matt(k).Left + matt(k).Width) _
Then
sux = False
End If
Next k
End Sub

ma non va.
potete dirmi come posso fare?
grazie

steno12
05-06-2002, 10:52
Posta un pò più codice
hai 2 immagini che si muovono sullo schermo?
in che modo, cliccando su un pulsante?
o tramite cicli for?
perchè solo 4 cicli?
non conosco pacmen

jefferson
05-06-2002, 11:40
:eek: :eek: :eek: :eek: :eek:
NON CONOSCI PACMEN!!!!
....:green:..SCherzo
CIao :ciauz: JEfferson

lofcarlos
05-06-2002, 21:31
allora
ho due immagini guidat dai 4 tasti direzionali.
i 4 rappresentano 4 immagini fisse.

capito?
puoi aiutarmi?

lofcarlos
07-06-2002, 22:09
ma nessuno mi può aiutare?
vi prego.

:cry:

steno12
08-06-2002, 07:32
posta la routine dei tasti frecce

Drocchia
08-06-2002, 11:41
su visual-basic.itr nella sezione downloads c'è un pacmen fatto veramente bene!!

prova a dargli un occhiata!

Ciao!

Berello
08-06-2002, 11:44
Intanto si dice PacMan (sono sempre più zanzaro!:quipy: ).
Io direi che non ti conviene creare un'immagine per ogni muro: il tuo computer, o quello di chi usa il tuo gioco, sarebbe carico in memoria!
Invece ti converrebbe creare una grande immagine di sfondo che rappresenta il paesaggio.
La correzione che devi fare è sostituire "And" con "Or".
Private Sub su()
sux = True
For k = 0 To 3
If Picture1.Top = matt(k).Top + matt(k).Height _
Or Picture1.Left >= matt(k).Left _
Or Form1.Width - Picture1.Left >= _
Form1.Width - (matt(k).Left + matt(k).Width) _
Then
sux = False
End If
Next k
End Sub

Ciao.

Loading