Danke schonmal soweit Euch Beiden!
Habe die Änderungen übernommen, Code sieht nun wie folgt aus:

Code:
$regfile = "m16def.dat"

$crystal = 16000000
$lib "i2c_twi.lbx"

Const Ref = 5 / 1023
Baud 9600

 
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.7 , Rs = Portc.6
Config Lcd = 16 * 2


Config Sda = Portc.1
Config Scl = Portc.0
'Config I2cdelay = 10

Const Adextw1 = &B01010000                                  'Schreibadresse
Const Adextr1 = &B01010001                                  'Leseadresse
Const Adext1chan1 = 11111000                                'Control-Byte für AD-Kanal 1

 
Dim Readvar1h As Byte
Dim Readvar1l As Byte

Initlcd
I2cinit

Config Twi = 100000

Do
   Cls
   I2cstart
   I2cwbyte Adextw1
   I2cwbyte Adext1chan1
   I2cstop

   I2cstart
   I2cwbyte Adextr1
   I2crbyte Readvar1h
   I2crbyte Readvar1l
   I2cstop

   Locate 1 , 1
   Lcd "h: "
   Lcd Readvar1h
   Locate 2 , 1
   Lcd "l: "
   Lcd Readvar1l

   Wait 1

Loop
Nur leider funzts immer noch nicht. Man kann auf dem Oszi erkennen, dass Sda jeweils auf 0 gezogen wird, aber das wars auch schon. Stimmt das Programm soweit? Auf welchen Wert muss ich eigentlich den Baud-Wert stellen?
Fragen über Fragen...

Danke und Gruß, Martin