HI

Hm. Bei mir macht der I²C auch immer Probleme...
Aber wenn cih große Geschütze auffahre, und alle beiden Kanäle
vom Oszi anschließe, funzt's plötzlich...

Pack' mal

Code:
$regfile = "m32def.dat" 
$crystal = 16000000 
$baud = 9600
Ganz an den anfang des Programms, und häng' mal
$lib "i2c.lib"
unten dran.

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

End
Der Code hier hat bei mir (Mega 16 mit externen 4.7k Metallschicht PullUp)
funktioniert.
Befasst sich mit der Ansteuerung eines 24C64, ist aber nur ein Teil.

Wenn's mit I2cwbyte funzt, geht's auch mit I2csend.
Hat bei mir auch funktioniert. Teste erstmal dashier.

Benutzt du das RN-Board?

Grüße, Tobi