سلام دوستان
من يه برنامه نوشتم كه داره درست كار ميكنه ولي ميخوام كه نور پشت زمينه LCD رو به اين برنامه اضافه كنم یعنی یه پایه رو جوری برنامه نویسی کنم كه بعد از مدتي خاموش بشه که خروجی پایه رو به یه ترانزیستور بدم و تمام و هر بار كه دستور RUN و STOPو BEMETAL اجرا ميشه صفحه براي 15 ثانيه روشن بمونه و بعد خاموش بشه من سورس برنامه رو ميزارم دوستان كمك كنن
$regfile = "M8def.dat"
$crystal = 8000000
Config Pind.0 = Input
Config Pind.1 = Input
Config Portb.0 = Output
Config Portb.6 = Output
Config Portb.7 = Output
Config Debounce = 30
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , _
Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Config Lcd = 16 * 2
Cls
Cursor Off
Locate 1 , 4
Lcd "DESIGN OF"
Waitms 150
Home L
Locate 2 , 1
Lcd "ALI REZA"
Waitms 400
Cls
Locate 1 , 5
Lcd "PELIKAN"
Locate 2 , 4
Lcd "Ref . Sys"
Waitms 400
Cls
Locate 1 , 3
Lcd "TIMER 500 ms"
Locate 2 , 5
Lcd "ver:3.0"
Waitms 400
Cls
Do
Debounce Pind.0 , 0 , Khamosh , Sub
Debounce Pind.0 , 1 , Roshan , Sub
Debounce Pind.1 , 1 , Bemetal1 , Sub
Loop
End
Roshan:
Locate 1 , 4
Lcd "TIMER RUN"
Waitms 20
Set Portb.6
Waitms 50
Set Portb.7
Return
Khamosh:
Reset Portb.6
Reset Portb.7
Locate 1 , 4
Lcd "TIMER OFF"
Return
Bemetal1:
Set Portb.0
Waitms 100
Reset Portb.0
Home L
Lcd "desConnect Shunt"
Return