Program VB Untuk Membuat Calculator

Membuat program calculator pada bahasa pemrograman visual basic, sebenarnya sih gampang gampang susah. Yah kalau belum tahu logika awalnya sih susah, namun jika sudah mengetahui logika dasar pembuatan program nya, ternyata program vb untuk membuat calculator sangat gampang.

Program ini saya sederhanakan dari postingan saya Program Calculator Pada Visual Basic

Design program vb untuk membuat calculator berikut ini :

 

Adapun keterangan penamaannya seperti berikut ini :

Untuk Textbox1 diberi nama Angka

Untuk Command Button 0-9 di beri nama BTN (sehingga membentuk index array)

Untuk Command Button C di beri nama BtnC
Untuk Command Button +/- di beri nama BtnMinus
Untuk Command Button . di beri nama BtnKoma
Untuk Command Button = di beri nama BtnHasil
Untuk Command Button Backspace di beri nama BtnBack

Untuk Command Button +,/,*,- di beri nama BtnProses

Berikut listing program VB untuk membuat calculator pada Visual Basic

Dim OPnya As String
Dim a As Double
Dim b As Double
Dim c As Double
Dim bil As String

Function Proseskan(op As String)
    Dim xhasil As Double
    Select Case op
    Case "+": xhasil = a + b
    Case "-": xhasil = a - b
    Case "/": xhasil = a / b
    Case "*": xhasil = a * b
    End Select
    Proseskan = xhasil
End Function

Sub Normalkan()
    operatornya = ""
    bil = ""
    a = 0
    b = 0
    c = 0
    Angka = "0"
End Sub

Private Sub btn_Click(Index As Integer)
    Dim x As String
    x = btn(Index).Caption
    If bil <> "0" Or OPnya = "" Then
       bil = bil + x
    Else
       bil = x
    End If
    Angka = bil
End Sub

Private Sub btnback_Click()
    Dim jml As Byte
    jml = Len(bil)
    If jml > 0 Then
        bil = Left(bil, jml - 1)
        Angka = bil
    End If
End Sub

Private Sub btnC_Click()
    Call Normalkan
End Sub

Private Sub btnhasil_Click()
    b = CCur(bil)
    Angka = Proseskan(OPnya)
    bil = "0"
    a = 0
    b = 0
End Sub

Private Sub btnkoma_Click()
    If bil <> "" Then
        bil = bil + ","
    Else
        bil = "0"
    End If
    Angka = bil
End Sub

Private Sub btnminus_Click()
    bil = CCur(bil) * -1
    Angka = bil
End Sub

Private Sub btnProses_Click(Index As Integer)
    OPnya = btnProses(Index).Caption
    If bil <> "" Then
        If a = 0 Then
            a = CCur(bil)
        Else
            b = CCur(bil)
            a = Proseskan(OPnya)
        End If
        bil = ""
    End If
End Sub

Private Sub Form_Load()
    Call Normalkan
End Sub

Sumber : Mesran.net