Alan Hesaplama

Üçgen, Kare, Diktdörtgen ve Kare nin alanlarının hesaplayacağız. Formunuza 1 adet ComboBox ve Button ekleyin.

Public Class Form1
    Dim alan As Double
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Text = "Lütfen seçiniz..."
        ComboBox1.Items.Add("Kare")
        ComboBox1.Items.Add("Dikdörtgen")
        ComboBox1.Items.Add("Üçgen")
        ComboBox1.Items.Add("Daire")
    End Sub
    Private Function alan_hesapla(ByVal kenar1 As Double, ByVal kenar2 As Double) As Double
        If ComboBox1.SelectedItem = "Kare" Then
            alan = Math.Pow(kenar1, 2)
            ‘veya
            ‘alan = kenar1 * kenar1
        End If
        If ComboBox1.SelectedItem = "Üçgen" Then
            alan = (kenar1 * kenar2) / 2
        End If
        If ComboBox1.SelectedItem = "Daire" Then
            alan = Math.PI * Math.Pow(kenar1, 2)
            ‘veya
            ‘alan = 3.14 * kenar1 * kenar1
        End If
        If ComboBox1.SelectedItem = "Dikdörtgen" Then
            alan = kenar1 * kenar2
        End If
        Return alan
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a1, a2 As Double
        If ComboBox1.SelectedItem = "Kare" Or ComboBox1.SelectedItem = "Daire" Then
            a1 = InputBox("1.sayı Girişi", "Mesaj")
        Else
            a1 = InputBox("1.sayı Girişi", "Mesaj")
            a2 = InputBox("2.sayı Girişi", "Mesaj")
        End If

        alan_hesapla(Val(a1), Val(a2))

        MessageBox.Show("Alan Sonuç:" & alan_hesapla(a1, a2), ComboBox1.Text & " İşlem:", MessageBoxButtons.OK)
    End Sub
End Class

‘Bir sonraki makalede buluşmak üzere. Bahadır