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

Pc dmiste out of toleransların sayısını otomatik bulma...

<< < (4/4)

〽️🌱🌴:
şöyle sorayım da beni yadırgamayın kafam karıştığı zaman ilerleyemiyorum. üsteki sicripti eklediğimiz gibi ekliyoruz progama öyle çalıştırıyoruz değil mi? PcDmis'e uzağım şuan deneyemiyorum ama merak ediyorum ;)

BirazFikrimVar:
Programı kapatip actiginizda 0 gostermesi normal, calistiktan sonra sayiyor. 
Selamlar, kolay gelsin. ...

BirazFikrimVar:
CS1        =SCRIPT/FILENAME= C:\USERS\BEN\DESKTOP\SCRIPT1.BAS
            FUNCTION/mAIN,SHOW=YES,ARG1=OT,,
            STARTSCRIPT/
            ENDSCRIPT/
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            Antal utvärderingar utom tolerans
            +'OT'

Harek Mudurum tesekkurler , calisti :)

Selamlar, kolay gelsin...

〽️🌱🌴:
Sayın yöneticim bunu da deneyin. Bunda da program bittikten sonra pencereler çıkıyor du. Rapor olarak almak istiyormusun diye soruyor.

Kod: Linklere izin verilmiyor. Üye Ol ya da Giriş Yap        ASSIGN/NM=GETPROGRAMINFO("NUMMEAS")
            ASSIGN/OT=GETPROGRAMINFO("NUMOOT")
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            "Total Measured = "+NM
            "Out of Tolarance = "+OT
            "OK" to continue.
            IF/OT<>0
C1           =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
              "Number Out of Tolerance = "+OT
              Print Report?
              MOVE/POINT,NORMAL,<0.194,-12.125,-315.094>
              IF/C1.INPUT=="YES"
                PRINT/REPORT,EXEC MODE=END,$
                  TO_FILE=ON,AUTO=1,AUTO OPEN REPORT=ON,$
                  TO_PRINTER=OFF,COPIES=1,$
                  TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                  REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                  TO_EXCEL_OUTPUT=OFF,
                  PREVIOUS_RUNS=DELETE_INSTANCES
              END_IF/
            END_IF/
            ELSE/
              PRINT/REPORT,EXEC MODE=END,$
                TO_FILE=ON,AUTO=1,AUTO OPEN REPORT=ON,$
                TO_PRINTER=OFF,COPIES=1,$
                TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                TO_EXCEL_OUTPUT=OFF,
                PREVIOUS_RUNS=DELETE_INSTANCES
            END_ELSE/
--- Kod sonu ---

Navigasyon

[0] Mesajlar

[*] Önceki Sayfa