PcDmis Kullanıcı Forumu

VBScript-PC-DMIS Kod Örnekleri => VBScript ve Pc-Dmis Kod Paylaşımları..! => Konuyu başlatan: # harek # - 08 Aralık 2010, 17:47:04

Başlık: ayni elemani birden fazla olcturmek
Gönderen: # harek # - 08 Aralık 2010, 17:47:04
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
Başlık: Ynt: ayni elemani birden fazla olcturmek
Gönderen: soner0303 - 01 Mart 2011, 11:20:12
Arkadasim bunun kisa yolu filan yokmu; yani demek istedigim obje kolay gelsin
Başlık: Ynt: ayni elemani birden fazla olcturmek
Gönderen: BirazFikrimVar - 01 Mart 2011, 18:47:59
Bu , yollardan biridir... Yapmaniz gereken , yesil satirlari kopyalayip ilgili yerlere yapistirmak...
Siz , basit bir yol isterseniz "Loop" komutunu kullanarak yapabilirsiniz.
Kolay gelsin....
Başlık: Ynt: ayni elemani birden fazla olcturmek
Gönderen: # harek # - 01 Mart 2011, 19:28:36
Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
Bu , yollardan biridir... Yapmaniz gereken , yesil satirlari kopyalayip ilgili yerlere yapistirmak...

sayin yoneticimin dedigi gibi kopyala yapistir, yontemin cok uzun oldugunu sanmiyorum.  8)
Başlık: Ynt: ayni elemani birden fazla olcturmek
Gönderen: # harek # - 15 Mart 2011, 18:33:20
program olarakta eklenmistir.
Başlık: Ynt: ayni elemani birden fazla olcturmek
Gönderen: zehrabalaban - 15 Ağustos 2011, 12:22:38
tam aradigim sey tesekkürler hocam
Başlık: Ynt: ayni elemani birden fazla olcturmek
Gönderen: metroloji16 - 26 Eylül 2014, 17:41:15
Konu eski ama 2013 mr 1 içinde gecerlimi 

Yada bu tarz komutları belge altında paylasmanız mumkunmudur 

sagolun şimdiden
Başlık: Ynt: ayni elemani birden fazla olcturmek
Gönderen: # harek # - 27 Eylül 2014, 08:12:53
evet diğer versiyonlardada çalıştırabilirsiniz.

...

Bulunduğumuz bölüm bu tarz paylaşımlar içindir.