Bascom byte in BCD ausgeben

Christian Betzen Gast #1556132
Lesenswert?
• ▲
▼ 
Hallo!

Ich habe mir mit einem Mega 8 und nem LM75 eine Temperaturanzeige 
gebastelt.
Im Moment werden die Temperaturwerte über ein LCD ausgegeben.
Gedacht war das aber eigentlich über Nixieröhren anzeigen zu lassen.
Programmiert habe ich den Mega 8 mit Bascom und die Nixies werden über 
einen 74141 angesteuert.

Was ich jetzt nicht hin bekomme ist, in Bascom die ausgelesenen bytes 
vom lm75 in BCD umzuwandeln und an 4 ports des Mega8 auszugeben.
Ich glaube mein Ansatz ist schon ganz falsch. Ich habe mit dem Befehl 
"makebcd" experimentiert . S Bsp.

Dim B As byte
Dim A As Byte

A = 5

Print A

Print Bcd(a)

B = Makebcd(a)

Print B

End


Kann mir jemand helfen?

Schö mit Ö...
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Rolf I. #1556208
Lesenswert?
• ▲
▼ 
Makebcd macht schon so etwas wie du brauchst. Z.B.

1
A=73          '&B01001001

2
B=Makebcd(A)  '&B01110011

3
              '  7   3

4
PortC=B       'setzt die Pins entsprechend

5


6
A=125         '&B01111101

7
B=MakeBCD(A)  '&B11000101

8
              '  12    5

9


10
A=225         '&B11100001

11
B=MakeBCD(A)  '&B01100101

12
              '    6   5    'Übertrag 1 ist weg
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