Attiny2313 und SRF08 Problem

Ja Hi

Sinn ergibt der Wiederstand allerdings für mich auch nicht, da es ja ein 
Kurzschluss auf dem Port ist oder?

hier mal der Code und die Schaltung in einfachster weise. LCD Display 
ist nicht mit eingezeichnet.

$regfile = "ATtiny2313.dat"
$crystal = 1000000
$hwstack = 32
$swstack = 10
$framesize = 40
Config Lcdpin = Pin . Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , 
Db7 = Portb.3 , E = Portd.5 , Rs = Portd.6
Config Lcd = 16 * 2
Cursor Off
Cls

Config Scl = Portb.7
Config Sda = Portb.5
Dim Entfernungus As Integer
Dim Weite As String * 3
Dim Msb As Byte
Dim Lsb As Byte


Do

I2cstart                            'Messung auslösen
I2cwbyte &HE0                       '&HE0 1. Adresse für diesen Baustein
I2cwbyte 0                          'Register 0 - Befehlsregister
I2cwbyte 81                         'Befehl 81 - Messung in cm
I2cstop

I2cstart
I2cwbyte &HE0                       '&HE0 1. Adresse für diesen Baustein
I2cwbyte 1                          'register "Verstärkung"
I2cwbyte 100 
'Verstärkungslimit
I2cstop

I2cstart
I2cwbyte &HE0                       '&HE0 1. Adresse für diesen Baustein
I2cwbyte 2                          'register "reichweite"
I2cwbyte 100                        'Bereich
I2cstop

Waitms 70                           'delay 70mS auf Ergebnis warten

I2cstart
I2cwbyte 224                        'E0 Addresse vom 1. US
I2cwbyte 2                          'Register 2 (+3) = 1. Entfernung

I2cstart
I2cwbyte 225                        'Leseadresse (E1)
I2crbyte Msb , Ack                  'Register 2 lesen
I2crbyte Lsb , Nack                 'Register 3 lesen
I2cstop

Entfernungus = Makeint(lsb , Msb)
Weite = Str(entfernungus)
Weite = Format(weite , "   ")
Locate 1 , 1
Lcd "Entfernung:" ; Weite ; "cm"

Loop
Return

Hallo

Ich glaub das Problem ist gar kein Problem.

Ich hab vergessen, das dieses Modul auch einen großen Abstrahlwinkel 
besitzt.
Das hat sich naürlich auch auf das Messergebniss ausgewirkt. Der 
Widerstand den ich kurzzeitig von SDA nach masse gelegt hatte, hat 
möglicherweise nur Fehler verursacht die ich wohl falsch gedeutet hatte. 
Jedenfalls misst er die genaue reichweite, wenn sich nichts in 
unmittelbarer nähe befindet.

trotz allem vielen Dank für die Mühe......

MfG Smufte