Le PicBasic ? Je connais bien.
C´est un language très proche du Basic, avec en plus les commandes In et Out pour contrôler les tensions en entée/sortie.
Aller, en exclu mondiale, des bouts de mon code qui a servis a mon TPE :
const device=3b
´ définition des variables
5 Dim z As Byte ´pour les for
6 Dim DCY As Byte ´départ cycle
7 Const BROCHEDCY = 12 ´broche de dcy
10 Dim BP1 As Byte ´bp1=capteur arc position bas (initial)
20 Dim BP2 As Byte ´bp2=capteur arc position haut
´départ cycle ?
111 DCY = keyin(BROCHEDCY, 100)
If DCY = 0 Then GoTo 111
´sous routine d´ initialisation
BP1 = keyin(BROCHEBP1, 100) ´acquérir état BP1
BP2 = keyin(BROCHEBP2, 100) ´acquérir état BP2
BP4 = keyin(BROCHEBP4, 100) ´acquérir état BP4 ´acquérir état BP4
220 If BP4 = 0 Then GoTo 210 ´continuer tant que pas bp4=1
230 pwmoff BROCHEMOTEURBASB ´arrêt moteur plateau
´prendre photo 2
´allumer lampearc
240 LAMPEARC = 1
250 out BROCHELAMPEARC, LAMPEARC ´allumer lampe 1
´éteindre lampe 2
410 LAMPEBAS = 0
420 out BROCHELAMPEBAS, LAMPEBAS ´éteindre lampe 2
´redescendre arc en position initiale
430 GoSub 9000 ´appel à la sous routine de descente du plateau en pos initiale
440 BP1 = keyin(BROCHEBP1, 100) ´acquérir état BP1
For CYCLIQUE = CYCL To 150
´incrémentation de cyclique
pwm BROCHEMOTEURBASA, CYCLIQUE ´envoi du signal
pwm BROCHEMOTEURBASB, 0 ´relier entrée pon en H secondaire à la masse
delay 100 ´valeur arbitraire à corriger
Next CYCLIQUE
´vitesse max
For z = 0 To 100
pwm BROCHEMOTEURBASA, CYCLIQUE ´envoi du signal
pwm BROCHEMOTEURBASB, 0 ´relier entrée pon en H secondaire à la masse
delay 100 ´valeur arbitraire à modifier
Next z
Voilà....