FANUC机器人karel表单的调用的karel程序（调用表单的karel程序）

大家好，我是一个正在学习karel的机器人小学生，上一篇文章为大家带来了，karel表单的创建以及karel表单在仿真里构建的程序今天为大家带来调用karel表单的karel程序。

1.首先给大家带来调用上一期表单的karel程序。

PROGRAM runform
%NOLOCKGROUP
%INCLUDE form -- 打开一个名字叫form名称的表单
%INCLUDE klevccdf
%INCLUDE klevkeys
%INCLUDE klevkmsk
TYPE
mystruc = STRUCTURE
byte_var1: BYTE---数值7
byte_var2: BYTE---
short_var: SHORT---数值8
ENDSTRUCTURE
VAR
value_array: ARRAY [20] OF STRING [40]
inact_array: ARRAY [1] OF BOOLEAN
def_item: INTEGER
change_array: ARRAY[1] OF BOOLEAN
term_char: INTEGER
status: INTEGER
int_var1: INTEGER---数值1
int_var2: INTEGER
real_var: REAL
bool_var: BOOLEAN
str_var1: STRING[20]
str_var2: STRING[12]
struc_var: mystruc
color_sel1: INTEGER---SHUZHI 15
color_sel2: REAL
prog_name1: STRING[12]
prog_name2: STRING[12]
prog_name3: STRING[12]
prog_name4: STRING[12]
choices: ARRAY[5] OF STRING[12]
BEGIN
value_array [1] = 'int_var1'
value_array [2] = 'int_var2'
value_array [3] = 'real_var'
value_array [4] = 'bool_var'
value_array [5] = 'str_var1'
value_array [6] = 'str_var2'
value_array [7] = 'struc_var.byte_var1'
value_array [8] = 'struc_var.short_var'
value_array [9] = 'DIN[1]'
value_array [10] = 'AIN[1]'
value_array [11] = 'AIN[1]'
value_array [12] = 'AOUT[2]'
value_array [13] = 'AOUT[2]'
value_array [14] = '[*system*]$GROUP[1].$TERMTYPE'
value_array [15] = 'color_sel1'
value_array [16] = 'color_sel2'
value_array [17] = 'prog_name1'
value_array [18] = 'prog_name2'
value_array [19] = 'prog_name3'
value_array [20] = 'prog_name4'
choices [1] = ''
choices [2] = 'Red'
choices [3] = 'Blue'
choices [4] = 'Green'
choices [5] = 'Yellow'
--不使用
--对应color_sel12 = 1
--对应color_sel12 = 2
--对应color_sel12 = 3
--对应color_sel12 = 4
-- 初始化变量
int_var1 = 12345
-- 故意保留int_var2未初始化
real_var = 0
bool_var = TRUE
str_var1 = 'This is a test'
-- str_var = is purposely left uninitialized
struc_var.byte_var1 = 10
struc_var.short_var = 3
color_sel1 = 3 --对应于enum_subwin的第三项
color_sel2 = 1
FORCE_SPMENU(TP_PANEL, SPI_TPUSER2,1)
def_item=1 -- start with menu item 1
DISCTRL_FORM('FORM', form2, value_array, inact_array,
change_array, kc_func_key, def_item, term_char, status);
END runform

 2.需要在roboguide中选择项目在项目中新建一个kl程序。把程序复制进去，进行构建。

3.在示教器中选择karel程序去运行，就会的到一个这个的画面， 这样就得到了你想要的表单。