I think you need the SET_VAR command: "Allows a KAREL program to set the value of a specified variable"
Use SET_VAR:
SET_VAR (entry, 'AWE1WP03', 'SCH[2].$CMD_WFS', 5, STATUS)Use SET_VAR:
CodeSET_VAR (entry, 'AWE1WP03', 'SCH[2].$CMD_WFS', 5, STATUS)
Thank You!!! This is code which work, now I need to make parsing parameter trough CALL.
PROGRAM Change_AWE
VAR SCH : ARRAY[7] OF AW_SCH_T
VAR entry, STATUS : INTEGER
BEGIN
SET_VAR (entry, 'AWE1WP01', 'SCH[1].$CMD_VOLTS', 21.7, STATUS)
END Change_AWEFor reading welding parameters from arguments you use:
GET_TPE_PRM(arg_num, data_type, int_value, real_value, str_value, STATUS)For reading welding parameters from arguments you use:
CodeGET_TPE_PRM(arg_num, data_type, int_value, real_value, str_value, STATUS)
Something like this, it's working but there is some another problem 
I would like to add (arg1) or insert (arg2) some value to string.
For that purpose I want to convert Integer value to string (temp).
CNV_INT_STR(arg1,1,1,temp)CNV_INT_STR(arg2,1,1,temp)and then to add and insert to string
fname = 'AWE1WP0' + tempsch_num = 'SCH[' + temp + ']'
sch_num_v = sch_num + '.$CMD_VOLTS'Trouble is temp is empty!
PROGRAM SET_FA_WPP
TYPE
AW_PLS_SCH_T = STRUCTURE
PULSE_ENB : BOOLEAN
PULSE_FREQ : REAL
PULSE_DUTY : REAL
PHASE_SFT : INTEGER
ENDSTRUCTURE
VAR SCH : ARRAY[7] OF AW_SCH_T
VAR LSCH : ARRAY[3] OF AW_SCH_T
VAR RSCH : ARRAY[3] OF AW_SCH_T
VAR PLSCH : ARRAY[3] OF AW_PLS_SCH_T
VAR AWWV_MODE : ARRAY[3] OF INTEGER
VAR entry, STATUS : INTEGER
VAR arg1, arg2, arg3 : INTEGER
VAR arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12, arg13, arg14, arg15, arg16, arg17 : REAL
VAR temp, fname : STRING [1]
VAR sch_num : STRING[6]
VAR sch_num_v : STRING[17]
VAR data_type : INTEGER
VAR real_value : REAL
VAR string_value : STRING[17]
VAR arg_int : INTEGER
VAR arg_real : REAL
BEGIN
GET_TPE_PRM(1, data_type, arg_int, real_value, string_value, status)
arg1 = arg_int
GET_TPE_PRM(2, data_type, arg_int, real_value, string_value, status)
arg2 = arg_int
GET_TPE_PRM(3, data_type, arg_int, real_value, string_value, status)
arg3 = arg_int
GET_TPE_PRM(4, data_type, arg_int, real_value, string_value, status)
arg4 = arg_int
GET_TPE_PRM(5, data_type, arg_int, real_value, string_value, status)
arg5 = arg_int
GET_TPE_PRM(6, data_type, arg_int, real_value, string_value, status)
arg6 = arg_int
GET_TPE_PRM(7, data_type, arg_int, real_value, string_value, status)
arg7 = arg_int
GET_TPE_PRM(8, data_type, arg_int, real_value, string_value, status)
arg8 = arg_int
GET_TPE_PRM(9, data_type, arg_int, real_value, string_value, status)
arg9 = arg_int
GET_TPE_PRM(10, data_type, arg_int, real_value, string_value, status)
arg10 = arg_int
GET_TPE_PRM(11, data_type, arg_int, real_value, string_value, status)
arg11 = arg_int
GET_TPE_PRM(12, data_type, arg_int, real_value, string_value, status)
arg12 = arg_int
GET_TPE_PRM(13, data_type, arg_int, real_value, string_value, status)
arg13 = arg_int
GET_TPE_PRM(14, data_type, arg_int, real_value, string_value, status)
arg14 = arg_int
GET_TPE_PRM(15, data_type, arg_int, real_value, string_value, status)
arg15 = arg_int
GET_TPE_PRM(16, data_type, arg_int, real_value, string_value, status)
arg16 = arg_int
GET_TPE_PRM(17, data_type, arg_int, real_value, string_value, status)
arg17 = arg_int
WRITE('arg 1', arg1, ' ')
WRITE('arg 2', arg2, ' ')
WRITE('arg 3', arg3, ' ')
WRITE('arg 4', arg4, CR)
WRITE('arg 5', arg5, ' ')
WRITE('arg 6', arg6, CR)
WRITE('arg 7', arg7, ' ')
WRITE('arg 8', arg8, CR)
WRITE('arg 9', arg9, ' ')
WRITE('arg 10', arg10, CR)
WRITE('arg 11', arg11, ' ')
WRITE('arg 12', arg12, CR)
WRITE('arg 13', arg13, ' ')
WRITE('arg 14', arg14, CR)
WRITE('arg 15', arg15, ' ')
WRITE('arg 16', arg16, CR)
WRITE('arg 17', arg17, CR)
-- CNV_INT_STR(arg1,1,1,temp)
-- fname = 'AWE1WP0' + temp
-- CNV_INT_STR(arg2,1,1,temp)
-- sch_num = 'SCH[' + temp + ']'
-- sch_num_v = sch_num + '.$CMD_VOLTS'
sch_num_v = 'SCH[1].$CMD_VOLTS'
fname = 'AWE1WP06'
SET_VAR (entry, 'AWE1WP06', 'AWWV_MODE[1]', arg3, STATUS)
SET_VAR (entry, 'AWE1WP06', sch_num_v, arg4, STATUS)
SET_VAR (entry, 'AWE1WP06', 'SCH[1].$CMD_WFS', arg5, STATUS)
SET_VAR (entry, 'AWE1WP06', 'SCH[1].$CMD_AMPS', arg6, STATUS)
SET_VAR (entry, 'AWE1WP06', 'SCH[1].$CMD_WSPEED', arg7, STATUS)
SET_VAR (entry, 'AWE1WP06', 'LSCH[1].$CMD_VOLTS', arg8, STATUS)
SET_VAR (entry, 'AWE1WP06', 'LSCH[1].$CMD_WFS', arg9, STATUS)
SET_VAR (entry, 'AWE1WP06', 'LSCH[1].$CMD_AMPS', arg10, STATUS)
SET_VAR (entry, 'AWE1WP06', 'LSCH[1].$CMD_WSPEED', arg11, STATUS)
SET_VAR (entry, 'AWE1WP06', 'RSCH[1].$CMD_VOLTS', arg12, STATUS)
SET_VAR (entry, 'AWE1WP06', 'RSCH[1].$CMD_WFS', arg13, STATUS)
SET_VAR (entry, 'AWE1WP06', 'RSCH[1].$CMD_AMPS', arg14, STATUS)
SET_VAR (entry, 'AWE1WP06', 'RSCH[1].$CMD_WSPEED', arg15, STATUS)
SET_VAR (entry, 'AWE1WP06', 'PLSCH[1].$PULSE_FREQ', arg16, STATUS)
SET_VAR (entry, 'AWE1WP06', 'PLSCH[1].$PULSE_DUTY', arg17, STATUS)
END SET_FA_WPPThe third argument to CNV_INT_STR is the base. You are using "1". Thats not valid. Try using "0" which will use base 10 for the conversion.
For example:
CNV_INT_STR(arg1,1,0,temp)
Third parameter was important, this code work for me
CNV_INT_STR(arg2,1,0,temp_a2)
temp_a2 = SUB_STR(temp_a2,2,1) Not a piece of artwork but...
PROGRAM SET_FA_WPP
TYPE
AW_PLS_SCH_T = STRUCTURE
PULSE_ENB : BOOLEAN
PULSE_FREQ : REAL
PULSE_DUTY : REAL
PHASE_SFT : INTEGER
ENDSTRUCTURE
VAR SCH : ARRAY[7] OF AW_SCH_T
VAR LSCH : ARRAY[3] OF AW_SCH_T
VAR RSCH : ARRAY[3] OF AW_SCH_T
VAR PLSCH : ARRAY[3] OF AW_PLS_SCH_T
VAR AWWV_MODE : ARRAY[3] OF INTEGER
VAR entry, STATUS : INTEGER
VAR arg1, arg2, arg3 : INTEGER
VAR arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12, arg13, arg14, arg15, arg16, arg17 : REAL
VAR temp, fname : STRING [25]
VAR temp_a1, temp_a2, temp_a3, temp_a4, temp_a5, temp_a6, temp_a7, temp_a8, temp_a9, temp_a10, temp_a11, temp_a12, temp_a13, temp_a14, temp_a15, temp_a16, temp_a17 : STRING[17]
--VAR sch_num : STRING[25]
VAR awwv : STRING[25]
VAR sch_1, sch_2, sch_3, sch_4 : STRING[25]
VAR lsch_1, lsch_2, lsch_3, lsch_4 : STRING[25]
VAR rsch_1, rsch_2, rsch_3, rsch_4 : STRING[25]
VAR plsch_1, plsch_2 : STRING[25]
VAR data_type : INTEGER
VAR real_value : REAL
VAR string_value : STRING[17]
VAR arg_int : INTEGER
VAR arg_real : REAL
BEGIN
GET_TPE_PRM(1, data_type, arg_int, real_value, string_value, status)
arg1 = arg_int
GET_TPE_PRM(2, data_type, arg_int, real_value, string_value, status)
arg2 = arg_int
GET_TPE_PRM(3, data_type, arg_int, real_value, string_value, status)
arg3 = arg_int
GET_TPE_PRM(4, data_type, arg_int, real_value, string_value, status)
arg4 = arg_int
GET_TPE_PRM(5, data_type, arg_int, real_value, string_value, status)
arg5 = arg_int
GET_TPE_PRM(6, data_type, arg_int, real_value, string_value, status)
arg6 = arg_int
GET_TPE_PRM(7, data_type, arg_int, real_value, string_value, status)
arg7 = arg_int
GET_TPE_PRM(8, data_type, arg_int, real_value, string_value, status)
arg8 = arg_int
GET_TPE_PRM(9, data_type, arg_int, real_value, string_value, status)
arg9 = arg_int
GET_TPE_PRM(10, data_type, arg_int, real_value, string_value, status)
arg10 = arg_int
GET_TPE_PRM(11, data_type, arg_int, real_value, string_value, status)
arg11 = arg_int
GET_TPE_PRM(12, data_type, arg_int, real_value, string_value, status)
arg12 = arg_int
GET_TPE_PRM(13, data_type, arg_int, real_value, string_value, status)
arg13 = arg_int
GET_TPE_PRM(14, data_type, arg_int, real_value, string_value, status)
arg14 = arg_int
GET_TPE_PRM(15, data_type, arg_int, real_value, string_value, status)
arg15 = arg_int
GET_TPE_PRM(16, data_type, arg_int, real_value, string_value, status)
arg16 = arg_int
GET_TPE_PRM(17, data_type, arg_int, real_value, string_value, status)
arg17 = arg_int
-- for debuging - write arguments to user window
--
-- WRITE('arg 1', arg1, ' ')
-- WRITE('arg 2', arg2, ' ')
-- WRITE('arg 3', arg3, CR)
-- WRITE('arg 4', arg4, CR)
-- WRITE('arg 5', arg5, ' ')
-- WRITE('arg 6', arg6, CR)
-- WRITE('arg 7', arg7, ' ')
-- WRITE('arg 8', arg8, CR)
-- WRITE('arg 9', arg9, ' ')
-- WRITE('arg 10', arg10, CR)
-- WRITE('arg 11', arg11, CR)
-- WRITE('arg 12', arg12, CR)
-- WRITE('arg 13', arg13, ' ')
-- WRITE('arg 14', arg14, CR)
-- WRITE('arg 15', arg15, CR)
-- WRITE('arg 16', arg16, CR)
-- WRITE('arg 17', arg17, CR)
CNV_INT_STR(arg1,1,0,temp_a1)
-- WRITE('temp', temp_a1, CR)
temp_a1 = SUB_STR(temp_a1,2,1)
-- WRITE('temp', temp_a1, CR)
fname = 'AWE1WP0' + temp_a1
-- WRITE('fname ', fname, CR)
-- temp_a2 = SUB_STR(temp_a2,2,1)
awwv = 'AWWV_MODE[' + temp_a2 + ']'
awwv = 'AWWV_MODE[1]'
-- WRITE('awwv ', awwv, CR)
-- WRITE('awwv ', temp_a2, CR)
CNV_INT_STR(arg3,1,0,temp_a3)
temp_a3 = SUB_STR(temp_a3,2,1)
CNV_INT_STR(arg2,1,0,temp_a2)
temp_a2 = SUB_STR(temp_a2,2,1)
awwv = 'AWWV_MODE[' + temp_a2 + ']'
sch_1 = 'SCH[' + temp_a2 + ']'
sch_1 = sch_1 + '.$CMD_VOLTS'
-- WRITE('sch_1 ', sch_1, CR)
sch_2 = 'SCH[' + temp_a2 + ']'
sch_2 = sch_2 + '.$CMD_WFS'
-- WRITE('sch_2 ', sch_2, CR)
sch_3 = 'SCH[' + temp_a2 + ']'
sch_3 = sch_3 + '.$CMD_AMPS'
-- WRITE('sch_3 ', sch_3, CR)
sch_4 = 'SCH[' + temp_a2 + ']'
sch_4 = sch_4 + '.$CMD_WSPEED'
-- WRITE('sch_4 ', sch_4, CR)
lsch_1 = 'LSCH[' + temp_a2 + ']'
lsch_1 = lsch_1 + '.$CMD_VOLTS'
-- WRITE('lsch_1 ', lsch_1, CR)
lsch_2 = 'LSCH[' + temp_a2 + ']'
lsch_2 = lsch_2 + '.$CMD_WFS'
-- WRITE('lsch_2 ', lsch_2, CR)
lsch_3 = 'LSCH[' + temp_a2 + ']'
lsch_3 = lsch_3 + '.$CMD_AMPS'
-- WRITE('lsch_3 ', lsch_3, CR)
lsch_4 = 'LSCH[' + temp_a2 + ']'
lsch_4 = lsch_4 + '.$CMD_WSPEED'
-- WRITE('lsch_4 ', sch_4, CR)
rsch_1 = 'RSCH[' + temp_a2 + ']'
rsch_1 = rsch_1 + '.$CMD_VOLTS'
-- WRITE('rsch_1 ', rsch_1, CR)
rsch_2 = 'RSCH[' + temp_a2 + ']'
rsch_2 = rsch_2 + '.$CMD_WFS'
-- WRITE('rsch_2 ', rsch_2, CR)
rsch_3 = 'RSCH[' + temp_a2 + ']'
rsch_3 = rsch_3 + '.$CMD_AMPS'
-- WRITE('rsch_3 ', rsch_3, CR)
rsch_4 = 'RSCH[' + temp_a2 + ']'
rsch_4 = rsch_4 + '.$CMD_WSPEED'
-- WRITE('rsch_4 ', rsch_4, CR)
plsch_1 = 'PLSCH[' + temp_a2 + ']'
plsch_1 = plsch_1 + '.$PULSE_FREQ'
-- WRITE('plsch_1 ', plsch_1, CR)
plsch_2 = 'PLSCH[' + temp_a2 + ']'
plsch_2 = plsch_2 + '.$PULSE_DUTY'
-- WRITE('plsch_2 ', plsch_2, CR)
SET_VAR (entry, fname, awwv, arg3, STATUS)
SET_VAR (entry, fname, sch_1, arg4, STATUS)
SET_VAR (entry, fname, sch_2, arg5, STATUS)
SET_VAR (entry, fname, sch_3, arg6, STATUS)
SET_VAR (entry, fname, sch_4, arg7, STATUS)
SET_VAR (entry, fname, lsch_1, arg8, STATUS)
SET_VAR (entry, fname, lsch_2, arg9, STATUS)
SET_VAR (entry, fname, lsch_3, arg10, STATUS)
SET_VAR (entry, fname, lsch_4, arg11, STATUS)
SET_VAR (entry, fname, rsch_1, arg12, STATUS)
SET_VAR (entry, fname, rsch_2, arg13, STATUS)
SET_VAR (entry, fname, rsch_3, arg14, STATUS)
SET_VAR (entry, fname, rsch_4, arg15, STATUS)
SET_VAR (entry, fname, plsch_1, arg16, STATUS)
SET_VAR (entry, fname, plsch_2, arg17, STATUS)
END SET_FA_WPPTPP program
CALL SET_FA_WPP(6,3,1,22,181,100,30,23,181,101,31,24,182,102,32,2,50)Description of parameters
I suggest using file ARGDISPEG01.DT to show comments for arguments:
Also, for GET_TPE_PRM check status and data_type.
Here is some trouble with input for real values,
almost every real number is passing ok to data file,
value ****.0 is problem!
If type 20.0 in TPP (parameter in procedure CALL) that value is suppressed to 20 and
valued as Integer, as result in data file is passed 0.00000E+00!
If type 20.01 in TPP that will be passed as 2.00100E+01 and in
weld procedure window I get 20.0 (trimed from 20.01000.
Any Idea? Converting to string or...?
GET_TPE_PRM(7, data_type, arg_int, real_value, string_value, status)
arg7 = real_valueWRITE('arg 7', arg7, ' ')SET_VAR (entry, fname, sch_4, arg7, STATUS)New code
PROGRAM SET_FA_WPP
TYPE
AW_PLS_SCH_T = STRUCTURE
PULSE_ENB : BOOLEAN
PULSE_FREQ : REAL
PULSE_DUTY : REAL
PHASE_SFT : INTEGER
ENDSTRUCTURE
VAR SCH : ARRAY[7] OF AW_SCH_T
VAR LSCH : ARRAY[3] OF AW_SCH_T
VAR RSCH : ARRAY[3] OF AW_SCH_T
VAR PLSCH : ARRAY[3] OF AW_PLS_SCH_T
VAR AWWV_MODE : ARRAY[3] OF INTEGER
VAR entry, STATUS : INTEGER
VAR arg1, arg2, arg3 : INTEGER
VAR arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12, arg13, arg14, arg15, arg16, arg17 : REAL
VAR temp, fname : STRING [25]
VAR temp_a1, temp_a2, temp_a3, temp_a4, temp_a5, temp_a6, temp_a7, temp_a8, temp_a9, temp_a10, temp_a11, temp_a12, temp_a13, temp_a14, temp_a15, temp_a16, temp_a17 : STRING[17]
--VAR sch_num : STRING[25]
VAR awwv : STRING[25]
VAR sch_1, sch_2, sch_3, sch_4 : STRING[25]
VAR lsch_1, lsch_2, lsch_3, lsch_4 : STRING[25]
VAR rsch_1, rsch_2, rsch_3, rsch_4 : STRING[25]
VAR plsch_1, plsch_2 : STRING[25]
VAR data_type : INTEGER
VAR real_value : REAL
VAR string_value : STRING[17]
VAR arg_int : INTEGER
VAR arg_real : REAL
BEGIN
-- get integer value
GET_TPE_PRM(1, data_type, arg_int, real_value, string_value, status)
arg1 = arg_int
GET_TPE_PRM(2, data_type, arg_int, real_value, string_value, status)
arg2 = arg_int
GET_TPE_PRM(3, data_type, arg_int, real_value, string_value, status)
arg3 = arg_int
-- get real value
GET_TPE_PRM(4, data_type, arg_int, real_value, string_value, status)
arg4 = real_value
GET_TPE_PRM(5, data_type, arg_int, real_value, string_value, status)
arg5 = real_value
GET_TPE_PRM(6, data_type, arg_int, real_value, string_value, status)
arg6 = real_value
GET_TPE_PRM(7, data_type, arg_int, real_value, string_value, status)
arg7 = real_value
GET_TPE_PRM(8, data_type, arg_int, real_value, string_value, status)
arg8 = real_value
GET_TPE_PRM(9, data_type, arg_int, real_value, string_value, status)
arg9 = real_value
GET_TPE_PRM(10, data_type, arg_int, real_value, string_value, status)
arg10 = real_value
GET_TPE_PRM(11, data_type, arg_int, real_value, string_value, status)
arg11 = real_value
GET_TPE_PRM(12, data_type, arg_int, real_value, string_value, status)
arg12 = real_value
GET_TPE_PRM(13, data_type, arg_int, real_value, string_value, status)
arg13 = real_value
GET_TPE_PRM(14, data_type, arg_int, real_value, string_value, status)
arg14 = real_value
GET_TPE_PRM(15, data_type, arg_int, real_value, string_value, status)
arg15 = real_value
GET_TPE_PRM(16, data_type, arg_int, real_value, string_value, status)
arg16 = real_value
GET_TPE_PRM(17, data_type, arg_int, real_value, string_value, status)
arg17 = real_value
-- clear user screen
-- WRITE (CHR(128),CHR(137))
-- for debuging - write arguments to user window
--
-- WRITE('arg 1', arg1, ' ')
-- WRITE('arg 2', arg2, ' ')
-- WRITE('arg 3', arg3, CR)
-- WRITE('arg 4', arg4, CR)
-- WRITE('arg 5', arg5, ' ')
-- WRITE('arg 6', arg6, CR)
WRITE('arg 7', arg7, ' ')
-- WRITE('arg 8', arg8, CR)
-- WRITE('arg 9', arg9, ' ')
-- WRITE('arg 10', arg10, CR)
-- WRITE('arg 11', arg11, CR)
-- WRITE('arg 12', arg12, CR)
-- WRITE('arg 13', arg13, ' ')
-- WRITE('arg 14', arg14, CR)
-- WRITE('arg 15', arg15, CR)
-- WRITE('arg 16', arg16, CR)
-- WRITE('arg 17', arg17, CR)
CNV_INT_STR(arg1,1,0,temp_a1)
WRITE('temp', temp_a1, CR)
temp_a1 = SUB_STR(temp_a1,2,1)
-- WRITE('temp', temp_a1, CR)
fname = 'AWE1WP0' + temp_a1
-- WRITE('fname ', fname, CR)
-- -- ***
temp_a2 = ''
-- -- ***
temp_a2 = SUB_STR(temp_a2,2,1)
awwv = 'AWWV_MODE[' + temp_a2 + ']'
awwv = 'AWWV_MODE[1]'
-- -- WRITE('awwv ', awwv, CR)
-- -- WRITE('awwv ', temp_a2, CR)
CNV_INT_STR(arg3,1,0,temp_a3)
temp_a3 = SUB_STR(temp_a3,2,1)
CNV_INT_STR(arg2,1,0,temp_a2)
temp_a2 = SUB_STR(temp_a2,2,1)
awwv = 'AWWV_MODE[' + temp_a2 + ']'
sch_1 = 'SCH[' + temp_a2 + ']'
sch_1 = sch_1 + '.$CMD_VOLTS'
-- WRITE('sch_1 ', sch_1, CR)
sch_2 = 'SCH[' + temp_a2 + ']'
sch_2 = sch_2 + '.$CMD_WFS'
-- WRITE('sch_2 ', sch_2, CR)
sch_3 = 'SCH[' + temp_a2 + ']'
sch_3 = sch_3 + '.$CMD_AMPS'
-- WRITE('sch_3 ', sch_3, CR)
sch_4 = 'SCH[' + temp_a2 + ']'
sch_4 = sch_4 + '.$CMD_WSPEED'
-- WRITE('sch_4 ', sch_4, CR)
lsch_1 = 'LSCH[' + temp_a2 + ']'
lsch_1 = lsch_1 + '.$CMD_VOLTS'
-- WRITE('lsch_1 ', lsch_1, CR)
lsch_2 = 'LSCH[' + temp_a2 + ']'
lsch_2 = lsch_2 + '.$CMD_WFS'
-- WRITE('lsch_2 ', lsch_2, CR)
lsch_3 = 'LSCH[' + temp_a2 + ']'
lsch_3 = lsch_3 + '.$CMD_AMPS'
-- WRITE('lsch_3 ', lsch_3, CR)
lsch_4 = 'LSCH[' + temp_a2 + ']'
lsch_4 = lsch_4 + '.$CMD_WSPEED'
-- WRITE('lsch_4 ', sch_4, CR)
rsch_1 = 'RSCH[' + temp_a2 + ']'
rsch_1 = rsch_1 + '.$CMD_VOLTS'
-- WRITE('rsch_1 ', rsch_1, CR)
rsch_2 = 'RSCH[' + temp_a2 + ']'
rsch_2 = rsch_2 + '.$CMD_WFS'
-- WRITE('rsch_2 ', rsch_2, CR)
rsch_3 = 'RSCH[' + temp_a2 + ']'
rsch_3 = rsch_3 + '.$CMD_AMPS'
-- WRITE('rsch_3 ', rsch_3, CR)
rsch_4 = 'RSCH[' + temp_a2 + ']'
rsch_4 = rsch_4 + '.$CMD_WSPEED'
-- WRITE('rsch_4 ', rsch_4, CR)
plsch_1 = 'PLSCH[' + temp_a2 + ']'
plsch_1 = plsch_1 + '.$PULSE_FREQ'
-- WRITE('plsch_1 ', plsch_1, CR)
plsch_2 = 'PLSCH[' + temp_a2 + ']'
plsch_2 = plsch_2 + '.$PULSE_DUTY'
-- WRITE('plsch_2 ', plsch_2, CR)
SET_VAR (entry, fname, awwv, arg3, STATUS)
SET_VAR (entry, fname, sch_1, arg4, STATUS)
SET_VAR (entry, fname, sch_2, arg5, STATUS)
SET_VAR (entry, fname, sch_3, arg6, STATUS)
SET_VAR (entry, fname, sch_4, arg7, STATUS)
SET_VAR (entry, fname, lsch_1, arg8, STATUS)
SET_VAR (entry, fname, lsch_2, arg9, STATUS)
SET_VAR (entry, fname, lsch_3, arg10, STATUS)
SET_VAR (entry, fname, lsch_4, arg11, STATUS)
SET_VAR (entry, fname, rsch_1, arg12, STATUS)
SET_VAR (entry, fname, rsch_2, arg13, STATUS)
SET_VAR (entry, fname, rsch_3, arg14, STATUS)
SET_VAR (entry, fname, rsch_4, arg15, STATUS)
SET_VAR (entry, fname, plsch_1, arg16, STATUS)
SET_VAR (entry, fname, plsch_2, arg17, STATUS)
END SET_FA_WPPI can't offer any solutions, but I wanted to say that I have struggled with a similar problem in GET_REG and SET_REG commands.
I feel like we should be able to set a Data Register as Integer or Real data type.
Try setting the value twice in a row in your program. Sometimes I have had that work to get it to convert one way or the other.
Display MoreHere is some trouble with input for real values,
almost every real number is passing ok to data file,
value ****.0 is problem!
If type 20.0 in TPP (parameter in procedure CALL) that value is suppressed to 20 and
valued as Integer, as result in data file is passed 0.00000E+00!
If type 20.01 in TPP that will be passed as 2.00100E+01 and in
weld procedure window I get 20.0 (trimed from 20.01000.
Any Idea? Converting to string or...?
CodeGET_TPE_PRM(7, data_type, arg_int, real_value, string_value, status) arg7 = real_valueCodeWRITE('arg 7', arg7, ' ')CodeSET_VAR (entry, fname, sch_4, arg7, STATUS)
New code
CodeDisplay MorePROGRAM SET_FA_WPP TYPE AW_PLS_SCH_T = STRUCTURE PULSE_ENB : BOOLEAN PULSE_FREQ : REAL PULSE_DUTY : REAL PHASE_SFT : INTEGER ENDSTRUCTURE VAR SCH : ARRAY[7] OF AW_SCH_T VAR LSCH : ARRAY[3] OF AW_SCH_T VAR RSCH : ARRAY[3] OF AW_SCH_T VAR PLSCH : ARRAY[3] OF AW_PLS_SCH_T VAR AWWV_MODE : ARRAY[3] OF INTEGER VAR entry, STATUS : INTEGER VAR arg1, arg2, arg3 : INTEGER VAR arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12, arg13, arg14, arg15, arg16, arg17 : REAL VAR temp, fname : STRING [25] VAR temp_a1, temp_a2, temp_a3, temp_a4, temp_a5, temp_a6, temp_a7, temp_a8, temp_a9, temp_a10, temp_a11, temp_a12, temp_a13, temp_a14, temp_a15, temp_a16, temp_a17 : STRING[17] --VAR sch_num : STRING[25] VAR awwv : STRING[25] VAR sch_1, sch_2, sch_3, sch_4 : STRING[25] VAR lsch_1, lsch_2, lsch_3, lsch_4 : STRING[25] VAR rsch_1, rsch_2, rsch_3, rsch_4 : STRING[25] VAR plsch_1, plsch_2 : STRING[25] VAR data_type : INTEGER VAR real_value : REAL VAR string_value : STRING[17] VAR arg_int : INTEGER VAR arg_real : REAL BEGIN -- get integer value GET_TPE_PRM(1, data_type, arg_int, real_value, string_value, status) arg1 = arg_int GET_TPE_PRM(2, data_type, arg_int, real_value, string_value, status) arg2 = arg_int GET_TPE_PRM(3, data_type, arg_int, real_value, string_value, status) arg3 = arg_int -- get real value GET_TPE_PRM(4, data_type, arg_int, real_value, string_value, status) arg4 = real_value GET_TPE_PRM(5, data_type, arg_int, real_value, string_value, status) arg5 = real_value GET_TPE_PRM(6, data_type, arg_int, real_value, string_value, status) arg6 = real_value GET_TPE_PRM(7, data_type, arg_int, real_value, string_value, status) arg7 = real_value GET_TPE_PRM(8, data_type, arg_int, real_value, string_value, status) arg8 = real_value GET_TPE_PRM(9, data_type, arg_int, real_value, string_value, status) arg9 = real_value GET_TPE_PRM(10, data_type, arg_int, real_value, string_value, status) arg10 = real_value GET_TPE_PRM(11, data_type, arg_int, real_value, string_value, status) arg11 = real_value GET_TPE_PRM(12, data_type, arg_int, real_value, string_value, status) arg12 = real_value GET_TPE_PRM(13, data_type, arg_int, real_value, string_value, status) arg13 = real_value GET_TPE_PRM(14, data_type, arg_int, real_value, string_value, status) arg14 = real_value GET_TPE_PRM(15, data_type, arg_int, real_value, string_value, status) arg15 = real_value GET_TPE_PRM(16, data_type, arg_int, real_value, string_value, status) arg16 = real_value GET_TPE_PRM(17, data_type, arg_int, real_value, string_value, status) arg17 = real_value -- clear user screen -- WRITE (CHR(128),CHR(137)) -- for debuging - write arguments to user window -- -- WRITE('arg 1', arg1, ' ') -- WRITE('arg 2', arg2, ' ') -- WRITE('arg 3', arg3, CR) -- WRITE('arg 4', arg4, CR) -- WRITE('arg 5', arg5, ' ') -- WRITE('arg 6', arg6, CR) WRITE('arg 7', arg7, ' ') -- WRITE('arg 8', arg8, CR) -- WRITE('arg 9', arg9, ' ') -- WRITE('arg 10', arg10, CR) -- WRITE('arg 11', arg11, CR) -- WRITE('arg 12', arg12, CR) -- WRITE('arg 13', arg13, ' ') -- WRITE('arg 14', arg14, CR) -- WRITE('arg 15', arg15, CR) -- WRITE('arg 16', arg16, CR) -- WRITE('arg 17', arg17, CR) CNV_INT_STR(arg1,1,0,temp_a1) WRITE('temp', temp_a1, CR) temp_a1 = SUB_STR(temp_a1,2,1) -- WRITE('temp', temp_a1, CR) fname = 'AWE1WP0' + temp_a1 -- WRITE('fname ', fname, CR) -- -- *** temp_a2 = '' -- -- *** temp_a2 = SUB_STR(temp_a2,2,1) awwv = 'AWWV_MODE[' + temp_a2 + ']' awwv = 'AWWV_MODE[1]' -- -- WRITE('awwv ', awwv, CR) -- -- WRITE('awwv ', temp_a2, CR) CNV_INT_STR(arg3,1,0,temp_a3) temp_a3 = SUB_STR(temp_a3,2,1) CNV_INT_STR(arg2,1,0,temp_a2) temp_a2 = SUB_STR(temp_a2,2,1) awwv = 'AWWV_MODE[' + temp_a2 + ']' sch_1 = 'SCH[' + temp_a2 + ']' sch_1 = sch_1 + '.$CMD_VOLTS' -- WRITE('sch_1 ', sch_1, CR) sch_2 = 'SCH[' + temp_a2 + ']' sch_2 = sch_2 + '.$CMD_WFS' -- WRITE('sch_2 ', sch_2, CR) sch_3 = 'SCH[' + temp_a2 + ']' sch_3 = sch_3 + '.$CMD_AMPS' -- WRITE('sch_3 ', sch_3, CR) sch_4 = 'SCH[' + temp_a2 + ']' sch_4 = sch_4 + '.$CMD_WSPEED' -- WRITE('sch_4 ', sch_4, CR) lsch_1 = 'LSCH[' + temp_a2 + ']' lsch_1 = lsch_1 + '.$CMD_VOLTS' -- WRITE('lsch_1 ', lsch_1, CR) lsch_2 = 'LSCH[' + temp_a2 + ']' lsch_2 = lsch_2 + '.$CMD_WFS' -- WRITE('lsch_2 ', lsch_2, CR) lsch_3 = 'LSCH[' + temp_a2 + ']' lsch_3 = lsch_3 + '.$CMD_AMPS' -- WRITE('lsch_3 ', lsch_3, CR) lsch_4 = 'LSCH[' + temp_a2 + ']' lsch_4 = lsch_4 + '.$CMD_WSPEED' -- WRITE('lsch_4 ', sch_4, CR) rsch_1 = 'RSCH[' + temp_a2 + ']' rsch_1 = rsch_1 + '.$CMD_VOLTS' -- WRITE('rsch_1 ', rsch_1, CR) rsch_2 = 'RSCH[' + temp_a2 + ']' rsch_2 = rsch_2 + '.$CMD_WFS' -- WRITE('rsch_2 ', rsch_2, CR) rsch_3 = 'RSCH[' + temp_a2 + ']' rsch_3 = rsch_3 + '.$CMD_AMPS' -- WRITE('rsch_3 ', rsch_3, CR) rsch_4 = 'RSCH[' + temp_a2 + ']' rsch_4 = rsch_4 + '.$CMD_WSPEED' -- WRITE('rsch_4 ', rsch_4, CR) plsch_1 = 'PLSCH[' + temp_a2 + ']' plsch_1 = plsch_1 + '.$PULSE_FREQ' -- WRITE('plsch_1 ', plsch_1, CR) plsch_2 = 'PLSCH[' + temp_a2 + ']' plsch_2 = plsch_2 + '.$PULSE_DUTY' -- WRITE('plsch_2 ', plsch_2, CR) SET_VAR (entry, fname, awwv, arg3, STATUS) SET_VAR (entry, fname, sch_1, arg4, STATUS) SET_VAR (entry, fname, sch_2, arg5, STATUS) SET_VAR (entry, fname, sch_3, arg6, STATUS) SET_VAR (entry, fname, sch_4, arg7, STATUS) SET_VAR (entry, fname, lsch_1, arg8, STATUS) SET_VAR (entry, fname, lsch_2, arg9, STATUS) SET_VAR (entry, fname, lsch_3, arg10, STATUS) SET_VAR (entry, fname, lsch_4, arg11, STATUS) SET_VAR (entry, fname, rsch_1, arg12, STATUS) SET_VAR (entry, fname, rsch_2, arg13, STATUS) SET_VAR (entry, fname, rsch_3, arg14, STATUS) SET_VAR (entry, fname, rsch_4, arg15, STATUS) SET_VAR (entry, fname, plsch_1, arg16, STATUS) SET_VAR (entry, fname, plsch_2, arg17, STATUS) END SET_FA_WPP
Solved in Real number value *.0 can't be passed trought procedure CALL as real just as integer
You need to be a member in order to leave a comment
