制作网页计算器-网站脚本技术-aspnet-课程设计

《制作网页计算器-网站脚本技术-aspnet-课程设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、九江职业技术学院网站脚本技术课程设计计算机网络技术专业专业代码：590102网站脚本技术课程设计班级：网络0856班学号：姓名：hp52@live.com（排名不分先后）课题：制作网页计算器指导教师：答辩日期：17/18Shadow2011/12/07九江职业技术学院网站脚本技术课程设计一、任务描述制作网页计算器二、任务分析基本功能v加法v减法v乘法v除法v求余vX分之一vBackspace退格vClean清零v次方v平方vX的y次方v输入1~9v输入小数点v输入πveq等于界面要求v美观大方即可兼容性v使用VB.NET脚本编写v采用B/S构架，在Serve

2、r端运行v标准XHTML几乎兼容所有浏览器17/18Shadow2011/12/07九江职业技术学院网站脚本技术课程设计三、任务解决过程及方法最终效果图（1）：InternetExplorer817/18Shadow2011/12/07九江职业技术学院网站脚本技术课程设计最终效果图（2）：InternetExplorer6.017/18Shadow2011/12/07九江职业技术学院网站脚本技术课程设计未添加进制转换前的截图：InternetExplorer817/18Shadow2011/12/07九江职业技术学院网站脚本技术课程设计脚本代码（有注释）：1

3、)<%@pagelanguage="vb"%>2)3)Subpage_load()'页面加载4)IfNot(Page.IsPostBack)Then'首次加载页面，给输出屏幕赋值5)shuchu.Text="0"6)jz16.Text="0"7)jz8.Text="0"8)jz2.Text="0"9)jc.Text=""10)zt.Text=""11)EndIf12)jc2.Text=""13)EndSub14)15)PublicFunctionjinzhi()'进制转换函数16)jc2.Text=Val(shuc

4、hu.Text)'16进制转换17)jz16.Text=""18)DoWhileVal(jc2.Text)>019)SelectCaseCStr(Val(jc2.Text)Mod16)20)Case"10"21)jz16.Text="A"&jz16.Text22)Case"11"23)jz16.Text="B"&jz16.Text24)Case"12"25)jz16.Text="C"&jz16.Text26)Case"13"27)jz16.Text="D"&jz16.Text28)Case"14"29)jz16.Text="E"&jz16.Text30)Ca

5、se"15"31)jz16.Text="F"&jz16.Text32)CaseElse33)jz16.Text=Val(jc2.TextMod16)&jz16.Text34)EndSelect35)jc2.Text=Str(Val(jc2.Text)16)36)Loop37)38)jc2.Text=Val(shuchu.Text)'8进制转换39)jz8.Text=""40)DoWhileVal(jc2.Text)>041)jz8.Text=(Val(jc2.Text)Mod8)&jz8.Text17/18Shadow2011/12/07九江职业技术学院网

6、站脚本技术课程设计1)jc2.Text=Str(Val(jc2.Text)8)2)Loop3)4)jc2.Text=Val(shuchu.Text)'2进制转换5)jz2.Text=""6)DoWhileVal(jc2.Text)>07)jz2.Text=(Val(jc2.Text)Mod2)&jz2.Text8)jc2.Text=Str(Val(jc2.Text)2)9)Loop10)jc2.Text=""11)12)Ifshuchu.Text=0Then'如果当前值为“0”13)jz16.Text=014)jz8.Text=015)jz2.Text=

7、016)EndIf17)EndFunction18)19)ProtectedSubzero_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)'单击“0”按钮时20)Ifshuchu.Text<>"0"Then'如果当前输出为非“0”，则在字符串右边加上“0”21)shuchu.Text=shuchu.Text&022)ElseIfshuchu.Text="0"Then'如果当前输出为“0”，则不在字符串右边加“0”23)shuchu.Text=024)EndIf25)jinzhi()'调用进制转换函数26

8、)EndSub27)28)ProtectedSubo