Witam serdecznie - oto fragment programu do sterowania bramą. Całośc działa w ten sposób że po zwarciu "Pind.1" następuje zapalenie lampy sygnalizacyjnej nad bramą "Portb.1" i jednocześnie wysłany jest sygnał aby otworzyć tę bramę "Portc.1", jednocześnie program ma dwa razy mignąć lampą "Portc.5" i tu tkwi problem, nie wiem jak to zrobić, pewnie dla was to "bułka z masłem" ale ja nie moge tego zrobić. Będe wdzięczny za wszelkie wskazówki. Poniżej fragment programu
Dim Sekundy_brama_2 As Byte , Licznik_brama_2 As Byte
Const Czasbramy_2 = 1
Waitms 25 'czekaj 25 ms
Debounce Pind.1 , 0 , Brama2 , Sub
If Pind.1 = 0 Then Portb.1 = 0 'zapalenie lampy alarmowej 2
If Pind.1 = 1 Then Portb.1 = 1 'zgaszenie lampy alarmowej 2
If Portc.1 = 0 Then 'gdy światło włączone odliczaj czas
Incr Licznik_brama_2 'co koło 25ms
If Licznik_brama_2 = 30 Then 'co około 1s
Licznik_brama_2 = 0
Incr Sekundy_brama_2 'co około 1s zwiększ
If Sekundy_brama_2 = Czasbramy_2 Then Portc.1 = 1 'wyłącz światło
End If
Else 'w spoczynku, gdy światło wyłączone
Licznik_brama_2 = 0 : Sekundy_brama_2 = 0
End If
Brama2:
Toggle Portc.1
Return
Pozdrawiam
Dim Sekundy_brama_2 As Byte , Licznik_brama_2 As Byte
Const Czasbramy_2 = 1
Waitms 25 'czekaj 25 ms
Debounce Pind.1 , 0 , Brama2 , Sub
If Pind.1 = 0 Then Portb.1 = 0 'zapalenie lampy alarmowej 2
If Pind.1 = 1 Then Portb.1 = 1 'zgaszenie lampy alarmowej 2
If Portc.1 = 0 Then 'gdy światło włączone odliczaj czas
Incr Licznik_brama_2 'co koło 25ms
If Licznik_brama_2 = 30 Then 'co około 1s
Licznik_brama_2 = 0
Incr Sekundy_brama_2 'co około 1s zwiększ
If Sekundy_brama_2 = Czasbramy_2 Then Portc.1 = 1 'wyłącz światło
End If
Else 'w spoczynku, gdy światło wyłączone
Licznik_brama_2 = 0 : Sekundy_brama_2 = 0
End If
Brama2:
Toggle Portc.1
Return
Pozdrawiam