Membuat Kalkulator sederhana dengan menggunakan Visual Basic 2010

Algoritma dan Pemrograman

Berikut saya berikan contoh project membuat kalkulator sederhana dengan menggunakan Visual Basic 2010

Dengan tampilan form seperti gambar di bawah :

'Coding

Public Class Form1

    Dim bil1, bil2, hasil As Double

    Dim r As String

    Private Sub bTiga_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bTiga.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "3"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "3"

        End If

    End Sub

    Private Sub bNol_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bNol.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "0"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "0"

        End If

    End Sub

    Private Sub bSatu_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSatu.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "1"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "1"

        End If

    End Sub

    Private Sub bDua_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bDua.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "2"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "2"

        End If

    End Sub

    Private Sub bEmpat_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bEmpat.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "4"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "4"

        End If

    End Sub

    Private Sub bLima_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLima.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "5"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "5"

        End If

    End Sub

    Private Sub bEnam_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bEnam.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "6"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "6"

        End If

    End Sub

    Private Sub bTujuh_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bTujuh.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "7"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "7"

        End If

    End Sub

    Private Sub bDelapan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bDelapan.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "8"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "8"

        End If

    End Sub

    Private Sub bSembilan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSembilan.Click

        If Me.txtTampil.Text = "0" Then

            Me.txtTampil.Text = "9"

        Else : Me.txtTampil.Text = Me.txtTampil.Text & "9"

        End If

    End Sub

    Private Sub bKoma_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bKoma.Click

        If Me.txtTampil.Text = "." Then

            Me.txtTampil.Text = ","

        Else : Me.txtTampil.Text = Me.txtTampil.Text & ","

        End If

    End Sub

    Private Sub bNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bNew.Click

        Me.txtTampil.Clear()

    End Sub

    Private Sub bPlus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bPlus.Click

        bil1 = Val(Me.txtTampil.Text)

        r = "+"

        txtTampil.Text = ""

    End Sub

    Private Sub bOff_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bOff.Click

        Me.Close()

    End Sub

    Private Sub bMinus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bMinus.Click

        bil1 = Val(Me.txtTampil.Text)

        r = "-"

        txtTampil.Text = ""

    End Sub

    Private Sub bPlusMin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bPlusMin.Click

        Me.txtTampil.Text = "-" & Val(Me.txtTampil.Text)

    End Sub

    Private Sub bSamaDengan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bSamaDengan.Click

        If r = "+" Then

            hasil = bil1 + Val(txtTampil.Text)

            txtTampil.Text = hasil

        ElseIf r = "-" Then

            hasil = bil1 - Val(txtTampil.Text)

            txtTampil.Text = hasil

        ElseIf r = "*" Then

            hasil = bil1 * Val(txtTampil.Text)

            txtTampil.Text = hasil

        ElseIf r = "/" Then

        hasil = bil1 / Val(txtTampil.Text)

            txtTampil.Text = hasil

        End If

    End Sub

    Private Sub bHapusSebagian_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bHapusSebagian.Click

        If txtTampil.Text.Length <> 0 Then

            txtTampil.Text = txtTampil.Text.Remove(txtTampil.TextLength - 1, 1)

        End If

    End Sub

    Private Sub bBagi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bBagi.Click

        bil1 = Val(Me.txtTampil.Text)

        r = "/"

        txtTampil.Text = ""

    End Sub

    Private Sub bKali_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bKali.Click

        bil1 = Val(Me.txtTampil.Text)

        r = "*"

        txtTampil.Text = ""

    End Sub

    Private Sub bC_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bC.Click

        If txtTampil.Text.Length <> 0 Then

            txtTampil.Text = txtTampil.Text.Remove(txtTampil.TextLength - 1, 1)

        End If

    End Sub

End Class

Semoga Bermanfaat

Se