VBScript-PC-DMIS Kod Örnekleri > VBScript ve Pc-Dmis Kod Paylaşımları..!

ayni elemani birden fazla olcturmek

(1/2) > >>

# harek #:
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

soner0303:
Arkadasim bunun kisa yolu filan yokmu; yani demek istedigim obje kolay gelsin

BirazFikrimVar:
Bu , yollardan biridir... Yapmaniz gereken , yesil satirlari kopyalayip ilgili yerlere yapistirmak...
Siz , basit bir yol isterseniz "Loop" komutunu kullanarak yapabilirsiniz.
Kolay gelsin....

# harek #:
Linklere izin verilmiyor. Üye Ol ya da Giriş YapBu , yollardan biridir... Yapmaniz gereken , yesil satirlari kopyalayip ilgili yerlere yapistirmak...

--- Alıntı sonu ---

sayin yoneticimin dedigi gibi kopyala yapistir, yontemin cok uzun oldugunu sanmiyorum.  8)

# harek #:
program olarakta eklenmistir.

Navigasyon

[0] Mesajlar

[#] Sonraki Sayfa