
|
INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Guten Abend, Hab den ganzen Sonntag erfolglos versucht den LCD Initialisierungsprogrammteil und Ansteuerteil von Basic in Basic++ umzuschreiben. Ohne erfolg. Hat jemand diesen Standard Ansteuerteil für LCD Anzeigen nach Basic++ umgeschrieben? Kann mit Function keine verschachtelte Aufrufe gemacht werden? Stört euch nicht am Ausdruck LCD_Latch = on oder Off Die LCD hängt an einer Buserweiterung mit 74HC573 (total 7Latch) Mit Basic ist das ganze Funktionsfähig, es kann nicht an der Hardware liegen. Will einfach mit einem neuen Projekt gleich mal die BASIC++ anwenden. FUNCTION LCD_INIT() busport = off lcd_param = 38h ' 8-Bit-Modus aktivieren LCD_WRITECMD() busport=00000010b ' mit 8-Bit Command in 4-Bit Modus Umschalten LCD_LATCH = on tog lcd_e tog lcd_e LCD_LATCH = off lcd_param = 28h ' ab jetzt 4-Bit-Modus LCD_WRITECMD() lcd_param = 0Ch LCD_WRITECMD() lcd_cls() END FUNCTION FUNCTION LCD_CLS() lcd_param = 02h LCD_WRITECMD() lcd_param = 01h LCD_WRITECMD() pause 1 END FUNCTION ' LCD-Kommando FUNCTION LCD_WRITECMD() lcd_buf = OFF LCD_WRITE() END FUNCTION ' Zeichenausgabe FUNCTION LCD_WRITECHAR() lcd_buf = 00100000b END FUNCTION ' Kommando oder Zeichen an Display senden FUNCTION LCD_WRITE() busport = lcd_buf or (lcd_param shr 4) ' Hi-Nibble LCD_LATCH = on tog lcd_e tog lcd_e busport = lcd_buf or (lcd_param and 0Fh) ' Lo-Nibble tog lcd_e tog lcd_e LCD_LATCH = off END FUNCTION Besten Dank im Voraus Beat |
| Antwort schreiben |