logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Prośba o sprawdzenie kodu Bascom

patryk.godlewski1997 29 Paź 2011 14:00 1398 2
REKLAMA
  • #1 10077626
    patryk.godlewski1997
    Poziom 9  
    J/w
    Prosty program prośba o sprawdzenie
    $regfile = "m8def.dat" 'rodzaj mikroprocesora
    $crystal = 1000000 'taktowanie

    Config Porta = Input 'porta jako wejscie
    Porta = &B00000000 'wszystkie koncowki porta stan spoczynkowy
    Config Portb = Output 'portb jako wyjscia
    Portb = &B00000000 'wszystkie koncowki porta stan spoczynkowy
    Do 'poczatek programu
    If Porta 0 = 1 'jezeli przycisk wcisnięty
    Waitms = 200 'czekaj 200ms
    Portb 0 = 1 'portb stan 1
    Waitms = 250 'czekaj 250ms
    Toggle Portb.0 'zmień stan wyprowadzenia
    Loop 'koniec pętli
    End

    Proszę pamiętać o używaniu znaczników syntax. Opcja Listing kodu. - arnoldziq
  • REKLAMA
  • #2 10091639
    opamp
    Użytkownik obserwowany
    Przerzutnik T
    Kod: text
    Zaloguj się, aby zobaczyć kod

    Resztę sam dopisz, pętle masz gotową. PS: Przerzuć się na C, nauki tyle samo a możliwości ile :)
  • #3 10096938
    Fredy
    Poziom 27  
    Jest tu kilka błedów. Ale główny błąd polega na tym że nie masz end ifa. I nie wiadomo jaka ma być logika tego programu . Spróbuj tak w celach edukacyjnych:

    Kod: text
    Zaloguj się, aby zobaczyć kod
REKLAMA