[color=Navy]#PICAXE [/color][color=Black]20M2[/color]
[color=Green]'########################## configuration ################################[/color]
[color=Blue]Symbol [/color][color=Black]Av_Ar [/color][color=DarkCyan]= [/color][color=Purple]b3 [/color][color=Green]' Joystick gauche, Avant et Arriere[/color]
[color=Blue]Symbol [/color][color=Black]Dr_Ga [/color][color=DarkCyan]= [/color][color=Purple]b5 [/color][color=Green]' Joystick droit , droite et gauche[/color]
[color=Blue]Symbol [/color][color=Black]Pa_Ti [/color][color=DarkCyan]= [/color][color=Purple]b7 [/color][color=Green]' Joystick gauche, Pan et tilt[/color]
[color=Blue]Symbol [/color][color=Black]Flag_EN [/color][color=DarkCyan]= [/color][color=Purple]b8[/color]
[color=Blue]Symbol [/color][color=Black]Enable [/color][color=DarkCyan]= [/color][color=Blue]C.3
Symbol [/color][color=Black]Donnee [/color][color=DarkCyan]= [/color][color=Blue]C.0
Symbol [/color][color=Black]V_TOR [/color][color=DarkCyan]= [/color][color=Purple]w10[/color]
[color=Blue]Symbol [/color][color=Black]Val_Joy_ini_moin [/color][color=DarkCyan]= [/color][color=Purple]w11[/color]
[color=Blue]Symbol [/color][color=Black]Val_Joy_ini_plus [/color][color=DarkCyan]= [/color][color=Purple]w12[/color]
[color=Blue]Symbol [/color][color=Black]Val_Joy [/color][color=DarkCyan]= [/color][color=Purple]w13[/color]
[color=Green]'########################## Initialisation ################################ [/color]
[color=Blue]setfreq m32
hi2csetup i2cmaster[/color][color=Black], [/color][color=Navy]%10100000[/color][color=Black], [/color][color=Blue]i2cslow_4[/color][color=Black], [/color][color=Blue]i2cbyte [/color][color=Green]' met le 20M2 en mode maitre[/color]
[color=Blue]readadc B.6[/color][color=Black], Av_Ar [/color][color=Green]' Enregistrement des valeurs des potar a l'allumage pour comparer ensuite[/color]
[color=Blue]readadc C.7[/color][color=Black], Dr_Ga [/color]
[color=Blue]readadc B.0[/color][color=Black], Pa_Ti
Val_Joy_ini_moin [/color][color=DarkCyan]= [/color][color=Black]Av_Ar [/color][color=DarkCyan]+ [/color][color=Black]Dr_Ga [/color][color=DarkCyan]+ [/color][color=Black]Pa_Ti[/color][color=DarkCyan]-[/color][color=Navy]5[/color]
[color=Black]Val_Joy_ini_plus [/color][color=DarkCyan]= [/color][color=Black]Val_Joy_ini_moin [/color][color=DarkCyan]+[/color][color=Navy]10[/color]
[color=Black]V_TOR [/color][color=DarkCyan]= [/color][color=Purple]w0 [/color][color=Green]' Enregistrement de la valeur des TOR[/color]
[color=Blue]low [/color][color=Black]Enable [/color][color=Green]' Raz de la broche Enable
'#################################################################################
'########################## Programme Principal ############################
'#################################################################################[/color]
[color=Blue]do
readadc B.6[/color][color=Black], Av_Ar [/color][color=Green]' potar Av/ar Vhl/cam [/color]
[color=Blue]readadc C.7[/color][color=Black], Dr_Ga [/color][color=Green]' potar Dr/Ga Vhl [/color]
[color=Blue]readadc B.0[/color][color=Black], Pa_Ti [/color][color=Green]' potar pan/Tilt Cam [/color]
[color=Black]V_TOR [/color][color=DarkCyan]= [/color][color=Purple]w0 [/color][color=Green]' Sauvegarde des TOR dans une autre variable pour comparaison[/color]
[color=Blue]hi2cin [/color][color=Navy]0[/color][color=Black],[/color][color=Blue]([/color][color=Purple]b0[/color][color=Black],[/color][color=Purple]b1[/color][color=Blue]) [/color][color=Green]' Recuperation des TOR[/color]
[color=Black]Val_Joy [/color][color=DarkCyan]= [/color][color=Black]Av_Ar [/color][color=DarkCyan]+ [/color][color=Black]Dr_Ga [/color][color=DarkCyan]+ [/color][color=Black]Pa_Ti [/color][color=Green]' Calcul de la position des joysticks
[/color][color=Blue]If [/color][color=Black]Val_Joy [/color][color=DarkCyan]< [/color][color=Black]Val_Joy_ini_moin [/color][color=DarkCyan]or [/color][color=Black]Val_Joy [/color][color=DarkCyan]> [/color][color=Black]Val_Joy_ini_plus [/color][color=DarkCyan]or [/color][color=Purple]w0 [/color][color=DarkCyan]<> [/color][color=Black]V_TOR [/color][color=Blue]then [/color][color=Green]' Test changement Joystick ou TOR
[/color][color=Blue]if [/color][color=Black]Flag_En [/color][color=DarkCyan]= [/color][color=Navy]0 [/color][color=Blue]then [/color][color=Green]' Si c'est la premiere fois qu'il s'allume
[/color][color=Blue]High [/color][color=Black]Enable [/color][color=Green]' On active l'emetteur
[/color][color=Blue]pause [/color][color=Navy]30 [/color][color=Green]' Une marque une pause pour la stabilisation du Tx
[/color][color=Black]Flag_En [/color][color=DarkCyan]= [/color][color=Navy]1 [/color][color=Green]' Obn met un flag a 1 pour ditre que le Tx est allume
[/color][color=Blue]end if
[/color][color=Purple]time [/color][color=DarkCyan]= [/color][color=Navy]0 [/color][color=Green]' On efface le timer
[/color][color=Blue]else
if [/color][color=Purple]time [/color][color=DarkCyan]>= [/color][color=Navy]1 [/color][color=Blue]then [/color][color=Green]' Si le timer est superieur ou egal a 1
[/color][color=Blue]Low [/color][color=Black]Enable [/color][color=Green]' On desactive le Tx
[/color][color=Black]flag_En [/color][color=DarkCyan]= [/color][color=Navy]0 [/color][color=Green]' On met le flag a 0
[/color][color=Blue]end if
end if
Rfout [/color][color=Black]donnee,[/color][color=Blue]([/color][color=Purple]b0[/color][color=Black],[/color][color=Purple]b1[/color][color=Black],[/color][color=Purple]b2[/color][color=Black],[/color][color=Purple]b3[/color][color=Black],[/color][color=Purple]b4[/color][color=Black],[/color][color=Purple]b5[/color][color=Black],[/color][color=Purple]b6[/color][color=Black],[/color][color=Purple]b7[/color][color=Blue])
loop[/color]