当前位置: 王朝网络 >> asp >> 【原创】刚学ASP.Net，学了个简单的计算器

【原创】刚学ASP.Net，学了个简单的计算器

王朝asp·作者佚名 2006-01-09

窄屏简体版字體: 小|中|大|超大

<html>

<head>

<title>Calculator</title>

dim c as char

dim str as string

dim len as integer

dim Is2 as Boolean

dim num1 as double

dim num2 as double

dim result as double

'**************************************************

Sub btClick(Sender as Object , E as EventArgs)

If(Sender.Equals(btResult)) Then

Len = LoadStr.Text.Length()

If(Len = 0) Then Exit Sub

Len = LoadStr.Text.Length()

c = Right(LoadStr.Text,1)

str = Left(LoadStr.Text,Len-1)

num1 = Val(str)

num2 = Val(tbExps.Text)

result = num2

Select Case Asc(c)

Case 43

result = num1 + num2

Case 45

result = num1 - num2

Case 42

result = num1 * num2

Case 47

If(num2 = 0) Then

tbExps.Text = "除数不可以为零"

Exit Sub

End If

result = num1/num2

End Select

str = CStr(result)

Ltrim(str)

tbExps.Text = str

LoadStr.Text = ""

End If

'**************************************************

If(Sender.Equals(btAdd)) Then

LoadStr.Text = tbExps.Text + "+"

tbExps.Text = ""

End If

'**************************************************

If(Sender.Equals(btMin)) Then

LoadStr.Text = tbExps.Text + "-"

tbExps.Text = ""

End If

'**************************************************

If(Sender.Equals(btMul)) Then

LoadStr.Text = tbExps.Text + "*"

tbExps.Text = ""

End If

'**************************************************

If(Sender.Equals(btDiv)) Then

LoadStr.Text = tbExps.Text + "/"

tbExps.Text =""

End If

'**************************************************

If(Sender.Equals(btCls)) Then

tbExps.Text = ""

End If

'**************************************************

If(Sender.Equals(btBack)) Then

If(tbExps.Text.Length() <> 0) Then

str = tbExps.Text

len = tbExps.Text.Length()

tbExps.Text = Left(str,len-1)

End If

'**************************************************

If(Sender.Equals(bt)) Then

If(Left(tbExps.Text,1) = "-") Then

str = tbExps.Text

len = tbExps.Text.Length()

tbExps.Text = Right(str,len-1)

Else

str = "-"

str += tbExps.Text

tbExps.Text = str

End If

'**************************************************

If(Sender.Equals(btDot)) Then

If(tbExps.Text.Length() <> 0) Then

If(tbExps.Text.Length() <10) Then

tbExps.Text += "."

End If

'**************************************************

If(Sender.Equals(bt1)) Then

If(tbExps.Text.Length() <10) Then

If(tbExps.Text = "0") Then

tbExps.Text = "1"

Else

tbExps.Text += "1"

End If

'**************************************************

If(Sender.Equals(bt2)) Then

If(tbExps.Text.Length() <10) Then

If(tbExps.Text = "0") Then

tbExps.Text = "2"

Else

tbExps.Text += "2"

End If

'**************************************************

If(Sender.Equals(bt3)) Then

If(tbExps.Text.Length() <10) Then

If(tbExps.Text = "0") Then

tbExps.Text = "3"

Else

tbExps.Text += "3"

End If

'**************************************************

If(Sender.Equals(bt4)) Then

If(tbExps.Text.Length() <10) Then

If(tbExps.Text = "0") Then

tbExps.Text = "4"

Else

tbExps.Text += "4"

End If

'**************************************************

If(Sender.Equals(bt5)) Then

If(tbExps.Text.Length() <10) Then

If(tbExps.Text = "0") Then

tbExps.Text = "5"

Else

tbExps.Text += "5"

End If

'**************************************************

If(Sender.Equals(bt6)) Then

If(tbExps.Text.Length() <10) Then

If(tbExps.Text = "0") Then

tbExps.Text = "6"

Else

tbExps.Text += "6"

End If

'**************************************************

If(Sender.Equals(bt7)) Then

If(tbExps.Text.Length() <10) Then

If(tbExps.Text = "0") Then

tbExps.Text = "7"

Else

tbExps.Text += "7"

End If

'**************************************************

If(Sender.Equals(bt8)) Then

If(tbExps.Text.Length() <10) Then

If(tbExps.Text = "0") Then

tbExps.Text = "8"

Else

tbExps.Text += "8"

End If

'**************************************************

If(Sender.Equals(bt9)) Then

If(tbExps.Text.Length() <10) Then

If(tbExps.Text = "0") Then

tbExps.Text = "9"

Else

tbExps.Text += "9"

End If

'**************************************************

If(Sender.Equals(bt0)) Then

If(tbExps.Text.Length() <10) Then

