Program Luas Segitiga Visual Basic

Kontrol yang dibutuhkan :
1. Dua buah label :

    label1.text="Alas:"

    label2.text="Tinggi:"

2. Dua buah textbox

    txtAlas,txtTinggi

3. Satu buah Button

    cmdLuas.text="Luas"

4. Satu buah label

    lblLuas

Kemudian double klik button luas, ketik kode dibawah ini : 

    Private Sub cmdLuas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLuas.Click
        lblLuas.Text = Math.Round(0.5 * Val(txtAlas.Text) * Val(txtTinggi.Text), 2)
    End Sub

Ketika dijalankan hasilnya seperti dibawah ini :