Bascom byte in BCD ausgeben

[Christian Betzen (Gast)]

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 Ö...

[Samuel C. (dragonsam)]

Versuche einfach einmal den Zustand des gesamten Ports auf die Variable 
zu stellen.

[Rolf I. (for_ro)]

Makebcd macht schon so etwas wie du brauchst. Z.B.

A=73          '&B01001001
B=Makebcd(A)  '&B01110011
              '  7   3
PortC=B       'setzt die Pins entsprechend

A=125         '&B01111101
B=MakeBCD(A)  '&B11000101
              '  12    5

A=225         '&B11100001
B=MakeBCD(A)  '&B01100101
              '    6   5    'Übertrag 1 ist weg

[Christian B. (chris001)]

Hallo!

Danke schon mal für eure schnellen Antworten. Hab mir jetzt mal
schnell im Anhang stehenden Quelltext zusammengeschrieben.
Im Simulator funktioniert es.

Kritik ist erwünscht.