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

大家好，欢迎来到IT知识分享网。

大家好，我是一个正在学习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程序去运行，就会的到一个这个的画面， 这样就得到了你想要的表单。