Kod: Zaznacz cały
$regfile = "attiny2313.dat"
$crystal = 1000000
'pin OC0A (PB2) - wyjście
Config Portb.2 = Output
'Mode=3 (Fast PWM , TOP = &HFF)
Set Tccr0a.0
Set Tccr0a.1
'clear OC0A on compare OCR0A(Pwm0a)
Set Tccr0a.7
Pwm0a = 10 ' gdy counter0(TCNT0) <= Pwm0a , OC0A(PB2)=1 , TCNT0 > Pwm0a , OC0A(PB2)=0
Set Tccr0b.cs00 'prescale = 1
Do
Waitms 10
Incr Pwm0a
Loop
Kod: Zaznacz cały
Config Portb.2 = Output Kod: Zaznacz cały
Config Portb = Output A i chał bym jeszcze do tego żeby zmieniały sie kolory . Tylko nie wiem jak to zrobić. Dlatego zwracam sie do Was.
Pozdrawaim