'LCD Testprogram fuer ATtiny2313 'und Wintek LCD 4x27 Zeichen Pollin Bestell-Nr.120232 'LCD Standard Anschluß und E2 auf Port B.1 (Pin 13) $regfile = "attiny2313.dat" 'Register-datei für ATtiny2313 $crystal = 500000 'Frequenz interner RC-Oszillator (Lieferzustand) Dim ___lcdno As Byte 'Umschaltbyte für Anzeige : 0 = Chip 1 ; 1 = Chip2 'LCD initialisieren Config Lcd = 40 * 4 'Anzeigemodus 40 x 4 Zeichen Config Lcdpin = Pin , E2 = Portb.1 'Portb.1 an E2 anschließen ___lcdno = 0 'auf Chip 1 schalten Initlcd 'die beiden oberen Zeilen initialisieren Cls 'die beiden oberen Zeilen löschen ___lcdno = 1 'auf Chip 2 schalten Initlcd 'die beiden unteren Zeilen initialisieren Cls 'die beiden unteren Zeilen löschen 'LCD Anzeige ausgeben 'Die 2 oberen Zeilen anzeigen ___lcdno = 0 Locate 1 , 1 Lcd "1. Die erste Zeile" ; Locate 2 , 1 Lcd "2. Die zweite Zeile" Cursor Off 'Die 2 unteren Zeilen anzeigen ___lcdno = 1 Locate 1 , 1 Lcd "3. Die dritte Zeile" ; Locate 2 , 1 Lcd "4. So einfach ist das !!!!" Cursor Off End 'end program