1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Const Device = CB210 'configue carte cubloc CB210
Set Display 2,0,0,50 'initialisation LCD utilise
Dim X As Integer
Dim v As Single
Csroff 'Désactive curseur
Cls 'Efface lécran LCD
Locate 9,0 'Positionne le curseur
Print "V" 'Affiche texte
Csroff 'Désactive curseur
Do 'Génération dune boucle
X=Adin(0) )
Debug Dec X, Cr
Delay 10 'Génération d'une temporisation
If X>1024 Then 'Si X>1024 alors
Cls 'Efface lecran LCD
Else 'Gestion conditions
v=(5*X/1023) ' 'A est egal A 5*U/1023
Locate 6,0 'Positionne le curseur
Print Dec v 'Affiche texte
Endif 'Fin si |
Partager