DIY Robotics’ blog 

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 DIY-Robotics.com All rights reserved. ; 2:  --eg: ; 3:  --eg:Redistribution and use in source and binary forms, with or without ; 4:  --eg:modification, are permitted provided that the following conditions :  are ; 5:  --eg:met: ; 6:  --eg: ; 7:  --eg:Redistributions of source code must retain the above copyright ; 8:  --eg:notice, this list of conditions and the following disclaimer. ; 9:  --eg:Redistributions in binary form must reproduce the above ; 10:  --eg:copyright notice, this list of conditions and the following :  disclaimer ; 11:  --eg:in the documentation and/or other materials provided with the ; 12:  --eg:distribution. ; 13:  --eg:Neither the name of DIY-Robotics.com [...]

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 program PROG_LIST('*',7,0,1,ary_name,n_progs,status) FOR i = 1 TO n_progs DO -- Set flag is the program already exist IF (ary_name[i] = new_tp_name) THEN FLG[flg_id]=TRUE; ENDIF ENDFOR END PRG_EXIST

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 number -- Name of HTM page popupFileName = 'MD:POPUP.HTM' VAR popupFile: FILE term_char: INTEGER status: INTEGER BEGIN -- Create a HTM file with Text Zone and 2 buttons OPEN FILE popupFile ('RW', popupFileName) WRITE popupFile('<DIALOG posx="150" posy="150" width="360" height="180" bgcolor="#3A3B3B" >') WRITE popupFile('<DLGTILE posx="10" posy="10" width="340" height="75">') WRITE popupFile('<object classid="clsid:7106065C-0E45-11D3-81B6-0000E206D650" id="LABEL1">') WRITE popupFile(' <param name="Caption" value="'+messageStr+'">') WRITE popupFile('<param name="DataType" value="100">') WRITE popupFile('<param name="FontSize" value="28">') WRITE popupFile(' <param name="ForeColor" value="16777215">') WRITE popupFile(' <param name="Border" value="1">') WRITE popupFile('</object>') WRITE popupFile('</DLGTILE>') WRITE popupFile('<DLGTILE posx="20" posy="100" width="150" height="50" type="1">') WRITE popupFile('<object classid="clsid:7106066C-0E45-11D3-81B6-0000E206D650" id="TGBTN1">') WRITE popupFile('<param name="Caption" value="'+btn1Str+'">') WRITE popupFile(' <param name="DataType" value="'+DataType+'">') WRITE popupFile(' <param name="DataIndex" value="'+DataIndex+'">') WRITE [...]

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: ; 3:  --eg:Redistribution and use in source and binary forms, with or without ; 4:  --eg:modification, are permitted provided that the following conditions :  are ; 5:  --eg:met: ; 6:  --eg: ; 7:  --eg:Redistributions of source code must retain the above copyright ; 8:  --eg:notice, this list of conditions and the following disclaimer. ; 9:  --eg:Redistributions in binary form must reproduce the above ; 10:  --eg:copyright notice, this list of conditions and the following :  disclaimer ; 11:  --eg:in the documentation and/or other materials provided with the ; 12:  --eg:distribution. ; 13:  --eg:Neither the name of DIY-Robotics.com nor the names of its ; 14:  [...]

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: ; 3:  --eg:Redistribution and use in source and binary forms, with or without ; 4:  --eg:modification, are permitted provided that the following conditions :  are ; 5:  --eg:met: ; 6:  --eg: ; 7:  --eg:Redistributions of source code must retain the above copyright ; 8:  --eg:notice, this list of conditions and the following disclaimer. ; 9:  --eg:Redistributions in binary form must reproduce the above ; 10:  --eg:copyright notice, this list of conditions and the following :  disclaimer ; 11:  --eg:in the documentation and/or other materials provided with the ; 12:  --eg:distribution. ; 13:  --eg:Neither the name of DIY-Robotics.com nor the names of its ; 14:  [...]