Witam
Chciałbym za pomocą tasty (przełącznik monostabilny) włączać i wyłączać miganie diodek. Miganie jest jako podprogram. Przy tym zapisie miganie mam, ale zero reakcji na przełącznik. Jaki zapis do przełącznika bistabilnego, to wiem, ale chciałbym tu najzwyklejszy "guzik", zwierany chwilowo do masy
"pomógł" lub kilka punktów - no problem
z góry dziękuję
Proszę używać znaczników [code] - uzupełniłem.
[zumek]
Chciałbym za pomocą tasty (przełącznik monostabilny) włączać i wyłączać miganie diodek. Miganie jest jako podprogram. Przy tym zapisie miganie mam, ale zero reakcji na przełącznik. Jaki zapis do przełącznika bistabilnego, to wiem, ale chciałbym tu najzwyklejszy "guzik", zwierany chwilowo do masy
=======================
$regfile = "attiny25.dat"
$crystal = 1000000
Config Pinb.3 = Input 'konf.portów
Config Pinb.4 = Output
Config Pinb.0 = Output
Portb.3 = 1 'podciągnięcie tasty do +
Portb.4 = 0 'jw., wył. LEDów
Portb.0 = 0
Tasta Alias Portb.3 'nadanie nazw
Led1 Alias Portb.4
Led2 Alias Portb.0
Declare Sub Led
'===================================== tasta
Do
If Tasta = 1 Then
Waitms 25
If Tasta = 1 Then
Gosub Led
End If
End If
End 'end
'=================================== led
Sub Led
Led1 = 1 'wygaszone
Led2 = 1
Waitms 1000
Led1 = 0 '1
Led2 = 1
Waitms 150
Led1 = 0 '2
Led2 = 0
Waitms 250
Loop
End Sub Led
==================================
"pomógł" lub kilka punktów - no problem
z góry dziękuję
Proszę używać znaczników [code] - uzupełniłem.
[zumek]