' JP Duval le 01/10/2004
' comparer 2 tensions avec un M8
' dans cet exemple on utilise 2 potentiometres de 10K dont 1 est de 20 tours
' et on réalise un pont, la mesure se fait entre les 2 curseurs
  'gnd----^^^^^^----vcc
  '                ^----------portD.6 (Ain0)
  'gnd---^^^^^^-----vcc
  '               ^----------portD.7(Ain1)

  ' sur 5 volt on controle un changement de 2/100° de volt
 '------[variables]---------------------------------
 Dim , J As Word
'-------[ config ]-----------------------------------
' les config doivent être écrites sans retour à la ligne.
Config Lcdmode = Port       ' config  4 bit
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Lcd = 16 * 2
'-------------------------------------------------
'l'interruption ACI pour analogue comparator
Config Aci = On , Compare = Off , Trigger = Toggle
Enable Interrupts
Enable Aci
On Aci Pont
Wait 1
Cls
'main loop----------
Do
   Locate 1 , 1 : Lcd "Attente"       'wait
   Wait 1
Loop
End       'end program

Pont:
J = J + 1
Locate 2 , 1 : Lcd "changements:" ; J       'nb de  toggle
Waitms 200
Return


'--------[remarques sur cette interruption]--------------------
'CONFIG  ACI = ON|OFF, COMPARE = ON|OFF, TRIGGER=TOGGLE|RISING|FALLING

' facile à mettre en oeuvre, le trigger peut être   TOGGLE|RISING|FALLING
'soit à toutes égalités (comme ici) ou à un changement montant ou descendant
'L'entrée D7 est l'entrée négative L'entrée D6 est l'entrée positive
'ceci ne veut pas dire qu'il faille entrer une tension négative,c'est pour
'le sens de variation pris en compte.

'COMPARE on|off,  si ON,  le Timer1 peut être utilisé pour "trigger", commander,
' l'interruption dans ce cas il faudra configurer aussi Timer1.