pb de programmationRésolu

Question

salut a tous,
voila je suis un gros debutant dans visual basic donc j'ai besoin de votre aide:je suis entrain de creer un ptit programme qui fait bouger un carr&#233; noir(et oui faut bien commener par quelque chose) donc j'ai creer l'interface(peut pas mettre de screen c'est en bitmap)donc en gros il est constituer de 4 boutons pour les 4 directions,du carr&#233; noir et d'un timer(interval 2000)
et la page de code:

Public 
Class Form1



Public bougeurmouvetop



Public bougeurmouveleft



Public direction



Private 
Sub Form1_Load(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles 
MyBase.Load


bougeurmouvetop = -50


bougeurmouveleft = -50


direction = 1


 



End 
Sub



Private 
Sub Timer1_Tick(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Timer1.Tick



Call mouvementbougeur()





End 
Sub



Sub mouvementbougeur()



If direction = 1 
Then


bougeur.Top = bougeur.Top + 50



End 
If


 


 


 


 



If direction = 2 
Then


bougeur.Top = bougeur.Top - 50


 


 


 



End 
If



If direction = 3 
Then


bougeur.Top = bougeur.Top - 50


 



End 
If



If direction = 4 
Then


bougeur.Top = bougeur.Top + 50


 



End 
If



End 
Sub



Private 
Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.Click


direction = 1



End 
Sub



Private 
Sub Button2_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button2.Click


direction = 2



End 
Sub



Private 
Sub Button3_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button3.Click


direction = 3



End 
Sub



Private 
Sub Button4_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button4.Click


direction = 4



End 
Sub


 


 


 



Private 
Sub bougeur_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles bougeur.Click



End 
Sub


End 
Class
voila donc enfaites mon probl&#232;m c'est que quand je lance le programme il ne se passe rien quand j'appui sur les boutons donc je voudrais savoir qu'est-ce-qu'il manque 
voilou merci d'avance pour vos reponses(et pour m'avoir lu)

cs_ITALIA · Accepted Answer

Au total, avec le enable du Timer &#224; True:

Public Direction As Integer


Private Sub Command1_Click() ' Gauche


Direction = 4


End Sub


Private Sub Command2_Click() ' Haut


Direction = 3


End Sub


Private Sub Command3_Click() ' Droite


Direction = 2


End Sub


Private Sub Command4_Click() ' Bas


Direction = 1


End Sub


Private Sub Timer1_Timer()


Select Case Direction
   Case 1: Command5.Top = Command5.Top + 50 ' Bas
   Case 2: Command5.Left = Command5.Left + 50 ' Droite
   Case 3: Command5.Top = Command5.Top - 50 ' Haut
   Case 4: Command5.Left = Command5.Left - 50 ' Gauche
End Select


End Sub

It@li@

cs_dragon · Answer

&#231;a r&#232;glera pas le probl&#232;me, mais &#231;a sera plus propre


Sub mouvementbougeur()



select case direction
   case 1:bougeur.Top = bougeur.Top + 50
   case 2:bougeur.left= bougeur.left + 50
   case 3:bougeur.Top = bougeur.Top - 50
   case 4:bougeur.left= bougeur.left - 50
end select

end sub

Ensuite, es tu sur que ton timer fonctionne ???


------------------------------------------------ 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

dOsSpr0uTosS · Answer

merci a vous les gars c'est bon ca march c'&#233;tait a cause du timer ^^

Admin_fr · Answer

slt je commance le vb  ( ca va fait 1 mois ) est je voudrait fair 1 scan pour mon programme aol est je ne ces pas c'est quoi le codes mes ci vous pourrait me le donn&#233; ca serait simpas car sur aol les autre veulle pas me le donn&#233;e je ne siterait pas les nom :)

Admin_fr · Answer

Cou&#178; c'est encore moi je voudrait savoir ci quelquin pourrait me donne le codes [ est le metre ou aussi car je susi nul ] loul pour fair 1 welcom bot ( tjr pour 1 programme aol ) merci des repondre les gens bye...byee...

cs_ITALIA · Answer

Et bien tu Postes ta question et tu ne viens poluer celui la....qui n'a rien &#224; voir avec ton souci..

MERCI

It@li@

Admin_fr · Answer

? a qui tu parle ?

cs_ITALIA · Answer

A Toi !!

It@li@

Admin_fr · Answer

J'ai pas le droit de demand&#233; ca au moin ?

Admin_fr · Answer

J'ai pas le droit de demand&#233; ca au moin ?

cs_dragon · Answer

poste une question dans ton propre message. utilise pas le message d'un autre


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Pb de programmation

11 réponses

Discussions similaires