'----------afficheur--------------------------------------
'Les outils de manipulation des lcd
'Par ordre alphabétique et repris dans le dictionnaire.
'pour controler une instructions, supprimer le REM(') avant le WAIT
' config Port...config lcdmode..config lcdpin..config lcd
'jp duval le 13-11-2002
'---------------------------------------------------------
'les variables
Dim Y As Byte

' --------configuration des ports----------------------------------
Config Portd = Output
'le port que nous utiliserons dans ce programme pour l'afficheur LCD
'---------configuration LCD----------------------------------------
Config Lcdmode = Port
' config le LCD en 4 bit
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.5 , Rs = Portd.6
' cette ligne change le réglage du compilateur.
Config Lcd = 16 * 2
' cette ligne n'est pas obligatoire quand c'est un 16*2
'---démarrer par un effacement----------------------------
Cls
Home Upper
Lcd "clignote"
Cursor On
Cursor Blink       'clignote
Wait 3
Cls
Cursor Noblink
Lcd "ne clignote plus"
Waitms 300
Cls
Home
Cursor On Blink
Lcd "shift est facile"
For Y = 1 To 5
   Shiftcursor Right , 1
    Wait 1
Next
Lcd "shift est facile"
For Y = 1 To 5
    Shiftcursor Left , 1
    Wait 1
Next
Cls
Home Upper
Lcd "shift est facile"
For Y = 1 To 15
    Shiftlcd Right , 1
    Waitms 100
Next
For Y = 1 To 15
    Shiftlcd Left , 1
    Waitms 100
Next
Cls : Locate 2 , 8
Deflcdchar 1 , 31 , 16 , 20 , 21 , 26 , 20 , 16 , 30       ' replace ? with number (0-7)
Cls
Lcd Chr(1)

'----------------- Now use an internal routine ------------
_temp1 = 1       'value into ACC
!rCall _write_lcd       'put it on LCD
Wait 1
End