bascom pin ablesen

[DiamondDog (Gast)]

hab ma ne frage zu meinem kleinen programm
benutze einen at90s2313 und möchte gern ablesen ob am PD0 eine 1 oder
ne 0 anliegt.

bekomme aber die fehlermeldung beim compilieren

"invalid datatype" in der zeile      if portd.0 = 1

hier der code:

Dim A As Byte
$crystal = 4000000


Config Portb = Output
Config Portd = Input


Schleife:

If Portd.0 = 1

Cls
Lcd "1111111"

Else

Waitms 2000

Cls
Lcd "0000000"

Waitms 2000

Goto Schleife

[Rage (Gast)]

versuchs mal mit:

if pind.0 = 1 then

Cls
Lcd "1111111"

Else

Waitms 2000

Cls
Lcd "0000000"

Waitms 2000

end if

[,,,, (Gast)]

> und möchte gern ablesen ob am PD0 eine 1 oder ne 0 anliegt.

Einfach eine LED mit Vorwiderstand an den Pin. Wenn ne 1 anliegt,
leuchtet die. So kannst du es sehr einfach "ablesen".

[DiamondDog (Gast)]

ok, danke probiers morgen gleich mal aus