Witam.
Chciałem napisać program do sterowania diodą LED za pomocą PWM.
Wszystko jest ok ale teraz chciałem zrobić modyfikacje i nie daję rady.
Na tą chwilę przytrzymanie S1 powoduje powolne zapalanie diody, puszczenie S1 powolne gaszenie jej.
Jak przerobić program by gaszenie następowało dopiero np. 5 sekund po puszczeniu guzika S1 a nie od razu?
Chciałem napisać program do sterowania diodą LED za pomocą PWM.
Wszystko jest ok ale teraz chciałem zrobić modyfikacje i nie daję rady.
Na tą chwilę przytrzymanie S1 powoduje powolne zapalanie diody, puszczenie S1 powolne gaszenie jej.
Jak przerobić program by gaszenie następowało dopiero np. 5 sekund po puszczeniu guzika S1 a nie od razu?
$regfile = "m8def.dat"
$crystal = 16000000
Config Pinb.1 = Output
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 1
Config Portd = Input
Dim Pom As Integer
Portd.0 = 1
S1 Alias Pind.0
Do
If S1 = 0 Then
Pom = Pom + 1
If Pom > 255 Then Pom = 255
Pwm1a = Pom
Waitms 10
End If
If S1 = 1 Then
Pom = Pom - 1
If Pom < 0 Then Pom = 0
Pwm1a = Pom
Waitms 10
End If
Loop
End


