; *******************************
; ***** Sample Header File  *****
; *******************************
;    Filename: 		
;    Date:26/06/11 			
;    File Version:1.0	
;    Written by: technOpengl	
;    Function: WebCamControl		
;    Last Revision:15/05/12
;    Target PICAXE:08M2	
; ******************************* 


init:
b0 = 150
b4 = 150
servo 2,b0
servo 4,b4

main:			
'serrxd [100, main], #b2 'lecture du port com et l'octet reçu est placé dans la variable b0. 
				'Si au bout de 500ms,le port com ne reçoit rien, alors le programme
				'se rend à l'adresse "zero"


serrxd b2 'Câble connecté sur le jack du module servo (AXE024)
if b2 = "A" then test 	'si la variable reçoit l'octet de la lettre "T", alors adresse "test"
if b2 = "G" then ssgauche
if b2 = "D" then ssdroite
if b2 = "H" then sshaut
if b2 = "B" then ssbas
goto main  

test:
sertxd("T")
goto main

ssgauche:
 b0 = b0-2
 pause 50
 if b0 < 80 then stp2
 servopos 2,b0
 goto main

ssdroite:
 b0 = b0+2
 pause 50
 if b0 > 220 then stp1
 servopos 2,b0
 goto main

sshaut:
 b4 = b4-2
 pause 50
 if b4 < 110 then stp3
 servopos 4,b4
 goto main
 
ssbas:
 b4 = b4+2
 pause 50
 if b4 > 190 then stp4
 servopos 4,b4
 goto main

stp1:
servopos 2,220
pause 100
goto main

stp2:
servopos 2,80
pause 100
goto main

stp3:
servopos 4,110
pause 100
goto main

stp4:
servopos 4,190
pause 100
goto main