Konu: belli bir zaman tekrariyla olcum

[# harek #]

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

[BirazFikrimVar]

 Resimlere izin verilmiyor.
 Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ya da Linklere izin verilmiyor. Üye Ol ya da Giriş Yap Resimlere izin verilmiyor.
 Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ya da Linklere izin verilmiyor. Üye Ol ya da Giriş Yap Resimlere izin verilmiyor.
 Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ya da Linklere izin verilmiyor. Üye Ol ya da Giriş Yap Resimlere izin verilmiyor.
 Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ya da Linklere izin verilmiyor. Üye Ol ya da Giriş Yap
Masallah !

[SiNaN]

Sayin yöneticim cok tesekkür ederim elleriniz dert görmesin..

[# harek #]

eyvallah sayin yoneticim. isine yaradiysa ne mutlu...

[〽️🌱🌴]

bundan sonra ölcüm tezgahina kanat kim takacak onu bekliyorum.. Resimlere izin verilmiyor.
 Linklere izin verilmiyor. Üye Ol ya da Giriş Yap ya da Linklere izin verilmiyor. Üye Ol ya da Giriş Yap