[Bascom] Prośba o sprawdzenie kodu

[moons]

Przepisałem a raczej skopiowałem dokładnie kod z kursu i nie działa tak jak trzeba. Czy mógłby ktoś rzucić okiem co w nim jest nie tak?

Przy szybkim wciśnięciu przycisku , przy dłuższym niż (ale zdecydowanie krótszym niż 2 sekundy) zmienia się stan diody led1

'Krotkie Przycisniecie S1 Umozliwia

'Właczenie i wyłaczenie diody LED1

'natomiast przycisniecie przycisku S1 na czas

'ok 2 sekund umozliwia

'wlaczenie lub wylaczenie diody LED2



Config Pind.0 = Input                                       'linia PD0 jako wejsciowa

Config Pinb.0 = Output                                      'linia PB0 jako wyjsciowa

Config Pinb.2 = Output                                      'linia PB2 jako wyjsciowa

Dim Opozn As Byte

'pomocnicza zmienna zliczajaca opoznienia



Led1 Alias Portb.0

'przypisanie nazwie Portb.0 nazwy Led1



Led2 Alias Portb.2

'przypisanie nazwie Portb.2 nazwy Led2



S1 Alias Pind.0

'przypisanie nazwie Pinb.0 nazwy S1



Set Portd.0

'dolaczenie do linii PD0 rezystora podciagajacego





Do

'poczatek nieskoczonej petli Do-Loop nieskończona pętla Do...Loop



Debounce S1 , 0 , Obs_s1 , Sub

'jeli nacisniety przycisk S1 to skok do podprogramu Obs_s1



Loop

End

'koniec Programu



Obs_s1:

'podprogram Obs_s1



Opozn = 0

'zerowanie zmiennej liczacej opoznienia



Do

'poczatek petli Do-loop



Waitms 10

'opoznienie 10 ms

Incr Opozn

'zwiekszenie o jeden wartosci zmiennej opoznienia



Loop Until Opozn = 200 Or S1 = 1

'jesli S1 puszczony lub zmienna opozn osiagnie wartosc 200 to opusc petle



If Opozn = 200 Then

'jesli opozn=200 (200*10 ms)=2 sekundy to



Toggle Led2

'zmiana na przeciwny stanu wyjscia sterujacego dioda LED D2

Else

'w przeciwnym razie



Toggle Led1

'zmiana na przeciwny stanu wyjscia sterujacego dioda LED D1



End If

Return                                                      'powrot z podprogramu

Pozdrawiam

[ProeXtreme]

Wywal niepotrzebne entery, komentarz pisz po składni. Tak się będzie lepiej analizowało program.

[agrala]

Przy szybkim wciśnięciu przycisku , przy dłuższym niż (ale zdecydowanie krótszym niż 2 sekundy) zmienia się stan diody led1

Mógłbys to trochę bardziej rowinąć?