注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

刚学ASP.Net,学了个简单的计算器  

2011-06-03 13:17:52|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 
 

html head titleCalculator/title script language=vb Runat=server 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)) ThenLoadStr.Text = tbExps.Text + -tbExps.Text = End If'**************************************************If(Sender.Equals(btMul)) ThenLoadStr.Text = tbExps.Text + *tbExps.Text = End If'**************************************************If(Sender.Equals(btDiv)) ThenLoadStr.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 End If'**************************************************If(Sender.Equals(bt)) Then If(Left(tbExps.Text,1) = -) Thenstr = tbExps.Textlen = tbExps.Text.Length()tbExps.Text = Right(str,len-1)Elsestr = -str += tbExps.TexttbExps.Text = strEnd IfEnd If'**************************************************If(Sender.Equals(btDot)) ThenIf(tbExps.Text.Length()  0) ThenIf(tbExps.Text.Length() 10) ThentbExps.Text += .End IfEnd IfEnd 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 End If End If'**************************************************If(Sender.Equals(bt2)) ThenIf(tbExps.Text.Length() 10) Then If(tbExps.Text = 0) Then tbExps.Text = 2 Else tbExps.Text += 2 End If End If End If'**************************************************If(Sender.Equals(bt3)) ThenIf(tbExps.Text.Length() 10) Then If(tbExps.Text = 0) Then tbExps.Text = 3 Else tbExps.Text += 3 End If End If End If'**************************************************If(Sender.Equals(bt4)) ThenIf(tbExps.Text.Length() 10) Then If(tbExps.Text = 0) Then tbExps.Text = 4 Else tbExps.Text += 4 End If End If End If'**************************************************If(Sender.Equals(bt5)) ThenIf(tbExps.Text.Length() 10) Then If(tbExps.Text = 0) Then tbExps.Text = 5 Else tbExps.Text += 5 End If End If End If'**************************************************If(Sender.Equals(bt6)) ThenIf(tbExps.Text.Length() 10) Then If(tbExps.Text = 0) Then tbExps.Text = 6 Else tbExps.Text += 6 End If End If End If'**************************************************If(Sender.Equals(bt7)) ThenIf(tbExps.Text.Length() 10) Then If(tbExps.Text = 0) Then tbExps.Text = 7 Else tbExps.Text += 7 End If End If End If'**************************************************If(Sender.Equals(bt8)) ThenIf(tbExps.Text.Length() 10) Then If(tbExps.Text = 0) Then tbExps.Text = 8 Else tbExps.Text += 8 End If End If End If'**************************************************If(Sender.Equals(bt9)) ThenIf(tbExps.Text.Length() 10) Then If(tbExps.Text = 0) Then tbExps.Text = 9 Else tbExps.Text += 9 End If End If End If'************************************************** If(Sender.Equals(bt0)) Then If(tbExps.Text.Length() 10) Then If(tbExps.Text  0) Then tbExps.Text += 0 End If End If 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  body MS_POSITIONING=GridLayout nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;简单计算器 form id=Form1 method=post runat=server 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
****
asp.net/calculator.aspx">http://172.16.90.53/horisly/asp.net/calculator.aspx

刚学ASP.Net,学了个简单的计算器 - runze118 - runze118
  评论这张
 
阅读(71)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017