Dim Firstnum As Decimal
Dim Secondnum As Decimal
Dim Operations As Integer
Dim Operator_Selector As Boolean = False

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub nomor1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor1.Click
    If layar.Text <> "0" Then
        layar.Text += "1"
    Else
        layar.Text = "1"
    End If
End Sub

Private Sub nomor2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor2.Click
    If layar.Text <> "0" Then
        layar.Text += "2"
    Else
        layar.Text = "2"
    End If
End Sub

Private Sub nomor3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor3.Click
    If layar.Text <> "0" Then
        layar.Text += "3"
    Else
        layar.Text = "3"
    End If
End Sub

Private Sub nomor4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor4.Click
    If layar.Text <> "0" Then
        layar.Text += "4"
    Else
        layar.Text = "4"
    End If
End Sub

Private Sub nomor5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor5.Click
    If layar.Text <> "0" Then
        layar.Text += "5"
    Else
        layar.Text = "5"
    End If
End Sub

Private Sub nomor6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor6.Click
    If layar.Text <> "0" Then
        layar.Text += "6"
    Else
        layar.Text = "6"
    End If
End Sub

Private Sub nomor7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor7.Click
    If layar.Text <> "0" Then
        layar.Text += "7"
    Else
        layar.Text = "7"
    End If
End Sub

Private Sub nomor8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor8.Click
    If layar.Text <> "0" Then
        layar.Text += "8"
    Else
        layar.Text = "8"
    End If
End Sub

Private Sub nomor9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor9.Click
    If layar.Text <> "0" Then
        layar.Text += "9"
    Else
        layar.Text = "9"
    End If
End Sub

Private Sub nomo0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nomor0.Click, nomo0.Click
    If layar.Text <> "0" Then
        layar.Text += "0"
    End If
End Sub

Private Sub clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clear.Click
    layar.Text = "0"
End Sub

Private Sub titik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles titik.Click
    If Not (layar.Text.Contains(".")) Then
        layar.Text += "."
    End If
End Sub

Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
    Firstnum = layar.Text
    layar.Text = "0"
    Operator_Selector = True
    Operations = 1 ' = +
End Sub

Private Sub kurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kurang.Click
    Firstnum = layar.Text
    layar.Text = "0"
    Operator_Selector = True
    Operations = 2 ' = -
End Sub

Private Sub kali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kali.Click
    Firstnum = layar.Text
    layar.Text = "0"
    Operator_Selector = True
    Operations = 3 ' = *
End Sub

Private Sub bagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bagi.Click
    Firstnum = layar.Text
    layar.Text = "0"
    Operator_Selector = True
    Operations = 4 ' = /
End Sub

Private Sub jumlah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.Click

    If Operator_Selector = True Then
        Secondnum = layar.Text
        If Operations = 1 Then
            layar.Text = Firstnum + Secondnum
        ElseIf Operations = 2 Then
            layar.Text = Firstnum - Secondnum
        ElseIf Operations = 3 Then
            layar.Text = Firstnum * Secondnum
        ElseIf Secondnum = 0 Then
            layar.Text = "Error!"
        Else
            layar.Text = Firstnum / Secondnum
        End If
    End If
    Operator_Selector = False
End Sub

End Class

Bisa anda lihat juga pada gambar brikut ini.

FOLLOW @belajar.ngoding