Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Programma delle palline
Forum - Visual Basic 6 - Programma delle palline

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
Tiddiò (Normal User)
Rookie


Messaggi: 41
Iscritto: 23/03/2008

Segnala al moderatore
Postato alle 16:49
Lunedì, 09/06/2008
Ciao a tutti.
Ho provato a creare quel programma che simula il movimento delle palline nel form.
Per il movimento delle palline ho utilizzato un Timer nel quale ho inserito questo codice:

Codice sorgente - presumibilmente Plain Text

  1. pallina.Top = pallina.Top + 1
  2. pallina.Left = pallina.Left + 1



Fino a qui tutto ok, però volevo sapere come riprodurre il rimbalzo della pallina sul bordo del form.
Grazie

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 17:23
Lunedì, 09/06/2008
è stato il mio primo programma di grafica

lo posto sul sito se lo trovo ancora

cmq ti servono delle variabili per conoscere la posizione precedente dell' oggetto e quindi decidere di conseguenza

tipo: se il top supera il width del form deve cambiare direzione

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 17:45
Lunedì, 09/06/2008
ho trovato il programma puoi scaricarlo dal sito

PM Quote
Avatar
Tiddiò (Normal User)
Rookie


Messaggi: 41
Iscritto: 23/03/2008

Segnala al moderatore
Postato alle 20:56
Lunedì, 09/06/2008
mi posteresti il link senza che mi guardo tutte le pagine? Grazie

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 21:05
Lunedì, 09/06/2008
il prog bisogna prima certificarlo poi se viene certificato lo si può scaricare dalla pagina che trovi http://www.pierotofy.it/pages/sorgenti/Visual_Basic/

cmq sulla sinistra cè sotto sorgenti trovi visual basic

cmq se vuoi il prog scaricalo da quihttp://antonioserver.no-ip.org/downup/download.php?filenam ...

fammi sapere

PM Quote
Avatar
Tiddiò (Normal User)
Rookie


Messaggi: 41
Iscritto: 23/03/2008

Segnala al moderatore
Postato alle 21:17
Lunedì, 09/06/2008
Allora ho letto il codice ed ho capito che il codice del rimbalzo è in queste righe, me le potresti spiegare?

Codice sorgente - presumibilmente Delphi

  1. If x.Left <= 0 Then b = 1
  2.     If x.Left >= Me.Width Then b = 2
  3.     If x.Top <= 0 Then b = 3
  4.     If x.Top >= Me.Height Then b = 4
  5.     If x.Top <= 0 And lx(1) > lx(10) Then b = 2
  6.     If x.Left <= 0 And tx(1) < tx(10) Then b = 3
  7.     If x.Top >= Me.Height And lx(1) < lx(10) Then b = 1
  8.     If x.Left >= Me.Width And tx(1) > tx(10) Then b = 4



Io in precedenza avevo provato così

Codice sorgente - presumibilmente Visual Basic 6

  1. If x.Top > Form1.Whidth Then
  2. x.Top = x.Top - 1
  3. x.Left = x.Left + 1



Questo per il rimbalzo che sarebbe avvenuto quando la pallina toccava la parte inferiore del form. Purtroppo non funziona.

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 21:56
Lunedì, 09/06/2008
la parte che hai indicato tu è solo il controllo che imposta la variabile b che comporterà il moto della palla

i 2 vettori servono per salvare le coordinate precendenti della palla

riguardandolo noto che è uno dei miei codici peggiori,
al posto dei vettori avrei dovuto usare solo 2 variabile per coordinata (in modo da avere un ipotetio vettore direzionale)

il problema del tuo codice è che viene eseguito solo una volta

nel mio invece, una volta verificata la condizione x.top>....
imposta il parametro b che viene modificato solo quando le coordinate della palla arriva a bordo schermo

spero di aver chiarito i tuoi dubbi, se nn fosse così chiedi ancora

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 23:51
Lunedì, 09/06/2008
siccome il codice nn mi piaceva l' ho aggiornato
è un po complesso x uno che inizia, ma ci sono ho aggiunto anche dei commenti
puoi scaricarlo dallo stesso link di prima:k:

PM Quote
Avatar
Tiddiò (Normal User)
Rookie


Messaggi: 41
Iscritto: 23/03/2008

Segnala al moderatore
Postato alle 11:34
Martedì, 10/06/2008
Utilizzando il tuo codice mi da un errore e se clicco sul ? mi dice che devo aggiornare l'MSDN, non è che tu hai una versione nuova?

Comunque ti ho aggiunto su msn se la spiegazione dovesse diventare un po' lunga.

Ultima modifica effettuata da Tiddiò il 10/06/2008 alle 11:37
PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo