0  BEGIN PGM 82551_nl MM 
1  ;NC-programma om de tolerantiewaarden van een
2  ;passing te bepalen. Vervolgens voert de
3  ;besturing een meetcyclus uit. Daarna verwerkt
4  ;zij het meetresultaat en bepaalt zij of de
5  ;gemeten passing binnen de gedefinieerde
6  ;tolerantie ligt. Daarna worden de status, het
7  ;meetresultaat en de grensmaten op het
8  ;beeldscherm weergegeven.
9  ;De definitie van alle noodzakelijke parameters
10 ;vindt plaats in het NC-programma 8255_nl.h.
11 ;Wanneer u alle benodigde bestanden in dezelfde
12 ;directory hebt opgeslagen, hoeft u niets aan dit
13 ;NC-programma aan te passen.
14 ;Als de bestanden in verschillende directory's
15 ;zijn opgeslagen, moet u de paden in de
16 ;bestandsdefinities aanpassen.
17 ;
18 QS2 = "a" ;Kleine letter ter controle definiren
19 ;
20 ;Controleren of er sprake is van een eenheidsboring of een eenheidsas
21 Q2 = STRCOMP( SRC_QS1 SEA_QS2 )
22 ;
23 ;Tabel voor eenheidsboring openen
24 FN 26: TABOPEN 82553_hole.TAB
25 ;
26 ;Indien boring, spring naar LBL1
27 FN 9: IF +Q2 EQU -1 GOTO LBL 1
28 ;
29 ;Tabel voor eenheidsas openen
30 FN 26: TABOPEN 82553_shaft.TAB
31 ;
32 ;Spronglabel LBL1
33 LBL 1
34 ;
35 Q22 = 0 ;Teller regelnummer
36 ;
37 ;Waarde uit regel 0 kolom "BEREICH" van de tabel lezen
38 FN 28: TABREAD Q3 =Q22 /"BEREICH"
39 ;
40 ;Spronglabel LBL11
41 LBL 11
42 ;
43 ;Controleren of de gedefinieerde passing binnen het bereik ligt
44 FN 11: IF +Q1 GT +Q3 GOTO LBL 12
45 ;
46 ;Maximale grensmaat uit de tabel lezen
47 FN 28: TABREAD Q4 =Q22 / QS1
48 ;
49 ;Regelnummer met n verhogen
50 Q22 = Q22 + 1
51 ;
52 ;Minimale grensmaat uit de tabel lezen
53 FN 28: TABREAD Q5 =Q22 / QS1
54 ;
55 ;Spring naar LBL99
56 FN 9: IF +1 EQU +1 GOTO LBL 99
57 ;
58 ;Spronglabel LBL12
59 LBL 12
60 ;Regelnummer met twee verhogen
61 Q22 = Q22 + 2
62 ;
63 ;Waarde uit regel Q2 kolom "BEREICH" van de tabel lezen
64 FN 28: TABREAD Q3 =Q22 /"BEREICH"
65 ;
66 ;Spring naar LBL11
67 FN 9: IF +1 EQU +1 GOTO LBL 11
68 ;
69 ;Spronglabel LBL99
70 LBL 99
71 ;
72 ;Maximale maat in mm berekenen
73 Q23 = Q1 + ( Q4 / 1000 )
74 ;
75 ;Minimale maat in mm berekenen
76 Q33 = Q1 + ( Q5 / 1000 )
77 ;
78 ;Gereedschapsoproep 3D-taster
79 TOOL CALL "TOUCHPROBE" Z S50
80 ;Voorpositioneren
81 L  Z+100 R0 FMAX
82 L  X+Q11  Y+Q21 R0 FMAX
83 ;
84 ;Sprong naar het meten
85 ;Indien boring, sprong naar LBL 14
86 FN 9: IF +Q2 EQU -1 GOTO LBL 14
87 ;Indien as, sprong naar LBL 15
88 FN 11: IF +Q2 GT -1 GOTO LBL 15
89 ;
90 ;Boring meten
91 LBL 14
92 TCH PROBE 421 METEN BORING ~
    Q273=+Q11  ;MIDDEN 1E AS ~
    Q274=+Q21  ;MIDDEN 2E AS ~
    Q262=+Q1   ;NOMINALE DIAMETER ~
    Q325=+Q41  ;STARTHOEK ~
    Q247=+90   ;HOEKSTAP ~
    Q261=+Q31  ;MEETHOOGTE ~
    Q320=+Q51  ;VEILIGHEIDSAFSTAND ~
    Q260=+100  ;VEILIGE HOOGTE ~
    Q301=+1    ;VERPL.VEILIGH.HOOGTE ~
    Q275=+Q23  ;MAXIMALE MAAT ~
    Q276=+Q33  ;MINIMALE MAAT ~
    Q279=+0    ;TOLERANTIE 1E MIDD. ~
    Q280=+0    ;TOLERANTIE 2E MIDD. ~
    Q281=+0    ;MEETPROTOCOL ~
    Q309=+0    ;PGM-STOP BIJ FOUT ~
    Q330=+0    ;GEREEDSCHAP ~
    Q423=+4    ;AANTAL MEETPUNTEN ~
    Q365=+1    ;TYPE VERPLAATSING
