Mega8 Port-C

[electroboy]

Sziasztok!

Kell tudni valami különlegeset a Mega8 C portjáról? Bemenetként
szeretném használni, de hiába kötök a port akármelyik lábára
magasszintet, minden esetben 0-át ad vissza az adott lábra.
Valahogy így néz ki a kódrészlet, amivel próbálgatom.

Dim Conbuf1 As Bit

Led1 Alias Portd.5
Config Pind.5 = Output

Con1 Alias Portc.0
Config Pinc.0 = Input

Do
Conbuf1 = Con1
Led1 = Conbuf1
Waitms 100
Loop
End

---------------------------------------------------
De próbáltam ezt is:

Dim Conbuf1 As Byte

Led1 Alias Portd.5
Config Pind.5 = Output

Config Portc = Input
Con1 Alias Portc

Do
Conbuf1 = Con1
If Conbuf1 > 0 then
   Led1 = 1
   Else
   Led1 = 0
End if
Waitms 100
Loop
End

Van tippe valakinek?

-- 
Best regards,
 electroboy                          mailto:electroboy at freeweb.hu