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 Ö...
Versuche einfach einmal den Zustand des gesamten Ports auf die Variable zu stellen.
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 |
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.
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.