VisiKita.Net

Program kalkulator ini saya buat sebagai bahan latihan bagi Anda yang sedang belajar bahasa pemrogram Visual Basic 6 (VB6). Disini saya memanfaatkan Control Array untuk mempermudah dalam pembuatannya sekaligus sebagai bahan pembelajaran bagaimana cara memanfaatkan Control Array dalam pembuatan aplikasi.

Program kalkulator ini masih sangat sederhana, oleh karenanya diharapkan Anda dapat mengembangkannya sehingga jauh lebih canggih lagi. Selamat berkreasi.

Desain Form

Siapkan sebuah form kemudian tambahkan sebuah objek TextBox (Name: txtScr) dan beberapa CommandButton (Name: Button; semua objek CommandButton diberi nama sama sehingga tercipta Control Array, hal ini ditandai dengan adanya Index pada setiap ComandButton yang ada).
Untuk desain, silahkan lihat gambar di bawah:

Kode Program

Option Explicit

Private newEntry As Boolean
Private oldNumber As Single
Private newNumber As Single
Private operator As String

Private Sub Initialize()
    newEntry = True
    newNumber = 0
    oldNumber = 0
    operator = Empty
    txtScr.Text = 0
End Sub

Private Function Calculate (ByVal oldNumber As Single, _
    ByVal newNumber As Single, ByVal op As String) As Single
    On Error GoTo Hell
   
    Select Case op
        Case “+”
            Calculate = oldNumber + newNumber
        Case “-”
            Calculate = oldNumber - newNumber
        Case “*”
            Calculate = oldNumber * newNumber
        Case “/”
            Calculate = oldNumber / newNumber
    End Select
    Exit Function
   
Hell:
    MsgBox Err.Description, vbOKOnly Or vbCritical, App.Title
    Calculate = 0
End Function

Private Sub Button_Click(Index As Integer)
    Select Case Button(Index).Caption
        Case “0″, “1″, “2″, “3″, “4″, “5″, “6″, “7″, “8″, “9″
            If newEntry Then
                txtScr.Text = Button(Index).Caption
            Else
                txtScr.Text = txtScr.Text & Button(Index).Caption
            End If
            newEntry = False
           
        Case “.”
            If InStr(1, txtScr.Text, “.”) = 0 Then
                txtScr.Text = txtScr.Text & “.”
                newEntry = False
            End If
           
        Case “+”, “*”, “-”, “/”
            If operator = Empty Then
                oldNumber = Val(txtScr.Text)
                newNumber = 0
            Else
                newNumber = Val(txtScr.Text)
                txtScr.Text = Replace(CStr(Calculate(oldNumber, _
                                      newNumber, operator)), “,”, “.”)
                oldNumber = Val(txtScr.Text)
            End If
            operator = Button(Index).Caption
            newEntry = True
           
        Case “+/-”
            txtScr.Text = Val(txtScr.Text) * -1
            operator = Empty
       
        Case “=”
            newNumber = Val(txtScr.Text)
            txtScr.Text = Replace(CStr(Calculate(oldNumber, _
                                  newNumber, operator)), “,”, “.”)
            operator = Empty
           
        Case “C”
            Call Initialize
    End Select
End Sub

Private Sub Form_Load()
    Call Initialize
End Sub

Jika ada hal-hal yang belum jelas pada program tersebut, silahkan tuliskan segala pertanyaan pada bagian komentar sehingga saya dapat menjawab pertanyaan Anda dan dapat menjadi bahan diskusi pada blog ini. Terimakasih. Semoga bermanfaat.