I2C-Schnittstelle auslesen

[Basti (Gast)]

Hi,

ich möchte einen Ultraschallsensor (SRF10), der über eine 
I2C-Schnittstelle Daten liefert, auslesen. Der Code ist schon fertig und 
es läuft alles. Ich möchte aber gerne mal verstehen, was da genau 
passiert.

Kann mir jemand einmal ganz knapp sagen, was im folgenden Code genau vor 
sich geht? Besonders die Funktion Makeint() ist mir noch sehr kryptisch.

I2C_Start()
I2C_Write(SlaveIdRead)
MSB = I2C_Read_ACK()
LSB = I2C_Read_NACK()
I2C_Stop()

Entfernung = Makeint(LSB , MSB) 

Return Entfernung

End Sub

Sub Makeint(A As Byte , B As Byte) As Word
Dim tmp As Word
tmp = A 
tmp << 7 
tmp = tmp + B 
Return tmp
End Sub

MfG
Basti

[ROFL (Gast)]

wenn du aus "tmp << 7" noch "tmp << 8" machst, wird's noch richtiger.

da ist auch irgendwo ein bytedreher drin.

Du liest ja MSB (=most significant byte) und LSB (=least significant 
byte) vom I2C Bus.

Makeint() setzt die beiden bytes dann zu einem 16 bit-Wort zusammen.

Also MSB * 256 + LSB

*256 kann man rechenzeitsparender durch 8x linksshiften (<<8) erreichen.

Da MSB in b landet und LSB in a, sollte die Funktion eigentlich heissen

wort = b<<8 + a

insofern stimmt da was mit deinem code nicht.