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
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