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

205 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 Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği

VBA Dosyanın Uzantısını Bulma

VBA Dosyaları Uzantıya Göre Arama

VBA Bir Stringdeki Noktalama İşaretlerini Kaldırma Örneği

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