Konu : 0-1-2-3-4-5-6-7-8-9- karakterleri ile 0 dan sonsuza kadar kalıp nosu yazma programı
BU PROGRAMDAN ÖNCE ismailusta NIN PROGRAMINI KULLANIYORDUK AMA MAZAK TEZGAHIMIZ HAFIZASI O PROGRAMA YETMİYOR NO LARI ELLE NUMARÖRLE VURUYORDUK AMA BU PROGRAM ESKİSİNİN %1 İ KADAR. PROBLEMİ BU PROGRAMI YAPARAK ÇÖZDÜM KUSURSUZ ÇALIŞIYOR ŞU ANDA. TÜM PROGRAMCI ARKADAŞLARA ZİHİN AÇIKLIGI DİLEGİMLE KOLAY GESİN :)
İSTEK OLURSA PROGRAMI DEŞİFRELİSİNİ VEREBİLİRİM . ELİMDE HER İŞYERİNDE KULLANILABİLENECEK MACRO PROGRAMLAR VAR. CADCAMDA SAATLERCE HAZIRLANAN PROGRAMLARI SİZ 1 DAKİKADADA ÇALIŞTIRABİLİRSİNİZ. CNC DE C++ PROGRAM DİLİ MÜKEMMEL BİRSEY TABİ MATEMATİKTE ÖYLE DEGİLMİ.
%
O1728(10 karekter ile sonsuz otomatik artan kalıp no pro)
(BİZDE KALIPLAR İKİ PARÇA OLDUGU İÇİN NO YU İKİ KERE YAZIYOR ALT VE UST)
G17G69G90G40G49G80
#10=20 (NO ALT Y DEGERI)
#11=6 (NO ARA MESAFESI)
#12=-55 (NO BAS X DEGERI)
#13=0.5 (NO DERINLIGI)
#1=1.2 (NO BUYUKLUGU)
#15=50 (NO YAZILACAK YUZEY Z DEGERI)
(BURADAN SONRASI SABİT )
#32=[#32+1]
IF[#32EQ50]GOTO500
(**********************************)
(BU KISIM SONUZA KADAR UZALTILABİLİR)
IF[#32GE0]THEN#2=0
IF[#32GE0]THEN#3=#32
IF[#32GE10]THEN#2=1
IF[#32GE10]THEN#3=[#32-10]
IF[#32GE20]THEN#2=2
IF[#32GE20]THEN#3=[#32-20]
IF[#32GE30]THEN#2=3
IF[#32GE30]THEN#3=[#32-30]
IF[#32GE40]THEN#2=4
IF[#32GE40]THEN#3=[#32-40]
(***********************)
N10T09M06
M01
S8000M03
G55
B0.
G04X2
(UST)
G0G90Y#:)X-#:)Z100(***)
G:)Y0X-#:)Z#15(***)
M98P#2
G0Y#:)X#:)
G:)Y0X-[#:)-[#:)]]
M98P#3
G:)X0Y0Z0(***)
G0Z200
#10=[#10+[8/#1]](***)
#10=-#10(***)
(ALT)
G0G90Y-#:)X-#:)Z100(***)
G:)Y0X-#:)Z#15(***)
M98P#2
G0Y-#:)X#:)
G:)Y0X-[#:)-[#:)]]
M98P#3
(*********)
(ALTTAKI KONUMLAMAYI SAKIN SILME)
G:)X0Y0Z0
(**********)
G0Z200
M5
M9
G69
M99
N500
M00 (PRG LIMIT ALRM)
(MAX. NO.49)
M99
%
ALT PROGRAMLAR
O0000 O0001 O0002 O0003 O0004 O0005 O0006 O0007 O0008 O0009
(BU KADAR)