Buatlah program visual basic luas segitiga L=½*alas*tinggi​

Jawaban:

Coding :

1. coding ini pada tombol hitung

Private Sub btnhitung_Click()

a = Val(txtalas.Text)

t = Val(txttinggi.Text)

If txtalas.Text = "" Or txttinggi.Text = "" Then

MsgBox "Informasi Tidak Lengkap", vbInformation, "SEGITIGA"

Else

txtluas.Text = (a * t) / 2

txtalas.Text = a

txttinggi.Text = t

End If

End Sub

2. di tombol refresh tuliskan script berikut

Private Sub btnrefresh_Click()

txtalas.Text = ""

txttinggi.Text = ""

txtluas.Text = ""

txtalas.SetFocus

End Sub