Perhitungan VB 6.0

Perhitungan

Private Sub tbagi_Click()

xhasil = Val(xangka_1) / Val(xangka_2)

End Sub

Private Sub tkali_Click()

xhasil = Val(xangka_1) * Val(xangka_2)

End Sub

Private Sub tkurang_Click()

xhasil = Val(xangka_1) - Val(xangka_2)

End Sub

Private Sub tproses_Click()

xhasil = Val(xangka_1) + Val(xangka_2)

End Sub