VBA Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

35 Okunma VBA

"VBA" Programlama dilinde "Üç Kenarı Verilen Bir Üçgenin Alanını Bulma" ile ilgili kod örneği aşağıdadır. 

Sub Main()

Dim a As Integer
Dim b As Integer
Dim c As Integer

MsgBox("1. kenarı giriniz:")
a = CInt(InputBox("1. kenarı giriniz:", "Kenar A"))

MsgBox("2. kenarı giriniz:")
b = CInt(InputBox("2. kenarı giriniz:", "Kenar B"))

MsgBox("3. kenarı giriniz:")
c = CInt(InputBox("3. kenarı giriniz:", "Kenar C"))

If (a + b) > c And (a + c) > b And (b + c) > a Then
    Dim s As Double
    s = (a + b + c) / 2.0
    Dim area As Double
    area = Sqr(s * (s - a) * (s - b) * (s - c))
    MsgBox ("Üçgenin Alanı: " & area)    
Else  
    MsgBox("Üçgenin Alanı yoktur")
End If

End Sub
Üçgen Alan Kenar VBA

İlginizi Çekebilir

VBA Şifrelenmis Worksheet'lerin Şifresini Kaldırmak

VBA Bir Stringteki Küçük Harfleri Öne Alma Örneği

VBA Dizideki Bir Elemanı Döngü İle Arama Örneği

VBA Bir Stringin Büyük Harfe Çevrilmesi

VBA Tüm Kolonları Auto Fit Yapmak