۰۵-آذر-۱۳۸۸, ۱۳:۰۰:۳۸
سلام
می خواستم اگه امکان داره منو برای کنترل رنگ LED RGB بوسیله pwm راهنمایی کنید
می خوام بوسیله 6 کلید رنگ یک led RGB کنترل کنم میشه 3 جفت کلید +و-
این برنامه هم از تو همین سایت یک از بچه ها گزاشته بود
که برای کنترل یک رنگ خوبه اما نمی دونم چه جوری برای 3 رنگ گسترشش بدم
$regfile = "m16def.dat" : $crystal = 4000000
Config Lcdpin = Pin , Db7 = Pinc.5 , Db6 = Pinc.4 , Db5 = Pinc.3 , Db4 = Pinc.2 , E = Pinc.1 , Rs = Pinc.0
Config Lcd = 16 * 2 : Cursor Off : Cls
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Up , Prescale = 64
Start Timer1 : Pwm1b = 127 : Pwm1a = 127
Ddrb.3 = 1 : Portb.3 = 0
Dim G As Byte
G = 0
Do
Debounce Pina.3 , 0 , Incr_pwm , Gosub
Debounce Pina.4 , 0 , Decr_pwm , Gosub
Loop
Incr_pwm:
If G <> 255 Then Incr G
Pwm1b = G : Pwm1a = G
Home : Lcd G ; " "
Return
Decr_pwm:
If G <> 0 Then Decr G
Pwm1b = G : Pwm1a = G
Home : Lcd G ; " "
Return
می خواستم اگه امکان داره منو برای کنترل رنگ LED RGB بوسیله pwm راهنمایی کنید
می خوام بوسیله 6 کلید رنگ یک led RGB کنترل کنم میشه 3 جفت کلید +و-
این برنامه هم از تو همین سایت یک از بچه ها گزاشته بود
که برای کنترل یک رنگ خوبه اما نمی دونم چه جوری برای 3 رنگ گسترشش بدم
$regfile = "m16def.dat" : $crystal = 4000000
Config Lcdpin = Pin , Db7 = Pinc.5 , Db6 = Pinc.4 , Db5 = Pinc.3 , Db4 = Pinc.2 , E = Pinc.1 , Rs = Pinc.0
Config Lcd = 16 * 2 : Cursor Off : Cls
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Up , Prescale = 64
Start Timer1 : Pwm1b = 127 : Pwm1a = 127
Ddrb.3 = 1 : Portb.3 = 0
Dim G As Byte
G = 0
Do
Debounce Pina.3 , 0 , Incr_pwm , Gosub
Debounce Pina.4 , 0 , Decr_pwm , Gosub
Loop
Incr_pwm:
If G <> 255 Then Incr G
Pwm1b = G : Pwm1a = G
Home : Lcd G ; " "
Return
Decr_pwm:
If G <> 0 Then Decr G
Pwm1b = G : Pwm1a = G
Home : Lcd G ; " "
Return