LM75 und Bascom

Sabine Gast #322163
Lesenswert?
• ▲
▼ 
@all

Hab´mit Bascom folgendes Prog. zum auslesen des LM75 (I2C)geschrieben.
Damit bekomme ich die Temparatur vom LM75 angezeigt. Jedoch wird nur
das MSB ausgewertet, d.h. ich bekomme die aktuelle Temparatur ohne
Dezimalstellen angezeigt. Wie stelle ich es an, die Temp. mit
Dezimalstellen anzuzeigen ? (Denkanstoss, bei mir klemmt´s gerade).


$regfile = M8.def
$crystal = 4433619
Config Lcd = 20 * 2

Dim A As Byte
Dim X As Byte, Slave As Byte
Config Sda = Portc.5
Config Scl = Portc.4

Do
 Slave = &H91
I2creceive Slave , X
Cls
Waitms 10
Lcd "    Temparatur     "
Wait 1
Lowerline
Lcd "   * " ; X ; " Grad    *"
Wait 3
Cls


Loop




Danke, Sabine.
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Profi Gast #322168
Lesenswert?
• ▲
▼ 
na jetzt aber?!?
indem Du es ein zweites Mal hinschreibst.

Do
 Slave = &H91
I2creceive Slave , X
Cls
Waitms 10
Lcd "    Temparatur     "
Wait 1
Lowerline

I2creceive Slave , Y
if Y>128 then Y=0 else Y=5
Lcd "   * " ; X ; "," ; Y; " Grad    *"
Wait 3
Cls

Loop

Ist zwar schon 20 Jahre her, dass ich das letzte Mal was in Basic
schrieb, aber so in etwa könnte es aussehen.
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren