Tolle Include de Maik Borchard , siehe aussi: Display HD44780 contrôle/ betreiben [...]
Maik Borchardt, URL=www.rgh-soft.de/forum01/read.php?f=6&i=5963&t=820, ZEITPUNKT=15.11.09
Nabend... Pour alle qui es sich quelque chose leicher faire voulons avec qui ansteuerung, habe je ici la fois ne includedatei gebastelt avec den wichtigsten quoi on so ggf. brauchen peux. ici fois le liste qui Befehle 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 la ligne%, Spalte%
LCD_WRITE Byte%
LCD_WRITECHAR ZEICHEN$
LCD_CMD Byte%
LCD_BARINIT Byte%
LCD_BAR la ligne%, Spalte%,WERT%,MAXWERT%,BARLEN%
LCD_NEWCHAR CharNum%, byte%, byte%, byte%, byte%, byte%, byte%, byte%
LCD_WRITEWORD la ligne%, Spalte%, Text$
LCD_CENTER la ligne%, Text$
LCD_LEFT la ligne%, Text$
LCD_RIGHT la ligne%, Text$
LCD_CLR la ligne%
LCD_SLOW
LCD_NORMAL
LCD_FAST
on pourrait cela alles naturellement encore erweitern ect. mais cela wichtigste ist glaub je getan. une Kurze Beschreibung et Informationen ist dans qui include eh dabei. Télécharger: LCD-LPT.INCune kurzen Demo Code qui Kompatibilität à cause de ici sur 2x16 beschränkt, funktioniert mais im Grunde aussi avec anderen Displays jusqu'à maximum 4x20 marque $I LCD-LPT.INC
main
simple la fois nen la fenêtre Öffnen
DECLARE COUNT%,x%
cls
Imprimer Initialisiere cela Display à Port $378 avec 2 x 16 marque
LCD_INIT $378,2,16
LCD_FAST
LCD_WRITEWORD 1,3,allô monde
LCD_CENTER 2,comment gehts?
DELAY(2000)
LCD_CLS
LCD_BARINIT 0
tandis 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)
tandis que %scankey<>27
LCD_BAR 1,3,Count%,100,10
cas rnd(10)=5:x%=abs(x%-1)
cas x%=0:inc Count%
Cas x%=1:dec Count%
cas COUNT%>=100:x%=abs(x%-1)
cas 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,sur
LCD_CENTER 2,Wiedersehen
Count%=30
tandis 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
tandis 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
je hoffe es hilft la fois quelqu'un Salut maik Xp Home Profan 7.5 |