na gut, vielleicht kann man das folgende als Diskussionsgrundlage gebrauchen:
Der Simulator läuft übrigens prima. Könnte es vielleicht sein, daß eine Anpassung der Lib für das Modul notwendig ist? Leider kann ich mit der Demo-Version anscheinend keine Änderungen vornehmen.Code:'############################################# '# Compiler Anweisungen '############################################# $crystal = 2000000 '2 MHz, $regfile = "At26def.dat" 'Tiny26 '$sim '$lib "lcd4busy.lib" 'testweise $lib "lcd4.lbx" '############################################# '# Hardware initialisieren '############################################# Ddra = &B10011011 'DDRA 7,4,3,1,0 Ausgang / 6,5,2 Eingang Porta = &B01000000 'Pullup an 6 Ddrb = &B11111111 'DDRB alle Ausgang 'Portb = &B00000000 'testweise 'EA DIPS082, Reichelt 2*8 Zeichen 'bereits in Options/Compiler/LCD eingestellt: 'Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , Rs = Portb.0 , E = Portb.2 'Config Lcd = 16 * 2 '16*2 als Grundlage 'Config Lcdbus = 4 '4-Bit Bus 'Config Lcdmode = Port 'Data mode: PIN '############################################# '# Konstanten, Variablen '############################################# 'Const _lcdport = Portb 'zum Test mit "lcd4busy.lib" 'Const _lcdddr = Ddrb 'Const _lcdin = Pinb 'Const _lcd_rs = 0 'Const _lcd_e = 2 'Const _lcd_rw = 6 Dim X As Byte '############################################# '# Hauptprogramm '############################################# Do Cls Locate 1 , 1 Waitms 10 Lcd "hello world" 'Schnickschnack, Haupsache es läuft etwas Waitms 10 For X = 1 To 5 Shiftlcd Right Waitms 50 Next X For X = 1 To 5 Shiftlcd Left Waitms 50 Next X Wait 1 Toggle Porta.7 'Zur optischen Kontrolle mit einer LED Loop
Bin gespannt...
Heiner







Zitieren

Lesezeichen