PcDmis Kullanıcı Forumu

VBScript-PC-DMIS Kod Örnekleri => VBScript ve Pc-Dmis Kod Paylaşımları..! => Konuyu başlatan: # harek # - 11 Şubat 2012, 18:04:43

Başlık: belli bir zaman tekrariyla olcum
Gönderen: # harek # - 11 Şubat 2012, 18:04:43
sayin SINAN yoneticimin istegi ile,
ayni programi bizim belirledigimiz tekrar sayisi ve bekleme zamani ile olcum yapar.
her olcumun sonuclarini PDF ye ayri ayri atar. printerinizi pdf e atacak sekilde ayarlayin.

burada iki onemli nokta var.
ilk siradaki LOOP komutundaki NUMBER kismina tekrar sayisini yazin (100 yazan yer-SINAN yoneticim 100 dedigi icin)
ikinci kisimdaki (CALLSUB/WAIT_FOR,:2,,) yazan yere bekleme suresini yazin. (2 yazan yer-saniyedir)
bekleme zamanlarini rapordada gormek istiyorsaniz Beklemeye Basladigi Saat yazan yerdeki COMMENT i REPT yapmalisiniz.

v 3.7 program olarakta eklenmistir.
saygilar. harek..

programin basina ekleyin.
-------------------------------------------------------------------------------
Kod: Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
V1         =LOOP/START,ID=YES,NUMBER=100,START=1,SKIP=,
              OFFSET:XAXIS=0,YAXIS=0,ZAXIS=0,ANGLE=0
            COMMENT/READOUT,NO,
            Beklemeye Hazir..
            ASSIGN/START_WAITING=SYSTEMTIME("H:m:s")


programin sonuna ekleyin.
--------------------------------------------------------------------------------
Kod: Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
CS1        =CALLSUB/WAIT_FOR,:2,,
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=YES,TIME DELAY=2,
            "Beklemeye Basladigi Saat "+START_WAITING
            "Beklemeyi Bitirdigi Saat "+SYSTEMTIME("H:m:s")
            GOTO/END_PROGRAM
            PRINT/REPORT,EXEC MODE=START,$
              TO_FILE=ON,AUTO=1,$
              TO_PRINTER=ON,$
              TO_DMIS_REPORT=ON,FILE_OPTION=INDEX,FILENAME=,$
              REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
              PREVIOUS_RUNS=DELETE_INSTANCES
            SUBROUTINE/WAIT_FOR,
                SECONDS_TO_WAIT = 5 : THE NUMBER OF SECONDS TO WAIT,
                 =
            IF/SECONDS_TO_WAIT<2
            GOTO/END_WAITING
            END_IF/
            IF/SECONDS_TO_WAIT>86000
            GOTO/END_WAITING
            END_IF/
            ASSIGN/START_TIME=SYSTEMTIME("H:m:s")
            ASSIGN/START_HOUR=ELEMENT(1,":",START_TIME)
            ASSIGN/START_MINUTE=ELEMENT(2,":",START_TIME)
            ASSIGN/START_SECOND=ELEMENT(3,":",START_TIME)
            ASSIGN/END_SECOND=START_SECOND+INT(SECONDS_TO_WAIT % 60)
            ASSIGN/END_MINUTE=START_MINUTE+INT((SECONDS_TO_WAIT % 3600) / 60)
            ASSIGN/END_HOUR=START_HOUR+INT(SECONDS_TO_WAIT / 3600)
            IF/END_SECOND>=60
            ASSIGN/END_SECOND=END_SECOND-60
            ASSIGN/END_MINUTE=END_MINUTE+1
            END_IF/
            IF/END_MINUTE>=60
            ASSIGN/END_MINUTE=END_MINUTE-60
            ASSIGN/END_HOUR=END_HOUR+1
            END_IF/
            IF/END_HOUR>=24
            ASSIGN/END_HOUR=END_HOUR-24
            END_IF/
            ASSIGN/END_TIME=END_HOUR+":"+END_MINUTE+":"+END_SECOND
            DO/
            ASSIGN/CURRENT_TIME=SYSTEMTIME("H:m:s")
            UNTIL/CURRENT_TIME==END_TIME
END_WAITING=LABEL/
            ENDSUB/
END_PROGRAM=LABEL/
            LOOP/END
Başlık: Ynt: belli bir zaman tekrariyla olcum
Gönderen: BirazFikrimVar - 13 Şubat 2012, 17:13:38
 ::) :o ::) :o
Masallah !
Başlık: Ynt: belli bir zaman tekrariyla olcum
Gönderen: SiNaN - 20 Şubat 2012, 21:09:25
Sayin yöneticim cok tesekkür ederim elleriniz dert görmesin..
Başlık: Ynt: belli bir zaman tekrariyla olcum
Gönderen: # harek # - 21 Şubat 2012, 00:26:13
eyvallah sayin yoneticim. isine yaradiysa ne mutlu...
Başlık: Ynt: belli bir zaman tekrariyla olcum
Gönderen: 〽️🌱🌴 - 22 Şubat 2012, 07:09:45
bundan sonra ölcüm tezgahina kanat kim takacak onu bekliyorum.. :)