Aplikasi Kalkulator Visual Basic 2010

Kalkulator

Form Design

Code

Public Class Form1
    Dim bil1, bil2, hasil As Double
    Dim r As String
    Private Sub B_OFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_OFF.Click
        TextBox1.Enabled = False
        End
    End Sub

    Private Sub B_0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_0.Click
        TextBox1.Text = TextBox1.Text & "0"
    End Sub

    Private Sub B_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_1.Click
        TextBox1.Text = TextBox1.Text & "1"
    End Sub

    Private Sub B_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_2.Click
        TextBox1.Text = TextBox1.Text & "2"
    End Sub

    Private Sub B_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_3.Click
        TextBox1.Text = TextBox1.Text & "3"
    End Sub

    Private Sub B_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_4.Click
        TextBox1.Text = TextBox1.Text & "4"
    End Sub

    Private Sub B_5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_5.Click
        TextBox1.Text = TextBox1.Text & "5"
    End Sub

    Private Sub B_6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_6.Click
        TextBox1.Text = TextBox1.Text & "6"
    End Sub

    Private Sub B_7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_7.Click
        TextBox1.Text = TextBox1.Text & "7"
    End Sub

    Private Sub B_8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_8.Click
        TextBox1.Text = TextBox1.Text & "8"
    End Sub

    Private Sub B_9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_9.Click
        TextBox1.Text = TextBox1.Text & "9"
    End Sub

    Private Sub B_TAMBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_TAMBAH.Click
        bil1 = Val(TextBox1.Text)
        r = "+"
        TextBox1.Text = ""
    End Sub

    Private Sub B_KURANG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_KURANG.Click
        bil1 = Val(TextBox1.Text)
        r = "-"
        TextBox1.Text = ""
    End Sub

    Private Sub B_KALI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_KALI.Click
        bil1 = Val(TextBox1.Text)
        r = "*"
        TextBox1.Text = ""
    End Sub
    Private Sub B_BAGI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_BAGI.Click
        bil1 = Val(TextBox1.Text)
        r = "/"
        TextBox1.Text = ""
    End Sub

    Private Sub B_negatif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_negatif.Click
        TextBox1.Text = "-" & Val(TextBox1.Text)
    End Sub

    Private Sub B_SAMADENGAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_SAMADENGAN.Click
        If r = "+" Then
            hasil = bil1 + Val(TextBox1.Text)
            TextBox1.Text = hasil
            ElseIf r = "-" Then
            hasil = bil1 - Val(TextBox1.Text)
            TextBox1.Text = hasil
        ElseIf r = "*" Then
            hasil = bil1 * Val(TextBox1.Text)
            TextBox1.Text = hasil
        ElseIf r = "/" Then
            hasil = bil1 / Val(TextBox1.Text)
            TextBox1.Text = hasil
        End If
    End Sub

    Private Sub B_HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_HAPUS.Click
        If TextBox1.Text.Length <> 0 Then
            TextBox1.Text = TextBox1.Text.Remove(TextBox1.TextLength - 1, 1)
        End If
    End Sub

    Private Sub B_BARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_BARU.Click
        TextBox1.Enabled = True
        TextBox1.Clear()
    End Sub

    Private Sub B_CLEAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_CLEAR.Click
        TextBox1.Clear()
    End Sub

    Private Sub B_TITIK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_TITIK.Click
        TextBox1.Text = Val(TextBox1.Text) & "."
    End Sub
End Class