ايران ويج

باور می کنی اون لینک فروم بسکام واسه من باز نمی شه !
اگه برنامه اصلی رو می دیم شاید بهتر نظر می دادم !!!!

در ضمن هنوز می گم LOCATEها رو اضافه گذاشته !

اینم قبول دارم که هر کسی یه سبکی داره و یه برنامه می تونه به دها روش مختلف نوشته بشه !!!

منم نگفتم چیزی رو بلدم !
تو همین فروم بگردی سوال های منو زیاد پیدا می کنی !

(۱۱-آذر-۱۳۸۸, ۱۹:۲۲:۲۳)t3r!p3000 نوشته است: [ -> ]اینم کنترل سه رنگ

کد php:

$regfile = "m16def.dat" : $crystal = 1000000

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 Down , Prescale = 64
Config Timer2 = Pwm , Compare Pwm = Clear Down , Prescale = 64

Start Timer1 : Start Timer2



Ddrd = 255 : Ddrb = 0 : Portb = 255

Dim R As Byte , G As Byte , B As Byte

'===============================================================================

Do
 Debounce Pinb.0 , 0 , Incr_r , Gosub
 Debounce Pinb.1 , 0 , Decr_r , Gosub
 Debounce Pinb.2 , 0 , Incr_g , Gosub
 Debounce Pinb.3 , 0 , Decr_g , Gosub
 Debounce Pinb.4 , 0 , Incr_b , Gosub
 Debounce Pinb.5 , 0 , Decr_b , Gosub
Loop

'===============================================================================

Incr_r:
 If R <> 255 Then Incr R
 Pwm1a = R
 Home : Lcd "R=" ; R ; " "
Return

Decr_r:
 If R <> 0 Then Decr R
 Pwm1a = R
 Home : Lcd "R=" ; R ; " "
Return

'===============================================================================

Incr_g:
 If G <> 255 Then Incr G
 Pwm1b = G
 Locate 1 , 9 : Lcd "G=" ; G ; " "
Return

Decr_g:
 If G <> 0 Then Decr G
 Pwm1b = G
 Locate 1 , 9 : Lcd "G=" ; G ; " "
Return

'===============================================================================

Incr_b:
 If B <> 255 Then Incr B
 Compare2 = B
 Locate 2 , 1 : Lcd "B=" ; B ; " "
Return

Decr_b:
 If B <> 0 Then Decr B
 Compare2 = B
 Locate 2 , 1 : Lcd "B=" ; B ; " "
Return

'=============================================================================== 


فقط کافیه LED ها رو به پایه های 21 و 19 و 18 وصل کنی !

6 کلید هم برای تنظیم نورها باید بین پایه های 1 تا 6 و زمین قرار بگیرن !

نقشه برنامه فوق :

ال سی دی رو هم طبق برنامه وصل کنین دیگه !

نور ال ی دی ها زیاد نمیشه!!!!
نکنه تو فیوز بیت ها باید کاری بکنم!!!!
هر چی عدد زیاذ میشه هیچ نوری نیست!!!1
چی کار کنم!!!!؟؟؟؟

با فیلتر شکن بازش کن !

علی درسته برنامه تو کوتاه اما افکت گرافیکی نداره !! تو اوون یه افکت داره که به صورت بار نما مقدار هر رنگ نشون میده!! اما در مورد نوشتن متن من روش تو قبول دارم !!!

سلام !

مهندس اون افکت گرافیکی دیگه دست شما رو می بوسه !

فقط اینجا قرار بود همه رنگ های موجود رو دستی بشه تنظیم کرد !!!




ابکا جون نمی دونم !