Bascom byte in BCD ausgeben

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

Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt. Bitte hier nur auf die ursprüngliche Frage antworten, für neue Fragen einen neuen Beitrag erstellen.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.