Programming Templates

PROGRAMMATION TEMPLATE ZERO LANGUAGE: Karel CREATED: 2019 MODIFIED: 2019 CODE    /PROG  ZERO /ATTR OWNER  = MNEDITOR; COMMENT  = ""; PROG_SIZE = 1481; CREATE  = DATE 19-08-29  TIME 08:52:32; MODIFIED = DATE 19-11-21  TIME 11:37:10; FILE_NAME = ; VERSION  = 0; LINE_COUNT = 19; MEMORY_SIZE = 1777; PROTECT  = READ_WRITE; TCD:  STACK_SIZE = 0, TASK_PRIORITY = 50, TIME_SLICE = 0, BUSY_LAMP_OFF = 0, ABORT_REQUEST = 0, PAUSE_REQUEST = 0; DEFAULT_GROUP = 1,*,*,*,*; CONTROL_CODE = 00000000 00000000; /MN 1:  --eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ; 2:  [...]

Mch2 Interlock Off LANGUAGE: Karel CREATED: 2019-07-08 MODIFIED: 2019-11-21 CODE    /PROG  INTLK_OFF_MCH2 /ATTR OWNER  = MNEDITOR; COMMENT  = "Mch2 Interlock"; PROG_SIZE = 1347; CREATE  = DATE 19-07-08  TIME 22:14:20; MODIFIED = DATE 19-11-21  TIME 11:34:44; FILE_NAME = INTLK_OF; VERSION  = 0; LINE_COUNT = 25; MEMORY_SIZE = 1619; PROTECT  = READ_WRITE; TCD:  STACK_SIZE = 0, TASK_PRIORITY = 50, TIME_SLICE = 0, BUSY_LAMP_OFF = 0, ABORT_REQUEST = 0, PAUSE_REQUEST = 0; DEFAULT_GROUP = *,*,*,*,*; CONTROL_CODE = 00000000 00000000; /APPL AUTO_SINGULARITY_HEADER; ENABLE_SINGULARITY_AVOIDANCE   : TRUE; /MN 1:  --eg:Copyright (c) 2019 [...]

PRG_EXIST.kl This Karel program valid if a specific program name already exists in the robot. CODE    PROGRAM PRG_EXIST %NOPAUSE=ERROR+COMMAND+TPENABLE %NOBUSYLAMP %NOLOCKGROUP %NOPAUSESHFT CONST flg_id = 1-- Flag number that will be set when the program exist str_reg_id =1-- String Register number to compare VAR ary_name: ARRAY[200] OF STRING[64] new_tp_name: STRING[64] n_progs: INTEGER i,status: INTEGER BEGIN --Reset Flag FLG[flg_id] = FALSE -- Get String Register Value GET_STR_REG(str_reg_id,new_tp_name,status) -- Get the list of all TP [...]

YesNoPopup.kl Here's an example of a program that shows a popup "Yes or No" in the teach pendant. CODE    PROGRAM YesNoPopup %NOPAUSE=ERROR+COMMAND+TPENABLE %NOBUSYLAMP %NOLOCKGROUP %ENVIRONMENT uif %INCLUDE klevkmsk CONST -- Text to display in popup messageStr = 'Yes or no?' -- Message btn1Str = 'No' -- First button btn2Str = 'Yes' -- Second button -- Type of data to set DataType = '35' -- 35 is Flag DataIndex = '1' -- Flag [...]

Alarms Management LANGUAGE: Karel CREATED: 2019-01-01 MODIFIED: 2019-01-01 CODE    /PROG  BGLALARMS /ATTR OWNER  = MNEDITOR; COMMENT  = "Gestion Alarmes"; PROG_SIZE = 2010; CREATE  = DATE 19-11-21  TIME 11:25:58; MODIFIED = DATE 19-11-21  TIME 11:33:28; FILE_NAME = ; VERSION  = 0; LINE_COUNT = 85; MEMORY_SIZE = 2298; PROTECT  = READ_WRITE; TCD:  STACK_SIZE = 0, TASK_PRIORITY = 50, TIME_SLICE = 0, BUSY_LAMP_OFF = 0, ABORT_REQUEST = 0, PAUSE_REQUEST = 0; DEFAULT_GROUP = *,*,*,*,*; CONTROL_CODE = 00000000 00000000; /MN 1:  --eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ; 2:  --eg: [...]

