Hallo, ich bin zur Zeit dabei mit einem Atmgega8L ein SPC01 Modul auszulesen. Der Atmega läuft mit 3,3V. Datenblatt vom SPC01: http://www.octamex.de/shop/datasheet/d45462d437ae8f0910e36a5af37331a6.pdf Jetzt habe ich versucht mit Bascom den SPC01 auszulesen (per I2C). Hier der Code: $regfile = "M8def.dat" $crystal = 8000000 $baud = 9600 Dim Eingang1 As Byte Dim Eingang2 As Byte Config Scl = Portc.5 Config Sda = Portc.4 Const Spc01_write = &H20 ' Slaveadresse Const Spc01_read = &H21 Print "Gestartet" I2cstart I2cwbyte &H20 I2cwbyte &H70 'aufwecken I2cstop Wait 1 Do I2cstart I2cwbyte &H20 'Schreibadresse des SPC01 I2cwbyte &H80 'Temperatur auslesen I2cstart I2cwbyte &H21 'Leseadresse der SPC01 I2crbyte Eingang1 I2crbyte Eingang2 , Nack I2cstop Print Print "Eingang1: " ; Eingang1 Print "Eingang2: " ; Eingang2 Waitms 500 Loop End Für eingang1 bekomme ich immer 0 und für eingang2 bekomme ich manchmal 127 und manchmal 255. Habe ich etwas bei dem Code falsch gemacht? Gruß Jan
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.