KONİK HESAPLAMA MACROSU

[firtina35]

%
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.

[sezer izin]

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

[MaViBeReLee]

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

[sezer izin]

ilgine teşekkür proğramı tezgaha yükledim çalışmadı

[kenan71]

%

(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ı.

[MaViBeReLee]

Kenan kardesim orda paso miktarlarinin yerlerini degistirmek gerekiyo orda ufak bir yanlis yaptm #1=#1+0.1  #3=#3+0.02 yaparsan calisir

[fırtına35]

KENAN 71 Kardeşim konik hesaplama macrosu güzel olmuş çok uğraştırdımı seni

[Atar]

Ellerinizi sağlık ustalar teskur