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

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

Sample 7: Contrast Adjustment
This program demonstrates how to adjust the screen contrast at runtime. The screen contrast is stored
in the EEPROM at addres &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 "Co"
Glocate 120,175
Gprint "Contrast -"
Ct18beep 30
Font 2,0
On Pad Gosub TouchOccur
'
' ********************* Main Loop ************************
'
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 1
Ct18contrast CT18_cont_value
Eewrite &hfff,CT18_cont_value,1
Endif
Ct18beep 30
Return
End
Comfile Technology, Inc CT1820 User's Manual 77 Of 93