Abfrage PIN Register+Bascom

[Tom (Gast)]

Hallo User,
Ich hab ein wahrscheinlich einfaches Problem.
Ich muss den Zustand (High/LOW)von vier Pins abfragen, und den Binären 
Wert z.B. 1010 per UART senden.

Ich benutze einen ATMEGA8 und programmiere in Bascom

Ich hab folgendes probiert:
Dim variable as byte
variable = PinB
print Variable

alternativ auch: printbin variable

Wenn ich den Zustand der Pins ändere (Spannung anlegen) dann ergibt sich 
keine Änderung im Wert Variable. Woran kann das liegen?

[Kasperle (Gast)]

Häng das komplette Programm als Anhang an.
Nicht nur einen nichtssagenden Ausschnitt.

[Anselm 6. (anselm68)]

config Portx as input

do
variable = Portx
printbin(variable)
loop

blubb Anselm