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

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

The following program shows how all of the previously mentioned features can be utilized to easily
create an intuitive and responsive user interface. When a button is pressed, its colors will be reversed
for visual feedback, and a "beep" sound will be generated for audio feedback.
'
' Demo for Cutouch
'
#include "CT18XX"
Dim TX1 As Integer, TY1 As Integer
Dim k As Long
CT18contrast 150 ' Adjust this value to change the screen contrast
On Pad Gosub TouchInput
Menuset 0,2,8,16,87,63
Menutitle 0,13,13,"Start"
Menuset 1,2,96,16,176,63
Menutitle 1,13,13,"End"
Menuset 2,2,184,16,264,63
Menutitle 2,13,13,"Restart"
Low 18
Do
Loop
TouhcInput:
TX1 = Sys(10)
TY1 = Sys(11)
Circlefill TX1,TY1,10
If Menucheck(0,TX1,TY1) = 1 Then
Menureverse 0
CT18beep 20 ' Audio feedback
End If
If Menucheck(1,TX1,TY1) = 1 Then
Menureverse 1
CT18beep 20 ' Audio feedback
End If
If Menucheck(2,TX1,TY1) = 1 Then
Menureverse 2
CT18beep 20 ' Audio feedback
End If
Return
Comfile Technology, Inc CT1820 User's Manual 48 Of 93