Form Segitiga

1. Design form dibawah ini dengan nama form segitiga, gunakan label, textbox, dan button pada toolbox

2. logika program

• input angka didalam textbox luas dan tinggi
• klik tombol hitung untuk mengetahui berapakah nilai alasnya
• klik tombol lagi untuk membersihkan textbox

Listing Code :

Private Sub txthitung_Click()
txtalas = 2 * Val(txtluas.Text) / Val(txttinggi)
End Sub

Private Sub txtlagi_Click()
txtalas = ""
txttinggi = ""
txtluas = ""
txtluas.SetFocus
End Sub