Witam,
Jestem w trakcie pisania programu obsługującego regulację jasności LED za pomocą przycisków. Ma to działać na zasadzie:
1. Naciśnięcie i przytrzymanie przycisku 1 - rozjaśnianie diody (diod) od zera do 100% - w momencie puszczenia przycisku zapamiętanie stanu
2. Naciśniecie i przytrzymanie przycisku 2 - ściemnianie diody (diod) od 100% lub poziomu zapamiętanego do zera lub niższego poziomu niż początkowy.
Obecnie program wykonuje rozjaśnianie i ściemnianie ale w następujący sposób:
1. Naciśnięcie i/lub przytrzymanie przycisku 1 - rozjaśnienie od 0 do 100%
2. Adekwatnie przycisk 2 - ściemnianie od 100% do 0%
Nie bardzo wiem jak ruszyć dalej, fragment odpowiadający za rozjaśnienie wygląda tak:
Proszę o poradę jak do tego dorobić obsługę przycisku, tak aby w trakcie przytrzymania wykonywała się pętla For I=0 To 255, a w trakcie puszczenia zatrzymała się w danym momencie i zapamiętanie stanu.
Jestem w trakcie pisania programu obsługującego regulację jasności LED za pomocą przycisków. Ma to działać na zasadzie:
1. Naciśnięcie i przytrzymanie przycisku 1 - rozjaśnianie diody (diod) od zera do 100% - w momencie puszczenia przycisku zapamiętanie stanu
2. Naciśniecie i przytrzymanie przycisku 2 - ściemnianie diody (diod) od 100% lub poziomu zapamiętanego do zera lub niższego poziomu niż początkowy.
Obecnie program wykonuje rozjaśnianie i ściemnianie ale w następujący sposób:
1. Naciśnięcie i/lub przytrzymanie przycisku 1 - rozjaśnienie od 0 do 100%
2. Adekwatnie przycisk 2 - ściemnianie od 100% do 0%
Nie bardzo wiem jak ruszyć dalej, fragment odpowiadający za rozjaśnienie wygląda tak:
Do
If S1 = 0 Then
Waitms 25
If S1 = 0 Then
If I = 0 Then
For I = 0 To 255
Pwm1a = I
Waitms 10
Next I
I = 255
End If
End If
End If
Loop
Proszę o poradę jak do tego dorobić obsługę przycisku, tak aby w trakcie przytrzymania wykonywała się pętla For I=0 To 255, a w trakcie puszczenia zatrzymała się w danym momencie i zapamiętanie stanu.