Program VB6 Calculator Sederhana

Ternyata asik juga memprogram Calculator sederhana ini. Program VB6 ini bisa juga anda gunakan sebagai pembelajaran dasar untuk memprogram dengan menggunakan program VB6.

Design dahulu program VB6 Calculator sederhana seperti tampilan di bawah ini :













Berikut program VB6 Calculator sederhana :

Dim op As String
Dim xhasil As Double

Private Sub cmdbagi_Click()
    op = "/"
End Sub

Private Sub cmdhasil_Click()
    Select Case op
    Case "+": xhasil = Val(bil1.Text) + Val(bil2.Text)
    Case "-": xhasil = bil1.Text - bil2.Text
    Case "/": xhasil = bil1.Text / bil2.Text
    Case "x": xhasil = bil1.Text * bil2.Text
    End Select
    hasil.Text = xhasil
End Sub

Private Sub cmdkali_Click()
    op = "x"
End Sub

Private Sub cmdKurang_Click()
    op = "-"
End Sub

Private Sub cmdTambah_Click()
    op = "+"
End Sub

Private Sub Form_Load()
    bil1.Text = ""
    bil2.Text = ""
    hasil.Text = ""
End Sub

Sederhana sekali bukan program VB6 Calculator sederhana tersebut diatas?