Hi, I still have problem with crash my display. Disable and Enable Interrupts into Main Loop fixed my problem. It is correct ?
[code:1:079f0ef8e1]Start_menu:
Main_selec = 1
Call Beep
Cls
Do
Disable Interrupts
Back = 0
'If Read_time = 1 Then
' Read_time = 0
'Gosub Readtime
Setfont Font16x16
Lcdat 1 , 50 , S_hours ; ":" ; S_minutes
Setfont Font5x5
Lcdat 8 , 1 , "Pon"
Lcdat 8 , 20 , "Uto"
Lcdat 8 , 39 , "Str"
Lcdat 8 , 57 , "Stv"
Lcdat 8 , 75 , "Pia"
Lcdat 8 , 94 , "Sob"
Lcdat 8 , 113 , "Ned"
Select Case Stop_povel
Case 0
Lcdat 2 , 1 , "Automat"
Case 1
Lcdat 2 , 1 , " Manual"
End Select
'Lcdat 1 , 1 , Sec_runtimea1
Select Case Weekday
Case 1
Lcdat 7 , 6 , "_" , 0
Lcdat 7 , 118 , " " , 0
Case 2
Lcdat 7 , 25 , "_" , 0
Lcdat 7 , 6 , " " , 0
Case 3
Lcdat 7 , 44 , "_" , 0
Lcdat 7 , 25 , " " , 0
Case 4
Lcdat 7 , 62 , "_" , 0
Lcdat 7 , 44 , " " , 0
Case 5
Lcdat 7 , 80 , "_" , 0
Lcdat 7 , 62 , " " , 0
Case 6
Lcdat 7 , 99 , "_" , 0
Lcdat 7 , 80 , " " , 0
Case 7
Lcdat 7 , 118 , "_" , 0
Lcdat 7 , 99 , " " , 0
End Select
Gosub Percenta_temp
Enable Interrupts
Debounce Go_tl , 0 , Main_menu
'End If
'Debounce Go_tl , 0 , Main_menu
' Enable Interrupts
Loop
'-----[/code:1:079f0ef8e1]
↧