Witam!
Mam taki problem
Chciałem napisać taki kod żeby po wciśnięciu S1 zaświeciła Led1 i po 500ms zgasła
I działa jeśli przyciskam S1 na krótką chwile
Jeśli natomiast trzymam S1 przyciśnięty Led świeci cały czas a chciałbym żeby po tych 500ms zgasła
Dodam jeszcze że jestem początkujący w języku bascom
Z góry dziękuje za pomoc
Mam taki problem
Chciałem napisać taki kod żeby po wciśnięciu S1 zaświeciła Led1 i po 500ms zgasła
$regfile = "m16def.dat"
$crystal = 16000000
Config Portb = Output
Portb = &B11111111
Config Portd = Input
Portd = &B11111111
S1 Alias Pind.0
Led1 Alias Portb.0
Do
If S1 = 0 Then
Led1 = 0
Waitms 500
Led1 = 1
End If
Loop
EndI działa jeśli przyciskam S1 na krótką chwile
Jeśli natomiast trzymam S1 przyciśnięty Led świeci cały czas a chciałbym żeby po tych 500ms zgasła
Dodam jeszcze że jestem początkujący w języku bascom
Z góry dziękuje za pomoc