Duales Darsellen eines Ports am LCD

[Nico99]

Hallo!
Ich möchte gerne ein Port am LCD darsetellen, aber im DualSystem, so dass LCD-Anzeige "Port A= 00010000" zum Beispiel anzeigt. Wie kriege ich es hin?
Ich konfiguriere PortA als Input, deklariere Variable X als Byte, Weise X mit X=Pina den Wert zu, und gebe X mit LCD X auf LCD aus.
Nur der Wert wird als Dezimal-Zahl angezeigt, und ich möchte es gerne Dual haben.

bis dann,
Nico

[eFFex]

umrechnen?
entweder gibts in der Sprach die du codest schon ne fertige Funktion oder du musst das selber machen

[vish]

Hallo Nico!

Vielleicht hilft dir dieses Programm weiter:




$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600


Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2

Dim Porta_zustand As Byte
Porta_zustand = 0

Config Porta = Output
Porta = 255

Initlcd
Cls

Do

Porta = Porta_zustand
Upperline
Lcd Porta_zustand
Lowerline
Lcd Bin(porta_zustand)
Incr Porta_zustand

Loop

End


Habe es aber nur im Simulator getestet, dort funktionierte es aber!

Grüße,
Jonas

[darwin.nuernberg]

Es funktioniert auf jeden Fall mit Print Bin in BASCOM. (255 = 11111111)
Warum also nicht auch mit dem LCD.

Notfalls (wenn alle Stricke reissen) vorher in einen String umwandeln und dann an das LCD senden.



$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600


Dim Porta_zustand As Byte
Dim X As Byte

Porta_zustand = 0

Config Porta = Output

Porta = 255

For X = 0 To 255
Porta_zustand = X
Print Porta_zustand
Print Bin(porta_zustand)
Incr Porta_zustand

Next X

End

Hier die Umwandlung in den String Text, welcher dann an das LCD gesendet werden kann.


$regfile = "m16def.dat"
$crystal = 8000000
$baud = 9600

Dim Text As String * 16

Dim Porta_zustand As Byte
Dim X As Byte

Porta_zustand = 0

Config Porta = Output

Porta = 255

For X = 0 To 255
Porta_zustand = X
Text = Bin(x)

Print Porta_zustand;
Print " ";
Print Bin(porta_zustand);
Print " ";
Print "[";
Print Text;
Print "]"



Next X

End

[Nico99]

Es funktionier wunderbar! Ich meine den Code von vish. Anderen Code habe ich nicht getestet.
Ich sollte doch das Buch über BasCom zulegen :-)