VBScript-PC-DMIS Kod Örnekleri > VBScript ve Pc-Dmis Kod Paylaşımları..!
ayni elemani birden fazla olcturmek
# 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
Tam sürüme git