Witam wszystkich
mam pytanie jak mogę zrobić aby załanczać rozjaśnianie diód za pomocą stanu niskiego ale w ten sposób żeby po zakończeniu rozjaśniania nie rozpoczynał jeszcze raz tej samej pętli. udało mi się zrobić samo rozjaśnianie i ściemnianie ale nie moge sobie poradzić żeby nie powtarzał tego samego kroku kilka razy. Oto mój program..
mam pytanie jak mogę zrobić aby załanczać rozjaśnianie diód za pomocą stanu niskiego ale w ten sposób żeby po zakończeniu rozjaśniania nie rozpoczynał jeszcze raz tej samej pętli. udało mi się zrobić samo rozjaśnianie i ściemnianie ale nie moge sobie poradzić żeby nie powtarzał tego samego kroku kilka razy. Oto mój program..
$regfile = "m8def.dat"
$crystal = 8000000
Config Pinb.5 = Input
Config Pinb.4 = Input
Config Pinb.1 = Output
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 64
Dim I As Byte
Centr1 Alias Pinb.5
Centr Alias Pinb.4
Set Portb.4
Set Portb.5
Pwm1a = 0
Do
If Centr = 0 Then
For I = 0 To 255
Pwm1a = I
Waitms 50
Next I
End If
If Centr1 = 0 Then
For I = 255 To 0 Step -1
Pwm1a = I
Waitms 50
Next I
End If
Loop
End