-
Hallo,
leider klappts mit dem folgenden Programm immer noch nicht:
Code:
$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?
-
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.
-
Hallo,
ich habe jetzt den Sensor einfach an PD4 und 5 gehangen und das Programm entsprechend modifiziert:
Code:
$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? 8-[
