Chciałem napisać prosty program w bascomie, który ustawiłby jasność diody podłączonej do PB.0 np. na 50%
Mój program wyglądał tak:
[syntax=basic4gl]$regfile = "m8adef.dat"
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8
Config Portb.1 = output
do
pwm1a = 128
loop
end[/syntax]
Może nie do końca zrozumiałem działanie PWM. Może mi ktoś z tym pomóc?
EDIT:
Trochę sobie z tym poradziłem. Teraz kolejny program:
[syntax=basic4gl]$regfile = "m8adef.dat"
$crystal = 1000000
Config Portb.1 = Output
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 64
Pwm1a = 50
Config Pinc.4 = Input
Config Pinc.5 = Input
Do
Debounce Pinc.5 , 0 , Plus , Sub
Debounce Pinc.4 , 0 , Minus , Sub
Loop
Plus:
If Pwm1a < 245 Then
Pwm1a = Pwm1a + 10
End If
Return
Minus:
If Pwm1a > 0 Then
Pwm1a = Pwm1a - 10
End If
Return[/syntax]
Nie działa to zbyt dobrze. Dioda wariuje. Mruga, sama się ściemnia, rozjaśnia itp. Nie bardzo to reaguje na przyciski.Statystyki: Napisane przez pavel0910 — 15 lis 2013, o 16:34
]]>
