با سلام خدمت دوستان عزیز و با تشکر بابت تمامی راهنمایی هایی که به این جانب نمودید ...
دوستان به یک مشکل برخوردم که خواستم به مانند همیشه مزاحم شما دوستان شوم برای حل مشکل ...
مشکل :
مشکل اینجاست که در مدارم سه کلید اضافه نمودم و برای مدار یک منو ساختم .... حالا وقتی مداررا روشن میکنم وارد منو که میشوم هر ثانیه صفحه ال سی دی میره و میاد تو تست پروتئوس هم همین مشکل هست ....
دوستان یک نگاه به برنامه بندازید ببینید میدون مشکل از کجاست ؟؟؟
پیشاپیش از تمامی دوستان متشکرم ...
دوستان به یک مشکل برخوردم که خواستم به مانند همیشه مزاحم شما دوستان شوم برای حل مشکل ...
مشکل :
مشکل اینجاست که در مدارم سه کلید اضافه نمودم و برای مدار یک منو ساختم .... حالا وقتی مداررا روشن میکنم وارد منو که میشوم هر ثانیه صفحه ال سی دی میره و میاد تو تست پروتئوس هم همین مشکل هست ....
دوستان یک نگاه به برنامه بندازید ببینید میدون مشکل از کجاست ؟؟؟
کد:
$regfile = "m32def.dat" $crystal = 1000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Config Adc = Single , Prescaler = Auto , Reference = Internal Config Portc = Output Config Portd = Output Config Portb = Output Config Pina.0 = Input Config Pina.1 = Input Config Pina.5 = Input 'Up Config Pina.6 = Input 'Down Config Pina.7 = Input 'Mode Set Porta.5 Set Porta.6 Set Porta.7 Up_key Alias Pina.5 Down_key Alias Pina.6 Mode_key Alias Pina.7 Config Clock = Soft Time$ = "23:59:50" Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32 Deflcdchar 1 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , 4 ' replace ? with number (0-7) Deflcdchar 2 , 32 , 8 , 21 , 13 , 5 , 10 , 20 , 32 ' replace ? with number (0-7) Deflcdchar 3 , 1 , 32 , 1 , 1 , 1 , 2 , 4 , 32 ' replace ? with number (0-7) Deflcdchar 4 , 16 , 17 , 16 , 29 , 13 , 2 , 4 , 32 ' replace ? with number (0-7) Deflcdchar 5 , 32 , 32 , 32 , 21 , 17 , 17 , 14 , 32 ' replace ? with number (0-7) Dim A As Word Dim B As Word Dim C As Single Dim Uptemp As Single Dim Downtemp As Single Dim Fan As Single Dim Motor As Single Dim Heater As Single Dim Day As Single Dim Menu As Single Day = 0 Uptemp = 38 Downtemp = 36 Fan = 00 Heater = 00 Motor = 00 Cursor Off Normal: Enable Interrupts Waitms 500 Start Adc Do A = Getadc(0) B = Getadc(1) C = A - B C = C / 4 If Mode_key = 0 Then Cls Disable Interrupts Incr Menu If Menu > 5 Then Menu = 0 Goto Normal End If Waitms 200 End If Select Case Menu Case 1: Cls : Home : Lcd "UP TEMP = " ; Uptemp Waitms 200 If Up_key = 0 Then If Uptemp < 60 Then Incr Uptemp End If If Down_key = 0 Then If Uptemp > 0 Then Decr Uptemp End If Case 2: Cls : Home : Lcd "DOWN TEMP = " ; Downtemp Waitms 200 If Up_key = 0 Then If Downtemp < 60 Then Incr Downtemp End If If Down_key = 0 Then If Downtemp > 0 Then Decr Downtemp End If Case 3: Cls : Home : Lcd "MOTOR OFF = " ; Motor Waitms 200 If Up_key = 0 Then If Motor < 1 Then Incr Motor End If If Down_key = 0 Then If Motor > 0 Then Decr Motor End If Case 4: Cls : Home : Lcd "FAN OFF = " ; Fan Waitms 200 If Up_key = 0 Then If Fan < 1 Then Incr Fan End If If Down_key = 0 Then If Fan > 0 Then Decr Fan End If Case 5: Cls : Home : Lcd "HEATER OFF = " ; Heater Waitms 200 If Up_key = 0 Then If Heater < 1 Then Incr Heater End If If Down_key = 0 Then If Heater > 0 Then Decr Heater End If End Select Home : Lcd "Temp =" ; C ; Chr(0) ; "c " Lowerline : Lcd ; Chr(5) ; Chr(4) ; ":" ; Time$ ; Chr(3) ; Chr(2) ; ":" ; Day ; If Time$ = "00:00:00" Then Day = Day + 1 If C < Downtemp Then Set Portb.0 If C >= Uptemp Then Reset Portb.0 If Fan = 1 Then Reset Portb.1 If Heater = 1 Then Reset Portb.0 If Motor = 1 Then Reset Portb.2 Loop End
دیدگاه