bu kodu olcum esnasinda ayni elemani tekrar olcturmek icin kullanabiliriz.
C1 Comment satirina geldiginde program duruyor ve bize elemani kac defa olmek istedigimizi soruyor.
girdigimiz rakam kadar ayni elemani olcuyor ve sonuclarida rapora her olcum icin tek tek atiyor.
yesil renkli kodlari kullanabiliriz. olcturecegimiz eleman yesil renkli kodlarin arasinda olmali.
asagiya program olarakta, 3.7 versiyonda kaydedilmistir.
-------------------------------------------------------------------------------------------
C1 =COMMENT/INPUT,NO,FULL SCREEN=NO,'NOKTA1 kac defa olculsun..!'
ASSIGN/COUNT=0
DO/
NOKTA1 =FEAT/CONTACT/VECTOR POINT,CARTESIAN
THEO/<2.56,-7.369,-0.692>,<-0.328198,0.944609,0>
ACTL/<2.56,-7.369,-0.691>,<-0.328198,0.944609,0>
TARG/<2.56,-7.369,-0.692>,<-0.328198,0.944609,0>
SHOW FEATURE PARAMETERS=NO
SHOW CONTACT PARAMETERS=NO
DIM LOC1= LOCATION OF POINT NOKTA1 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
X 2.560 0.050 0.050 2.560 0.000 0.000 ---#----
Y -7.369 0.050 0.050 -7.369 0.000 0.000 ---#----
Z -0.692 0.050 0.050 -0.691 0.000 0.000 ---#----
T 0.000 0.050 0.050 0.000 0.000 0.000 ---#----
END OF DIMENSION LOC1
ASSIGN/COUNT=COUNT+1
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO," Olculen = "+COUNT+" Toplam olcum = "+C1.INPUT+" "
UNTIL/COUNT==C1.INPUT