moons Napisano Sierpień 10, 2011 Udostępnij Napisano Sierpień 10, 2011 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 Cytuj Link do komentarza Share on other sites More sharing options...
ProeXtreme Sierpień 16, 2011 Udostępnij Sierpień 16, 2011 Wywal niepotrzebne entery, komentarz pisz po składni. Tak się będzie lepiej analizowało program. Cytuj Link do komentarza Share on other sites More sharing options...
agrala Sierpień 22, 2011 Udostępnij Sierpień 22, 2011 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ąć? Cytuj Link do komentarza Share on other sites More sharing options...
Pomocna odpowiedź
Dołącz do dyskusji, napisz odpowiedź!
Jeśli masz już konto to zaloguj się teraz, aby opublikować wiadomość jako Ty. Możesz też napisać teraz i zarejestrować się później.
Uwaga: wgrywanie zdjęć i załączników dostępne jest po zalogowaniu!