açıyı ve Uzunluğu hesaplatmak

[k0081]

Merhaba arkadaşlar;

Hipt : 80 ( G12 hücresi )

Karş.dik kenar : 35 ( G13 hücresi)

G14 : 0 ( uzunluk )

G15 : 0 ( açı )


Açıyı ve diğer uzunluğu ( uzunluk : komşu dik kenarı) bir buton ile nasıl hesaplatabilirim..?

yardımcı arkadaşa şimdiden teşekkürler..

 

[suleyman242]

Hipt : 80 ( G12 hücresi )
Karş.dik kenar : 35 ( G13 hücresi)
G14 : 0 ( uzunluk )
G15 : 0 ( açı )
Açıyı ve diğer uzunluğu ( uzunluk : komşu dik kenarı) bir buton ile nasıl hesaplatabilirim..?
yardımcı arkadaşa şimdiden teşekkürler..

Dim mysqr
Dim pi
pi = 4 * Atn(1)
mysqr = Cells(11, "G").Value * Cells(11, "G").Value - (Cells(12, "g").Value * Cells(12, "g").Value)
MsgBox Sqr(mysqr)
Cells(13, "g").Value = Sqr(mysqr)
Cells(14, "g").Value = Atn((Cells(12, "g").Value / Cells(13, "g").Value)) * 180 / (pi)
End Sub

dosya ekte

 

[Merhum İdris SERDAR]

Merhaba arkadaşlar;

Hipt : 80 ( G12 hücresi )

Karş.dik kenar : 35 ( G13 hücresi)

G14 : 0 ( uzunluk )

G15 : 0 ( açı )


Açıyı ve diğer uzunluğu ( uzunluk : komşu dik kenarı) bir buton ile nasıl hesaplatabilirim..?

yardımcı arkadaşa şimdiden teşekkürler..

.

Makrosuz...


.

 

[k0081]

Hocam çok teşekkür ediyorum. tamamdır.. yalnız şöyle bir ekleme yapabilirmiyiz ;

Şimdi bu örnek sorumda açıyı ve uzunluğu istedim. bu değişebilir.. yani karşı dikkenar ve komşu dik kenar verilip, açı ve hipotenüs istenebilir...

bu durumlar için yazmış olduğunuz kodun başına bir if yapısı ekleyebilirmiyiz ?

mesela bu örnek için;

G14 ve G15 0 ise.. diye başlayan bir if yapısı...


tekrar teşekkürler..

 

[k0081]

.

hocam örnek için teşekkürler.. ama bundan biraz farklı bir çalışma yapıyorum.. ilgi için çok teşekkür..

 

[suleyman242]

karşı dikkenar ve komşu dik kenar verilip, açı ve hipotenüs istenebilir...
bu durumlar için yazmış olduğunuz kodun başına bir if yapısı ekleyebilirmiyiz ?

Sub hesapla()
On Error GoTo hata
Dim mysqr, hipotenus
Dim pi
pi = 4 * Atn(1)
    If [G11].Value <> 0 And [G12].Value <> 0 And [G13].Value <> 0 _
    Or [G11].Value = 0 And [G12].Value = 0 And [G13].Value = 0 Then MsgBox "değerlerde bir hata var": Exit Sub
    If Cells(11, "G").Value <> 0 And Cells(12, "G").Value <> 0 Then
        mysqr = Cells(11, "G").Value * Cells(11, "G").Value - (Cells(12, "g").Value * Cells(12, "g").Value)
        Cells(13, "g").Value = Sqr(mysqr)
        Cells(14, "g").Value = Atn((Cells(12, "g").Value / Cells(13, "g").Value)) * 180 / (pi)
    
    ElseIf Cells(13, "G").Value <> 0 And Cells(12, "G").Value <> 0 Then
        hipotenus = Sqr(Cells(13, "G").Value * Cells(13, "G").Value + (Cells(12, "g").Value * Cells(12, "g").Value))
        Cells(11, "G").Value = hipotenus
        Cells(14, "g").Value = Atn((Cells(12, "g").Value / Cells(13, "g").Value)) * 180 / (pi)
        
    ElseIf Cells(11, "G").Value <> 0 And Cells(13, "G").Value <> 0 Then
        mysqr = Cells(11, "G").Value * Cells(11, "G").Value - (Cells(13, "g").Value * Cells(13, "g").Value)
        Cells(12, "g").Value = Sqr(mysqr)
        Cells(14, "g").Value = Atn((Cells(12, "g").Value / Cells(13, "g").Value)) * 180 / (pi)


    End If
GoTo 100
hata:
MsgBox "Kenar uzunlukları hatalı verildi"
100
End Sub

Beni matematik çözdüğüm günlerime götürdün ya O yüzden çok teşekkürler.

 

[k0081]

suleyman242;

hocam bu göndermiş olduğunuz son kodda ; G13 ve G14 veri girdiğimde hata alıyorum..(kenar uzunlukları hatalı verildi..) buralara veri girilebilir..

if ile ilgili kısım şu şekilde olacak hocam:

G12
G13
G14
G15

bu hücrelerden sadece ikisine veri girip diğer iki taneyi hesaplatacağız hocam.

örnek-1 :
G14 ve G15 veri girdik. G14=komşu dik kenar , G15= açı.
hesaplamamız gerekenler G12= hipotenüs G13= karşı dik kenar.
*********************************************
örnek-2 :
G13 ve G12 veri girdik. G13=karş. dik kenar , G12= hipotenüs
hesaplamamız gerekenler G15= açı. G14= komşu dik kenar.
*********************************************
vb...


bu şekilde farklı kombinasyonlar ile dik üçgenin diğer değerlerini bulmak.. bunu yapmak istiyorum hocam...

 

[suleyman242]

suleyman242;


örnek-1 :
G14 ve G15 veri girdik. G14=komşu dik kenar , G15= açı.
hesaplamamız gerekenler G12= hipotenüs G13= karşı dik kenar.
*********************************************

açı verilip diğerlerini hesaplama işlemi yapmamıştım, önceki mesajlarındada hep uzunluktan bahsedilmiş neyse hazırlıyorum.

 

[suleyman242]

farklı kombinasyonlar ile dik üçgenin diğer değerlerini bulmak.. bunu yapmak istiyorum hocam...

Her türlü kombinasyonu denedim bakalım.

 

[k0081]

suleyman242;

Hocam çok teşekkür ediyorum,, tamamdır.. sağolun..

 

[suleyman242]

suleyman242;

Hocam çok teşekkür ediyorum,, tamamdır.. sağolun..

Bende teşekkür ederim kolay gelsin.