chce sobie zbudować układ sterujący trzema wyjściami za pomocą w przycisków .
- wyjście 1 typu on/off tu w przyszłości użyje jako wejscie reset teraz to jeszcze nie pracuje .
- dwa pozostałe przyciski maja sterować nastepująco
- naciskam S1 - wyjście Wo stan 1 (wysoki)
- naciskam jeszcze raz S1 wyjście Wo stan 0 (niski)
- naciskam S2 stan Sz =1
- naciskam S2 stan Sz = 0
- funkcje przycisków na przemian czyli jak wo=1 a nacisnę S2 a Wo=1 to zmienia stany na Wo=0 i Sz=1 i odwrotnie . Na początku wydawało mi się to proste ale wymiękam powoli . Na razie walczę z tymi dwoma przyciskami . Mam nadzieje ze to jasno napisałem .
Na razie n-ta wersja moich wypocin ...
pytanie brzmi :
- dlaczego to nie działa ?
- wyjście 1 typu on/off tu w przyszłości użyje jako wejscie reset teraz to jeszcze nie pracuje .
- dwa pozostałe przyciski maja sterować nastepująco
- naciskam S1 - wyjście Wo stan 1 (wysoki)
- naciskam jeszcze raz S1 wyjście Wo stan 0 (niski)
- naciskam S2 stan Sz =1
- naciskam S2 stan Sz = 0
- funkcje przycisków na przemian czyli jak wo=1 a nacisnę S2 a Wo=1 to zmienia stany na Wo=0 i Sz=1 i odwrotnie . Na początku wydawało mi się to proste ale wymiękam powoli . Na razie walczę z tymi dwoma przyciskami . Mam nadzieje ze to jasno napisałem .
Na razie n-ta wersja moich wypocin ...
$regfile = "attiny13.dat"
$crystal = 128000
$hwstack = 32
$swstack = 12
$framesize = 8
$noramclear
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.3 = Input
Config Pinb.4 = Input
'Config Pinb.5 = Input ' uwaga reset
Sz Alias Pinb.0
Wo Alias Pinb.1
Awaria Alias Pinb.2
S1 Alias Pinb.3 'wolny bieg
S2 Alias Pinb.4 'szybki bieg
's3 Alias Pinb.5 ' w resecie
Set Pinb.3
Set Pinb.4
'Set Pinb.5
Wo = 0
Sz = 0
'program glowny
Do
'Debounce s1 , 0 , Pr1 , Sub '
Debounce S2 , 0 , Pr2 , Sub ' wlaczanie wolnego
Debounce S1 , 0 , Pr3 , Sub ' szybkie obroty
Loop
'Pr1:
'Toggle Awaria
'Return
Pr2:
If S1 = 0 And Wo = 0 And Sz = 0 Then 'włącz
Toggle Wo
Elseif S1 = 0 And Wo = 1 And Sz = 0 Then ' wylacz.wolno
Toggle Wo
Elseif S2 = 0 And S1 = 1 And Sz = 1 And Wo = 1 Then 'zmien na szybko
Toggle Wo
Waitms 100
Toggle Sz
End If
Return
Pr3:
If S2 = 0 And Wo = 0 And Wo = 0 Then
Toggle Wo
Elseif S2 = 0 And Sz = 1 And Wo = 1 Then
Toggle Sz
Elseif S2 = 0 And S1 = 1 And Sz = 1 And Wo = 0 Then
Toggle Sz
Waitms 100
Toggle Wo
End If
Return
pytanie brzmi :
- dlaczego to nie działa ?

