Chciałem ostatnio zrobić sobie układ który płynnie przełączałby 2 zestawy żaróweczek choinkowych. Problem jest w tym, że triak przewodzi cały czas i żaroweczki świecą z jedną jasnością
Kod: Zaznacz cały
$regfile = "attiny2313.dat"
$crystal = 4000000
Config Pinb.3 = Output
Config Pinb.4 = Output
Config Pind.2 = Output
Config Pind.3 = Output
Config Pind.4 = Output
Config Pind.5 = Output
Config Pind.6 = Output
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down , Prescale = 1
Dim I As Byte
Do
For I = 0 To 255
Pwm1a = I
Pwm1b = I
Waitms 10
Next I
For I = 255 To 0 Step -1 .
Pwm1a = I
Pwm1b = I
Waitms 10
Next I
Loop
End
Jesli ktoś wie co jest z tym nie tak to prosze o pomoc.