سلام.
یه برنامه ساده نوشتم برای دوستانی که بخواهند با led RGB کار کنند. در این برنامه از 3 پین در میکروی atmega8 استفاده شده.
$regfile = "m8def.dat"
$crystal = 8000000
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up
Config Timer2 = Pwm , Prescale = 1 , Compare Pwm = Clear Down
Ddrb.1 = 1
Ddrb.2 = 1
Ddrb.3 = 1
Pwm1a = 0
Pwm1b = 0
Ocr2 = 0
Dim Red As Byte
Dim Green As Byte
Dim Blue As Byte
در اینجا هر عددی که در متغییر ها قرار گیرد در خروجی pwm آن اعداد خواهیم داشت.
Red = 100
Green = 20
blue = 90
Do
pwm1a = red
pwm1b = green
Ocr2 = blue
wait 1
loop
end
یه برنامه ساده نوشتم برای دوستانی که بخواهند با led RGB کار کنند. در این برنامه از 3 پین در میکروی atmega8 استفاده شده.
$regfile = "m8def.dat"
$crystal = 8000000
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up
Config Timer2 = Pwm , Prescale = 1 , Compare Pwm = Clear Down
Ddrb.1 = 1
Ddrb.2 = 1
Ddrb.3 = 1
Pwm1a = 0
Pwm1b = 0
Ocr2 = 0
Dim Red As Byte
Dim Green As Byte
Dim Blue As Byte
در اینجا هر عددی که در متغییر ها قرار گیرد در خروجی pwm آن اعداد خواهیم داشت.
Red = 100
Green = 20
blue = 90
Do
pwm1a = red
pwm1b = green
Ocr2 = blue
wait 1
loop
end
دیدگاه