Statistics: Posted by Gilsornette — 06 Jan 2024, 16:02

CODE:
var ButtonSave, ButtonLoad, FileName, Send_out, Msg_out : TParameter;var file_path, file_name, msg : String; var count : Integer; PROCEDURE PROCESS(); BEGIN IF(Send_out.asInteger = 1) THEN begin inc(count); IF(count>1) THEN BEGIN Send_out.asInteger(0); count := 0; end;end;END; PROCEDURE INIT();BEGIN ButtonSave := CreateParam('Save',ptButton,pioInput); ButtonLoad := CreateParam('Load',ptButton,pioInput); FileName := CreateParam('FileName',ptFileName,pioInput); Send_out := CreateParam('Send_out',ptTriggerLed,pioOutput); Msg_out := CreateParam('Msg_out',ptTextField,pioOutput);END; PROCEDURE SAVE_FILE;BEGINfile_path := FileName.AsString;file_name := (ExtractFileName(file_path));file_name := Copy(file_name,0,Pos('.',file_name)-1);msg := 'SET_TARGET_PATCH PGM' + ',' + 'SAVE_PATCH ' + '"' + file_path + '"' + ',' + 'RENAME_PATCH PGM';Msg_out.asString(msg);Send_out.asInteger(1);END; PROCEDURE LOAD_FILE;BEGINfile_path := FileName.AsString;file_name := (ExtractFileName(file_path));file_name := Copy(file_name,0,Pos('.',file_name)-1);msg := 'SET_TARGET_PATCH PGM' + ',' + 'LOAD_PATCH ' + '"' + file_path + '"' + ',' + 'RENAME_PATCH PGM';Msg_out.asString(msg);Send_out.asInteger(1);END; //CALLBACK PROCEDURE CALLBACK(N:INTEGER);BEGIN CASE N OF ButtonSave: Begin SAVE_FILE; End; ButtonLoad: Begin LOAD_FILE; End; FileName: Begin file_path := FileName.AsString; End; End;//END MAIN CASE END; Statistics: Posted by 23fx23 — 05 Jan 2024, 21:40
Statistics: Posted by 23fx23 — 05 Jan 2024, 18:44

Statistics: Posted by 23fx23 — 04 Jan 2024, 21:30
Statistics: Posted by Gilsornette — 27 Dec 2023, 17:11

Statistics: Posted by 23fx23 — 27 Dec 2023, 15:06
Statistics: Posted by Gilsornette — 19 Dec 2023, 21:43
Statistics: Posted by Gilsornette — 06 Jan 2024, 16:02

CODE:
var ButtonSave, ButtonLoad, FileName, Send_out, Msg_out : TParameter;var file_path, file_name, msg : String; var count : Integer; PROCEDURE PROCESS(); BEGIN IF(Send_out.asInteger = 1) THEN begin inc(count); IF(count>1) THEN BEGIN Send_out.asInteger(0); count := 0; end;end;END; PROCEDURE INIT();BEGIN ButtonSave := CreateParam('Save',ptButton,pioInput); ButtonLoad := CreateParam('Load',ptButton,pioInput); FileName := CreateParam('FileName',ptFileName,pioInput); Send_out := CreateParam('Send_out',ptTriggerLed,pioOutput); Msg_out := CreateParam('Msg_out',ptTextField,pioOutput);END; PROCEDURE SAVE_FILE;BEGINfile_path := FileName.AsString;file_name := (ExtractFileName(file_path));file_name := Copy(file_name,0,Pos('.',file_name)-1);msg := 'SET_TARGET_PATCH PGM' + ',' + 'SAVE_PATCH ' + '"' + file_path + '"' + ',' + 'RENAME_PATCH PGM';Msg_out.asString(msg);Send_out.asInteger(1);END; PROCEDURE LOAD_FILE;BEGINfile_path := FileName.AsString;file_name := (ExtractFileName(file_path));file_name := Copy(file_name,0,Pos('.',file_name)-1);msg := 'SET_TARGET_PATCH PGM' + ',' + 'LOAD_PATCH ' + '"' + file_path + '"' + ',' + 'RENAME_PATCH PGM';Msg_out.asString(msg);Send_out.asInteger(1);END; //CALLBACK PROCEDURE CALLBACK(N:INTEGER);BEGIN CASE N OF ButtonSave: Begin SAVE_FILE; End; ButtonLoad: Begin LOAD_FILE; End; FileName: Begin file_path := FileName.AsString; End; End;//END MAIN CASE END; Statistics: Posted by 23fx23 — 05 Jan 2024, 21:40
Statistics: Posted by 23fx23 — 05 Jan 2024, 18:44

Statistics: Posted by 23fx23 — 04 Jan 2024, 21:30
Statistics: Posted by Gilsornette — 27 Dec 2023, 17:11

Statistics: Posted by 23fx23 — 27 Dec 2023, 15:06
Statistics: Posted by Gilsornette — 19 Dec 2023, 21:43