Jak w temacie.
Potrzebuję programu, który będzie działał w zależności od krótkiego i długiego naciśnięcia przycisku, tzn. krótkie naciśnięcie załącza pod program_1, a przytrzymanie tego przycisku uruchamia pod program_2.
Od jednego z kolegów z forum otrzymałem kod, który niestety nie działał poprawnie, zmodyfikowałem go ale wciąż nie działa.
Bardzo proszę kogoś o pomoc w ukończeniu tego programu:
Potrzebuję programu, który będzie działał w zależności od krótkiego i długiego naciśnięcia przycisku, tzn. krótkie naciśnięcie załącza pod program_1, a przytrzymanie tego przycisku uruchamia pod program_2.
Od jednego z kolegów z forum otrzymałem kod, który niestety nie działał poprawnie, zmodyfikowałem go ale wciąż nie działa.
Bardzo proszę kogoś o pomoc w ukończeniu tego programu:
$regfile = "attiny2313.dat"
'konfiguracja portow
Config Portd = Input
Config Portb = Output
'ustawienie nazw
Przycisk Alias Pind.0
Dioda Alias Pinb.7
'wygaszenie diod
Przycisk = 1
Dioda = 0
'zmienne
Dim Flaga As Byte
Dim A As Byte
'program glowny
Do
Flaga = 0
If Przycisk = 0 Then
Waitms 30
If Przycisk = 0 Then
Flaga = 1
Waitms 500
End If
If Przycisk = 0 Then Flaga = 2
Bitwait Przycisk , Set
End If
If Flaga = 1 Then Gosub Krotkie
If Flaga = 2 Then Gosub Dlugie
Loop
'----------podprogramy-------------
Krotkie:
Toggle Dioda
Return
Dlugie:
Do
Set Dioda
For A = 0 To 10
If Przycisk = 0 Then
Waitms 30
If Przycisk = 0 Then
Reset Dioda
Return
End If
End If
Waitms 500
Next
Reset Dioda
Return
Loop
End