Hitung Luas Segitiga

1. Buka VB 6.0, pilih Standart.EXE
2. Masukkan 3 buah Label, 3 buah TextBox, dan 1 buah CommandButton ke dalam Form1. Atur posisinya seperti ini:

3. Ganti Caption Label1 = Alas, Label2 = Tinggi, Label3 = Luas dan Command1 = Hitung. Berikut tampilannya:


4. Kode/ Listing.
Masukkan kode di bawah ini ke dalam jendela kode :

Private Sub Command1_Click()
Luas = (Val(Text1.Text) * Val(Text2.Text))/2
Text3.Text = Luas
End Sub

5. Test programnya dengan menekan tombol F5 pada keyboard.

6. Selamat mencoba penerapan VB 6.0 pada rumus-rumus matematika sederhana yang lain ;-)