본 프로그램을 이용하여, Contrast 를 조정할 수 있고, 그 값을 EEPROM 의 &HFFF 번지에 기록합니다.

#include "CT18XX"
Dim CT18_cont_value As Byte
CT18_cont_value = Eeread(&hfff,1)
If CT18_cont_value = &hff Then
 CT18_cont_value = 150
Endif
Ct18contrast CT18_cont_value
Box 10,20,310,100
Box 10,140,310,230
Font 5,1
Glocate 120,50
Gprint "Contrast +"
Glocate 120,175
Gprint "Contrast -"
Ct18beep 30
Font 2,0
 
On Pad Gosub TouchOccur
 
'
'********************* 메인 do 루프 ************************
'
Do
 Locate 0,0
 Print "20",Hp(Rtcread(6),2,1),"-",Hp(Rtcread(5),2,1),"-",Hp(Rtcread(4),2,1),  _
      " ", Hp(Rtcread(2),2,0),":",Hp(Rtcread(1),2,1),":",Hp(Rtcread(0),2,1)
 Locate 24,0
 Print "Contrast : ",Dp(CT18_cont_value,3,0)
 Wait 1000
Loop
 
TouchOccur:
 _TouchPosx = Sys(10)
 _TouchPosy = Sys(11)
 If _TouchPosy > 120 Then
    CT18_cont_value = CT18_cont_value - 1
    Ct18contrast CT18_cont_value
    Eewrite &hfff,CT18_cont_value,1
 Else
    CT18_cont_value = CT18_cont_value + 1
    Ct18contrast CT18_cont_value
    Eewrite &hfff,CT18_cont_value,1 
 Endif
 
 Ct18beep 30
 Return
End

화면 맨위에는 RTC 로부터 읽은 현재시각을 표시합니다.