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