salut a tous, tout d'abord je me présente : Benjamin, j'ai 17 ans et je commence vb depuis 2 semaines
Mon probleme : j'essaye de faire un casse-brique et c'est lui qui me les casse... alors voila ma balle rebondit sur les murs haut,droit et gauche, mon casse-brique se déplace bien. Mais voila, il couvre toute la largeur du programme donc la balle ne peut sortir du "terrain" donc impossiblité de perdre..
avec balle qui est la balle qui se déplacer et mur une picturebox qui fait office de "casse brique"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43 Public Class Form1 Dim moveright As Boolean Dim moveup As Boolean Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 'mouvement balle If moveright = True Then balle.Left += 5 Else balle.Left -= 5 End If If moveup = True Then balle.Top += 5 Else balle.Top -= 5 End If 'colisions If balle.Left <= Me.ClientRectangle.Left Then moveright = True End If If balle.Right >= Me.ClientRectangle.Right Then moveright = False End If If balle.Top <= Me.ClientRectangle.Top Then moveup = True End If 'probleme impossiblité de perde If balle.Bottom >= mur.Top Then moveup = False End If 'deplacement mur sur X grace a la souris mur.Left = MousePosition.X End Sub End Class
merci de m'aider
Partager