Sub Submenu
Cls
Lcd "Enter password:"
Call Setpassword(0)
If Password = Password1 Then
Do 'dar in halqe tanzimate marbote neveshte khahad shod
Debounce Keyup , 0 , Subkeyup , Sub
Debounce Keydown , 0 , Subkeydown , Sub
Debounce Enter , 0 , Subkeyenter , Sub
If Flagkeyup = 1 Then
Flagkeyup = 0
Incr Menuvalue
Elseif Flagkeydown = 1 Then
Flagkeydown = 0
Decr Menuvalue
Elseif Flagkeyenter = 1 Then
Flagkeyenter = 0
Flagenter = 1
End If
If Menuvalue = 255 Then Menuvalue = 0
If Menuvalue = 0 Then
Cls
Lcd "1:Park floor"
Do
Debounce Keyup , 0 , Subkeyup , Sub
Debounce Keydown , 0 , Subkeydown , Sub
Debounce Enter , 0 , Subkeyenter , Sub
If Flagkeyup = 1 Then
Flagkeyup = 0
Incr Menuvalue
Exit Do
Elseif Flagkeydown = 1 Then
Flagkeydown = 0
Decr Menuvalue
Exit Do
Elseif Flagkeyenter = 1 Then
Flagkeyenter = 0
Flagenter = 1
Exit Do
End If
Loop
If Flagenter = 1 Then
Flagenter = 0
Gosub Subparkfloor
End If
Elseif Menuvalue = 1 Then
Cls
Lcd "2:park Time"
Do
Debounce Keyup , 0 , Subkeyup , Sub
Debounce Keydown , 0 , Subkeydown , Sub
Debounce Enter , 0 , Subkeyenter , Sub
If Flagkeyup = 1 Then
Flagkeyup = 0
Incr Menuvalue
Exit Do
Elseif Flagkeydown = 1 Then
Flagkeydown = 0
Decr Menuvalue
Exit Do
Elseif Flagkeyenter = 1 Then
Flagkeyenter = 0
Flagenter = 1
Exit Do
End If
Loop
If Flagenter = 1 Then
Flagenter = 0
Gosub Subtimegopark
End If
Elseif Menuvalue = 2 Then
Cls
Lcd "3:lamp Time off"
Do
Debounce Keyup , 0 , Subkeyup , Sub
Debounce Keydown , 0 , Subkeydown , Sub
Debounce Enter , 0 , Subkeyenter , Sub
If Flagkeyup = 1 Then
Flagkeyup = 0
Incr Menuvalue
Exit Do
Elseif Flagkeydown = 1 Then
Flagkeydown = 0
Decr Menuvalue
Exit Do
Elseif Flagkeyenter = 1 Then
Flagkeyenter = 0
Flagenter = 1
Exit Do
End If
Loop
If Flagenter = 1 Then
Flagenter = 0
Gosub Subtimelightoff
End If
Elseif Menuvalue = 3 Then
Cls
Lcd "4:pump Delay Off"
Do
Debounce Keyup , 0 , Subkeyup , Sub
Debounce Keydown , 0 , Subkeydown , Sub
Debounce Enter , 0 , Subkeyenter , Sub
If Flagkeyup = 1 Then
Flagkeyup = 0
Incr Menuvalue
Exit Do
Elseif Flagkeydown = 1 Then
Flagkeydown = 0
Decr Menuvalue
Exit Do
Elseif Flagkeyenter = 1 Then
Flagkeyenter = 0
Flagenter = 1
Exit Do
End If
Loop
If Flagenter = 1 Then
Flagenter = 0
Gosub Subpumpdelayoff
End If
Elseif Menuvalue = 4 Then
Cls
Lcd "5:start counter"
Do
Debounce Keyup , 0 , Subkeyup , Sub
Debounce Keydown , 0 , Subkeydown , Sub
Debounce Enter , 0 , Subkeyenter , Sub
If Flagkeyup = 1 Then
Flagkeyup = 0
Incr Menuvalue
Exit Do
Elseif Flagkeydown = 1 Then
Flagkeydown = 0
Decr Menuvalue
Exit Do
Elseif Flagkeyenter = 1 Then
Flagkeyenter = 0
Flagenter = 1
Exit Do
End If
Loop
If Flagenter = 1 Then
Flagenter = 0
Gosub Subcountstart
End If
Elseif Menuvalue = 5 Then
Cls
Lcd "6:ChangePassword"
Do
Debounce Keyup , 0 , Subkeyup , Sub
Debounce Keydown , 0 , Subkeydown , Sub
Debounce Enter , 0 , Subkeyenter , Sub
If Flagkeyup = 1 Then
Flagkeyup = 0
Incr Menuvalue
Exit Do
Elseif Flagkeydown = 1 Then
Flagkeydown = 0
Decr Menuvalue
Exit Do
Elseif Flagkeyenter = 1 Then
Flagkeyenter = 0
Flagenter = 1
Exit Do
End If
Loop
If Flagenter = 1 Then
Flagenter = 0
Gosub Subchangepassword
End If
End If
If Menuvalue = 6 Then Menuvalue = 5 'baraye inke az tedad menu tajavoz nakone
Loop
Else
Cls
Lcd "wrong password"
Pas1 = 0
Pas2 = 0
Pas3 = 0
Pas4 = 0
Do
Debounce Enter , 0 , Subkeyenter , Sub
Debounce Menu , 0 , Subkeymenu , Sub
If Flagkeyenter = 1 Then
Flagkeyenter = 0
Gosub Submenu
Elseif Flagkeymenu = 1 Then
Flagkeymenu = 0
Gosub Submenu
End If
Loop
End If
End Sub
دیدگاه