Visual Basic 6 - la pallina che rimbalza

Forum - Visual Basic 6 - la pallina che rimbalza

Cronos (Normal User)
Pro

Messaggi: 105
Iscritto: 07/09/2009

Postato alle 15:22
Lunedì, 18/01/2010

nel form vi sono un immagine (una palla) = image1 ed uno shape = shape1. Dopo essere venuto a conoscenza (e per questo devo ringraziare il sito) riguardo al modo di far muovere una pallina, volevo fare in modo che la pallina, quando toccasse lo shape, rimbalzasse verso l'alto e ho sccritto questo codice:

Option Explicit
Dim velocità As Integer

Private Sub Form_Load()
velocità = 50
End Sub

Private Sub Timer1_Timer()
Image1.Top = Image1.Top + velocità
If Image1.Top + Image1.Height >= Shape1.Top Then Image1.Top = Image1.Top - velocità
End Sub

Il problema stà nel fatto che la pallina quando tocca lo shape (a forma di barra) non rimbalza, ma si ferma!! e da parecchi giori che ci giro dietro, ma non ho trovato nessun modo per risolvere la questione (nemmeno su google!) qualcuno mi potrebbe gentilmente dire perchè la pallina non rimbalza ma si ferma!!
grazie

Ultima modifica effettuata da Cronos il 18/01/2010 alle 15:22

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 16:02
Lunedì, 18/01/2010

Modifica così

Codice sorgente - presumibilmente VB.NET

Option Explicit
Dim velocità As Integer
Dim IncrementaY As Integer
 
Private Sub Form_Load()
 velocità = 50
 IncrementaY = 1
End Sub
 
Private Sub Timer1_Timer()
 Image1.Top = Image1.Top + velocità * IncrementaY 
 If Image1.Top + Image1.Height >= Shape1.Top Then  IncrementaY = -1
End Sub

Prima la pallina tornava indietro ma il timer comunque la rimandava avanti!!
Ciao

Ultima modifica effettuata da Alfonso il 18/01/2010 alle 16:05

Louis (Normal User)
Pro

Messaggi: 150
Iscritto: 22/04/2008

Postato alle 17:34
Lunedì, 18/01/2010

Alfonso ci ha visto giusto ...
però quando torna al Top la pallina deve invertire il moto ...
quindi:

Codice sorgente - presumibilmente VB.NET

Dim vel As Integer
Dim IncY As Integer
Dim j As Long
'-----------------------------
Private Sub Form_Load()
    j = Image1.Top
    vel = 50
    IncY = 1
End Sub
'-----------------------------
Private Sub Timer1_Timer()
Image1.Picture = ImageList1.ListImages(1).Picture
    Image1.Top = Image1.Top + vel * IncY
    If Image1.Top + Image1.Height >= Shape1.Top Then
        IncY = -1
    ElseIf (Image1.Top) <= j Then
        IncY = 1
    End If
End Sub

Cronos (Normal User)
Pro

Messaggi: 105
Iscritto: 07/09/2009

Postato alle 17:54
Lunedì, 18/01/2010

Avete ragione (che imbarazzo, cadere su un errore così) :blush:

Cronos (Normal User)
Pro

Messaggi: 105
Iscritto: 07/09/2009

Postato alle 18:03
Lunedì, 18/01/2010

Non ho capito però come funziona il tuo codice Louis. Non è che me lo potresti spiegare velocemente?
Scusa la mia ignoranza e la mia testardaggine, ma se non lo capisco non riesco magari a rifarlo in un secondo momento!! :blush:

Louis (Normal User)
Pro

Messaggi: 150
Iscritto: 22/04/2008

Postato alle 18:05
Lunedì, 18/01/2010

Ma dai ... su ... non era un errore così banale (io ne ho fatti, e ne faccio, di peggio!)
Comunque per analizzare il comportamento del codice scritto, ti conviene mettere un punto di interruzione e poi fare il passo a passo con F8.

Codice sorgente - presumibilmente VB.NET

Option Explicit
Dim vel As Integer
Dim IncY As Integer
Dim j As Long
'-----------------------------
Private Sub Form_Load()
    ' Assumo all'avvio il valore Top del contenitore dell'immagine:
    j = Image1.Top
    ' Valore del Interval del Timer:
    vel = 50
    ' Tolgo il valore negativo posto quando il contenitore 
    ' dell'immagine ha raggiunto Shape1.Top:
    IncY = 1
 
End Sub
'-----------------------------
Private Sub Timer1_Timer()
' Rendo disponibile l'immagine caricata nel controllo ImageList: 
   Image1.Picture = ImageList1.ListImages(1).Picture
    ' Questo é il tuo codice, salvo IncY indicato da Alfonso che 
    ' diviene negativo o positivo a seconda dei casi: 
    Image1.Top = Image1.Top + vel * IncY
    If Image1.Top + Image1.Height >= Shape1.Top Then
        IncY = -1
        ' Qua indico che quando il valore Top del contenitore dell'immagine é 
        ' divenuto uguale a quello iniziale deve togliere il valore negativo:
        ElseIf (Image1.Top) <= j Then
        IncY = 1
    End If
End Sub

' Spero che ora sia chiaro.
:k:

Ultima modifica effettuata da Louis il 18/01/2010 alle 18:20

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 18:51
Lunedì, 18/01/2010

Però:

Codice sorgente - presumibilmente Visual Basic 6

Private Sub Timer1_Timer() 
 
Image1.Picture = ImageList1.ListImages(1).Picture

ha senso se quell'1 fosse una variabile che viene in qualche modo incrementata per cambiare l'immagine, altrimenti portala in qualche altro punto del codice, altrimenti ad ogni tick del timer ricarichi sempre la stessa immagine con un evidente spreco di risorse.

Louis (Normal User)
Pro

Messaggi: 150
Iscritto: 22/04/2008

Postato alle 19:54
Lunedì, 18/01/2010

Alfonso hai ragione,
nelle prove ho anche inserito diverse bmp nella ImageList e poi é rimasto l'indice...

Cronos (Normal User)
Pro

Messaggi: 105
Iscritto: 07/09/2009

Postato alle 21:08
Lunedì, 18/01/2010

Grazie, non avevo afferrato il concetto di 1 e -1. Ora tutto è chiaro: GRAZIE!!!
:k: