COMFILE CUTOUCH CT1820, Руководство пользователя

Страница: 81 / 93

Elseif Menucheck(11,TX1,TY1) = 1 Then
EffectFlash 11
VaDecr 0,0
Endif
Return
End
Sub EffectFlash (IxM As Integer)
Menureverse IxM
Ct18beep 20
Wait 200
Menureverse IxM
End Sub
Sub VaIncr(AddrRTC As Integer, LimitThis As Integer)
Dim Tm As Byte
Dim Dtm As Byte
Tm = Rtcread(AddrRTC)
Dtm = Bcd2bin(Tm)
Incr Dtm
If Dtm > LimitThis Then Decr Dtm
Tm = Bin2bcd(Dtm)
Rtcwrite AddrRTC,Tm
End Sub
Sub VaDecr(AddrRTC As Integer, Limitunder As Integer)
Dim Tm As Byte
Dim Dtm As Byte
Tm = Rtcread(AddrRTC)
Dtm = Bcd2bin(Tm)
If Dtm > Limitunder Then Decr Dtm
Tm = Bin2bcd(Dtm)
Rtcwrite AddrRTC,Tm
End Sub
Sub Basic_FORM1()
Font 2,0
Style 0,0,0
Menuset 0,2,15,40,45,60
Menutitle 0,11,2,"+"
Menuset 1,2,15,125,45,145
Menutitle 1,11,2,"-"
Menuset 2,2,65,40,95,60
Menutitle 2,11,2,"+"
Font 0,0
Menuset 3,2,65,125,95,145
Menutitle 3,11,2,"-"
Font 3,0
Menuset 4,2,115,40,145,60
Menutitle 4,11,2,"+"
Menuset 5,2,115,125,145,145
Menutitle 5,11,2,"-"
Menuset 6,2,175,40,205,60
Menutitle 6,11,2,"+"
Menuset 7,2,175,125,205,145
Menutitle 7,11,2,"-"
Menuset 8,2,225,40,255,60
Comfile Technology, Inc CT1820 User's Manual 81 Of 93