PcDmis Kullanıcı Forumu

Dosya Paylaşım ve Diğer Eğitimler => İşinize yarayabilecek araçlar..! => Konuyu başlatan: cmmadem - 12 Şubat 2008, 14:17:31

Başlık: Assignment
Gönderen: cmmadem - 12 Şubat 2008, 14:17:31
SELAM ARKDAşLAR AssigN KOMUTU KULLANMA HAKKINDA BİLGİ ALABİLİRMİYİM

BİRAZ ACİLDİR
Başlık: Ynt: Assignment
Gönderen: BirazFikrimVar - 12 Şubat 2008, 14:48:28
selamlar

http://www.pcdmisforum.org/index.php?topic=17.0

kolay gelsin
Başlık: Ynt: Assignment
Gönderen: cmmadem - 12 Şubat 2008, 15:15:50
PC DMIS CAD ++ 3,5 KULLANIYORUM BIRAZ DAHA AYRINTILI BILGI ALABILIRMIYIM TESEKKüRLER
Başlık: Ynt: Assignment
Gönderen: BirazFikrimVar - 12 Şubat 2008, 15:46:07
tum versiyonlarda kullanimi ayni , bazi eski versiyonlarda UTILITIES altindadir bu secenek , yeni versiyonlarda ise INSERT menusunde alt siralarda yer alir.

Kullanimi tamamen aynidir.
Başlık: Ynt: Assignment
Gönderen: BirazFikrimVar - 13 Şubat 2008, 23:08:38
RETRY_MACHINE=LABEL/
            ASSIGN/WHICH_MACHINE = 0
WHICH_MACHINE_ =COMMENT/INPUT,NO,'ENTER MACHINE, 1 FOR 9-15-9,
                                ,2 FOR DEA, 3 FOR 12-20-10
                                ,OR 4 FOR 7-10-7'
            ASSIGN/WHICH_MACHINE = WHICH_MACHINE_.INPUT
            IF/(WHICH_MACHINE == 1)
            ASSIGN/MOVESPEED = 30
            ASSIGN/TOUCHSPEED = 0.35
            COMMENT/OPER,YES,9-15-9 SELECTED
            GOTO/CONTINUE
            END_IF/
            ELSE_IF/(WHICH_MACHINE == 2)
            ASSIGN/MOVESPEED = 50
            ASSIGN/TOUCHSPEED = 3
            COMMENT/OPER,YES,DEA SELECTED
            GOTO/CONTINUE
            END_ELSEIF/
            ELSE_IF/(WHICH_MACHINE == 3)
            ASSIGN/MOVESPEED = 30
            ASSIGN/TOUCHSPEED = 1.8
            COMMENT/OPER,YES,12-20-10 SELECTED
            GOTO/CONTINUE
            END_ELSEIF/
            ELSE_IF/(WHICH_MACHINE == 4)
            ASSIGN/MOVESPEED = 30
            ASSIGN/TOUCHSPEED = 1.3
            COMMENT/OPER,YES,7-10-7 SELECTED
            GOTO/CONTINUE
            END_ELSEIF/
            COMMENT/OPER,NO,INCORRECT MACHINE ENTRY
            GOTO/RETRY_MACHINE
CONTINUE   =LABEL/


Burada amac 4 ayri CMM'de calisacak program icin makina hizlarini vs degistirmek..
Calistiran makina secimini 1 , 2 , 3 , 4 sayilarindan birini tuslayarak yapar. Bunlarin disinda bir sayi girerse HATALI MAKINA KODU uyarisi gelir.

örnek hem Assign , hem IF/GOTO , hem OPERATOR MESAJLARI acisindan yeni fikirler verebilir sizlere sanirim....