ASP.net实现的计算器

公告

Posted on 2006-03-16 11:29 FinalFantasy 阅读(2930) 评论(1) 编辑收藏举报

这个计算器是初学的一个作业，在写这个计算器的时候还遇到了些小麻烦。本来是想用自带的web控件来实现手动输入字符进行计算的判断，不然会出现严重的错误。可是自带的验证控件只能够验证通过键盘输入的字符，像我这样设计的如果再通过按钮来更改文本框中的文字就会出现验证的错误判断。这个问题卡了我很久，最后才突然想到用错误处理来自己判断文本框的文字更改，才最后实现这个功能。

此计算器实现功能：基本的加、减、乘、除的运算，还有连续运算，手动输入字符的运算以及判断

代码我觉得还是太长了，不知道还能怎样缩减，还请哪位高人指点。代码如下：

Quote:

<%@ Page Language="VB" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Ent.click("1")
        TextBox1.Text = Ent.total
        Call CleanLabel()
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Ent.click("2")
        TextBox1.Text = Ent.total
        Call CleanLabel()
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Ent.click("3")
        TextBox1.Text = Ent.total
        Call CleanLabel()
    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Ent.click("4")
        TextBox1.Text = Ent.total
        Call CleanLabel()
    End Sub

    Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Ent.click("5")
        TextBox1.Text = Ent.total
        Call CleanLabel()
    End Sub

    Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Ent.click("6")
        TextBox1.Text = Ent.total
        Call CleanLabel()
    End Sub

    Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Ent.click("7")
        TextBox1.Text = Ent.total
        Call CleanLabel()
    End Sub

    Protected Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Ent.click("8")
        TextBox1.Text = Ent.total
        Call CleanLabel()
    End Sub

    Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Ent.click("9")
        TextBox1.Text = Ent.total
        Call CleanLabel()
    End Sub

    Protected Sub Button10_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Len(Ent.total) > 0 Then
            Call CleanLabel()
            Ent.click("0")
            TextBox1.Text = Ent.total
        End If
    End Sub

    Protected Sub Button18_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Call CleanLabel()
        Ent.total = ""
        Ent.sign = ""
        TextBox1.Text = "0"
    End Sub

    Protected Sub Button11_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Len(Ent.total) >= 0 Then
            If InStr(Ent.total, ".") = 0 Then
                Ent.click(".")
                TextBox1.Text = Ent.total
            End If
        End If
        Call CleanLabel()
    End Sub

    Protected Sub Button12_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Len(Ent.sign) = 1 Then
            Call Count()
            Ent.num1 = TextBox1.Text
            Ent.sign = "+"
        Else
            Ent.num1 = TextBox1.Text
            TextBox1.Text = "0"
            Ent.total = ""
            Ent.sign = "+"
        End If
    End Sub

    Protected Sub Button16_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Call Count()
    End Sub

    Protected Sub Button13_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Len(Ent.sign) = 1 Then
            Call Count()
            Ent.num1 = TextBox1.Text
            Ent.sign = "-"
        Else
            Ent.num1 = TextBox1.Text
            TextBox1.Text = "0"
            Ent.total = ""
            Ent.sign = "-"
        End If
    End Sub

    Protected Sub Button14_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Len(Ent.sign) = 1 Then
            Call Count()
            Ent.num1 = TextBox1.Text
            Ent.sign = "*"
        Else
            Ent.num1 = TextBox1.Text
            TextBox1.Text = "0"
            Ent.total = ""
            Ent.sign = "*"
        End If
    End Sub

    Protected Sub Button15_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Len(Ent.sign) = 1 Then
            Call Count()
            Ent.num1 = TextBox1.Text
            Ent.sign = "/"
        Else
            Ent.num1 = TextBox1.Text
            TextBox1.Text = "0"
            Ent.total = ""
            Ent.sign = "/"
        End If
    End Sub

    Protected Sub Button17_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        TextBox1.Text = "0"
        Ent.total = ""
        Call CleanLabel()
    End Sub

    Protected Sub Button19_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Len(TextBox1.Text) > 1 Then
            TextBox1.Text = Left(TextBox1.Text, (Len(TextBox1.Text) - 1))
            Ent.total = TextBox1.Text
        Else : TextBox1.Text = "0"
        End If
    End Sub

    Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim a As Double
        Try
            a = CDbl(TextBox1.Text)
            Call CleanLabel()
        Catch ex As Exception
            Label1.Text = "同志请不要那数字以外的字符开计算器的玩笑！"
            TextBox1.Text = "0"
            Ent.total = "0"
            Ent.sign = ""
        End Try
    End Sub

    Sub CleanLabel()
        Label1.Text = ""
    End Sub
</script>

会员力量，点亮园子希望

刷新页面返回顶部

从.NET学起……

世界的小世界，我的大世界……

公告

ASP.net实现的计算器