XProfan

English

, Related: display HD44780 controlling/ operate [...]

Maik Borchardt, URL=www.rgh-soft.de/forum01/read.php?f=6&i=5963&t=820, ZEITPUNKT=15.11.09

Nabend...

for any The it itself something leicher make want with the ansteuerung, have I here time ne includedatei gebastelt with the most important what so ggf. need can.

here times the list the command

Compile Mark Separation

LCD_INIT PORTADRESSE%, ZEILEN%,ZEICHEN%
SET_LCD PORTADRESSE%, ZEILEN%,ZEICHEN%
LCD_ON
LCD_OFF
LCD_CURSOR_ON
LCD_CURSOR_OFF
LCD_BLINK_ON
LCD_BLINK_OFF
LCD_CLS
LCD_HOME
SCL
SCR
LCD_LOCATE row%, slot%
LCD_WRITE byte%
LCD_WRITECHAR ZEICHEN$
LCD_CMD byte%
LCD_BARINIT byte%
LCD_BAR row%, slot%,WERT%,MAXWERT%,BARLEN%
LCD_NEWCHAR CharNum%, byte%, byte%, byte%, byte%, byte%, byte%, byte%
LCD_WRITEWORD row%, slot%, Text$
LCD_CENTER row%, Text$
LCD_LEFT row%, Text$
LCD_RIGHT row%, Text$
LCD_CLR row%
LCD_SLOW
LCD_NORMAL
LCD_FAST

one could the everything naturally yet strain ect. but the most important is mean I done.

an short Description and Information is in the include eh thereby.

Download: LCD-LPT.INC

a short demonstration code
The compatibility because of here on 2x16 dull, functions but in the Grunde too with others Displays To maximum 4x20 characters

Compile Mark Separation

 $I LCD-LPT.INC
main
simply time NEN Window Öffnen
DECLARE COUNT%,x%
cls
Print Initialisiere the display on Port $378 with 2 x 16 characters
LCD_INIT $378,2,16
LCD_FAST
LCD_WRITEWORD 1,3,Hello world
LCD_CENTER 2,How GEHTS?
DELAY(2000)
LCD_CLS
LCD_BARINIT 0

while Count%<=30

    LCD_BAR 1,3,Count%,30,10
    LCD_CENTER 2,st$(COUNT%)+%
    inc Count%

endwhile

LCD_WRITEWORD 2,1,[ESC]->moreover
Count%=rnd(100)

while %scankey<>27

    LCD_BAR 1,3,Count%,100,10
    case rnd(10)=5:x%=abs(x%-1)
    case x%=0:inc Count%
    Case x%=1:dec Count%
    case COUNT%>=100:x%=abs(x%-1)
    case COUNT%<=0:x%=abs(x%-1)

endwhile

LCD_OFF
LCD_CLS
LCD_LEFT 1,LINKS
LCD_CENTER 2,Centered
LCD_RIGHT 1,RECHTS
LCD_ON
DELAY(2000)
LCD_CLS
LCD_NEWCHAR 0,%00110,%01111,%11011,%11111,%11110,%11111,%01111,%00111
LCD_NEWCHAR 1,%00110,%01111,%11011,%11111,%11100,%11110,%01111,%00111
LCD_NEWCHAR 2,%00110,%01111,%11011,%11111,%01111,%11111,%11110,%11100
LCD_NEWCHAR 3,%00110,%01111,%11011,%11111,%00111,%01111,%11110,%11100
LCD_CLS
LCD_CENTER 1,On
LCD_CENTER 2,see again
Count%=30

while count%

    LCD_left 1,chr $(0)
    LCD_right 2,chr $(2)
    delay(100)
    LCD_left 1,chr $(1)
    LCD_right 2,chr $(3)
    delay(100)
    dec count%

endwhile

COUNT%=1

while count%<16

    LCD_WRITEWORD 1,Count%,chr $(0)
    LCD_WRITEWORD 2,(17-Count%),chr $(2)
    delay(100)
    LCD_WRITEWORD 1,Count%,chr $(1)
    LCD_WRITEWORD 2,(17-Count%),chr $(3)
    delay(100)
    LCD_WRITEWORD 1,Count%,
    LCD_WRITEWORD 2,(17-Count%),
    inc count%

endwhile

DELAY(2000)
LCD_OFF