Tutorial membuat aplikasi menghitung luas dan keliling dengan Visual Basis 6.0

Tutorial membuat aplikasi menghitung luas dan keliling dengan Visual Basis 6.0 :

1. Buat form seperti gambar berikut : 

2. masukan source code pada Command button HITUNG

       Private Sub Command1_Click()

       Text3.Text = Val(Text1.Text) * Val(Text2.Text)

       Text4.Text = ((Val(Text1) + Val(Text2)) * 2)

       End Sub

3. masukan source code pada Command button HAPUS

Private Sub Command2_Click()

Text1.Text = ""

Text1.SetFocus

Text2.Text = ""

Text2.SetFocus

Text3.Text = ""

Text3.SetFocus

Text4.Text = ""

Text4.setFocus

End Sub

4. masukan Source code pada Command button KELUAR

Private Sub Command3_Click()

End

End Sub

5. Gambar Aplikasi yang telah Di runing :