Public Class Calculadora12
    Public ope As String
    Public calc1 As Integer
    Public calc2 As Integer
    Public resultado As Boolean = False



    Private Sub Clear_Click(sender As Object, e As EventArgs) Handles Clear.Click
        visor.Text = ""
    End Sub

    Private Sub Sair_Click(sender As Object, e As EventArgs) Handles Sair.Click
        Me.Close()
    End Sub

    Private Sub Nu7_Click(sender As Object, e As EventArgs) Handles Nu7.Click
        If resultado = True Then
            visor.Text = "7"
            resultado = False
        Else
            visor.Text = visor.Text & 7
        End If
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles visor.TextChanged

    End Sub

    Private Sub Nu0_Click(sender As Object, e As EventArgs) Handles Nu0.Click
        If resultado = True Then
            visor.Text = "0"
            resultado = False
        Else
            visor.Text = visor.Text & 0
        End If
    End Sub

    Private Sub Nu1_Click(sender As Object, e As EventArgs) Handles Nu1.Click
        If resultado = True Then
            visor.Text = "1"
            resultado = False
        Else
            visor.Text = visor.Text & 1
        End If

    End Sub

    Private Sub Nu2_Click(sender As Object, e As EventArgs) Handles Nu2.Click
        If resultado = True Then
            visor.Text = "2"
            resultado = False
        Else
            visor.Text = visor.Text & 2
        End If
    End Sub

    Private Sub Nu3_Click(sender As Object, e As EventArgs) Handles Nu3.Click
        If resultado = True Then
            visor.Text = "3"
            resultado = False
        Else
            visor.Text = visor.Text & 3
        End If
    End Sub

    Private Sub Nu4_Click(sender As Object, e As EventArgs) Handles Nu4.Click
        If resultado = True Then
            visor.Text = "4"
            resultado = False
        Else
            visor.Text = visor.Text & 4
        End If
    End Sub

    Private Sub Nu5_Click(sender As Object, e As EventArgs) Handles Nu5.Click
        If resultado = True Then
            visor.Text = "5"
            resultado = False
        Else
            visor.Text = visor.Text & 5
        End If
    End Sub

    Private Sub Nu6_Click(sender As Object, e As EventArgs) Handles Nu6.Click
        If resultado = True Then
            visor.Text = "6"
            resultado = False
        Else
            visor.Text = visor.Text & 6
        End If
    End Sub

    Private Sub Nu8_Click(sender As Object, e As EventArgs) Handles Nu8.Click
        If resultado = True Then
            visor.Text = "8"
            resultado = False
        Else
            visor.Text = visor.Text & 8
        End If
    End Sub

    Private Sub Nu9_Click(sender As Object, e As EventArgs) Handles Nu9.Click
        If resultado = True Then
            visor.Text = "9"
            resultado = False
        Else
            visor.Text = visor.Text & 9
        End If
    End Sub

    Private Sub Soma_Click(sender As Object, e As EventArgs) Handles adic.Click
        calc1 = visor.Text
        visor.Text = ""
        ope = "+"


    End Sub

    Private Sub Igual_Click(sender As Object, e As EventArgs) Handles resu.Click
        calc2 = visor.Text
        If ope = "+" Then
            visor.Text = calc1 + calc2
            Histórico.Items.Add(calc1 & "+" & calc2 & "=" & calc1 + calc2)
        End If
        If ope = "-" Then
            visor.Text = calc1 - calc2
            Histórico.Items.Add(calc1 & "-" & calc2 & "=" & calc1 - calc2)
        End If
        If ope = "*" Then
            visor.Text = calc1 * calc2
            Histórico.Items.Add(calc1 & "*" & calc2 & "=" & calc1 * calc2)
        End If
        If ope = "/" Then
            visor.Text = calc1 / calc2
            Histórico.Items.Add(calc1 & "/" & calc2 & "=" & calc1 / calc2)
        End If
        resultado = True
    End Sub




    Private Sub subtr_Click(sender As Object, e As EventArgs) Handles subtr.Click
        calc1 = visor.Text
        visor.Text = ""
        ope = "-"
    End Sub

    Private Sub divi_Click(sender As Object, e As EventArgs) Handles divi.Click
        calc1 = visor.Text
        visor.Text = ""
        ope = "/"
    End Sub

    Private Sub multi_Click(sender As Object, e As EventArgs) Handles multi.Click
        calc1 = visor.Text
        visor.Text = ""
        ope = "*"
    End Sub

    Private Sub historico_Click(sender As Object, e As EventArgs) Handles historico.Click
        If Me.Width = 200 Then
            Me.Width = 350
        Else
            Me.Width = 200
        End If
    End Sub

    Private Sub fat_Click(sender As Object, e As EventArgs) Handles fat.Click
        Dim n As Integer
        Dim fat As Decimal
        n = CDec(visor.Text)
        fat = 1
        For i = 1 To n
            fat = fat * i
        Next
        visor.Text = fat
        Histórico.Items.Add(n & "!=" & fat)
        resultado = True

    End Sub

End Class