Potrzebuję generatora sygnału prostokątnego np. do migania diodą z tym, że czas świecenia diody będzie stały a muszę zmieniać czas zgaszenia diody - odstęp miedzy kolejnymi "świeceniami" diody. Czas ten muszę regulować za pomocą potencjometru.
Naskrobałem coś takiego :
Kod: Zaznacz cały
$regfile = "m8def.dat"
$crystal = 4000000
Config Timer1 = Pwm , Pwm = 10 , Prescale = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Down 'Konfiguracja Timera
Config Portd = 127 'Pd.0 i Pd.1 jako wejścia
Portd = 127
Ddrb = &B11111111 'Odblokowanie globalnego wyjścia OC1
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Start Timer1
Pwm1a = 1023
Dim A As Word
A = 0
Do
A = Getadc(0)
Pwm1b = A
Loop : EndPozdrawiam