As far as I know there is no way to pass TPE arguments from KAREL. Maybe there is a secret builtin for that.
You could write a simple wrapper that uses registers e.g.
MHPRMPTY_WRAPPER.TP:
CALL MHPRMPTY(R[x],R[y]) ;
Then just set R[x] and R[y] from KAREL before using CALL_PROG.
This will work. I have used this in the past.
PROGRAM TPP_ARG
%COMMENT = 'TPP Arg to Karel'
VAR
arg : INTEGER
-- Dummy Variables for Karel Built-Ins
Dummy_Int : INTEGER
Dummy_Rel : REAL
Dummy_Str : STRING[10]
STATUS : INTEGER
--------------------------------------------------------------------------
--- Main Program ---
--------------------------------------------------------------------------
BEGIN
-- Use the Get-Parameter Built-In to read the TPP Arguement
-- |-- Parameter Number (Arguement Number)
-- | |-- Data Type (1-INTEGER, 2-REAL, 3-STRING)
-- | | |-- value of the parameter if the data_type is INTEGER
-- | | | |-- value of the parameter if the data_type is REAL
-- | | | | |-- value of the parameter if the data_type is STRING
-- V V V V V V-- return status
GET_TPE_PRM(1, 1, arg, Dummy_Rel, Dummy_Str, STATUS)
-- Display Arguement Value on the Teach Pendant
WRITE('value of arguement:', arg, CR)
--------------------------------------------------------------------------
END TPP_ARGThis will work. I have used this in the past.
CodePROGRAM TPP_ARG %COMMENT = 'TPP Arg to Karel' VAR arg : INTEGER -- Dummy Variables for Karel Built-Ins Dummy_Int : INTEGER Dummy_Rel : REAL Dummy_Str : STRING[10] STATUS : INTEGER -------------------------------------------------------------------------- --- Main Program --- -------------------------------------------------------------------------- BEGIN -- Use the Get-Parameter Built-In to read the TPP Arguement -- |-- Parameter Number (Arguement Number) -- | |-- Data Type (1-INTEGER, 2-REAL, 3-STRING) -- | | |-- value of the parameter if the data_type is INTEGER -- | | | |-- value of the parameter if the data_type is REAL -- | | | | |-- value of the parameter if the data_type is STRING -- V V V V V V-- return status GET_TPE_PRM(1, 1, arg, Dummy_Rel, Dummy_Str, STATUS) -- Display Arguement Value on the Teach Pendant WRITE('value of arguement:', arg, CR) -------------------------------------------------------------------------- END TPP_ARG
that' great!
Below I show you how to pass arguments from Karel to Karel, not sure if you can pass arguments from Karel to TP.
In Karel you cannot pass arguments from one Karel program to another Karel program exactly like you do in a TP program eg CALL GET_AREA(2,5);
The answer is to use the ROUTINE function. This function is surprisingly well explained in the Karel reference manual.
The examples below show the basic concept:
Program MATH_LIB
ROUTINE GET_AREA(length: REAL; width: REAL; area: REAL)
BEGIN
area = length * width
END GET_AREA
BEGIN
--Main body of program.
-- Can be empty
END MATH_LIB
Program TEST
VAR
area: REAL
--declare the routine like it is a variable
ROUTINE GET_AREA(length: REAL; width: REAL; area: REAL) FROM MATH_LIB
BEGIN
GET_AREA(2,2,area) -- pass 'area' by reference
WRITE(’Area = ’, area, CR) -- Print: Area = 4
END TEST
Note you can also make the ROUTINE return a value, instead of passing a variable by reference. eg.
ROUTINE GET_AREA(length: REAL; width: REAL) : REAL
VAR area: REAL
BEGIN
area = length * width
RETURN (area)
RETURN (length * width) -- Maybe this works too
END GET_AREA
Program TEST2
VAR
area: REAL
ROUTINE GET_AREA(length: REAL; width: REAL) : REAL FROM MATH_LIB
BEGIN
area = GET_AREA(2,2) -- Returns a number
WRITE(’Area = ’, area, CR) -- Print: Area = 4
END TEST2