Lights Management LANGUAGE: Karel CREATED: 2019-01-01 MODIFIED: 2019-01-01 CODE    /PROG  BGLLIGHT /ATTR OWNER  = MNEDITOR; COMMENT  = "Gestion Lumières"; PROG_SIZE = 1986; CREATE  = DATE 16-04-14  TIME 10:30:18; MODIFIED = DATE 19-11-21  TIME 11:34:06; FILE_NAME = ; VERSION  = 0; LINE_COUNT = 61; MEMORY_SIZE = 2242; PROTECT  = READ_WRITE; TCD:  STACK_SIZE = 0, TASK_PRIORITY = 50, TIME_SLICE = 0, BUSY_LAMP_OFF = 0, ABORT_REQUEST = 0, PAUSE_REQUEST = 0; DEFAULT_GROUP = *,*,*,*,*; CONTROL_CODE = 00000000 00000000; /MN 1:  --eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ; 2:  --eg: [...]

Prog z_main LANGUAGE: Karel CREATED: 2016-02-08 MODIFIED: 2019-11-21 CODE    /PROG  Z_MAIN /ATTR OWNER  = MNEDITOR; COMMENT  = ""; PROG_SIZE = 1932; CREATE  = DATE 16-02-08  TIME 12:48:42; MODIFIED = DATE 19-11-21  TIME 11:36:30; FILE_NAME = ; VERSION  = 0; LINE_COUNT = 71; MEMORY_SIZE = 2424; PROTECT  = READ_WRITE; TCD:  STACK_SIZE = 0, TASK_PRIORITY = 50, TIME_SLICE = 0, BUSY_LAMP_OFF = 0, ABORT_REQUEST = 0, PAUSE_REQUEST = 0; DEFAULT_GROUP = 1,*,*,*,*; CONTROL_CODE = 00000000 00000000; /MN 1:  --eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ; 2:  --eg: [...]

Standard Logic LANGUAGE: Karel CREATED: 2019-10-15 MODIFIED: 2019-11-21 CODE    /PROG  BGLOGIC1 /ATTR OWNER  = MNEDITOR; COMMENT  = "StandardLogic"; PROG_SIZE = 2679; CREATE  = DATE 19-10-15  TIME 12:57:46; MODIFIED = DATE 19-11-21  TIME 11:34:16; FILE_NAME = BGLOGIC1; VERSION  = 0; LINE_COUNT = 73; MEMORY_SIZE = 3079; PROTECT  = READ_WRITE; TCD:  STACK_SIZE = 0, TASK_PRIORITY = 50, TIME_SLICE = 0, BUSY_LAMP_OFF = 0, ABORT_REQUEST = 0, PAUSE_REQUEST = 0; DEFAULT_GROUP = *,*,*,*,*; CONTROL_CODE = 00000000 00000000; /APPL AUTO_SINGULARITY_HEADER; ENABLE_SINGULARITY_AVOIDANCE   : TRUE; /MN 1:  --eg:Copyright (c) 2019 DIY-Robotics.com All [...]

Start/Restart Lock Cell LANGUAGE: Karel CREATED: 2017-04-20 MODIFIED: 2019-11-21 CODE    /PROG  BSTARTRESETLOCK /ATTR OWNER  = MNEDITOR; COMMENT  = "StartResLockCell"; PROG_SIZE = 3126; CREATE  = DATE 17-04-20  TIME 09:14:42; MODIFIED = DATE 19-11-21  TIME 11:34:24; FILE_NAME = BGLSTART; VERSION  = 0; LINE_COUNT = 114; MEMORY_SIZE = 3458; PROTECT  = READ_WRITE; TCD:  STACK_SIZE = 0, TASK_PRIORITY = 50, TIME_SLICE = 0, BUSY_LAMP_OFF = 0, ABORT_REQUEST = 0, PAUSE_REQUEST = 0; DEFAULT_GROUP = *,*,*,*,*; CONTROL_CODE = 00000000 00000000; /APPL /MN 1:  --eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ; [...]

Pro Home_Direct LANGUAGE: Karel CREATED: 2019-07-08 MODIFIED: 2019-11-22 CODE    /PROG  HOME_DIRECT   Macro /ATTR OWNER  = MNEDITOR; COMMENT  = ""; PROG_SIZE = 1090; CREATE  = DATE 19-07-08  TIME 21:51:32; MODIFIED = DATE 19-11-22  TIME 08:02:42; FILE_NAME = ; VERSION  = 0; LINE_COUNT = 20; MEMORY_SIZE = 1390; PROTECT  = READ_WRITE; TCD:  STACK_SIZE = 0, TASK_PRIORITY = 50, TIME_SLICE = 0, BUSY_LAMP_OFF = 0, ABORT_REQUEST = 0, PAUSE_REQUEST = 0; DEFAULT_GROUP = 1,*,*,*,*; CONTROL_CODE = 00000000 00000000; /MN 1:  --eg:Copyright (c) 2019 DIY-Robotics.com All rights reserved. ; 2:  [...]