Membuat Kalkulator dari Visual Basic 6.0

Private Sub aboutme1_Click()

Form8.Show

End Sub

 

Private Sub back1_Click()

MDIForm1.Show

Form1.Hide

End Sub

 

Private Sub Command1_Click()

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

End Sub

 

Private Sub Command2_Click()

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

End Sub

 

Private Sub Command3_Click()

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

End Sub

 

Private Sub Command4_Click()

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

End Sub

 

Private Sub Command5_Click()

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

End Sub

 

Private Sub Command6_Click()

Text3.Text = " "

Text1.Text = " "

Text2.Text = " "

End Sub

 

Private Sub Command7_Click()

MDIForm1.Show

Form1.Hide

End Sub

                                                         Listing Program Kalkuator

                                                                           OUT PUT