Partie 2
Code:clav: select case lig ;sélection ft valeur ligne case 175 to 225 ; pour 4 Volt lookup col,("123A"),car ;ligne 4 case 125 to 174 ; pour 3 Volts lookup col,("456B"),car ;ligne 3 case 75 to 124 ; pour 2 Volts lookup col,("789C"),car ;ligne 2 case 25 to 74 ; pour 1 Volts lookup col,("*0#D"),car ;ligne 1 endselect do readadc col,lig ;attente relâchement touche loop while lig <= 225 buz=1:pause 200:buz=0 'touche pressée return ;****************************************************** sortie: ;activation gache relais=1 ledB=1 buz=1:pause 1000:buz=0:pause 100:buz=1:pause 1000:buz=0 for cpt=0 to 6 car=157: gosub EnvoiByteComm lookup cpt, ("6543210"),car GOSUB EnvoiByteData pause 4000 ;=1s pour M16 next ledB=0 car=1: gosub EnvoiByteComm ;effacement LCD car=131: gosub EnvoiByteComm for cpt=0 to 12 lookup cpt, ("Arret complet"),car GOSUB EnvoiByteData next car=196: gosub EnvoiByteComm for cpt=0 to 10 lookup cpt, ("appuyez sur"),car GOSUB EnvoiByteData next car=157: gosub EnvoiByteComm car="#" GOSUB EnvoiByteData car=217: gosub EnvoiByteComm for cpt=0 to 9 lookup cpt, ("du clavier"),car GOSUB EnvoiByteData next do readadc B.2,lig loop while lig > 75 ;appui sur # relais=0 reset ;***************************************************************
-----