HI

ES FUNKTIONIERT.
UND ZWAR MIT BEIDEN BEFEHLEN.

-> Aber frag mich nicht, was ich anders gemacht habe!!!

Uff. Und ich dachte schon, das funzt nie mehr...

Aber das funzt immer erst, wenn ich alle technischen Register ziehe,
die mir in dieser Richtung messtechnisch zur Verfügung stehen.

Willst du ein Bild vom Bus sehen?

Ganz liebe Grüße, Tobi

Achso:
Das ist der Aktuelle Quellcode:
(Quick & Dirty)

Code:
$regfile = "m16def.dat"
$baud = 9600
$crystal = 16000000
$lib "i2c.lib"


Beep Alias Portd.2


Config Scl = Portc.0
Config Sda = Portc.1


Const 24c64 = &B10100001


Dim Var As Byte



I2cinit


Do

For Var = 0 To 5

Sound Beep , 500 , 350
Waitms 250


   I2cstart
   I2cwbyte 24c64
   I2cwbyte 23
   I2cstop


Wait 1

Sound Beep , 500 , 500
Waitms 1



Next Var








Sound Beep , 750 , 3000
Wait 1







For Var = 0 To 5

Sound Beep , 500 , 350
Waitms 250

   I2csend 24c64 , 255


Wait 1


Sound Beep , 500 , 500

Next Var



Sound Beep , 750 , 3000
Wait 1


Loop



End