Mega8 Port-C

[Lukács Ákos]

ha beolvasni akarsz, akkor a PINC-t olvasd.
Ha a PORTC-t olvasod, akkor azt olvasod vissza, amit te kiirtal.

ha jol ertem a bascomot, akkor
Con1 Alias Portc.0
helyett
Con1 Alias Pinc.0
kell.

á. (nehany napja figyelmetlensegbol ugyan ezzel sz***tam :D)

On 12/14/05, electroboy <electroboy at freeweb.hu> wrote:
> 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
>
> -----------------------------------
>  Szponzorunk: http://tonerbolt.hu/
>