Salut à tous,
 
J'ai commencé un pong mais le problème c'est qu'il n'est pas très palpitant : l'angle de rebond est toujours le même (je change juste le sens des x ou des y). Dans les pongs auxquels on peut jouer sur les portables, voir les casse-briques, la balle rebondit sur la raquette avec un angle différent selon que celle-ci bouge ou pas, et selon l'endroit de la raquette où la balle rebondit (comme si on pouvait la "lifter" )
Si quelqu'un peut m'éclairait
Merci

peut etre faudrait il que tu introduise dans ton code de rebond le sens de deplacement de la raquette.
 
EDIT: ainsi que l'endroit ou la balle touche la raquette

Sub Start1()
 
CentreV = Int((Form1.ScaleHeight / 2) - (Balle.Height / 2))
CentreH = Int((Form1.ScaleWidth / 2) - (Balle.Width / 2))
Balle.Move CentreH, CentreV
Timer1.Enabled = True
 
Randomize Timer
Horizontal = Int(Rnd * 2) + 1
DéplacementHorizontal = Int(Rnd * 200) + LongueurPas
If Horizontal = 1 Then
    DirectionHorizontal = True
Else
    DirectionHorizontal = False
End If
 
Randomize Timer
Vertical = Int(Rnd * 2) + 1
DéplacementVertical = Int(Rnd * 200) + LongueurPas
If Vertical = 1 Then
    DirectionVertical = True
Else
    DirectionVertical = False
End If
 
Vertical = CentreV
Horizontal = CentreH
Balle.Move Horizontal, Vertical
End Sub
 
 
rnd veut dire Random.........cool!  Valeur comprise entre 0 et 1.

Bonjour,
 
je suis très interessé par cette methode pour donner un effet plus réaliste au sens de la balle lorsqu'elle rebondit, mais je ne comprend pas ce code en entier.
Quelqu'un pourrait-il me le commenter ou l'expliquer?
 
merci bcp.