I2C-Schnittstelle auslesen

Basti Gast 05.02.2009 20:12 #1136999

Lesenswert?

•

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
Sub Makeint(A As Byte , B As Byte) As Word
Dim tmp As Word
tmp = A 
tmp << 7 
tmp = tmp + B 
Return tmp


MfG
Basti

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

ROFL Gast 05.02.2009 20:43 #1137036

Lesenswert?

•

▲
▼

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.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

I2C-Schnittstelle auslesen

Antwort schreiben