program matematika

1. Buka visual basic 6.0 setelah itu maka tampilannya akan seperti  ini :

2.  Tambahkan componen frame, ni kyak bgini : 

3. Tambahkan Label di tengah-tengah frame dan tulis di Label PROGRAM MATEMATIKA : 

 

4. Setelah itu tambahkan frame lagi sekaligus Label, TextBox, Dan CommandButton kayak bgini :

 

5. Kalau sudah jadi tambah lagi frame, label, TextBox, dan CommandButton hingga tampilan seperti ini :

 

 6. Jika sudah beres semuanya seperti gambar   diatas agan copas source code di bawah ini :

 

Private Sub Command1_Click()

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

End Sub

Private Sub Command2_Click()

Text6.Text = 0.5 * (Val(Text3.Text) + Val(Text4.Text)) * Val(Text5.Text)

End Sub

Private Sub Command3_Click()

Text8.Text = 3.14 * (Val(Text7.Text) * Val(Text7.Text))

End Sub

Private Sub Command4_Click()

Text11.Text = Val(Text9.Text) * Val(Text10.Text)

End Sub

Private Sub Command5_Click()

Text14.Text = Val(Text12.Text) * Val(Text13.Text)

End Sub

Private Sub Command6_Click()

Text17.Text = 0.5 * (Val(Text15.Text) * Val(Text16.Text))

End Sub

Private Sub Command7_Click()

Text20.Text = 0.5 * (Val(Text18.Text) * Val(Text19.Text))

End Sub

Private Sub Command10_Click()

Text24.Text = Val(Text21.Text) * Val(Text22.Text) * Val(Text23.Text)

End Sub

Private Sub Command11_Click()

Text28.Text = 2 * (Val(Text25.Text) * Val(Text26.Text) + Val(Text25.Text) * Val(Text27.Text) + Val(Text27.Text) * Val(Text26.Text))

End Sub

Private Sub Command12_Click()

Text31.Text = 3.14 * Val(Text29.Text) * Val(Text29.Text) * Val(Text30.Text)

End Sub

Private Sub Command13_Click()

Text34.Text = 6.28 * Val(Text32.Text) * (Val(Text32.Text) + Val(Text33.Text))

End Sub

Private Sub Command8_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Text17.Text = ""

Text18.Text = ""

Text19.Text = ""

Text20.Text = ""

Text21.Text = ""

Text22.Text = ""

Text23.Text = ""

Text24.Text = ""

Text25.Text = ""

Text26.Text = ""

Text27.Text = ""

Text28.Text = ""

Text29.Text = ""

Text30.Text = ""

Text31.Text = ""

Text32.Text = ""

Text33.Text = ""

Text34.Text = ""

End Sub

Private Sub Command9_Click()

End

End Sub