Hallo zusammen,

habe den I2C-Bus neu verdrahtet und gemessen - keine Unterbrechungen - keine Kurzschlüsse - Pullup´s gegen +5Volt.....alles OK

hier der Program code:

Hallo zusammen,

habe den I2C-Bus neu verdrahtet und gemessen - keine Unterbrechungen - keine Kurzschlüsse - Pullup´s gegen +5Volt.....alles OK

hier der Program code:

$regfile = "m2560def.dat"
$hwstack = 82 '80
$framesize = 68 ' 64
$swstack = 68 '44

$crystal = 16000000 'Quarzfrequenz

'$lib "i2c_twi.lbx"
'Config Twi = 100000 ' wanted clock frequency


' Printbefehle An Com4
Open "com4:" For Binary As #4

Config Scl = Portd.0 'Ports fuer IIC-Bus
Config Sda = Portd.1


Dim Device As Byte
Dim Deviceread As Byte
Dim Lowtemp As Byte
Dim Hightemp As Byte

Device = &H90
Deviceread = &H91

I2cinit

Print
Print "DS1621 Temperatur"

Do
I2cstart
I2cwbyte Device
I2cwbyte &HEE
I2cstop

I2cstart
I2cwbyte Device
I2cwbyte &HAA
I2cstop

I2cstart
I2cwbyte Deviceread
I2crbyte Lowtemp , Ack
I2crbyte Hightemp , Nack
I2cstop

Print Lowtemp ; ",";

If Hightemp = &H80 Then
Print "5";
Else
Print "0";
End If

Print " Grad Celsius"

Waitms 3800
Loop

End

wenn ich jetzt das Programm starte bekommen ich zarte 145 Grad angezeigt.
ohne Config TWI bekomme ich 72 Grad angezeigt. den Sensor abklemmt bekomme ich 72 Grad angezeigt.

ohne $lib i2c_twi.lbx kommt mir der frost hoch - 0 Grad werden angezeigt.

hat jemand eine Idee??????????????????

ich wollte nur einen Ultraschallsensor zur erkennung von Personen die einen Raum betreten einsetzen um das Licht einzuschalten. Wenn das alles nicht geht werde ich wohl oder übel einen ganz normalen TASTER nehmen.

gruss

wuppi