[TP_VIEW]CMD_LIST Storage: DRAM Access: RW : CMD_LIST_T = 18 | Field: CMD_LIST.HELP Access: RW: INTEGER = 11 19 | ... 20 | Field: CMD_LIST.WIDE_USER Access: RW: INTEGER = 17 21 | Field: CMD_LIST.SCREEN.SINGLE Access: RW: INTEGER = 21 22 | Field: CMD_LIST.SCREEN.WIDE Access: RW: INTEGER = 22 23 | ... 24 |25 | --- 26 | **Karel-Code:** Ermittelt die Befehls-ID, indem sie aus dem ersten TP-Argument extrahiert wird 27 | 28 | CMD.CURR.ID = getINTByNam('CMD_LIST.'+ GET_TPE_STR(1)) 29 | --- 30 | 31 | Der "Trick" ist, dass wir auf die Variable *cmd_list* **'BYNAME-builtin'** zugreifen. 32 | 33 | Wir benötigen nur eine einfache Stringberechnung, um eine Befehls-ID zu erhalten. 34 | Wenn man versucht, einen "Befehl" mit einer ungültigen Befehlszeichenfolge wie "HELO" statt "HELP" aufzurufen, erhält der Benutzer eine einfache, aber informative (System-)Fehlermeldung. 35 | 36 | Die Verwendung von Befehls-IDs ist weit verbreitet, weil sie schnell(!) und einfach ist (meistens). Der Nachteil ist, dass der (Benutzer/Entwickler) mit Nummern statt mit 'benannten' Befehlen umgehen muss. 37 | 38 | Der Vorteil des Zugriffs auf Befehle mit **'BYNAME-builtin'** ist, dass es schnell UND einfach für 39 | **Entwickler und Benutzer** ist! 40 | 41 | ## Hilfe System 42 | 43 | Es gibt eine zweite Variable namens [TP_VIEW]CMD_HELP mit derselben Struktur, aber vom Typ string. 44 | Dieser String enthält eine kleine befehlsspezifische Hilfe. 45 | 46 |
[TP_VIEW]CMD_HELP Speicherung: DRAM Zugriff: RW : CMD_HELP_T =
47 | Feld: CMD_HELP.HELP Zugriff: RW: STRING[64] = 'TP_VIEW('HELP'); zeige Web_Hilfe dieses Programms'
48 |
49 |
50 | Es ist also immer(!) eine einfache Hilfe im Programm enthalten.
51 | Es ist möglich, über die Web-Ausführung dieses Programms auf die va-Datei zuzugreifen, z.B.
52 |
53 | _hostname_/karel/tp_view
54 |
55 | Die va-Datei und auch eine optionale Befehls-Referenz-Datei werden dynamisch in die Web-Hilfe eingebunden!
--------------------------------------------------------------------------------
/.DeepDive.md:
--------------------------------------------------------------------------------
1 | 
2 | ## technical deep dive
3 |
4 |
5 | *TP_VIEW* uses command strings to execute given task.
6 |
7 | These strings are based on internal variable(cmd_list) with command ID.
8 |
9 | - some commands require several parameters/arguments.
10 | - simple commands are called or executed with a string containing the command name or by ID.
11 | - :CALL TP_VIEW('HELP') or :CALL TP_VIEW(11);
12 | - commands of same functional group have the group name separated by a dot from the command name.
13 | - :CALL TP_VIEW('FORCE.VIEW');
14 |
15 | **CMD_LIST Variable:**
16 |
17 | [TP_VIEW]CMD_LIST Storage: DRAM Access: RW : CMD_LIST_T = 18 | Field: CMD_LIST.HELP Access: RW: INTEGER = 11 19 | ... 20 | Field: CMD_LIST.WIDE_USER Access: RW: INTEGER = 17 21 | Field: CMD_LIST.SCREEN.SINGLE Access: RW: INTEGER = 21 22 | Field: CMD_LIST.SCREEN.WIDE Access: RW: INTEGER = 22 23 | ... 24 |25 | --- 26 | **Karel code:** get the command id by extracting it from the first TP argument 27 | 28 | CMD.CURR.ID = getINTByNam('CMD_LIST.'+ GET_TPE_STR(1)) 29 | --- 30 | The key is that we access the *cmd_list* variable **'BYNAME-builtin'**. 31 | 32 | In fact we need only one simple string computation to get a command ID. 33 | When trying to access a 'command' using a invalid command string like 'HELO' instead of 'HELP' the user gets a simple but informative (system) error message. 34 | 35 | Using command id's is quite common because it's fast(!) and easy(mostly). The downside is that the (user/dev) has to deal with numbers instead of 'named' commands only. 36 | 37 | The benefit of accessing commands **'BYNAME-builtin'** is that it's fast AND easy for **devs and users**! 38 | 39 | ## HELP SYSTEM 40 | 41 | There is a second variable called [TP_VIEW]CMD_HELP with same structure, but of type string. 42 | This string contains little command specific help. 43 | 44 |
[TP_VIEW]CMD_HELP Storage: DRAM Access: RW : CMD_HELP_T =
45 | Field: CMD_HELP.HELP Access: RW: STRING[64] = 'TP_VIEW('HELP'); show web_help of this program'
46 |
47 |
48 | So there is always(!)a simple help included inside the prog.
49 | It is possible to acces the va- file via web execution of this program like
50 |
51 | _hostname_/karel/tp_view
52 |
53 | The va-file and also an optional command-reference-file are included dynamically to the web help!
54 |
55 |
--------------------------------------------------------------------------------
/.gitignore:
--------------------------------------------------------------------------------
1 | *.code-workspace
2 | *.bat
3 | *.py
4 | *.url
5 | *.tp
6 | *.exe
7 | *.ini
8 | *.zip
9 | .gitignore
--------------------------------------------------------------------------------
/2reg/V1010/atan22reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V1010/atan22reg.pc
--------------------------------------------------------------------------------
/2reg/V1010/cos2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V1010/cos2reg.pc
--------------------------------------------------------------------------------
/2reg/V1010/ord2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V1010/ord2reg.pc
--------------------------------------------------------------------------------
/2reg/V1010/ping2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V1010/ping2reg.pc
--------------------------------------------------------------------------------
/2reg/V1010/sin2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V1010/sin2reg.pc
--------------------------------------------------------------------------------
/2reg/V1010/sqrt2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V1010/sqrt2reg.pc
--------------------------------------------------------------------------------
/2reg/V1010/tan2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V1010/tan2reg.pc
--------------------------------------------------------------------------------
/2reg/V810/atan22reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V810/atan22reg.pc
--------------------------------------------------------------------------------
/2reg/V810/cos2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V810/cos2reg.pc
--------------------------------------------------------------------------------
/2reg/V810/ord2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V810/ord2reg.pc
--------------------------------------------------------------------------------
/2reg/V810/ping2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V810/ping2reg.pc
--------------------------------------------------------------------------------
/2reg/V810/sin2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V810/sin2reg.pc
--------------------------------------------------------------------------------
/2reg/V810/sqrt2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V810/sqrt2reg.pc
--------------------------------------------------------------------------------
/2reg/V810/tan2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V810/tan2reg.pc
--------------------------------------------------------------------------------
/2reg/V910/atan22reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V910/atan22reg.pc
--------------------------------------------------------------------------------
/2reg/V910/cos2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V910/cos2reg.pc
--------------------------------------------------------------------------------
/2reg/V910/ord2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V910/ord2reg.pc
--------------------------------------------------------------------------------
/2reg/V910/ping2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V910/ping2reg.pc
--------------------------------------------------------------------------------
/2reg/V910/sin2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V910/sin2reg.pc
--------------------------------------------------------------------------------
/2reg/V910/sqrt2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V910/sqrt2reg.pc
--------------------------------------------------------------------------------
/2reg/V910/tan2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V910/tan2reg.pc
--------------------------------------------------------------------------------
/2reg/V940/PING2REG.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V940/PING2REG.pc
--------------------------------------------------------------------------------
/2reg/V940/atan22reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V940/atan22reg.pc
--------------------------------------------------------------------------------
/2reg/V940/cos2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V940/cos2reg.pc
--------------------------------------------------------------------------------
/2reg/V940/ord2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V940/ord2reg.pc
--------------------------------------------------------------------------------
/2reg/V940/sin2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V940/sin2reg.pc
--------------------------------------------------------------------------------
/2reg/V940/sqrt2REG.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V940/sqrt2REG.pc
--------------------------------------------------------------------------------
/2reg/V940/tan2REG.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/V940/tan2REG.pc
--------------------------------------------------------------------------------
/2reg/rand2reg/V1010/rand2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/rand2reg/V1010/rand2reg.pc
--------------------------------------------------------------------------------
/2reg/rand2reg/V810/rand2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/rand2reg/V810/rand2reg.pc
--------------------------------------------------------------------------------
/2reg/rand2reg/V910/rand2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/rand2reg/V910/rand2reg.pc
--------------------------------------------------------------------------------
/2reg/rand2reg/V940/rand2reg.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/rand2reg/V940/rand2reg.pc
--------------------------------------------------------------------------------
/2reg/rand2reg/assets/Random_Simple.gif:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/2reg/rand2reg/assets/Random_Simple.gif
--------------------------------------------------------------------------------
/2reg/rand2reg/rand2reg_EXAMPLE.ls:
--------------------------------------------------------------------------------
1 | /PROG rand2reg_example
2 | /ATTR
3 | OWNER = MNEDITOR;
4 | PROTECT = READ_WRITE;
5 | DEFAULT_GROUP = *,*,*,*,*;
6 | CONTROL_CODE = 00000000 00000000;
7 | /APPL
8 | /MN
9 | 1: ! PROGRAM "RAND2REG" ;
10 | 2: !set a random value ;
11 | 3: !to a register;
12 | 4: ;
13 | 5: !no AR : ;
14 | 5: !shows int. Help and aborts ;
15 | 6: CALL rand2reg ;
16 | 7: ;
17 | 8: WAIT (OFF) ;
18 | 9: !AR[1] : MIN Value ;
19 | 10: !AR[2] : MAX Value ;
20 | 11: CALL RAND2REG(10,15,1) ;
21 | 12: PAUSE ;
22 | 13: CALL RAND2REG(10.01,149.67,2) ;
23 | 12: PAUSE ;
24 | 13: CALL RAND2REG(10,149.67,3) ;
25 | /POS
26 | /END
27 |
--------------------------------------------------------------------------------
/2reg/rand2reg/readme.md:
--------------------------------------------------------------------------------
1 | **source file of RAND2REG_Info.html**
2 | # RAND2REG README
3 | Program to set a random value to a numeric register.
4 | Linear Congruence method is used.
5 |
6 | Teach Pendant usage:
7 | : CALL RAND2REG(MIN;MAX;RegID);
8 | MIN: minimum value; REAL or INT
9 | MAX: maximum value; REAL or INT
10 | RegID:register for random value
11 | (reg type from MIN value)
12 |
13 | **FREE for commercial use**
14 |
15 | **© Backdate Software GmbH**
16 |
17 | ---
18 |
19 | 
20 |
21 | ## Details
22 |
23 | At the bottom the program uses this snippet für generating the pseudo random number:
24 |
25 | ..
26 | RANDOM.INCREMENT = 13849;
27 | RANDOM.MODULUS = 65536;
28 | RANDOM.MULTIPLIER = 25173;
29 | RANDOM.seed=$FAST_CLOCK;
30 | -- R-50iA :GET_TIME ( RANDOM.seed)
31 | ..
32 |
33 | ROUTINE RAND(SEED:INTEGER;MULTIPLIER:INTEGER;
34 | INCREMENT:INTEGER;MODULUS:INTEGER): REAL
35 | BEGIN
36 | SEED = (SEED * MULTIPLIER + INCREMENT) MOD MODULUS
37 | RETURN((SEED/65535.0))
38 | END RAND
39 |
40 | At (first time) startup, SEED gets initialized by '$FAST_CLOCK'. (only if "isINIT" is *UNINITIALIZED*; e.g. cold start)
41 |
42 | **On R-50iA controller the Integer-Value of GET_TIME is used instead.**
43 |
44 |
45 | ### Return Value Type
46 | The **MIN value type** sets the type of output register!
47 | * Change this behavior by modifying "asREAL" variable to true.
48 |
49 | :!TP-Prog (local vars/parameter);
50 | :$[RAND2REG]RANDOM.asREAL =1;
51 |
52 |
53 |
54 | ### Example:
55 | : !TP-Prog;
56 | : !AR[1] : MIN Value ;
57 | : !AR[2] : MAX Value ;
58 | : CALL RAND2REG(10,15,1) ;
59 | : PAUSE ;
60 | : CALL RAND2REG(10.01,149.67,2) ;
61 | : PAUSE ;
62 | : CALL RAND2REG(10,149.67,3) ;
63 |
64 | ### Quality
65 | **You are able to change SEED,INCREMENT,MULTIPLIER**
66 |
67 | Just change the karel-vars to your needs.
68 |
69 | :!TP-Prog (local vars/parameter);
70 | :$[RAND2REG]RANDOM.INCREMENT =...;
71 | :$[RAND2REG]RANDOM.MULTIPLIER = ...;
72 | :$[RAND2REG]RANDOM.seed=$FAST_CLOCK;
73 |
74 | **Sys-Vars are not accessible on R-50iA**
75 |
76 |
77 | ### Resources
78 | https://ntci.on.ca/compsci/tik/ch8/8_4.htm
79 |
80 | https://coding-engineer.com/2019/10/28/random-number-generator-python/
81 |
82 |
83 | ---
84 | ---
85 |
86 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND
87 |
88 | ---
89 | - Fanuc is a registered trademark
90 | ---
91 | (c) Backdate Software GmbH
92 |
--------------------------------------------------------------------------------
/2reg/readme.md:
--------------------------------------------------------------------------------
1 | # 2REG PROGS
2 | Simple Programs with one dedicated function.
3 |
4 | **Program will ABORT when invalid RegIndex is passed**
5 |
6 | ## Result to Register Progs:
7 |
8 | - **sin2REG** --> sine to register
9 | - e.g. : CALL SIN2REG(33.5,1) ;
10 | - **cos2REG** --> cosine to register
11 | - e.g. : CALL COS2REG(33.5,2) ;
12 | - **atan22REG** --> atan2 to register
13 | - e.g. : CALL ATAN22REG((-100),100,3) ;
14 | - **sqrt2REG** --> square root to register
15 | - e.g. : CALL SQRT2REG(33.5,4) ;
16 | - **rand2reg** --> random to register
17 | - e.g. : CALL rand2reg(33.5,100,4,45) ;
18 | - check subfolder for info
19 | - **ping2reg** --> ping a host/IP and write result to reg
20 | - e.g. : CALL ping2reg('192.168.1.1',1) ;
21 | - needed option: User Socket Msg (R648)
22 | - Error INTP-320 Undefined builtin if not installed
23 | - Result value 1 : successfull ping
24 | - Result value 0 : no successfull ping
25 | - **ord2reg** --> numeric ASCII code from given char to register
26 | - e.g. : CALL ord2reg('ABCDE123,2,1) ;
27 | - will write 66 to register 1, because second(2) Char of string is 'B'
28 |
29 | ### Local Register
30 |
31 | *R30iBPlus V940 / R-50iA V1010* progs support writing to **local register** of calling TP prog.
32 |
33 | *Local regs are setup in **detail** screen of selected tp prog*
34 |
35 | : CALL ord2reg('ABCDE123,2,10001) ;
36 | : IF R[10001]..... ;
37 | ---
38 | ---
39 |
40 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND
41 |
42 | ---
43 | - Fanuc is a registered trademark
44 | ---
45 | (c) Backdate Software GmbH
--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
1 | # CC BY-ND 4.0
2 | Creative Commons Attribution-NoDerivatives 4.0 International Public License
3 | By exercising the Licensed Rights (defined below), You accept and agree to be bound by the terms and conditions of this Creative Commons Attribution-NoDerivatives 4.0 International Public License ("Public License"). To the extent this Public License may be interpreted as a contract, You are granted the Licensed Rights in consideration of Your acceptance of these terms and conditions, and the Licensor grants You such rights in consideration of benefits the Licensor receives from making the Licensed Material available under these terms and conditions.
4 |
5 | Section 1 – Definitions.
6 |
7 | Adapted Material means material subject to Copyright and Similar Rights that is derived from or based upon the Licensed Material and in which the Licensed Material is translated, altered, arranged, transformed, or otherwise modified in a manner requiring permission under the Copyright and Similar Rights held by the Licensor. For purposes of this Public License, where the Licensed Material is a musical work, performance, or sound recording, Adapted Material is always produced where the Licensed Material is synched in timed relation with a moving image.
8 | Copyright and Similar Rights means copyright and/or similar rights closely related to copyright including, without limitation, performance, broadcast, sound recording, and Sui Generis Database Rights, without regard to how the rights are labeled or categorized. For purposes of this Public License, the rights specified in Section 2(b)(1)-(2) are not Copyright and Similar Rights.
9 | Effective Technological Measures means those measures that, in the absence of proper authority, may not be circumvented under laws fulfilling obligations under Article 11 of the WIPO Copyright Treaty adopted on December 20, 1996, and/or similar international agreements.
10 | Exceptions and Limitations means fair use, fair dealing, and/or any other exception or limitation to Copyright and Similar Rights that applies to Your use of the Licensed Material.
11 | Licensed Material means the artistic or literary work, database, or other material to which the Licensor applied this Public License.
12 | Licensed Rights means the rights granted to You subject to the terms and conditions of this Public License, which are limited to all Copyright and Similar Rights that apply to Your use of the Licensed Material and that the Licensor has authority to license.
13 | Licensor means the individual(s) or entity(ies) granting rights under this Public License.
14 | Share means to provide material to the public by any means or process that requires permission under the Licensed Rights, such as reproduction, public display, public performance, distribution, dissemination, communication, or importation, and to make material available to the public including in ways that members of the public may access the material from a place and at a time individually chosen by them.
15 | Sui Generis Database Rights means rights other than copyright resulting from Directive 96/9/EC of the European Parliament and of the Council of 11 March 1996 on the legal protection of databases, as amended and/or succeeded, as well as other essentially equivalent rights anywhere in the world.
16 | You means the individual or entity exercising the Licensed Rights under this Public License. Your has a corresponding meaning.
17 | Section 2 – Scope.
18 |
19 | License grant.
20 | Subject to the terms and conditions of this Public License, the Licensor hereby grants You a worldwide, royalty-free, non-sublicensable, non-exclusive, irrevocable license to exercise the Licensed Rights in the Licensed Material to:
21 | reproduce and Share the Licensed Material, in whole or in part; and
22 | produce and reproduce, but not Share, Adapted Material.
23 | Exceptions and Limitations. For the avoidance of doubt, where Exceptions and Limitations apply to Your use, this Public License does not apply, and You do not need to comply with its terms and conditions.
24 | Term. The term of this Public License is specified in Section 6(a).
25 | Media and formats; technical modifications allowed. The Licensor authorizes You to exercise the Licensed Rights in all media and formats whether now known or hereafter created, and to make technical modifications necessary to do so. The Licensor waives and/or agrees not to assert any right or authority to forbid You from making technical modifications necessary to exercise the Licensed Rights, including technical modifications necessary to circumvent Effective Technological Measures. For purposes of this Public License, simply making modifications authorized by this Section 2(a)(4) never produces Adapted Material.
26 | Downstream recipients.
27 | Offer from the Licensor – Licensed Material. Every recipient of the Licensed Material automatically receives an offer from the Licensor to exercise the Licensed Rights under the terms and conditions of this Public License.
28 | No downstream restrictions. You may not offer or impose any additional or different terms or conditions on, or apply any Effective Technological Measures to, the Licensed Material if doing so restricts exercise of the Licensed Rights by any recipient of the Licensed Material.
29 | No endorsement. Nothing in this Public License constitutes or may be construed as permission to assert or imply that You are, or that Your use of the Licensed Material is, connected with, or sponsored, endorsed, or granted official status by, the Licensor or others designated to receive attribution as provided in Section 3(a)(1)(A)(i).
30 | Other rights.
31 |
32 | Moral rights, such as the right of integrity, are not licensed under this Public License, nor are publicity, privacy, and/or other similar personality rights; however, to the extent possible, the Licensor waives and/or agrees not to assert any such rights held by the Licensor to the limited extent necessary to allow You to exercise the Licensed Rights, but not otherwise.
33 | Patent and trademark rights are not licensed under this Public License.
34 | To the extent possible, the Licensor waives any right to collect royalties from You for the exercise of the Licensed Rights, whether directly or through a collecting society under any voluntary or waivable statutory or compulsory licensing scheme. In all other cases the Licensor expressly reserves any right to collect such royalties.
35 | Section 3 – License Conditions.
36 |
37 | Your exercise of the Licensed Rights is expressly made subject to the following conditions.
38 |
39 | Attribution.
40 |
41 | If You Share the Licensed Material, You must:
42 |
43 | retain the following if it is supplied by the Licensor with the Licensed Material:
44 | identification of the creator(s) of the Licensed Material and any others designated to receive attribution, in any reasonable manner requested by the Licensor (including by pseudonym if designated);
45 | a copyright notice;
46 | a notice that refers to this Public License;
47 | a notice that refers to the disclaimer of warranties;
48 | a URI or hyperlink to the Licensed Material to the extent reasonably practicable;
49 | indicate if You modified the Licensed Material and retain an indication of any previous modifications; and
50 | indicate the Licensed Material is licensed under this Public License, and include the text of, or the URI or hyperlink to, this Public License.
51 | For the avoidance of doubt, You do not have permission under this Public License to Share Adapted Material.
52 | You may satisfy the conditions in Section 3(a)(1) in any reasonable manner based on the medium, means, and context in which You Share the Licensed Material. For example, it may be reasonable to satisfy the conditions by providing a URI or hyperlink to a resource that includes the required information.
53 | If requested by the Licensor, You must remove any of the information required by Section 3(a)(1)(A) to the extent reasonably practicable.
54 | Section 4 – Sui Generis Database Rights.
55 |
56 | Where the Licensed Rights include Sui Generis Database Rights that apply to Your use of the Licensed Material:
57 |
58 | for the avoidance of doubt, Section 2(a)(1) grants You the right to extract, reuse, reproduce, and Share all or a substantial portion of the contents of the database, provided You do not Share Adapted Material;
59 | if You include all or a substantial portion of the database contents in a database in which You have Sui Generis Database Rights, then the database in which You have Sui Generis Database Rights (but not its individual contents) is Adapted Material; and
60 | You must comply with the conditions in Section 3(a) if You Share all or a substantial portion of the contents of the database.
61 | For the avoidance of doubt, this Section 4 supplements and does not replace Your obligations under this Public License where the Licensed Rights include other Copyright and Similar Rights.
62 | Section 5 – Disclaimer of Warranties and Limitation of Liability.
63 |
64 | Unless otherwise separately undertaken by the Licensor, to the extent possible, the Licensor offers the Licensed Material as-is and as-available, and makes no representations or warranties of any kind concerning the Licensed Material, whether express, implied, statutory, or other. This includes, without limitation, warranties of title, merchantability, fitness for a particular purpose, non-infringement, absence of latent or other defects, accuracy, or the presence or absence of errors, whether or not known or discoverable. Where disclaimers of warranties are not allowed in full or in part, this disclaimer may not apply to You.
65 | To the extent possible, in no event will the Licensor be liable to You on any legal theory (including, without limitation, negligence) or otherwise for any direct, special, indirect, incidental, consequential, punitive, exemplary, or other losses, costs, expenses, or damages arising out of this Public License or use of the Licensed Material, even if the Licensor has been advised of the possibility of such losses, costs, expenses, or damages. Where a limitation of liability is not allowed in full or in part, this limitation may not apply to You.
66 | The disclaimer of warranties and limitation of liability provided above shall be interpreted in a manner that, to the extent possible, most closely approximates an absolute disclaimer and waiver of all liability.
67 | Section 6 – Term and Termination.
68 |
69 | This Public License applies for the term of the Copyright and Similar Rights licensed here. However, if You fail to comply with this Public License, then Your rights under this Public License terminate automatically.
70 | Where Your right to use the Licensed Material has terminated under Section 6(a), it reinstates:
71 |
72 | automatically as of the date the violation is cured, provided it is cured within 30 days of Your discovery of the violation; or
73 | upon express reinstatement by the Licensor.
74 | For the avoidance of doubt, this Section 6(b) does not affect any right the Licensor may have to seek remedies for Your violations of this Public License.
75 | For the avoidance of doubt, the Licensor may also offer the Licensed Material under separate terms or conditions or stop distributing the Licensed Material at any time; however, doing so will not terminate this Public License.
76 | Sections 1, 5, 6, 7, and 8 survive termination of this Public License.
77 | Section 7 – Other Terms and Conditions.
78 |
79 | The Licensor shall not be bound by any additional or different terms or conditions communicated by You unless expressly agreed.
80 | Any arrangements, understandings, or agreements regarding the Licensed Material not stated herein are separate from and independent of the terms and conditions of this Public License.
81 | Section 8 – Interpretation.
82 |
83 | For the avoidance of doubt, this Public License does not, and shall not be interpreted to, reduce, limit, restrict, or impose conditions on any use of the Licensed Material that could lawfully be made without permission under this Public License.
84 | To the extent possible, if any provision of this Public License is deemed unenforceable, it shall be automatically reformed to the minimum extent necessary to make it enforceable. If the provision cannot be reformed, it shall be severed from this Public License without affecting the enforceability of the remaining terms and conditions.
85 | No term or condition of this Public License will be waived and no failure to comply consented to unless expressly agreed to by the Licensor.
86 | Nothing in this Public License constitutes or may be interpreted as a limitation upon, or waiver of, any privileges and immunities that apply to the Licensor or You, including from the legal processes of any jurisdiction or authority.
87 |
--------------------------------------------------------------------------------
/assets/CRX_PlugIn_Brainstorm1.JPG:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/assets/CRX_PlugIn_Brainstorm1.JPG
--------------------------------------------------------------------------------
/assets/diver.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/assets/diver.png
--------------------------------------------------------------------------------
/assets/tp-tools.png:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/assets/tp-tools.png
--------------------------------------------------------------------------------
/changelog.md:
--------------------------------------------------------------------------------
1 |
2 | # Changelog
3 | ## Changes
4 | - *2025/04/25* : update docs, progs and bugfix apsh-err
5 | - *2025/04/24* : add: R-50iA target (V10.10)
6 | - *2024/10/10* : add: tp_write TPERR_CONSOLE command
7 | - *2024/10/10* : solved: tp_write trim problem
8 | - *2024/08/21* : tp_write V810/V910 compiling/linking problems
9 | - *2024/07/31* : typo and v-info
10 | - *2024/01/04* : changed internal tool chain ; update friex-browser (bug)
11 | - *2023/10/18* : **TP-Tools 1.1.48 release: translations and local Register support ; binary assets**
12 | - *23/09/20* : **TP-Tools 1.1.44 pre release: translations and local Register support**
13 | - ...
14 | - *23/08/24* : **ADD** New folder **2REG** simple math progs
15 | - *23/08/23* : **FIX** TP_WRITE: parser timestamp %FAST_CLOCK printing
16 | - *23/08/23* : **ADD/UPDATE** TP_WRITE: parser timestamp %FAST_CLOCK
17 | - *23/08/21* : **FIX** ARGDISP file
18 | - ... older stuff
19 |
20 | ### Next steps (planned)
21 | - check DataIDs for favorite views
22 | - (R-50iA tp_view is missing some features)
23 | - docs bugfixing
24 |
25 | ### Planned features (Q4 2025)
26 | - just additions, no breaking changes
27 | - maybe add TP_SHOW ; easy Dialogs and HMI
28 | - CRX Plugin with some ideas of TP-Tools.
29 | A lot of functions won't fit or are obsolet for CRX/Tablet-TP user.
30 |
31 | 
32 |
33 |
--------------------------------------------------------------------------------
/faq.de.md:
--------------------------------------------------------------------------------
1 | ## Warum TP_Tools?
2 | Entstanden aus der Idee, den internen Befehl 'MESSAGE[..]' zu ersetzen.
3 | Allerdings mit der Möglichkeit, Strings zu parsen, z.B. um Werte von Registern dynamisch anzuzeigen.
4 | Der Umfang wurde jedoch schnell größer und es wurden mehr Funktionen benötigt bzw. gewünscht.
5 |
6 | ## FREE? Wirklich?
7 | Ja. Lizenz prüfen.
8 |
9 | ## Warum nicht Open Source?
10 | In den letzten Jahren habe ich leider eine Menge Software gesehen, die wirklich "schlecht" war.
11 | Wenn jemand ohne viel Hintergrundwissen (Anfänger, nicht Profi) seine "eigene" Lösung mit dem Karel-Quellcode baut, kommt es of vor, das Funktionen "schlecht implementiert" sind, was zu einer Verbreitung von kleinen Karel-Programmen mit verschiedenen APIs und ohne Dokumentation führt.
12 | Leider habe ich das schon oft gesehen.
13 |
14 | Ich möchte es den Anwendern so einfach wie möglich machen. So kann er sich auf seine Hauptaufgabe konzentrieren.
--------------------------------------------------------------------------------
/faq.md:
--------------------------------------------------------------------------------
1 | ## Why TP_Tools?
2 | Born out of the idea of replacing the internal command 'MESSAGE[..]'.
3 | However, with the possibility to parse strings, e.g. to dynamically display values of registers.
4 | However, the scope quickly became larger and more features were needed and or desired.
5 |
6 | ## FREE? Really?
7 | yes. check license.
8 |
9 | ## Why not open source?
10 | Over the last few years I have unfortunately seen a lot of software that was really 'bad'.
11 | If someone without much background knowledge (beginner not professional) builds his "own" solution with the karel source code it tends to be 'worse implemented' this results in a proliferation of small karel programs with different API's and no documentation.
12 | Unfortunately I have seen this many times.
13 |
14 | I want to make it as easy as possible for users. So they can concentrate on their main task.
--------------------------------------------------------------------------------
/readme.de.md:
--------------------------------------------------------------------------------
1 | 
2 |
3 | ---
4 |
5 | # TP-Tools
6 |
7 | Das neueste *Release* finden Sie hier:
8 |
9 | https://github.com/Backdate/TP-Tools/releases
10 |
11 | **FREI für kommerzielle Nutzung**
12 |
13 | Eine kleine Sammlung von Tools, die die Inbetriebnahme und Programmierung von Fanuc-Robotern vereinfachen.
14 |
15 | Die Programme sind lizenziert unter der
16 |
17 | *CC BY-ND 4.0 Attribution-NoDerivatives 4.0 International (CC BY-ND 4.0)*
18 |
19 |
20 | https://creativecommons.org/licenses/by-nd/4.0/.
21 |
22 | - Die Weitergabe ist erlaubt.
23 | - Eine Modifikation der Binärdatei ist nicht erlaubt.
24 | - Die Nennung des Urhebers ist gegeben, da die Binärdatei Informationen über den Urheber enthält.
25 |
26 | Auch wenn die Creative-Commons-Lizenz nicht für Software gemacht wurde, erfüllt sie hier ihren Zweck.
27 |
28 | Eine Lizenzdatei muss NICHT auf die Robotersteuerung kopiert werden.
29 |
30 | **Damit steht einer kommerziellen Nutzung nichts im Wege.**
31 |
32 | ---
33 | ### Steuerung und Version
34 |
35 | - R-30iA (V7.50)
36 | - R-30iB (V8.10)
37 | - R-30iBPlus (V9.10)
38 | - R-30iBPlus/CRX (V9.40/42)
39 |
40 | Wenn es keinen entsprechenden Unterordner gibt, ist die Version (derzeit) nicht verfügbar.
41 |
42 | Wenn der *Arg-Wizard* verwendet werden kann oder ein CRX-Plugin vorhanden ist, wird dies beschrieben bzw. erklärt.
43 |
44 |
45 |
46 | ## Programmstruktur
47 | Derzeit verwenden die Programme "TP_VIEW" und "TP_WRITE" eine "einheitliche" API.
48 |
49 | - Einfache Befehle werden mit einem String aufgerufen oder ausgeführt, der den Befehlsnamen enthält.
50 | - :CALL TP_VIEW('HELP');
51 | - Bei Befehlen der gleichen Funktionsgruppe wird der Gruppenname durch einen Punkt vom Befehlsnamen getrennt.
52 | - :CALL TP_VIEW('FORCE.VIEW');
53 | - Befehle können (optionale) Parameter/Argumente haben.
54 | - :CALL TP_VIEW('FORCE.VIEW',2);
55 |
56 | *mehr dazu [DeepDive](/.DeepDive.md)*
57 |
58 | ---
59 |
60 |
61 | ## TP_VIEW
62 |
63 | TP_VIEW kann verwendet werden, um die Fenster/Bildschirme zu wechseln
64 | Sie können umschalten zwischen
65 | - Single / Triple / Dual
66 | - Single_User / Single_User_Wide
67 | - Laden eines benutzerdefinierten Bildschirms
68 | - Modale Dialoge anzeigen
69 |
70 |
71 | [tp_view](/tp_view/readme.md)
72 |
73 | 
74 |
75 | z.B..
76 | ```
77 | : CALL TP_VIEW('SCREEN.TRIPLE') ;
78 | : CALL TP_VIEW('DIALOG.YES_NO',123) ;
79 | : AUFRUF VON TP_VIEW('LOAD_VIEW',3) ;
80 | : CALL TP_VIEW('CLEAR_VIEW',1) ;
81 | ```
82 |
83 | **Ein CRX_PlugIn namens *Tablet-TP-Tools* befindet sich in der Entwicklung.**
84 |
85 | ---
86 | # TP_WRITE
87 |
88 | TP_WRITE kann verwendet werden, um einzeilige (dynamische) Nachrichten auf verschiedene "Bildschirme" zu schreiben.
89 |
90 | [tp_write](/tp_write/readme.md)
91 |
92 | 
93 |
94 | Unter anderem stehen folgende zur Auswahl:
95 |
96 | - Konsole
97 | - BenutzerBildschirm
98 | - TPError
99 |
100 | Der Arg-Wizard ist implementiert.
101 |
102 | 
103 |
104 | **Ein CRX_PlugIn namens *Tablet-TP-Tools* ist in Entwicklung.**
105 |
106 | ---
107 |
108 |
109 | ## 2REG
110 | Ein Ordner mit einfachen "Nur-Ein-Befehl"-Programmen.
111 | Das Ergebnis wird in das angegebene Register geschrieben
112 |
113 | - **sin2REG** --> Sinus in Register
114 | - z.B. : CALL SIN2REG(33.5,1) ;
115 | - **cos2REG** --> Cosinus in Register
116 | - z.B. : CALL COS2REG(33.5,2) ;
117 | - **atan22REG** --> atan2 in Register
118 | - z.B. : CALL ATAN22REG((-100),100,3) ;
119 | - **sqrt2REG** --> Quadratwurzel in Register
120 | - z.B. : CALL SQRT2REG(33.5,4) ;
121 | - **rand2reg** --> Zufallswert in Register
122 | - z.B. : CALL rand2reg(33.5,100,4,45) ;
123 | - siehe Unterordner für Infos
124 | - **ping2reg** --> pinge einen Host/IP an und schreibe das Ergebnis in Register
125 | - z.B. : CALL ping2reg('192.168.1.1',1) ;
126 | - benötigte Option: User Socket Msg (R648)
127 | - Fehler INTP-320 Undefined builtin if not installed
128 | - Ergebniswert 1 : erfolgreicher Ping
129 | - Ergebniswert 0 : kein erfolgreicher Ping
130 | - **ord2reg** --> numerischer ASCII-Code aus gegebenem Buchstaben in Register
131 | - z.B. : CALL ord2reg('ABCDE123,2,1) ;
132 | - schreibt 66 in Register 1, da der zweite(2) Buchstabe des Strings 'B' ist
133 | - **caller2sr / parent2sr**--> schreibt den Namen des **aufrufenden** Programms in ein **StringRegister**
134 | - e.g. : CALL caller2sr(1) ;
135 | - e.g. : CALL parent2sr(10001) ;
136 |
137 |
138 | [2REG](2reg/readme.md)
139 |
140 |
141 | ### RAND2REG
142 |
143 |
144 | Erzeugt eine (Pseudo-)Zufallszahl und schreibt den Wert in das entsprechende Register.
145 |
146 | Verwendet $FAST_CLOCK zum Initialisieren, kann aber auch konfiguriert werden.
147 |
148 |
149 | [RAND2REG](2reg/rand2reg/readme.md)
150 |
151 |
152 | 
153 |
154 | ---
155 |
156 | ## set_invisib
157 |
158 | Programme vorübergehend unsichtbar machen oder ausblenden
159 |
160 | [set_invisib](./set_invisib/readme.md)
161 |
162 |
163 | 
164 |
165 |
166 | ---
167 | ---
168 | ## F.A.Q.
169 |
170 | - Warum xy? --> faq.md
171 | - Ich brauche mehr technische Informationen. --> DeepDive.md
172 | - Wo kann ich ein Changelog finden? Benutze github und schaue in changelog.md.
173 |
174 | ---
175 |
176 | - Fanuc ist ein eingetragenes Warenzeichen.
177 |
178 | ---
179 |
180 | Copyright (c) 2023 Backdate Software/Andreas Wissing
181 |
182 | ---
--------------------------------------------------------------------------------
/readme.md:
--------------------------------------------------------------------------------
1 | 
2 |
3 | **Support for R-50iA !**
4 |
5 | **There are some minor changes for R-50iA, because Sysvars are not accessible anymore**
6 |
7 | **As we currently have no access to a physical R50iA controller, we are grateful for any feedback!**
8 |
9 |
10 | ---
11 |
12 | [click here for german readme](readme.de.md)
13 |
14 | ---
15 | ---
16 | # TP-Tools
17 |
18 | check the latest *release* here:
19 |
20 | https://github.com/Backdate/TP-Tools/releases
21 |
22 | **FREE for commercial use**
23 |
24 | A small collection of tools that simplify the commissioning and programming of Fanuc robots.
25 |
26 | The programs are licensed under the
27 |
28 | *CC BY-ND 4.0 Attribution-NoDerivatives 4.0 International (CC BY-ND 4.0)*
29 |
30 |
31 | https://creativecommons.org/licenses/by-nd/4.0/
32 |
33 | - The distribution is allowed.
34 | - Modification of the binary file is not allowed.
35 | - The naming of the author is given, because the binary file contains information
36 |
37 | Even if the Creative Commons license was not made for software, it serves its purpose for us here.
38 |
39 | A license file does NOT have to be copied to the robot controller.
40 |
41 | **Thereby nothing stands in the way of commercial use.**
42 |
43 | **Problems with this license inside your company? Just ask!**
44 |
45 | ---
46 | ### Controller and Version
47 |
48 | - R-30iB (V8.10)
49 | - R-30iBPlus (V9.10)
50 | - R-30iBPlus/CRX (V9.40/42)
51 | - R-50iA (V10.10)
52 |
53 | If there is no corresponding subfolder, the version is (currently) not available.
54 |
55 | If the *Arg-Wizard* can be used or there is a CRX plug-in this is described or explained.
56 |
57 |
58 | ## Program structure
59 | Currently the programs "TP_VIEW" and "TP_WRITE" uses a "uniform" API.
60 |
61 | - Simple commands are called or executed with a string containing the command name.
62 | - :CALL TP_VIEW('HELP');
63 | - Commands of same functional group have the group name separated by a dot from the command name.
64 | - :CALL TP_VIEW('FORCE.VIEW');
65 | - Commands may have (optional) parameters/arguments.
66 | - :CALL TP_VIEW('FORCE.VIEW',2);
67 |
68 | *more about this [deepdive](/.DeepDive.md)*
69 |
70 | ---
71 | ## TP_VIEW
72 |
73 | TP_VIEW can be used to switch the windows/screens
74 | You can switch between
75 | - Single / Triple / Dual
76 | - Single_User / Single_User_Wide
77 | - Load a user-defined screen
78 | - Show modal Dialogs
79 |
80 |
81 | [tp_view](/tp_view/readme.md)
82 |
83 | 
84 |
85 | e.g.
86 | ```
87 | : CALL TP_VIEW('SCREEN.TRIPLE') ;
88 | : CALL TP_VIEW('DIALOG.YES_NO',123) ;
89 | : CALL TP_VIEW('LOAD_VIEW',3) ;
90 | : CALL TP_VIEW('CLEAR_VIEW',1) ;
91 | ```
92 |
93 | **A CRX_PlugIn called *Tablet-TP-Tools* is under development.**
94 |
95 | ---
96 | ## TP_WRITE
97 |
98 | TP_WRITE can be used to write single-line (dynamic) messages to various "screens".
99 |
100 | [tp_write](/tp_write/readme.md)
101 |
102 | 
103 |
104 | Among others, the following are available for selection:
105 |
106 | - Console
107 | - UserScreen
108 | - TPError
109 |
110 | The Arg-Wizard is implemented.
111 |
112 | 
113 |
114 | **A CRX_PlugIn called *Tablet-TP-Tools* is under development.**
115 |
116 | ---
117 |
118 |
119 | ## 2REG
120 | A folder with simple "one command" progs.
121 | Result is written to specified register
122 |
123 | - **sin2REG** --> sine to register
124 | - e.g. : CALL SIN2REG(33.5,1) ;
125 | - **cos2REG** --> cosine to register
126 | - e.g. : CALL COS2REG(33.5,2) ;
127 | - **atan22REG** --> atan2 to register
128 | - e.g. : CALL ATAN22REG((-100),100,3) ;
129 | - **sqrt2REG** --> square root to register
130 | - e.g. : CALL SQRT2REG(33.5,4) ;
131 | - **rand2reg** --> random to register
132 | - e.g. : CALL rand2reg(33.5,100,4,45) ;
133 | - check subfolder for info
134 | - **ping2reg** --> ping a host/IP and write result to reg
135 | - e.g. : CALL ping2reg('192.168.1.1',1) ;
136 | - needed option: User Socket Msg (R648)
137 | - Error INTP-320 Undefined builtin if not installed
138 | - Result value 1 : successfull ping
139 | - Result value 0 : no successfull ping
140 | - **ord2reg** --> numeric ASCII code from given CHAR to register
141 | - e.g. : CALL ord2reg('ABCDE123,2,1) ;
142 | - will write 66 to register 1, because second(2) Char of string is 'B'
143 |
144 |
145 | [2REG](2reg/readme.md)
146 |
147 |
148 | ### RAND2REG
149 |
150 |
151 | Generates a (pseudo) random number and writes the value into the corresponding register.
152 |
153 | Uses $FAST_CLOCK to initialize, but can also be configured.
154 |
155 |
156 | [RAND2REG](2reg/rand2reg/readme.md)
157 |
158 |
159 | 
160 |
161 | ---
162 |
163 | ## set_invisib
164 |
165 | Make programs temporarily invisible or hide them
166 |
167 | [set_invisib](./set_invisib/readme.md)
168 |
169 |
170 | 
171 |
172 |
173 | ---
174 | ---
175 | ## F.A.Q.
176 |
177 | - Why xy ? --> Check faq.md
178 | - I need more technical information. --> Check DeepDive.md
179 | - Where can I find a changelog? Use github and check changelog.md.
180 |
181 | ---
182 |
183 | - Fanuc is a registered trademark.
184 |
185 | ---
186 |
187 | Copyright (c) 2023 Backdate Software/Andreas Wissing
188 |
189 | ---
190 |
191 |
192 |
--------------------------------------------------------------------------------
/set_invisib/V1010/set_invisib.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/set_invisib/V1010/set_invisib.pc
--------------------------------------------------------------------------------
/set_invisib/V810/set_invisib.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/set_invisib/V810/set_invisib.pc
--------------------------------------------------------------------------------
/set_invisib/V910/set_invisib.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/set_invisib/V910/set_invisib.pc
--------------------------------------------------------------------------------
/set_invisib/assets/SET_PROGS_INVISIBLE2.gif:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/set_invisib/assets/SET_PROGS_INVISIBLE2.gif
--------------------------------------------------------------------------------
/set_invisib/readme.md:
--------------------------------------------------------------------------------
1 | **source file of set_invisib_Info.html**
2 | # set_invisib README
3 |
4 | Set a program or va file visible or invisible.
5 |
6 |
7 | : CALL SET_INVISIB('DIALOG_TESTING' ,1);
8 |
9 | Call the prog from web browser for best user experience.
10 |
11 | _hostname_/karel/set_invisib // 127.0.0.1/karel/set_invisib
12 |
13 | **FREE for commercial use**
14 |
15 | **© Backdate Software GmbH**
16 |
17 | ---
18 |
19 | 
20 |
21 | ## Details
22 |
23 | This is a powerfull program.
24 |
25 | Keep in mind that the attribut 'invisible' will be permanetly changed at TP programs!
26 |
27 | This might refuse programmers and or users!
28 |
29 | Make a 'backup list' of your progs with this tool first!
30 |
31 | ---
32 | ---
33 |
34 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND
35 |
36 | ---
37 | - Fanuc is a registered trademark
38 | ---
39 | (c) Backdate Software GmbH
40 |
--------------------------------------------------------------------------------
/set_invisib/set_invisib_example.ls:
--------------------------------------------------------------------------------
1 | /PROG set_invisib_example
2 | /ATTR
3 | OWNER = MNEDITOR;
4 | PROTECT = READ_WRITE;
5 | DEFAULT_GROUP = *,*,*,*,*;
6 | CONTROL_CODE = 00000000 00000000;
7 | /APPL
8 | /MN
9 | 1: ! PROGRAM "set_invisib" ;
10 | 2: !makes a prog temporarily invisib ;
11 | 3: !until next cold start ;
12 | 4: ;
13 | 5: !no AR : ;
14 | 5: !shows int. Help and aborts ;
15 | 6: CALL set_invisib ;
16 | 7: ;
17 | 8: WAIT (OFF) ;
18 | 9: !AR[1] : ProgramName ;
19 | 10: !AR[2] : True=1,FALSE=0 ;
20 | 11: CALL set_invisib('REQMENU',1) ;
21 | 12: PAUSE ;
22 | 13: CALL set_invisib('REQMENU',0) ;
23 | 7: ;
24 | /POS
25 | /END
26 |
--------------------------------------------------------------------------------
/tp_view/TP_VIEW_EXAMPLE.ls:
--------------------------------------------------------------------------------
1 | /PROG TP_VIEW_EXAMPLE
2 | /ATTR
3 | OWNER = MNEDITOR;
4 | COMMENT = "";
5 | PROG_SIZE = 1622;
6 | CREATE = DATE 23-07-27 TIME 13:33:32;
7 | MODIFIED = DATE 23-07-27 TIME 14:11:04;
8 | FILE_NAME = ;
9 | VERSION = 0;
10 | LINE_COUNT = 37;
11 | MEMORY_SIZE = 1990;
12 | PROTECT = READ_WRITE;
13 | TCD: STACK_SIZE = 0,
14 | TASK_PRIORITY = 50,
15 | TIME_SLICE = 0,
16 | BUSY_LAMP_OFF = 0,
17 | ABORT_REQUEST = 0,
18 | PAUSE_REQUEST = 0;
19 | DEFAULT_GROUP = 1,*,*,*,*;
20 | CONTROL_CODE = 00000000 00000000;
21 | LOCAL_REGISTERS = 0,0,0;
22 | /APPL
23 | /MN
24 | : CALL TP_VIEW('HELP') ;
25 | : CALL TP_VIEW('RESTORE');
26 | : CALL TP_VIEW('LOAD_VIEW',2) ;
27 | : CALL TP_VIEW('CLEAR_VIEW',2) ;
28 | : CALL TP_VIEW('SINGLE_USER');
29 | : CALL TP_VIEW('WIDE_USER');
30 | : CALL TP_VIEW('SCREEN.SINGLE');
31 | : CALL TP_VIEW('SCREEN.WIDE');
32 | : CALL TP_VIEW('SCREEN.DOUBLE');
33 | : CALL TP_VIEW('SCREEN.TRIPLE');
34 | : CALL TP_VIEW('SCREEN.TREEPRIM');
35 | : CALL TP_VIEW('SCREEN.STATPRIM');
36 | : CALL TP_VIEW('FORCE.USER');
37 | : CALL TP_VIEW('FORCE.USERWIDE');
38 | : CALL TP_VIEW('FORCE.VIEW',1);
39 | : CALL TP_VIEW('FORCE.LINK','CONFIG=SINGLE','&prim=EDITPAGE','&PRIM=BROWSER','&PRIM=/karel/tp_view') ;
40 | : CALL TP_VIEW('FORCE.LINK','CONFIG=DOUBLE','&prim=EDITPAGE','&DUAL=BROWSER','&DUAL=/md/conslog.dg') ;
41 | /END
42 |
--------------------------------------------------------------------------------
/tp_view/TP_view_dialog.ls:
--------------------------------------------------------------------------------
1 | /PROG TP_VIEW_DIALOG
2 | /ATTR
3 | OWNER = MNEDITOR;
4 | COMMENT = "";
5 | PROG_SIZE = 404;
6 | CREATE = DATE 23-08-08 TIME 13:55:38;
7 | MODIFIED = DATE 23-08-08 TIME 14:23:02;
8 | FILE_NAME = ;
9 | VERSION = 0;
10 | LINE_COUNT = 14;
11 | MEMORY_SIZE = 860;
12 | PROTECT = READ_WRITE;
13 | TCD: STACK_SIZE = 0,
14 | TASK_PRIORITY = 50,
15 | TIME_SLICE = 0,
16 | BUSY_LAMP_OFF = 0,
17 | ABORT_REQUEST = 0,
18 | PAUSE_REQUEST = 0;
19 | DEFAULT_GROUP = *,*,*,*,*;
20 | CONTROL_CODE = 00000000 00000000;
21 | LOCAL_REGISTERS = 0,0,0;
22 | /APPL
23 | /MN
24 | 1: LBL[1] ;
25 | 2: ;
26 | 3: FOR R[1]=1 TO 8 ;
27 | 4: F[R[1]]=(OFF) ;
28 | 5: ENDFOR ;
29 | 6: ;
30 | 7: CALL TP_VIEW('dialog.fromfile','FR:dlg_Flags_OK.XML') ;
31 | 8: ;
32 | 9: WAIT 2.00(sec) ;
33 | 10: !if not [OK] Jump start ;
34 | 11: IF (!F[1:FLG OK]),JMP LBL[1] ;
35 | 12: ;
36 | 13: !.. use the Flags ;
37 | 14: IF (F[3]),CALL ...(...) ;
38 | /POS
39 | /END
40 |
--------------------------------------------------------------------------------
/tp_view/V1010/tp_view.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_view/V1010/tp_view.pc
--------------------------------------------------------------------------------
/tp_view/V810/tp_view.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_view/V810/tp_view.pc
--------------------------------------------------------------------------------
/tp_view/V910/ARGDISPEG91.DT:
--------------------------------------------------------------------------------
1 | [PROGRAM]
2 | NAME = "TP_VIEW"
3 | ARGUMENT = '2'
4 | [ARGUMENT]
5 | V01="HELP":'11',"FORCE.USER":'51', "FORCE.USERWIDE":'52', "FORCE.VIEW":'53',"FORCE.LINK":'59', "CLEAR_VIEW":'14',"CLEAR.USER":'61', "CLEAR.TPERROR":'62', "CLEAR.TPPROMT":'63', "CLEAR.TPFUNC":'64', "CLEAR.TPSTATUS":'65' ,"SCREEN.SINGLE":'31',"SCREEN.WIDE":'32',"SCREEN.DOUBLE":'33',"SCREEN.TRIPLE":'34',"SCREEN.TREEPRIM":'35',"SCREEN.STATPRIM":'36',"DIALOG.FROMFILE":'41'
6 |
7 | [V01, '41']
8 | S02 = "FilePath"
9 | [V01, '59']
10 | S02 = "URL"
11 | [V01, '53']
12 | I02="ID":(1~8):'1'
13 | [V01, '14']
14 | I02="ID":(1~8):'1'
15 |
16 | [ENDPROGRAM]
--------------------------------------------------------------------------------
/tp_view/V910/tp_view.pc:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_view/V910/tp_view.pc
--------------------------------------------------------------------------------
/tp_view/assets/IntegratedHelp.gif:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_view/assets/IntegratedHelp.gif
--------------------------------------------------------------------------------
/tp_view/assets/TP_VIEW_Example1.gif:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_view/assets/TP_VIEW_Example1.gif
--------------------------------------------------------------------------------
/tp_view/assets/tp_view_dialog.gif:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_view/assets/tp_view_dialog.gif
--------------------------------------------------------------------------------
/tp_view/assets/tp_view_web_help.JPG:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_view/assets/tp_view_web_help.JPG
--------------------------------------------------------------------------------
/tp_view/dlg_Flags_OK.xml:
--------------------------------------------------------------------------------
1 |
--------------------------------------------------------------------------------
/tp_view/readme.md:
--------------------------------------------------------------------------------
1 | **source file of TP_VIEW_Info.html**
2 | # TP_VIEW README
3 |
4 |
5 | TP_VIEW can be used to switch the windows/screens.
6 |
7 | You can choose between:
8 | - Single / Triple / Dual
9 | - Single_User / Single_User_Wide
10 | - Load a user-defined screen
11 | - Show modal Dialogs
12 |
13 |
14 | **Load a user-defined screen:**
15 |
16 | #### This is especially nice after the automatic start:
17 | Show the current program on the left side. inside the two windows on the right side process data can be displayed.
18 |
19 |
20 |
21 |
22 |
23 | e.g.
24 | ```
25 | : CALL TP_VIEW('SCREEN.TRIPLE') ;
26 | : CALL TP_VIEW('DIALOG.FROMFILE','FR:MY_DIALOG.XML') ;
27 | : CALL TP_VIEW('LOAD_VIEW',3) ;
28 | : CALL TP_VIEW('CLEAR_VIEW',1) ;
29 | ```
30 | ---
31 |
32 |
33 | ## Command Reference
34 |
35 | [TP View Command Reference](./tp_view_ref.md)
36 | Explains all commands and fuctions of this Software.
37 |
38 | **Info:** Upload "tp_view_ref.htm" to the controller to get help at your fingertips.
39 |
40 |
41 |
42 | This Animation shows how to create a user favorite view. Afterwards this view is restored.
43 | 
44 |
45 | **favorite view functions are not available on R50iA**
46 |
47 |
48 | **THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND**
49 |
50 |
--------------------------------------------------------------------------------
/tp_view/tp_view_example.tp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_view/tp_view_example.tp
--------------------------------------------------------------------------------
/tp_view/tp_view_ref.htm:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 | Use TP_VIEW to switch/change the iPendant windows/screens .
15 |The shrinked version(tp_view_ref.htm) of this reference file can be uploaded to the controller. This way, the information is also available on the TP or via web browser.
22 |Teach Pendant : TP_VIEW('HELP'); web browser : _hostname_/karel/tp_viewFTP upload : tpview_ref.htm --> FR:tpview_ref.htm TP_VIEW uses command strings to execute given task.
29 |These strings are based on a internal variable(cmd_list) with unique command ID.
30 |The ID can also be used as a substitute for the string commands. (use ID in brackets after command name)
31 |Some commands require several parameters or arguments.
32 |[Optional arguments in square brackets.]
33 |Info: check tp_view-va file to check cmd-states and internal cmd_list.
34 |This is optional.
36 |Use this feature if you like the dialog based programming and the 'code' style.
37 |Check Fanuc documentation "Wizard to Input Arguments" inside handling tool document
38 |:TP_VIEW('HELP'); or
48 | :TP_VIEW(11);
Shows (web)help of this program
50 |:TP_VIEW('RESTORE');
Restores "$UI_RESTORE[1]-sysvar"
54 |not recommended!
55 |:TP_VIEW('LOAD_VIEW',[idx]);
favorite view functions are not available on R50iA
59 |Forces the user (favorite) view by given index
60 |Default : 1
61 | TP-MENU
68 |:TP_VIEW('CLEAR_VIEW',[idx]);
Clears the user view with given index
83 |favorite view functions are not available on R50iA
84 |Default : 1
85 | :TP_VIEW('SINGLE_USER');
Forces SingleUserScreen
90 |:TP_VIEW('WIDE_USER');
Forces SingleUserScreen inside wide mode
99 |Screen commands shows default screen/window combination
107 |:TP_VIEW('SCREEN.SINGLE');
default window inside SingleScreen
111 |:TP_VIEW('SCREEN.WIDE');
default window inside SingleScreen WIDE
115 |:TP_VIEW('SCREEN.DOUBLE');
default window(s) inside DOUBLEScreen
119 |:TP_VIEW('SCREEN.TRIPLE');
default window(s) inside TRIPLEScreen
123 |:TP_VIEW('SCREEN.TREEPRIM');
default window(s) inside TreeView and PrimaryScreen
127 |:TP_VIEW('SCREEN.STATPRIM');
default window(s) inside StatusScreen and PrimaryScreen
131 |Shows modal dialogs
134 |Check Fanuc iPendant customization doc for XML definition.
140 |:TP_VIEW('DIALOG.FROMFILE','FR:dlg_Flags_OK.xml');
Shows a modal dialog. The XML dialog is loaded from file path.
144 |Read Fanuc iPendant customization of xml file description
145 |User/Developer has to setup the XML file and FLAGs or VARs for dialog result. 146 | This command will handle only the [PREV]-key.
147 |Example files:
148 |XML-File uses Flag[1] - Flag[8]
153 |FORCE.LINK is the raw interface to FORCE_LINK karel builtin
161 |:TP_VIEW('FORCE.USER');
Forces SingleUserScreen
168 |:TP_VIEW('FORCE.USERWIDE');
Forces SingleUserScreen inside wide mode
176 |:TP_VIEW('FORCE.VIEW',[idx]);
Forces the user view by given index
184 |To add a new user favorite view use 185 | TP-MENU
186 |To clear a user favorite view use CLEAR_VIEW-command
198 |:TP_VIEW('FORCE.LINK','URL',[string2]..);
Forces a valid link by a string (array)
202 |THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND
210 |(c) Backdate Software GmbH
216 | 217 | 218 | 219 | -------------------------------------------------------------------------------- /tp_view/tp_view_ref.md: -------------------------------------------------------------------------------- 1 | # TP VIEW Command Reference 2 | 3 | Use TP_VIEW to switch/change the iPendant windows/screens . 4 | 5 | - switch Single / Triple / Dual -Screens 6 | - show Single_UserSreen / Single_UserScreen_Wide 7 | - load a user-defined screen 8 | - show modal dialogs 9 | 10 | The shrinked version(*tp_view_ref.htm*) of this reference file can be uploaded to the controller. This way, the information is also available on the TP or via web browser. 11 | 12 | - ```Teach Pendant : TP_VIEW('HELP'); ``` 13 | - ```web browser : _hostname_/karel/tp_view``` 14 | - ```FTP upload : tpview_ref.htm --> FR:tpview_ref.htm ``` 15 | 16 | ## Commands 17 | 18 | *TP_VIEW* uses command strings to execute given task. 19 | 20 | These strings are based on a internal variable(cmd_list) with unique command ID. 21 | 22 | The ID can also be used as a substitute for the string commands. (use ID in brackets after command name) 23 | 24 | Some commands require several parameters or arguments. 25 | 26 | [Optional arguments in square brackets.] 27 | 28 | *Info: check **tp_view-va** file to check cmd-states and internal cmd_list.* 29 | 30 | ### ARGUMENT WIZARD 31 | 32 | **This is optional.** 33 | 34 | Use this feature if you like the dialog based programming and the 'code' style. 35 | 36 | 37 | *Check Fanuc documentation "Wizard to Input Arguments" inside handling tool document* 38 | 39 | - We provide a (template) file for R-30iBPlus (V9.10 and up) 40 | - It's up to the user to check file naming problems like duplicates/collisions with other programs (.e.g. TP_WRITE) 41 | - assemble the files to your needs 42 | - Upload the file with *[LOAD]* from TP or upload with ftp client to FR device. 43 | - To 'uninstall' delete file from FR device 44 | 45 | --- 46 | ### HELP (11) 47 | ```:TP_VIEW('HELP'); ``` **or** 48 | ```:TP_VIEW(11); ``` 49 | 50 | **Shows (web)help of this program** 51 | 52 | --- 53 | ### RESTORE (12) 54 | ```:TP_VIEW('RESTORE'); ``` 55 | 56 | **Restores "$UI_RESTORE[1]-sysvar"** 57 | 58 | **not recommended!** 59 | 60 | --- 61 | ### LOAD_VIEW (13) 62 | ```:TP_VIEW('LOAD_VIEW',[idx]); ``` 63 | 64 | **favorite view functions are not available on R50iA** 65 | 66 | **Forces the user (favorite) view by given index** 67 | 68 | Default : 1 69 | 70 | - command alias: **FORCE.VIEW** 71 | - To clear a *user view* use **CLEAR_VIEW-command** 72 | 73 | #### To add a new *user favorite view* use: 74 | 75 | **TP-MENU** 76 | - **[SHIFT]+[DISP]** 77 | - User View 78 | - Add Current 79 | 80 | 81 | 82 | 83 | --- 84 | ### CLEAR_VIEW (14) 85 | ```:TP_VIEW('CLEAR_VIEW',[idx]); ``` 86 | 87 | **Clears the user view with given index** 88 | 89 | **favorite view functions are not available on R50iA** 90 | 91 | Default : 1 92 | 93 | --- 94 | ### SINGLE_USER (15) 95 | ```:TP_VIEW('SINGLE_USER'); ``` 96 | 97 | **Forces SingleUserScreen** 98 | 99 | - Forces **'SCREEN.SINGLE'**. 100 | - **Additionally** the USER Screen/Menu will be shown. 101 | - command alias: **FORCE.USER** 102 | 103 | --- 104 | ### WIDE_USER (16) 105 | ```:TP_VIEW('WIDE_USER'); ``` 106 | 107 | **Forces SingleUserScreen inside wide mode** 108 | 109 | - Forces **'SCREEN.WIDE'**. 110 | - **Additionally** the USER Screen/Menu will be shown. 111 | - command alias: **FORCE.USERWIDE** 112 | 113 | --- 114 | ## SCREEN Commands 115 | **Screen commands shows default screen/window combination** 116 | 117 | --- 118 | ### SCREEN.SINGLE (31) 119 | ```:TP_VIEW('SCREEN.SINGLE'); ``` 120 | 121 | **default window inside SingleScreen** 122 | 123 | --- 124 | ### SCREEN.WIDE (32) 125 | ```:TP_VIEW('SCREEN.WIDE'); ``` 126 | 127 | **default window inside SingleScreen WIDE** 128 | 129 | --- 130 | ### SCREEN.DOUBLE (33) 131 | ```:TP_VIEW('SCREEN.DOUBLE'); ``` 132 | 133 | **default window(s) inside DOUBLEScreen** 134 | 135 | --- 136 | ### SCREEN.TRIPLE (34) 137 | ```:TP_VIEW('SCREEN.TRIPLE'); ``` 138 | 139 | **default window(s) inside TRIPLEScreen** 140 | 141 | --- 142 | ### SCREEN.TREEPRIM (35) 143 | ```:TP_VIEW('SCREEN.TREEPRIM'); ``` 144 | 145 | **default window(s) inside TreeView and PrimaryScreen** 146 | 147 | --- 148 | ### SCREEN.STATPRIM (36) 149 | ```:TP_VIEW('SCREEN.STATPRIM'); ``` 150 | 151 | **default window(s) inside StatusScreen and PrimaryScreen** 152 | 153 | --- 154 | ## DIALOG Commands 155 | **Shows modal dialogs** 156 | - Used to interact with user. 157 | - Program is blocked until a button at the dialog or [PREV]-key is pressed. 158 | - ~~(Optional) Flags or Registers will be set to False/Zero at start.~~ 159 | 160 | Check Fanuc iPendant customization doc for XML definition. 161 | 162 | --- 163 | ### DIALOG.FROMFILE (41) 164 | ```:TP_VIEW('DIALOG.FROMFILE','FR:dlg_Flags_OK.xml'); ``` 165 | 166 | 167 | Shows a modal dialog. The XML dialog is loaded from file path. 168 | 169 | **Read Fanuc iPendant customization of xml file description** 170 | 171 | User/Developer has to setup the XML file and FLAGs or VARs for dialog result. 172 | This command will handle only the [PREV]-key. 173 | 174 | Example files: 175 | - **dlg_Flags_OK.xml** 176 | - **TP_VIEW_DIALOG.LS** 177 | 178 | XML-File uses Flag[1] - Flag[8] 179 | 180 | - Flag[1] is used to detect if **[OK]** is pressed. 181 | - Flag[3] -Flag[8] are toggled by button. 182 | - [OK]-button-dlgtile has special Type (type="1") to escape from dialog 183 | 184 | 185 | --- 186 | ## FORCE Commands 187 | *FORCE.LINK* is the raw interface to *FORCE_LINK karel builtin* 188 | 189 | - Others are 'based' on FORCE_LINK. 190 | --- 191 | ### FORCE.USER (51) 192 | ```:TP_VIEW('FORCE.USER'); ``` 193 | 194 | **Forces SingleUserScreen** 195 | 196 | - Forces **'SCREEN.SINGLE'**. 197 | - **Additionally** the USER Screen/Menu will be shown. 198 | 199 | --- 200 | ### FORCE.USERWIDE (52) 201 | ```:TP_VIEW('FORCE.USERWIDE'); ``` 202 | 203 | **Forces SingleUserScreen inside wide mode** 204 | 205 | - Forces **'SCREEN.WIDE'**. 206 | - **Additionally** the USER Screen/Menu will be shown. 207 | 208 | --- 209 | ### FORCE.VIEW (53) 210 | ```:TP_VIEW('FORCE.VIEW',[idx]); ``` 211 | 212 | **Forces the user view by given index** 213 | 214 | To add a new *user favorite view* use 215 | **TP-MENU** 216 | - **[SHIFT]+[DISP]** 217 | - User View 218 | - Add Current 219 | 220 | To clear a *user favorite view* use **CLEAR_VIEW-command** 221 | 222 | --- 223 | ### FORCE.LINK (59) 224 | ```:TP_VIEW('FORCE.LINK','URL',[string2]..); ``` 225 | 226 | **Forces a valid link by a string (array)** 227 | - one or more string arguments are concated to together 228 | - check fanuc documentation! This is advanced stuff! 229 | - use with caution! 230 | 231 | --- 232 | --- 233 | 234 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND 235 | 236 | --- 237 | - Fanuc is a registered trademark 238 | --- 239 | (c) Backdate Software GmbH 240 | 241 | -------------------------------------------------------------------------------- /tp_write/V1010/tp_write.pc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_write/V1010/tp_write.pc -------------------------------------------------------------------------------- /tp_write/V810/Achtung_CompilerProblem.txt: -------------------------------------------------------------------------------- 1 | Manuell mit roboguide kompilieren :-( -------------------------------------------------------------------------------- /tp_write/V810/tp_write.pc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_write/V810/tp_write.pc -------------------------------------------------------------------------------- /tp_write/V910/ARGDISPEG90.DT: -------------------------------------------------------------------------------- 1 | [PROGRAM] 2 | NAME = "TP_WRITE" 3 | ARGUMENT = '3' 4 | [ARGUMENT] 5 | V01="HELP":'11',"FORCE.USER":'51', "FORCE.USERWIDE":'52', "CLEAR.USER":'61', "CLEAR.TPERROR":'62', "CLEAR.TPPROMT":'63', "CLEAR.TPFUNC":'64', "CLEAR.TPSTATUS":'65' ,"USER":'21',"TPERROR":'22',"TPPROMPT":'23',"TPFUNC":'24',"TPSTATUS":'25',"SR":'26',"CONSOLE":'27',"POST_ERR":'28',"APSH_ERR":'29' 6 | 7 | { write.... } 8 | [V01, '21'] 9 | S02 = "Str2Write" 10 | [V01, '22'] 11 | S02 = "Str2Write" 12 | [V01, '23'] 13 | S02 = "Str2Write" 14 | [V01, '24'] 15 | S02 = "Str2Write" 16 | [V01, '25'] 17 | S02 = "Str2Write" 18 | [V01, '26'] 19 | N02 = "ID" 20 | S03 = "Str2Write" 21 | [V01, '27'] 22 | S02 = "Str2Write" 23 | [V01, '28'] 24 | V02 = "INFO":'0', 25 | "WARN":'1', 26 | "ERR":'2' 27 | N03 = "Sys-Err_Num" 28 | [V01, '29'] 29 | V02 = "INFO":'0', 30 | "WARN":'1', 31 | "ERR":'2' 32 | S03 = "Str2Write" 33 | 34 | 35 | [ENDPROGRAM] -------------------------------------------------------------------------------- /tp_write/V910/tp_write.pc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_write/V910/tp_write.pc -------------------------------------------------------------------------------- /tp_write/assets/INDIRECT_MESSAGES.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_write/assets/INDIRECT_MESSAGES.gif -------------------------------------------------------------------------------- /tp_write/assets/TP_WRITE_ARG_WIZ.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_write/assets/TP_WRITE_ARG_WIZ.gif -------------------------------------------------------------------------------- /tp_write/assets/Werbung1.gif: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_write/assets/Werbung1.gif -------------------------------------------------------------------------------- /tp_write/assets/tp_write_web_help.JPG: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_write/assets/tp_write_web_help.JPG -------------------------------------------------------------------------------- /tp_write/readme.md: -------------------------------------------------------------------------------- 1 | **source file of TP_WRITE_Info.html** 2 | # TP_WRITE 3 | Help and Documentation for TP_WRITE 4 | 5 | 6 | 7 | ## Command Reference 8 | 9 | [TP Write Command Reference](./tp_write_ref.md) 10 | 11 | Explains all commands and fuctions of this Software. 12 | 13 | **Info:** Upload "tp_write_ref.htm" to the controller to get help at your fingertips. 14 | 15 | ## Animation 16 |  -------------------------------------------------------------------------------- /tp_write/tp_write_EXAMPLE.ls: -------------------------------------------------------------------------------- 1 | /PROG TP_WRITE_EXAMPLE 2 | /ATTR 3 | OWNER = MNEDITOR; 4 | COMMENT = ""; 5 | PROG_SIZE = 1784; 6 | CREATE = DATE 23-08-04 TIME 13:14:18; 7 | MODIFIED = DATE 23-08-04 TIME 13:14:18; 8 | FILE_NAME = TP_VIEW_; 9 | VERSION = 0; 10 | LINE_COUNT = 39; 11 | MEMORY_SIZE = 2144; 12 | PROTECT = READ_WRITE; 13 | TCD: STACK_SIZE = 0, 14 | TASK_PRIORITY = 50, 15 | TIME_SLICE = 0, 16 | BUSY_LAMP_OFF = 0, 17 | ABORT_REQUEST = 0, 18 | PAUSE_REQUEST = 0; 19 | DEFAULT_GROUP = 1,*,*,*,*; 20 | CONTROL_CODE = 00000000 00000000; 21 | LOCAL_REGISTERS = 0,0,0; 22 | /APPL 23 | /APPL 24 | /MN 25 | 1: CALL TP_WRITE('HELP') ; 26 | 2: END ; 27 | : CALL TP_WRITE('FORCE.USER'); 28 | : CALL TP_WRITE('USER','Hello User'); 29 | :PAUSE; 30 | : CALL TP_WRITE('CLEAR.TPDISPLAY'); 31 | :PAUSE; 32 | : CALL TP_WRITE('FORCE.USERWIDE'); 33 | : CALL TP_WRITE('USER','Value of Reg1 is: %R',1); 34 | : CALL TP_WRITE('USER','Value of StrReg1 is: %SR',1); 35 | : CALL TP_WRITE('USER','Time: %TIME',0); 36 | :PAUSE; 37 | : CALL TP_WRITE('CLEAR.USER'); 38 | :PAUSE; 39 | : CALL TP_WRITE('TPDISPLAY','Hello User'); 40 | :PAUSE; 41 | : CALL TP_WRITE('CLEAR.TPDISPLAY'); 42 | :PAUSE; 43 | : CALL TP_WRITE('TPERROR','Hello User'); 44 | :PAUSE; 45 | : CALL TP_WRITE('CLEAR.TPERROR'); 46 | :PAUSE; 47 | : CALL TP_WRITE('TPPROMPT','Hello User'); 48 | :PAUSE; 49 | : CALL TP_WRITE('CLEAR.TPPROMPT'); 50 | :PAUSE; 51 | : CALL TP_WRITE('TPFUNC',' Hello ',' User ' , ' third [F4] 55555555'); 52 | :PAUSE; 53 | : CALL TP_WRITE('CLEAR.TPFUNC'); 54 | ://CALL TP_WRITE('TPSTATUS','Hello User'); 55 | ://CALL TP_WRITE('CLEAR.TPSTATUS'); 56 | :PAUSE; 57 | : CALL TP_WRITE('SR',1,'Hello User its now %TIME',0); 58 | : CALL TP_WRITE('CONSOLE','SR1: %SR;',1); 59 | : CALL TP_VIEW('FORCE.LINK','CONFIG=DOUBLE','&prim=EDITPAGE','&DUAL=BROWSER','&DUAL=/md/conslog.dg') ; 60 | :PAUSE; 61 | : CALL TP_WRITE('POST_ERR',12078,1); 62 | :PAUSE; 63 | : CALL TP_WRITE('APSH_ERR','Hello User',1); 64 | :PAUSE; 65 | : CALL TP_WRITE('FORCE.USER'); 66 | :PAUSE; 67 | : CALL TP_WRITE('FORCE.USERWIDE'); 68 | /POS 69 | /END 70 | -------------------------------------------------------------------------------- /tp_write/tp_write_example.tp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/Backdate/TP-Tools/c45bb9541863daec2acfa8440fb2dc516253a8dc/tp_write/tp_write_example.tp -------------------------------------------------------------------------------- /tp_write/tp_write_ref.htm: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 |TP_WRITE can be used to write single-line (dynamic) messages to various "screens".
15 |Among others, the following "targets" are available for selection:
16 |The string length for each ARG is 34
24 |In most cases the string length, of the str2write is truncated by system at length of 40.
25 |The shrinked version(tp_write_ref.htm) of this reference file can be uploaded to the controller. This way, the information is also available on the TP or via web browser.
26 |Teach Pendant : TP_WRITE('HELP'); web browser : _hostname_/karel/tp_writeFTP upload : tp_write_ref.htm --> FR:TP_WRITE_ref.htm TP_WRITE uses command strings to execute given task.
33 |These strings are based on a internal variable(cmd_list) with unique command ID.
34 |The ID can also be used as a substitute for the string commands. (use ID in brackets after command name)
35 |Some commands require several parameters or arguments.
36 |[Optional arguments in square brackets.]
37 |Info: check tp_write-va file to check cmd-states and internal cmd_list.
38 |This is optional.
40 |Use this feature if you like the dialog based programming and the 'code' style.
41 |Check Fanuc documentation "Wizard to Input Arguments" inside handling tool document
42 |All (dynamic) strings will be parsed only if there is an extra/additional argument!
51 |'String parser' searches for special "string":
52 |:CALL TP_WRITE('USER','Value of R[1]is %R',1);
:CALL TP_WRITE('USER','Time now: %TIME',1);
: CALL TP_WRITE('HELP'); or
84 | : CALL TP_WRITE(11);
Shows (web)help of this program
86 |: CALL TP_WRITE('USER','Hello User');
Writes a (dynamic)string to UserScreen
90 |: CALL TP_WRITE('TPDISPLAY','Hello User');
Writes a (dynamic)string to UserScreen
94 |: CALL TP_WRITE('TPERROR','Hello User');
Writes a (dynamic)string to TPERROR area
98 |: CALL TP_WRITE('TPPROMPT','Hello User');
Writes a (dynamic)string to TPPROMPT area
102 |: CALL TP_WRITE('TPFUNC','Hello User');
Writes a (dynamic)string to TPFUNC (function keys area)
106 |: CALL TP_WRITE('TPSTATUS','Hello User');
Writes a (dynamic)string to TPSTATUS (only if active)
110 |: CALL TP_WRITE('SR',idx,'Hello User');
: CALL TP_WRITE("SR"=26,"ID"=1,"Str2Write"='Reg1 = %R',1) ;
Writes a (dynamic)string to SR with given String and index
115 |: CALL TP_WRITE('CONSOLE','Hello User');
Writes a (dynamic)string to CONSOLE
119 |: CALL TP_WRITE('POST_ERR',SEV,ERRCODE);
: CALL TP_WRITE("POST_ERR"=28,"INFO"=0,"Sys-Err_Num"=0) ;
Posts an error with given ErrorCode and severity
148 |: CALL TP_WRITE('APSH_ERR',SEV,'Hello User');
: CALL TP_WRITE("APSH_ERR"=29,"INFO"=0,"Str2Write"='...') ;
Severity :
154 |Str2Write
161 |Posts an APSH_ERR with given String and severity
164 |: CALL TP_WRITE('TPERR_CONS','Hello User');
Writes a (dynamic)string to TPERROR AND Console
168 |: CALL TP_WRITE('CLEAR.xxxx');
Erases all chars from corresponding sreen/area
172 |: CALL TP_WRITE('CLEAR.TPDISPLAY');
erases all chars from TPDISPLAY/User screen
176 |: CALL TP_WRITE('CLEAR.TPERROR');
erases all chars from error area
180 |: CALL TP_WRITE('CLEAR.TPPROMPT');
erases all chars from prompt area
184 |: CALL TP_WRITE('CLEAR.TPFUNC');
erases all chars from function key area
188 |: CALL TP_WRITE('CLEAR.TPSTATUS');
erases all chars from status area ; only if status is active
192 |: CALL TP_WRITE('CLEAR.USER');
erases all chars from TPDISPLAY/User screen
196 |Same as 'TP_VIEW' 'force commands.
199 |: CALL TP_WRITE('FORCE.USER');
Forces SingleUserScreen
207 |: CALL TP_WRITE('FORCE.USERWIDE');
Forces SingleUserScreen inside wide mode
215 |THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND
222 |(c) Backdate Software GmbH
228 | 229 | 230 | 231 | -------------------------------------------------------------------------------- /tp_write/tp_write_ref.md: -------------------------------------------------------------------------------- 1 | # TP WRITE Command Reference 2 | 3 | TP_WRITE can be used to write single-line (dynamic) messages to various "screens". 4 | 5 | Among others, the following "targets" are available for selection: 6 | 7 | - Console 8 | - UserScreen 9 | - TPError 10 | - StringRegister 11 | - TPERR_CONS (TPError and Console) 12 | 13 | *The string length for each **ARG** is 34* 14 | 15 | *In most cases the string length, of the **str2write** is truncated by **system** at length of 40.* 16 | 17 | 18 | The shrinked version(*tp_write_ref.htm*) of this reference file can be uploaded to the controller. This way, the information is also available on the TP or via web browser. 19 | 20 | - ```Teach Pendant : TP_WRITE('HELP'); ``` 21 | - ```web browser : _hostname_/karel/tp_write``` 22 | - ```FTP upload : tp_write_ref.htm --> FR:TP_WRITE_ref.htm ``` 23 | 24 | ## Commands 25 | 26 | *TP_WRITE* uses command strings to execute given task. 27 | 28 | These strings are based on a internal variable(cmd_list) with unique command ID. 29 | 30 | The ID can also be used as a substitute for the string commands. (use ID in brackets after command name) 31 | 32 | Some commands require several parameters or arguments. 33 | 34 | [Optional arguments in square brackets.] 35 | 36 | *Info: check **tp_write-va** file to check cmd-states and internal cmd_list.* 37 | 38 | ### ARGUMENT WIZARD 39 | 40 | **This is optional.** 41 | 42 | Use this feature if you like the dialog based programming and the 'code' style. 43 | 44 | 45 | *Check Fanuc documentation "Wizard to Input Arguments" inside handling tool document* 46 | 47 | - We provide a (template) file for R-30iBPlus (V9.10 and up) 48 | - It's up to the user to check file naming problems like duplicates/collisions with other programs (.e.g. TP_VIEW) 49 | - Upload the file with *[LOAD]* from TP or upload with ftp client to FR device. 50 | - To 'uninstall' delete file from FR device 51 | 52 | 53 | --- 54 | ## PARSE 55 | All (dynamic) strings will be parsed **only** if there is an extra/additional argument! 56 | 57 | 'String parser' searches for special "string": 58 | - Register Value string = '%R' 59 | - StringRegister Value string = '%SR' 60 | - Time string = '%TIME' 61 | - needs extra argument: '0' 62 | - otherwise parser is not executed 63 | - TimeStamp = '%FAST_CLOCK' 64 | - **NOT available on R-50iA / V10.10** 65 | - value is *[SYSTEM]*$FAST_CLOCK 66 | - needs extra argument: '0' 67 | - otherwise parser is not executed 68 | 69 | ```:CALL TP_WRITE('USER','Value of R[1]is %R',1);``` 70 | 71 | ```:CALL TP_WRITE('USER','Time now: %TIME',1);``` 72 | 73 | --- 74 | ### HELP (11) 75 | ```: CALL TP_WRITE('HELP'); ``` **or** 76 | ```: CALL TP_WRITE(11); ``` 77 | 78 | **Shows (web)help of this program** 79 | 80 | --- 81 | ### USER (21) 82 | ```: CALL TP_WRITE('USER','Hello User'); ``` 83 | 84 | **Writes a (dynamic)string to UserScreen** 85 | 86 | --- 87 | ### TPDISPLAY (21) 88 | ```: CALL TP_WRITE('TPDISPLAY','Hello User'); ``` 89 | 90 | **Writes a (dynamic)string to UserScreen** 91 | 92 | --- 93 | ### TPERROR (22) 94 | ```: CALL TP_WRITE('TPERROR','Hello User'); ``` 95 | 96 | **Writes a (dynamic)string to TPERROR area** 97 | 98 | --- 99 | ### TPPROMPT (23) 100 | ```: CALL TP_WRITE('TPPROMPT','Hello User'); ``` 101 | 102 | **Writes a (dynamic)string to TPPROMPT area** 103 | 104 | 105 | --- 106 | ### TPFUNC (24) 107 | ```: CALL TP_WRITE('TPFUNC','Hello User'); ``` 108 | 109 | **Writes a (dynamic)string to TPFUNC (function keys area)** 110 | 111 | --- 112 | ### TPSTATUS (25) 113 | ```: CALL TP_WRITE('TPSTATUS','Hello User'); ``` 114 | 115 | **Writes a (dynamic)string to TPSTATUS (only if active)** 116 | 117 | --- 118 | ### SR (26) 119 | ```: CALL TP_WRITE('SR',idx,'Hello User'); ``` 120 | 121 | ```: CALL TP_WRITE("SR"=26,"ID"=1,"Str2Write"='Reg1 = %R',1) ; ``` 122 | 123 | **Writes a (dynamic)string to SR with given String and index** 124 | 125 | --- 126 | ### CONSOLE (27) 127 | ```: CALL TP_WRITE('CONSOLE','Hello User'); ``` 128 | 129 | **Writes a (dynamic)string to CONSOLE** 130 | 131 | --- 132 | ### POST_ERR (28) 133 | ```: CALL TP_WRITE('POST_ERR',SEV,ERRCODE); ``` 134 | 135 | ```: CALL TP_WRITE("POST_ERR"=28,"INFO"=0,"Sys-Err_Num"=0) ;``` 136 | - SEV / Severity : 137 | - INFO:0 = Nothing 138 | - WARN:1 = PAUSE 139 | - ERROR:2 = ABORT 140 | - ERRCODE / ErrorCode 141 | - Fanuc error code 142 | - ffccc (decimal) 143 | - ff represents the facility code of the error 144 | - ccc represents the error code within the specified facility 145 | - check fanuc documentation 146 | 147 | **Posts an error with given ErrorCode and severity** 148 | 149 | --- 150 | ### APSH_ERR (29) 151 | ```: CALL TP_WRITE('APSH_ERR',SEV,'Hello User'); ``` 152 | 153 | ```: CALL TP_WRITE("APSH_ERR"=29,"INFO"=0,"Str2Write"='...') ;``` 154 | 155 | - Severity : 156 | - INFO:0 = Nothing 157 | - WARN:1 = PAUSE 158 | - ERROR:2 = ABORT 159 | 160 | - Str2Write 161 | 162 | **Posts an APSH_ERR with given String and severity** 163 | 164 | --- 165 | ### TPERR_CONS (31) 166 | ```: CALL TP_WRITE('TPERR_CONS','Hello User'); ``` 167 | 168 | **Writes a (dynamic)string to TPERROR AND Console** 169 | 170 | --- 171 | ### CLEAR commands 172 | ```: CALL TP_WRITE('CLEAR.xxxx'); ``` 173 | 174 | **Erases all chars from corresponding sreen/area** 175 | 176 | --- 177 | ### CLEAR.TPDISPLAY (61) 178 | ```: CALL TP_WRITE('CLEAR.TPDISPLAY'); ``` 179 | 180 | **erases all chars from TPDISPLAY/User screen** 181 | 182 | --- 183 | ### CLEAR.TPERROR (62) 184 | ```: CALL TP_WRITE('CLEAR.TPERROR'); ``` 185 | 186 | **erases all chars from error area** 187 | 188 | --- 189 | ### CLEAR.TPPROMPT (63) 190 | ```: CALL TP_WRITE('CLEAR.TPPROMPT'); ``` 191 | 192 | **erases all chars from prompt area** 193 | 194 | --- 195 | ### CLEAR.TPFUNC (64) 196 | ```: CALL TP_WRITE('CLEAR.TPFUNC'); ``` 197 | 198 | **erases all chars from function key area** 199 | 200 | --- 201 | ### CLEAR.TPSTATUS (65) 202 | ```: CALL TP_WRITE('CLEAR.TPSTATUS'); ``` 203 | 204 | **erases all chars from status area ; only if status is active** 205 | 206 | --- 207 | ### CLEAR.USER (61) 208 | ```: CALL TP_WRITE('CLEAR.USER'); ``` 209 | 210 | **erases all chars from TPDISPLAY/User screen** 211 | 212 | 213 | 214 | --- 215 | ## FORCE Commands 216 | Same as **'TP_VIEW'** 'force commands. 217 | - same string-commands 218 | - same command ID's 219 | 220 | --- 221 | ### FORCE.USER (51) 222 | ```: CALL TP_WRITE('FORCE.USER'); ``` 223 | 224 | **Forces SingleUserScreen** 225 | 226 | - Forces **'SCREEN.SINGLE'**. 227 | - **Additionally** the USER Screen/Menu will be shown. 228 | 229 | --- 230 | ### FORCE.USERWIDE (52) 231 | ```: CALL TP_WRITE('FORCE.USERWIDE'); ``` 232 | 233 | **Forces SingleUserScreen inside wide mode** 234 | 235 | - Forces **'SCREEN.WIDE'**. 236 | - **Additionally** the USER Screen/Menu will be shown. 237 | 238 | 239 | 240 | 241 | --- 242 | --- 243 | 244 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND 245 | 246 | --- 247 | - Fanuc is a registered trademark 248 | --- 249 | (c) Backdate Software GmbH 250 | 251 | --------------------------------------------------------------------------------