Witam mam problemik z moim kodem do projektu ktory automatycznie wyłacza żelazka jest narazie jeszcze w okresie testow ale z czasme moze wrzuce moj projekt na elektrode. Program juz sie napisany w 95% brakuje mi tylko nastepujacj funkcji:
Jeżeli S1 nacisniety przez np.3 sekundy to wszystkie porty sa resetowane i nastepuja funkcje jak by S1 nie byl nigdy wciwskany czyli poprostu reset procka.
Poniżej zamieszczam kod:
Prosze was abyscie nie krytykowali mojego kodu moze jest i poplatany ale dziala i wszystko z niego rozumiem. ZA POMOC bede gotow odwdzieczyc sie 10 pkt.
Jeżeli S1 nacisniety przez np.3 sekundy to wszystkie porty sa resetowane i nastepuja funkcje jak by S1 nie byl nigdy wciwskany czyli poprostu reset procka.
Poniżej zamieszczam kod:
$regfile = "m8def.dat"
$crystal = 1000000
Config Portc = &B1111111
Portc = &B1111111
Config Portd = &B11111111
Portd = &B11111111
S1 Alias Pinb.1
Set Portb.1
Declare Sub Buz
Declare Sub Buze
Do
If S1 = 0 Then
Portc.0 = 0
Portd.0 = 1
Portd.1 = 0
Buz
Buz
Buz
Buz
Buze
Portc.0 = 1
Portd.0 = 0
Portd.1 = 1
End If
If S1 = 1 Then
Portc.0 = 1
Portd.0 = 0
Portd.1 = 1
Portc.5 = 0
End If
Loop
Sub Buz :
Portc.5 = 1
Waitms 100
Portc.5 = 0
Wait 60
End Sub
Sub Buze :
Portc.5 = 1
Waitms 100
Portc.5 = 0
Waitms 50
Portc.5 = 1
Waitms 150
End Sub
'***** c.0 przekaznik 0 OFF 1 ON *****
'***** c.5 buzzer 1 ON 0 OFF *****
'***** d.0 dioda *****
'***** d.1 dioda *****
'***** b.1 switch 0 press 1 not press *****Prosze was abyscie nie krytykowali mojego kodu moze jest i poplatany ale dziala i wszystko z niego rozumiem. ZA POMOC bede gotow odwdzieczyc sie 10 pkt.