课程设计制作网页计算器.docx
- 文档编号:4635455
- 上传时间:2022-12-07
- 格式:DOCX
- 页数:5
- 大小:18.19KB
课程设计制作网页计算器.docx
《课程设计制作网页计算器.docx》由会员分享,可在线阅读,更多相关《课程设计制作网页计算器.docx(5页珍藏版)》请在冰豆网上搜索。
课程设计制作网页计算器
课程设计制作网页计算器
计算机网络技术专业专业代码:
590102网站脚本技术课程设计班级:
网络0856班学号:
姓名:
hp52@live.com(排名不分先后)课题:
制作网页计算器指导教师:
答辩日期:
九江职业技术学院网站脚本技术课程设计1/18Shadow2019/12/07一、任务描述制作网页计算器二、任务分析基本功能加法减法乘法除法求余X分之一Backspace退格Clean清零次方平方X的y次方输入1~9输入小数点输入eq等于界面要求美观大方即可兼容性使用VB.NET脚本编写采用B/S构架,在Server端运行标准XHTML几乎兼容所有浏览器九江职业技术学院网站脚本技术课程设计2/18Shadow2019/12/07三、任务解决过程及方法最终效果图
(1):
InternetExplorer8九江职业技术学院网站脚本技术课程设计3/18Shadow2019/12/07最终效果图
(2):
InternetExplorer6.0九江职业技术学院网站脚本技术课程设计4/18Shadow2019/12/07未添加进制转换前的截图:
InternetExplorer8九江职业技术学院网站脚本技术课程设计5/18Shadow2019/12/07脚本代码(有注释):
1)%@pagelanguage=vb%2)scriptrunat=server3)Subpage_load()‘页面加载4)IfNot(Page.IsPostBack)Then‘首次加载页面,给输出屏幕赋值5)shuchu.Text=06)jz16.Text=07)jz8.Text=08)jz2.Text=09)jc.Text=10)zt.Text=11)EndIf12)jc2.Text=13)EndSub14)15)PublicFunctionjinzhi()‘进制转换函数16)jc2.Text=Val(shuchu.Text)‘16进制转换17)jz16.Text=18)DoWhileVal(jc2.Text)019)SelectCaseCStr(Val(jc2.Text)Mod16)20)Case1021)jz16.Text=Ajz16.Text22)Case1123)jz16.Text=Bjz16.Text24)Case1225)jz16.Text=Cjz16.Text26)Case1327)jz16.Text=Djz16.Text28)Case1429)jz16.Text=Ejz16.Text30)Case1531)jz16.Text=Fjz16.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.Text九江职业技术学院网站脚本技术课程设计42)jc2.Text=Str(Val(jc2.Text)\8)6/18Shadow2019/12/0743)Loop44)45)jc2.Text=Val(shuchu.Text)‘2进制转换46)jz2.Text=47)DoWhileVal(jc2.Text)048)jz2.Text=(Val(jc2.Text)Mod2)jz2.Text49)jc2.Text=Str(Val(jc2.Text)\2)50)Loop51)jc2.Text=52)53)Ifshuchu.Text=0Then‘如果当前值为054)jz16.Text=055)jz8.Text=056)jz2.Text=057)EndIf58)EndFunction59)60)ProtectedSubzero_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘单击0按钮时61)Ifshuchu.Text0Then‘如果当前输出为非0,则在字符串右边加上062)shuchu.Text=shuchu.Text063)ElseIfshuchu.Text=0Then‘如果当前输出为0,则不在字符串右边加064)shuchu.Text=065)EndIf66)jinzhi()‘调用进制转换函数67)EndSub68)69)ProtectedSubone_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘单机1按钮时70)Ifshuchu.Text0Then‘如果当前输出为非0,则在字符串右边加上171)shuchu.Text=shuchu.Text172)EndIf73)Ifshuchu.Text=0Then‘如果当前输出为0,则直接赋值输出174)shuchu.Text=175)EndIf76)jinzhi()‘调用进制转换函数77)EndSub78)79)ProtectedSubtwo_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上80)Ifshuchu.Text0Then九江职业技术学院网站脚本技术课程设计81)shuchu.Text=shuchu.Text27/18Shadow2019/12/0782)EndIf83)Ifshuchu.Text=0Then84)shuchu.Text=285)EndIf86)jinzhi()87)EndSub88)89)ProtectedSubthree_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上90)Ifshuchu.Text0Then91)shuchu.Text=shuchu.Text392)EndIf93)Ifshuchu.Text=0Then94)shuchu.Text=395)EndIf96)jinzhi()97)EndSub98)99)ProtectedSubfour_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上100)Ifshuchu.Text0Then101)shuchu.Text=shuchu.Text4102)EndIf103)Ifshuchu.Text=0Then104)shuchu.Text=4105)EndIf106)jinzhi()107)EndSub108)109)ProtectedSubfive_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上110)Ifshuchu.Text0Then111)shuchu.Text=shuchu.Text5112)EndIf113)Ifshuchu.Text=0Then114)shuchu.Text=5115)EndIf116)jinzhi()117)EndSub118)119)ProtectedSubsix_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上九江职业技术学院网站脚本技术课程设计120)8/18Shadow2019/12/07Ifshuchu.Text0Then121)shuchu.Text=shuchu.Text6122)EndIf123)Ifshuchu.Text=0Then124)shuchu.Text=6125)EndIf126)jinzhi()127)EndSub128)129)ProtectedSubseven_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上130)Ifshuchu.Text0Then131)shuchu.Text=shuchu.Text7132)EndIf133)Ifshuchu.Text=0Then134)shuchu.Text=7135)EndIf136)jinzhi()137)EndSub138)139)ProtectedSubeight_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上140)Ifshuchu.Text0Then141)shuchu.Text=shuchu.Text8142)EndIf143)Ifshuchu.Text=0Then144)shuchu.Text=8145)EndIf146)jinzhi()147)EndSub148)149)ProtectedSubnine_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上150)Ifshuchu.Text0Then151)shuchu.Text=shuchu.Text9152)EndIf153)Ifshuchu.Text=0Then154)shuchu.Text=9155)EndIf156)jinzhi()157)EndSub158)159)ProtectedSubdot_Click(ByValsenderAsObject,ByValeAs九江职业技术学院网站脚本技术课程设计9/18Shadow2019/12/07System.EventArgs)‘单击.按钮时160)IfVal(shuchu.Text)Mod10Then‘如果当前屏幕输出数值为小数,则不修改任何属性161)EndIf162)IfVal(shuchu.Text)Mod1=0Then‘如果当前屏幕输出数值为整数,则在字符串的右边加上.163)shuchu.Text=shuchu.Text.164)EndIf165)jinzhi()166)EndSub167)168)ProtectedSubclean_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘单击C按钮时169)shuchu.Text=0‘主屏幕输出数值归零170)jc.Text=‘清除寄存数值171)zt.Text=‘清除当前计算状态172)jz16.Text=0173)jz8.Text=0174)jz2.Text=0175)EndSub176)177)ProtectedSubeq_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘单击=按钮时178)SelectCase(zt.Text)179)Case+‘当前计算状态为加法,把当前主屏幕数值和寄存器内数值相加,并由主屏幕输出180)shuchu.Text=Str(Val(jc.Text)+Val(shuchu.Text))181)Case-‘当前计算状态为减法,把当前主屏幕数值和寄存器内数值相减,并由主屏幕输出182)shuchu.Text=Str(Val(jc.Text)-Val(shuchu.Text))183)Case‘当前计算状态为乘法,把当前主屏幕数值和寄存器内数值相乘,并由主屏幕输出184)shuchu.Text=Str(Val(jc.Text)*Val(shuchu.Text))185)Case‘当前计算状态为除法,把当前主屏幕数值和寄存器内数值相除,并由主屏幕输出186)shuchu.Text=Str(Val(jc.Text)/Val(shuchu.Text))187)Case%‘当前计算状态为求余,把当前主屏幕数值和寄存器内数值求余,并由主屏幕输出188)shuchu.课程设计191)10/18Shadow2019/12/07EndSelect192)shuchu.Text=Val(shuchu.Text)193)jinzhi()194)EndSub195)196)ProtectedSubsubtract_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘当单击-按钮时197)jc.Text=Val(shuchu.Text)‘把当前主数值存入寄存器198)zt.Text=-‘更改状态为-199)shuchu.Text=0‘主屏幕清零200)jinzhi()201)EndSub202)203)ProtectedSubplus_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上204)jc.Text=Val(shuchu.Text)205)zt.Text=+206)shuchu.Text=0207)jinzhi()208)EndSub209)210)ProtectedSubmultiply_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上211)jc.Text=Val(shuchu.Text)212)zt.Text=213)shuchu.Text=0214)jinzhi()215)EndSub216)217)ProtectedSubdivide_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上218)jc.Text=Val(shuchu.Text)219)zt.Text=220)shuchu.Text=0221)jinzhi()222)EndSub223)224)ProtectedSubqiuyu_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上225)jc.Text=Val(shuchu.Text)226)zt.Text=%227)shuchu.Text=0九江职业技术学院网站脚本技术课程设计228)11/18Shadow2019/12/07jinzhi()229)EndSub230)231)ProtectedSubxy_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘同上232)jc.Text=Val(shuchu.Text)233)zt.Text=x234)shuchu.Text=0235)jinzhi()236)EndSub237)238)ProtectedSubpai_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘单击按钮时239)shuchu.Text=3.1415926‘给主屏幕数值赋值并输出240)jinzhi()241)EndSub242)243)ProtectedSubx2_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘单击xjinzhi()255)EndSub256)257)ProtectedSubx1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘单击1/x按钮时258)jc.Text=Val(shuchu.Text)‘主数值放入寄存器259)zt.Text=1/x‘更改计算状态为1/x260)shuchu.Text=Str(1/Val(jc.Text))‘计算1/x九江职业技术学院网站脚本技术课程设计261)12/18Shadow2019/12/07shuchu.Text=Val(shuchu.Text)262)jinzhi()263)EndSub264)265)ProtectedSubbackspace_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)‘单击按钮时266)IfVal(shuchu.Text)/1.10Then‘若当前主屏幕输出数值不为个位数,则减去最右边的一位267)shuchu.Text=Left(shuchu.Text,Len(shuchu.Text)-1)268)EndIf269)IfVal(shuchu.Text)/1.1=0Then‘若当前主屏幕输出数值为个位数,则清零主屏幕输出数值270)shuchu.Text=0271)EndIf272)jinzhi()273)EndSub274)275)/script九江职业技术学院网站脚本技术课程设计13/18Shadow2019/12/07网页代码(无注释):
1)htmlxmlns=2)head3)titleJVTCNET0856HP2019/12/07Shadow/title4)styletype=text/css5)table#js{6)margin:
0px;7)padding:
0px;8)background-color:
#aaaaaa;9)}10)td{11)padding:
3px;12)}13).button{14)width:
70px;15)height:
50px;16)font-size:
32px;17)color:
#eeeeee;18)background-color:
#111111;19)}20)/style21)/head22)bodystyle=text-align:
center;background-color:
#333333;margin-top:
50px;font-family:
Arial;23)formid=Form1action=#runat=server24)tableid=js25)tr26)tdcolspan=527)tablestyle=height:
110px;Width:
100%;background-color:
#222222;28)tr29)tdcolspan=2asp:
LabelID=jcrunat=serverstyle=overflow:
hidden;Height=19pxFont-Size=18pxForeColor=#00ff00//td30)tdcolspan=1asp:
LabelID=jc2runat=server/asp:
LabelID=ztrunat=serverstyle=overflow:
hidden;Height=19pxFont-Size=18pxForeColor=#00ff00//td31)tdcolspan=2style=text-align:
right;color:
#00aa00;font-size:
12px;Shadownbsp;nbsp;nbsp;nbsp;2019/12/07/td32)/tr33)tr34)tdcolspan=5style=height:
74px;asp:
label九江职业技术学院网站脚本技术课程设计14/18Shadow2019/12/07ID=shuchurunat=serverstyle=text-align:
right;overflow:
hidden;Height=57pxWidth=370pxFont-Size=56pxForeColor=#00ff00//td35)/tr36)tr37)tdstyle=width:
20%;height:
14px;font-size:
12px;color:
#aaaaaa;background-color:
#333333;十六进制:
/td38)tdcolspan=4style=height:
14px;font-size
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 课程设计 制作网页计算器 制作 网页 计算器