Program Kalkulator Lengkap dengan menggunakan MVS 6.0

listing program

Private Sub cmdAkar_Click(Index As Integer)
cmdHasil.Text = Val(Text1.Text) ^ (1 / Val(Text2.Text))
End Sub

Private Sub cmdBagi_Click()
cmdHasil.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub


Private Sub cmdDev_Click()
cmdHasil.Text = Val(Text1.Text) \ Val(Text2.Text)
End Sub

Private Sub cmdKali_Click()
cmdHasil.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub cmdKurang_Click()
cmdHasil.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub cmdMod_Click()
cmdHasil.Text = Val(Text1.Text) Mod Val(Text2.Text)
End Sub

Private Sub cmdPangkat_Click(Index As Integer)
cmdHasil.Text = Val(Text1.Text) ^ Val(Text2.Text)
End Sub

Private Sub cmdPersen_Click()
cmdHasil.Text = Val(Text1.Text) * Val(Text2.Text) / Val(Text2.Text)
End Sub

Private Sub cmdTambah_Click()
cmdHasil.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

moga suksess..!!!!