Hallo!
Hab da ein Problem mit der Auflösung eines Bytes in einen BCD Code.
Ich möchte eine Zweistellige anzeige ein Byte anzeigen. Also z.B. 12,
Stelle 1 = 1, Stelle 2 = 2. Das Problem ist, dass die Zahlen immer
verdreht dargestellt werden. Also nicht 12, sondern 21.
Habe dafür in Bascom nachstehendes Programm geschrieben:
Dim Stelle1 As Byte
Dim Stellex As Byte
BCDZahla, b, c, d, sind die Ausgänge die auf das Treiber IC gehne
an Stellea und b sind die Anzeigen Angeschlossen.
do
Stellex = Makebcd(stelle1)
Bcdzahla = Stellex.0
Bcdzahlb = Stellex.1
Bcdzahlc = Stellex.2
Bcdzahld = Stellex.3
Stellea = 1
stelleb = 0
Bcdzahla = Stellex.4
Bcdzahlb = Stellex.5
Bcdzahlc = Stellex.6
Bcdzahld = Stellex.7
Stellea = 0
stelleb = 1
loop
end
Ich hoffe hab jetzt nicht wichtiges im Programm weg gelassen.