93 M140 MB MAX F9999
94 ;Sprong naar statusbepaling
95 FN 9: IF +1 EQU +1 GOTO LBL 16
96 ;
97 ;As meten
98 LBL 15
99 TCH PROBE 422 MET. CIRKEL BUITEN ~
    Q273=+Q11  ;MIDDEN 1E AS ~
    Q274=+Q21  ;MIDDEN 2E AS ~
    Q262=+Q1   ;NOMINALE DIAMETER ~
    Q325=+Q41  ;STARTHOEK ~
    Q247=+90   ;HOEKSTAP ~
    Q261=+Q31  ;MEETHOOGTE ~
    Q320=+Q51  ;VEILIGHEIDSAFSTAND ~
    Q260=+100  ;VEILIGE HOOGTE ~
    Q301=+1    ;VERPL.VEILIGH.HOOGTE ~
    Q277=+Q23  ;MAXIMALE MAAT ~
    Q278=+Q33  ;MINIMALE MAAT ~
    Q279=+0    ;TOLERANTIE 1E MIDD. ~
    Q280=+0    ;TOLERANTIE 2E MIDD. ~
    Q281=+0    ;MEETPROTOCOL ~
    Q309=+0    ;PGM-STOP BIJ FOUT ~
    Q330=+0    ;GEREEDSCHAP ~
    Q423=+4    ;AANTAL MEETPUNTEN ~
    Q365=+1    ;TYPE VERPLAATSING
100 M140 MB MAX F9999
101 ;Sprong naar statusbepaling
102 FN 9: IF +1 EQU +1 GOTO LBL 16
103 ;
104 LBL 16
105 ;Status bepalen
106 FN 9: IF +Q180 EQU +1 GOTO LBL 20
107 FN 9: IF +Q181 EQU +1 GOTO LBL 21
108 FN 9: IF +Q182 EQU +1 GOTO LBL 22
109 ;
110 LBL 20
111 QS3 = "GOED"
112 FN 9: IF +1 EQU +1 GOTO LBL 23
113 ;
114 LBL 21
115 QS3 = "NABEWERKING"
116 FN 9: IF +1 EQU +1 GOTO LBL 23
117 ;
118 LBL 22
119 QS3 = "AFGEKEURD"
120 FN 9: IF +1 EQU +1 GOTO LBL 23
121 ;
122 LBL 23
123 ;Tekst voor passing samenstellen
124 QS2 = TOCHAR( DAT+Q1 DECIMALS0 ) || QS1
125 ;
126 ;Inhoud van het maskerbestand 82552_de.a op het beeldscherm weergeven
127 FN 16: F-PRINT 82552_nl.A / SCREEN:
128 ;
129 ;Einde van programma
130 END PGM 82551_nl MM