سلام و خسته نباشید
ایراد این کد چیه؟
باید تو صفحه اصلی ساعت رو نشون بده و منتظر بشه وقتی دکمه ای زده شد بره تو اون ساب
حالا این ساعت رو نشون میده اما تا نری تو یه ساب و برنگردی تغییر نمیکنه
یعنی ساعت به لطف ماژول ds3231 کار میکنه
من خودم فکر میکنم از end if آخر باشه ولی وقتی پاکش میکنم بسکام ارور میده
ایراد این کد چیه؟
باید تو صفحه اصلی ساعت رو نشون بده و منتظر بشه وقتی دکمه ای زده شد بره تو اون ساب
حالا این ساعت رو نشون میده اما تا نری تو یه ساب و برنگردی تغییر نمیکنه
یعنی ساعت به لطف ماژول ds3231 کار میکنه
من خودم فکر میکنم از end if آخر باشه ولی وقتی پاکش میکنم بسکام ارور میده
کد:
[FONT=Yekan]Cls[/FONT]
Locate 1 , 1 : Lcd S1
Wait 1
Cls
Do
Waitus 10
Gosub Eeprom
If Ealarm1 > Salarm1 Then
If _hour => Salarm1 And _hour < Ealarm1 Then
Set Portc.5
Else
Reset Portc.5
End If
End If
If Salarm1 > Ealarm1 Then
If _hour => Salarm1 Or _hour < Ealarm1 Then
Set Portc.5
Else
Reset Portc.5
End If
End If
Gosub Read_date_time
Locate 1 , 1
Lcd "TIME: " ; _hour ; ":" ; _min ; ":" ; _sec ; " "
Locate 2 , 1
Lcd "1.setting 2.alarm1 3.alarm2 "
'________________________feed_____________
If Feed1 = _hour And Feed_flag1 = 0 Then
Portc.3 = 1
Wait 5
Portc.3 = 0
Feed_flag1 = 1
Else
Portc.3 = 0
End If
If _hour > Feed1 Then
Toggle Feed_flag1
End If
If Feed2 = _hour And Feed_flag2 = 0 Then
Portc.3 = 1
Wait 5
Portc.3 = 0
Feed_flag2 = 1
Else
Portc.3 = 0
End If
If _hour > Feed2 Then
Toggle Feed_flag2
End If
'______--- alarm2
If Ealarm2 > Salarm2 Then
If _hour => Salarm2 And _hour < Ealarm2 Then
Set Portc.4
Wait 10
Reset Portc.4
Else
Reset Portc.4
End If
End If
If Salarm2 > Ealarm2 Then
If _hour => Salarm2 Or _hour < Ealarm2 Then
Set Portc.4
Wait 10
Reset Portc.4
Else
Reset Portc.4
End If
End If
'---------------------------- WAIT AND READ KEY
For Conter1 = 1 To 4000
If Key_menu = 0 Then
Waitms 100
If Key_menu = 0 Then
Cls
Locate 1 , 1
Lcd " MENU "
Wait 1
Gosub Menu
End If
Elseif Pinc.0 = 0 Then
Waitms 100
If Pinc.0 = 0 Then
Cls
Locate 1 , 1
Lcd " alarm1"
Wait 1
Gosub Alarm1
End If
Elseif Pinc.1 = 0 Then
Waitms 100
If Pinc.1 = 0 Then
Cls
Locate 1 , 1
Lcd " alarm2"
Wait 1
Gosub Alarm2
End If
End If
Next
loop
دیدگاه