1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

$lib "Lcd_i2c.lib"                                         'ersetzt die Standard LCD Library
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000                                         'Quarzfrequenz

 Const Pcf8574_lcd = &H40                             'I2C Adresse &H40
 Config I2cdelay = 15
 'delay von 5=20µs=50kHz,10=10µs=100kHz;5=5µs=200KHz
 Config Scl = Portc.0                                       'I2C SCL Pin
 Config Sda = Portc.1                                       'I2C SDA Pin

 Dim _lcd_e As Byte
 _lcd_e = 128                                               'LCD im 4-Bit Mode betreiben

Do
   Cls                                                      'loesche das LCD Display
  Locate 1 , 1
  Lcd "*Hallo Welt*"
  Locate 2 , 1
  Lcd "Test"
  Waitms 200
   Loop