I2C Slave

[filth]

Hallo,

leider klappts mit dem folgenden Programm immer noch nicht:

$regfile = "M8def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 9600

Config Sda = Portc.4
Config Scl = Portc.5


Dim Highbyte As Byte
Dim Lowbyte As Byte


Config I2cdelay = 20                                        ' 50 kHz Bit-Datenrate ( Baud )


I2cInit ' Zu Beginn alles in die richtige Ausgangslage bringen


I2cstart
I2cwbyte 84
I2cwbyte 182
I2cstop

Print Err



I2cstart
I2cwbyte 85
I2crbyte Highbyte
I2crbyte Lowbyte , Nack
I2cstop

Print Err


Do
Loop


End

Es wird jeweils "1 1" ausgegeben. Was kann ich noch versuchen?

[Suggarman]

Lasse am Ende mal highbyte und lowbyte ausgeben, hänge mal ",nack" beim Lesen des highbyte an und lasse das erste "Print Err" weg.

Viel Erfolg.

[filth]

Hallo,

ich habe jetzt den Sensor einfach an PD4 und 5 gehangen und das Programm entsprechend modifiziert:

$regfile = "M8def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 9600

Config Sda = Portd.5
Config Scl = Portd.4


Dim Highbyte As Byte
Dim Lowbyte As Byte


Config I2cdelay = 20
I2cInit ' Zu Beginn alles in die richtige Ausgangslage bringen


I2cstart
I2cwbyte 84
I2cwbyte 182
I2cstop


Print Err


I2cstart
I2cwbyte 85
I2crbyte Highbyte
I2crbyte Lowbyte , Nack
I2cstop


Print Err


Print Highbyte
Print Lowbyte


Do
Loop


End

Plötzlich geht es. Aber warum?