본 프로그램을 이용하여, 내부 RTC 설정치를 조정할 수 있습니다.

이 소스에 사용된 화면은 CuCANVAS 로 제작된 것입니다.

#include "CT18XX"
Dim TX1 As Integer
Dim TY1 As Integer
Dim Va As Integer
Basic_FORM1
On Pad Gosub TouchOccur
'
'********************* 메인 do 루프 ************************
'
Do
 Locate 2,5
 Print "20",Hp(Rtcread(6),2,1)," ", Hp(Rtcread(5),2,1)," ",
 Hp(Rtcread(4),2,1)
 Locate 23,5
 Print Hp(Rtcread(2),2,1)," ", Hp(Rtcread(1),2,1)," ", Hp(Rtcread(0),2,1)
 Wait 1000
Loop
 
TouchOccur:
 TX1 = Sys(10)
 TY1 = Sys(11)
 If Menucheck(0,TX1,TY1) = 1 Then            ' Year
 EffectFlash 0
 VaIncr 6,99
 Elseif Menucheck(1,TX1,TY1) = 1 Then
 EffectFlash 1
 VaDecr 6,0
 Endif
 If Menucheck(2,TX1,TY1) = 1 Then            ' Month
 EffectFlash 2
 VaIncr 5,12
 Elseif Menucheck(3,TX1,TY1) = 1 Then
 EffectFlash 3
 VaDecr 5,1
 Endif
 If Menucheck(4,TX1,TY1) = 1 Then           ' Date
 EffectFlash 4
 VaIncr 4,31
 Elseif Menucheck(5,TX1,TY1) = 1 Then
 EffectFlash 5
 VaDecr 4,1
 Endif
 
 If Menucheck(6,TX1,TY1) = 1 Then            ' Hour
    EffectFlash 6
    VaIncr 2,23
 Elseif Menucheck(7,TX1,TY1) = 1 Then
    EffectFlash 7
    VaDecr 2,0
 Endif 
 
 If Menucheck(8,TX1,TY1) = 1 Then            ' Min
    EffectFlash 8
    VaIncr 1,59
 Elseif Menucheck(9,TX1,TY1) = 1 Then
    EffectFlash 9
    VaDecr 1,0
 Endif
 
 If Menucheck(10,TX1,TY1) = 1 Then           ' Sec
    EffectFlash 10
    VaIncr 0,59
 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
 Menutitle 8,11,2,"+"
 Menuset 9,2,225,125,255,145
 Menutitle 9,11,2,"-"
 Font 2,0
 Menuset 10,2,275,40,305,60
 Menutitle 10,11,2,"+"
 Font 3,0
 Menuset 11,2,275,125,305,145
 Menutitle 11,11,2,"-"
 Linestyle 0
 Dotsize 0,0
 Color 1
 Box 5,20,155,165
 Box 165,20,315,165
 Font 0,1
 Glocate 15,175
 Gprint "Year Month Date "
 Glocate 175,175
 Gprint "Hour Min Sec"
 Font 6,1
 Glocate 90,195
 Gprint "RTC Setting"
 Font 4,0
End Sub