Bonsoir
j'ai developpé un petit programme en vb.net qui communique avec un picaxe 28x1.
les grandes lignes sont les suivantes :
depuis le pc j'envoie 2 actions vers le picaxe : un ordre de rotation d'un moteur vers la gauche ou un ordre de rotation de ce meme moteur vers la droite.
ça marche très bien.
le problème est que j'ai ajouté sur mon circuit 2 poussoirs pour faire le meme travail mais directement sans passer par le pc.
or je ne parvient pas a réaliser un code correct sur le picaxe car j'utilise la fonction serin pour lire les infos qui arrivent du pc par le port serie et le picaxe est en mode blocage sur ce serin et il ne detecte pas les action de mes poussoirs et attend un ordre du pc...
voila le programme que j'utilise
vous l'aurez compris j'ai besoin de tester ce qui arrive sur mon serin mais ne pas y rester bloquer et verifier en meme temps l'etat de mes poussoirs
merci de votre aide
j'ai developpé un petit programme en vb.net qui communique avec un picaxe 28x1.
les grandes lignes sont les suivantes :
depuis le pc j'envoie 2 actions vers le picaxe : un ordre de rotation d'un moteur vers la gauche ou un ordre de rotation de ce meme moteur vers la droite.
ça marche très bien.
le problème est que j'ai ajouté sur mon circuit 2 poussoirs pour faire le meme travail mais directement sans passer par le pc.
or je ne parvient pas a réaliser un code correct sur le picaxe car j'utilise la fonction serin pour lire les infos qui arrivent du pc par le port serie et le picaxe est en mode blocage sur ce serin et il ne detecte pas les action de mes poussoirs et attend un ordre du pc...
voila le programme que j'utilise
Code:
main:
setint 3,3
pause 1000
low 0
low 1
low 2
serout b.7,N2400,("TNT MOTOR CONNECTED",cr)
pause 500
label_14:
serout b.7,N2400,("Choose Direction :",cr)
pause 500
dirsc=%00000000
serin 4,N2400,b0
if b0 = "l" then left
if b0 = "r" then right
goto moteurstop:
left:
high 0
pause 100
high 1
low 2
serout b.7,N2400,("vers gauche <--",cr)
pause 1000
goto label_14
right:
high 0
pause 100
high 2
low 1
serout b.7,N2400,("vers droiter -->",cr)
pause 1000
goto label_14
moteurstop:
low 0
low 1
low 2
serout b.7,N2400,("Motor stopped <-->",cr)
pause 1000
goto label_14
interrupt:
if pin0=1 then left
if pin1=1 then right
setint 3,3
return
vous l'aurez compris j'ai besoin de tester ce qui arrive sur mon serin mais ne pas y rester bloquer et verifier en meme temps l'etat de mes poussoirs
merci de votre aide