Reklamlar

reklam reklam

Gönderen Konu: KONİK HESAPLAMA MACROSU  (Okunma sayısı 18634 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı firtina35

  • Operatör
  • **
  • İleti: 34
  • +1/-0
KONİK HESAPLAMA MACROSU
« : Haziran 03, 2014, 12:59:01 ÖÖ »
%
O0060(MACRO KONIK HESAPLAMA)
#1=50(BYK CAP)
#2=6(KCK CAP)
#3=14.928(BOY)
#4=0(ACI)

 
 (BRDN SNRSNI DGSTRMYN)
 
 
 
 
IF[#1AND#2AND#3AND#4GT0]GOTO501
 
#100=[#1+#2]
#101=[#1+#3]
#102=[#1+#4]
#103=[#2+#3]
#104=[#2+#4]
#105=[#3+#4]
 
IF[#100LE0]GOTO500
IF[#101LE0]GOTO500
IF[#102LE0]GOTO500
IF[#103LE0]GOTO500
IF[#104LE0]GOTO500
IF[#105LE0]GOTO500
 
IF[#4LE0]GOTO1
IF[#3LE0]GOTO2
IF[#2LE0]GOTO3
IF[#1LE0]GOTO4
N4(BUYUK CAP)
#17=TAN[#4]*[#3]
#18=[[[#2/2]+#17]*2]
F#2
#3006=1(KCK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#4
#3006=1(ACI F====ISE)
F#18
#3000=1(BYK CAP F=DEGERINDE)
M99
N3(KUCUK CAP)
#15=TAN[#4]*[#3]
#16=[[[#1/2]-#15]*2]
F#1
#3006=1(BYK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#4
#3006=1(ACI F=====ISE)
F#16
#3000=1(KCK CAP F=== DGRNDE)
M99
N1(ACI)
IF[#4GT0]GOTO501
N100#10=[[#1-#2]/2](FARK)
#11=ATAN[#3]/[#10]
#12=[90-#11]
F#1
#3006=1(BYK CAP F==== ISE)
F#2
#3006=1(KCK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#12
#3000=1(ACI F===== SATIRINDA)
M99
N2(BOY)
#13=[[#1-#2]/2]
#14=TAN[90-#4]*[#13](BOY)
F#1
#3006=1(BYK CAP F==== ISE)
F#2
#3006=1(KCK CAP F==== ISE)
F#4
#3006=1(ACI F==== ISE)
F#14
#3000=1(BOY  F==== DEGERINDE)
M99
N500#3006=1(IKI DEGER 0 OLRK YZLMZ)
M99
N501#3006=1(HERSEYI YAZDIN NE ARIYON)
M99
%
Yukarıdaki program KONİK hesaplama için kullanılabilir.
Aradığıniz değer neyse o değişkene =0 yazın ve starta basın.3.starta kadar F değerinde
Yazdınız değerleri.4.startta kırmızı alarmla F değerinde aradığız sonucu göreceksiniz.
Not:aradığınız sonuca sıfır yazmayı unutmayın.

Çevrimdışı sezer izin

  • Turkeycnc.com Üyesi
  • *
  • İleti: 9
  • +0/-0
  • ajan
Ynt: KONİK HESAPLAMA MACROSU
« Yanıtla #1 : Aralık 18, 2014, 12:57:50 ÖÖ »
emeğine sağlık ama tezgaha yükledim çalışmadı daha ayrıntılı açıklarsan ana ve alt proğram varsa açıklayıcı olarak teşekkürler

Çevrimdışı MaViBeReLee

  • Turkeycnc.com Üyesi
  • *
  • İleti: 2
  • +0/-0
Ynt: KONİK HESAPLAMA MACROSU
« Yanıtla #2 : Aralık 21, 2014, 12:18:56 ÖS »
Konik isleme şoyle ustam ornegin distan isleyeceksin kucuk cap 30mm buyuk capin 50 mm isleme boyun 50mm kullanilacak takimda 20 p.f hesaplamasi soyle 
50-30=20/2=10
50/0.1=500 (burda 0.1  Z eksenindeki kayma  500 tekrar)
10/500=0.02(burda 0.02  x eksenindeki kayma )
30/2=15+10=25 (baslangictaki 30mm lik cap)
Programlamasi
T1M6
S1500M3
G0G90G54X0Y0
G43Z2H1
#1=0
#2=50
#3=25
N1G1X#3F1000
Z-#1
G2I-#3
#1=#1+0.02
#3=#3+0.1
IF[#1LE#2]GOTO1
G0Z100
G91G28Z0Y0
M30

Çevrimdışı sezer izin

  • Turkeycnc.com Üyesi
  • *
  • İleti: 9
  • +0/-0
  • ajan
Ynt: KONİK HESAPLAMA MACROSU
« Yanıtla #3 : Aralık 23, 2014, 10:05:25 ÖS »
ilgine teşekkür proğramı tezgaha yükledim çalışmadı

Çevrimdışı kenan71

  • Turkeycnc.com Üyesi
  • *
  • İleti: 2
  • +0/-0
Ynt: KONİK HESAPLAMA MACROSU
« Yanıtla #4 : Aralık 24, 2014, 04:20:08 ÖS »
%

(MACRO KONIK HESAPLAMA)
#1=50(BYK CAP)
#2=6(KCK CAP)
#3=14.928(BOY)
#4=0(ACI)
 
 
 
 
IF[#1AND#2AND#3AND#4GT0]GOTO501
 
#100=[#1+#2]
#101=[#1+#3]
#102=[#1+#4]
#103=[#2+#3]
#104=[#2+#4]
#105=[#3+#4]
 
IF[#100LE0]GOTO500
IF[#101LE0]GOTO500
IF[#102LE0]GOTO500
IF[#103LE0]GOTO500
IF[#104LE0]GOTO500
IF[#105LE0]GOTO500
 
IF[#4LE0]GOTO1(ACI)
IF[#3LE0]GOTO2(BOY)
IF[#2LE0]GOTO3(K Q)
IF[#1LE0]GOTO4(B Q)
N4(BUYUK CAP)
#17=TAN[#4]*[#3]
#18=[[[#2/2]+#17]*2]
F#2
#3006=1(KCK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#4
#3006=1(ACI F====ISE)
F#18
#3000=1(BYK CAP F=DEGERINDE)
M99
N3(KUCUK CAP)
#15=TAN[#4]*[#3]
#16=[[[#1/2]-#15]*2]
F#1
#3006=1(BYK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#4
#3006=1(ACI F=====ISE)
F#16
#3000=1(KCK CAP F=== DGRNDE)
M99
N1(ACI)
IF[#4GT0]GOTO501
N100#10=[[#1-#2]/2](FARK)
#11=ATAN[#3]/[#10]
#12=[90-#11]
F#1
#3006=1(BYK CAP F==== ISE)
F#2
#3006=1(KCK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#12
#3000=1(ACI F===== SATIRINDA)
M99
N2(BOY)
#13=[[#1-#2]/2]
#14=TAN[90-#4]*[#13](BOY)
F#1
#3006=1(BYK CAP F==== ISE)
F#2
#3006=1(KCK CAP F==== ISE)
F#4
#3006=1(ACI F==== ISE)
F#14
#3000=1(BOY  F==== DEGERINDE)
M99
N500#3006=1(IKI DEGER 0 OLRK YZLMZ)
M99
N501#3006=1(HERSEYI YAZDIN NE ARIYON)
M99
%
Sana yazığım konik hesaplama macrosu
göndereyim bi tane .bunu tezgaha yükle
aradığın değer neyse ona sıfır yaz .
sonra statta bas.Her statta bastığında
F değerinde girdiğin değerleri gösterecek
4.startta kırmızı alarm ve F de aradağın sonuç.
ister büyük çapı bul ,ister küçük çapı,
ister boyu,istersen açıyı.

Çevrimdışı MaViBeReLee

  • Turkeycnc.com Üyesi
  • *
  • İleti: 2
  • +0/-0
Ynt: KONİK HESAPLAMA MACROSU
« Yanıtla #5 : Aralık 26, 2014, 07:58:57 ÖÖ »
Kenan kardesim orda paso miktarlarinin yerlerini degistirmek gerekiyo orda ufak bir yanlis yaptm #1=#1+0.1  #3=#3+0.02 yaparsan calisir

Çevrimdışı fırtına35

  • Operatör
  • **
  • İleti: 14
  • +1/-1
  • Cinsiyet: Bay
Ynt: KONİK HESAPLAMA MACROSU
« Yanıtla #6 : Ocak 17, 2015, 08:12:36 ÖS »
KENAN 71 Kardeşim konik hesaplama macrosu güzel olmuş çok uğraştırdımı seni
You are not allowed to view links. Register or Login

Çevrimdışı Atar

  • Turkeycnc.com Üyesi
  • *
  • İleti: 2
  • +0/-0
Ynt: KONİK HESAPLAMA MACROSU
« Yanıtla #7 : Şubat 11, 2016, 10:28:46 ÖÖ »
Ellerinizi sağlık ustalar teskur