
13-36
'Button status
#define ON 1 'ON
#define OFF 0 'OFF
#define I_VAL 1 'Integer
'Button address
#define IO_PB_ADRS 170 'I/O number assigned to the 1st button
'on a TP operation panel.
defint btn_no,minx,maxx,miny,maxy,loopcnt
defint enable,visible,var_type,var_index
defint panel_no,io_no,io_adrs,btn_adrs
defstr panel_cap
defstr bcap0,bcap1,bcap2,bcap3,bcap4,bcap5,bcap6,bcap7
panel_no = 3
panel_cap = "Setup screen (Screen 3)"
loopcnt = 0
change_pCap panel_no,panel_cap 'Set page title.
set_page panel_no,P_BGCOLOR,GRAY 'Set page background color.
set_page panel_no,P_USESTATE,ON 'Enable page.
set_page panel_no,P_VISSTATE,ON 'Make page visible.
'Resetting all parameters
btn_adrs = 30
io_no = IO_PB_ADRS
reset io[128 to 133]
enable = ON
visible = ON
var_type = I_VAL
var_index = 1
bcap0 = "plan”+chr$(10)+"Data1"
bcap1 = "plan”+chr$(10)+"Data2"
bcap2 = "plan”+chr$(10)+"Data3"
bcap3 = "plan”+chr$(10)+"Data4"
bcap4 = "plan”+chr$(10)+"Data5"
bcap5 = "plan”+chr$(10)+"Data6"
bcap6 = "Screen0”+chr$(10)+"Back to"
bcap7 = "here"+chr$(10)+"Touch"
while loopcnt < 6 'Loop 6 times.
btn_no = btn_adrs + loopcnt
minx = 10 + ((loopcnt mod 6)*100)
miny = 50 + ((loopcnt / 6)*100)
maxx = 100 + ((loopcnt mod 6)*100)
maxy = 120 + ((loopcnt / 6)*100)
io_adrs = IO_PB_ADRS + loopcnt
'Common process
set_button (btn_no),(1),(minx)
set_button (btn_no),(2),(miny)
set_button (btn_no),(3),(maxx)
set_button (btn_no),(4),(maxy)
set_button (btn_no),(9),(enable)
set_button (btn_no),(10),(visible)
set_button (btn_no),(11),(var_type)
set_button (btn_no),(12),(var_index)
set_button (btn_no),(14),(panel_no)
Kommentare zu diesen Handbüchern