XProfan

Español

, siehe auch: Display HD44780 ansteuern/ betreiben [...]

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

Nabend...

Für todos el lo algo leicher hacer querer con el ansteuerung, Yo hier veces ne includedatei gebastelt con el wichtigsten qué así ggf. brauchen kann.

Hier veces el liste el Befehle

Kompilieren Marca Separación

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 Línea%, Spalte%
LCD_WRITE Byte%
LCD_WRITECHAR ZEICHEN$
LCD_CMD Byte%
LCD_BARINIT Byte%
LCD_BAR Línea%, Spalte%,WERT%,MAXWERT%,BARLEN%
LCD_NEWCHAR CharNum%, byte%, byte%, byte%, byte%, byte%, byte%, byte%
LCD_WRITEWORD Línea%, Spalte%, Texto$
LCD_CENTER Línea%, Texto$
LCD_LEFT Línea%, Texto$
LCD_RIGHT Línea%, Texto$
LCD_CLR Línea%
LCD_SLOW
LCD_NORMAL
LCD_FAST

Man podría el alles natürlich todavía erweitern ect. aber el wichtigste es glaub Yo getan.

Un Kurze Descripción y Informationen es en el include eh esta.

Descargar: LCD-LPT.INC

una kurzen Demo Code
Der Kompatibilität wegen hier en 2x16 beschränkt, funktioniert aber en el Grunde auch con otro Displays a máximo 4x20 Signo

Kompilieren Marca Separación

 $I LCD-LPT.INC
main
simplemente veces nen Ventana Öffnen
DECLARE COUNT%,x%
cls
Imprimir Initialisiere el Display a Port $378 con 2 x 16 Signo
LCD_INIT $378,2,16
LCD_FAST
LCD_WRITEWORD 1,3,¡Hola Welt
LCD_CENTER 2,como gehts?
DELAY(2000)
LCD_CLS
LCD_BARINIT 0

mientras que Count%<=30

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

endwhile

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

mientras que %scankey<>27

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

endwhile

LCD_OFF
LCD_CLS
LCD_LEFT 1,LINKS
LCD_CENTER 2,Zentriert
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,Auf
LCD_CENTER 2,Wiedersehen
Count%=30

mientras que 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

mientras que 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