Re: Miért nem működik?

[Csuvár Imre]

Hali,
probald igy, szvsz ez mar muxik
(Mindent uj sorba es kimaradt az endif):

Do
If Pinb.3 = 0 Then
Portb.4 = 1
Else
Portb.4 = 0
End If
Loop

Udv:
Csuva'r Imre

----- Original Message -----
From: "Friedrich Gábor" <igazifido at t-online.hu>


> Üdv Lista!
> Bascom. Tiny12 belső oszcival, b.3-on egy nyomógomb a táp felé, ellenállás
a
> gnd-re, b.4-en led.
>
> $crystal = 1200000
> $regfile = "AT12DEF.dat"
> Config Pinb.4 = Output
> Config Pinb.3 = Input
> Do
> If Pinb.3 = 0 Then Portb.4 = 1 Else Portb.4 = 0
> Loop
>
> Nyomógomb megnyomásra világítania kellene a lednek, Tiny2313-al simán megy
> (d.6-al meg d.2-vel).
> Led villogtató működik rajta, tehát reset meg oszci oké. Csak a bemenet
> kezelése nem jó.
> Válaszokat köszi
> Fidó