If(tbExps.Text <> "0") Then

tbExps.Text += "0"

End If

End Sub

'****************************************************

Sub Help(Sender as Object, E as EventArgs)

if(lbHelp.visible) Then

lbHelp.visible = False

Else

lbHelp.visible = True

End if

End Sub

</script>

</head>

           简单计算器

<asp:panel id="Pl" Runat="server" Width=200 Height=220 BorderStyle="Solid" BorderColor="#ffcc33" BackColor="#ccffff">

<hr>

<asp:textbox id=tbExps MaxLength="10" Width=195 Runat="server" TextAlign="Right"/>

<hr>

<asp:label Runat="server" width=5/>

<asp:button id=btCls Text="Clear" Width=60 Height=25 Runat="server" OnClick="btClick"/>

<asp:button id=btBack Text="Back" Width=60 Height=25 Runat="server" OnClick="btClick"/>

<asp:label Width=25 Runat="server"/>

<asp:button id=btResult Text="=" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<hr>

<asp:label Runat="server" width=5/>

<asp:button id=bt7 Text="7" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:button id=bt8 Text="8" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:button id=bt9 Text="9" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:label Width=50 Runat="server"/>

<asp:button id=btMul Text="*" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:label Runat="server" width=5/>

<asp:button id=bt4 Text="4" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:button id=bt5 Text="5" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:button id=bt6 Text="6" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:label Width=50 Runat="server"/>

<asp:button id=btDiv Text="/" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:label Runat="server" width=5/>

<asp:button id=bt1 Text="1" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:button id=bt2 Text="2" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:button id=bt3 Text="3" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:label Width=50 Runat="server"/>

<asp:button id=btAdd Text="+" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:label Runat="server" width=5/>

<asp:button id=bt0 Text="0" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:button id=bt Text="-/+" Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:button id=btDot Text="." Width=30 Height=25 Runat="server" OnClick="btClick"/>

<asp:label Width=50 Runat="server"/>

<asp:button id=btMin Text="-" Width=30 Height=25 Runat="server" OnClick="btClick"/>

</asp:panel>

<br>

<asp:Label id=LoadStr runat="server" Visible=False />

<asp:button id=btHelp runat="server" Text="使用帮助==>>" OnClick="Help"/><br>

<asp:label id=lbHelp Visible=False wrap=True Runat="server" Text = "这是一个简单的计算器，实现的功能很简单。可以运算四则运算，包括小数，负数等。输入时最多只能为10位数。谢谢大家的使用，有什么建议可以联系我."/>

</form>

</body>

</html>

****

http://172.16.90.53/horisly/asp.net/calculator.aspx

点击展开全文

上一篇：(论坛答疑点滴)怎么触发DataGrid模板列中控件的事件？

下一篇：请教关于global.asa的问题

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

没有找到您想要的？点此查看更多相关文章
相关文章▶

2023年上半年GDP全球前十五强
百态 2023-10-24

美众议院议长启动对拜登的弹劾调查
百态 2023-09-13

上海、济南、武汉等多地出现不明坠落物
探索 2023-09-06

印度或要将国名改为“巴拉特”
百态 2023-09-06

男子为女友送行，买票不登机被捕
百态 2023-08-20

手机地震预警功能怎么开？
干货 2023-08-06

女子4年卖2套房花700多万做美容：不但没变美脸，面部还出现变形
百态 2023-08-04

住户一楼被水淹还冲来8头猪
百态 2023-07-31

女子体内爬出大量瓜子状活虫
百态 2023-07-25

地球连续35年收到神秘规律性信号，网友：不要回答！
探索 2023-07-21

全球镓价格本周大涨27%
探索 2023-07-09

钱都流向了那些不缺钱的人，苦都留给了能吃苦的人
探索 2023-07-02

倩女手游刀客魅者强控制（强混乱强眩晕强睡眠）和对应控制抗性的关系
百态 2020-08-20

美国5月9日最新疫情：美国确诊人数突破131万
百态 2020-05-09

荷兰政府宣布将集体辞职
干货 2020-04-30

倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观：鹏程万里
干货 2019-11-12

倩女幽魂手游师徒任务情义春秋猜成语答案神机营：射石饮羽
干货 2019-11-12

倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山：拔刀相助
干货 2019-11-12

倩女幽魂手游师徒任务情义春秋猜成语答案天工阁：鬼斧神工
干货 2019-11-12

倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道：单枪匹马
干货 2019-11-12

倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野：与虎谋皮
干货 2019-11-12

倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野：李代桃僵
干货 2019-11-12

倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野：指鹿为马
干货 2019-11-12

倩女幽魂手游师徒任务情义春秋猜成语答案金陵：小鸟依人
干货 2019-11-12

倩女幽魂手游师徒任务情义春秋猜成语答案金陵：千金买邻
干货 2019-11-12