پاسخ : ساختن ساعت
چرا کسیییییییییی جواب نمیده کجاییدددد مهندساااااااااااااااااااا
چرا کسیییییییییی جواب نمیده کجاییدددد مهندساااااااااااااااااااا
Do این تیکه از برنامه حذف شدههههههههههههههه وتیکه برنامه چک کردنننننننننن.ایی خداااااااااا :ooo: :whistling: :angry: :angry: :cry2: Gosub Get_key If Key = 10 Then Year = Year_1000 * 1000 Temp_word = Year_100 * 100 Year = Year + Temp_word Temp_word = Year_10 * 10 Year = Year + Temp_word Year = Year + Year_1 If Year > 2000 And Year < 2050 Then Exit Do If Year <= 2000 Or Year => 2050 Then Cls Lcd " Year Error" Locate 2 , 1 Lcd "Year=2001...2050" Wait 3 Cls Lcd "Enter Year:" Locate 2 , 1 Lcd Year End If End If If Key < 10 Then Year_1000 = Year_100 Year_100 = Year_10 Year_10 = Year_1 Year_1 = Key Year = Year_1000 * 1000 Temp_word = Year_100 * 100 Year = Year + Temp_word Temp_word = Year_10 * 10 Year = Year + Temp_word Year = Year + Year_1 Cls Lcd "Enter Year:" Locate 2 , 1 Lcd Year End If Loop Cls Lcd "Enter Month:" Locate 2 , 1 Lcd Month Do Gosub Get_key If Key = 10 Then Month = Month_10 * 10 Month = Month + Month_1 If Month > 1 And Month < 13 Then Exit Do If Month = 0 Or Month > 12 Then Cls Lcd " Month Error" Locate 2 , 1 Lcd "Month=1...12" Wait 3 Cls Lcd "Enter Month:" Locate 2 , 1 Lcd Month End If End If If Key < 10 Then Month_10 = Month_1 Month_1 = Key Month = Month_10 * 10 Month = Month + Month_1 Cls Lcd "Enter Month:" Locate 2 , 1 Lcd Month End If Loop Cls Lcd "Enter Day:" Locate 2 , 1 Lcd Day Do Gosub Get_key If Key = 10 Then Day = Day_10 * 10 Day = Day + Day_1 If Day > 1 And Day < 32 Then Exit Do If Day = 0 Or Day > 31 Then Cls Lcd " Day Error" Locate 2 , 1 Lcd "Day=1...31" Wait 3 Cls Lcd "Enter Day:" Locate 2 , 1 Lcd Day End If End If If Key < 10 Then Day_10 = Day_1 Day_1 = Key Day = Day_10 * 10 Day = Day + Day_1 Cls Lcd "Enter Day:" Locate 2 , 1 Lcd Day End If Loop Cls Lcd "Enter Hour:" Locate 2 , 1 Lcd Hour Do Gosub Get_key If Key = 10 Then Hour = Hour_10 * 10 Hour = Hour + Hour_1 If Day < 24 Then Exit Do If Day > 23 Then Cls Lcd " Hour Error" Locate 2 , 1 Lcd "Hour=0...23" Wait 3 Cls Lcd "Enter Hour:" Locate 2 , 1 Lcd Hour End If End If If Key < 10 Then Hour_10 = Hour_1 Hour_1 = Key Hour = Hour_10 * 10 Hour = Hour + Hour_1 Cls Lcd "Enter Hour:" Locate 2 , 1 Lcd Hour End If Loop Cls Lcd "Enter Minute:" Locate 2 , 1 Lcd Minute Do Gosub Get_key If Key = 10 Then Minute = Minute_10 * 10 Minute = Minute + Minute_1 If Minute < 60 Then Exit Do If Minute > 59 Then Cls Lcd " Minute Error" Locate 2 , 1 Lcd "Minute=0...59" Wait 3 Cls Lcd "Enter Minute:" Locate 2 , 1 Lcd Minute End If End If If Key < 10 Then Minute_10 = Minute_1 Minute_1 = Key Minute = Minute_10 * 10 Minute = Minute + Minute_1 Cls Lcd "Enter Minute:" Locate 2 , 1 Lcd Minute End If Loop Cls Lcd "Enter Second:" Locate 2 , 1 Lcd Second Do Gosub Get_key If Key = 10 Then Second = Second_10 * 10 Second = Second + Second_1 If Second < 60 Then Exit Do If Second > 59 Then Cls Lcd " Second Error" Locate 2 , 1 Lcd "Second=0...59" Wait 3 Cls Lcd "Enter Second:" Locate 2 , 1 Lcd Second End If End If If Key < 10 Then Second_10 = Second_1 Second_1 = Key Second = Second_10 * 10 Second = Second + Second_1 Cls Lcd "Enter Second:" Locate 2 , 1 Lcd Second End If Loop
Gosub Getdatetime Temp_word = _year + 2000 Lcd Temp_word ; "/" ; _month ; "/" ; _day ; Locate 2 , 1 Lcd _hour ; ":" ; _min ; ":" ; _sec Wait 1 If Temp_word = Year And _ _month = Month And _ _day = Day And _ _hour = Hour And _ _min = Minute And _ _sec = Second _ Then Portd.5 = 1
دیدگاه