- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB课程设计 进制转换
内容摘要
进制转换,是利用VB编写的一个程序,可以在窗体上的文本框中输入一个进制数然后单击一下进制转换按钮,所得到的结果将在另一个文本框中显示出来。程序一共设计了四个板块,每个版块对应着一种进制的转换。用户在使用该程序时一目了然,在所需要的版块中输入一个数值并得到了所需的结果,这是一个使用非常方便的程序。
此程序让人们在生活中、工作中、学习中都很方便的使用它进行一些较为复杂而且不易计算的进制转换,使得用户及时有效的得到他们所需要的数据。目录
一、功能描述 3
二、概要设计 3
1.设计思路 3
2.功能模块图 3
三、详细设计 4
1.主界面的设计 4
2. 各功能模块的实现过程 4
2.1十进制的转换 4
2.2八进制的转换 5
2.3十六进制的转换 6
2.4二进制的转换 7
四、效果及存在问题 9
1.程序运行效果图 9
2.存在的问题 10
五、心得体会 11
六、参考文献 11
一、功能描述
在二、八、十、十六进制的转换的板块中,在转换按钮的左边文本框里输入该进制数,单击转换按钮,在其右边的文本框中即可显示出转换后的进制数。
针对于十进制,负数的十进制也可以进行进制转换。
单击“退出”按钮,退出本程序。
二、概要设计
1.设计思路
本程序一共有4大模块分别是二、八、十、十六进制的转换。
在这4大模块中,每个模块又有3个小模块即在每个大模块中的该进制数与其它进制数之间的转换。
2.功能模块图
图1 功能模块图
三、详细设计
1.主界面的设计
在窗体上添加12个命令按钮command1~command12,24个文本框text1~text24和4个标签label1~label4。
4个标签将主界面分成4个板块属性分别是二,八,十,十六进制的转换。将12个命令按钮和24个文本框平均的放在4个标签中,按照报告给出的截图设置相应的属性。
2. 各功能模块的实现过程
2.1十进制的转换
功能描述:用户在进制转换按钮左边的文本框中输入一个十进制输,然后单击要转换的进制按钮即可在右边的文本框中显示出所转换的进制数。另外,本程序也可实现负数的十进制转换。
实现过程:通过单击命令按钮触发click事件运行函数,将所输入的数经过函数的运算得出结果显示数来。
程序代码:
Public Function DEC_to_BIN(ByVal DEC As Long) As String 十进制—二进制
If DEC = 0 Then
DEC_to_BIN =
Do While DEC 0
DEC_to_BIN = DEC Mod 2 DEC_to_BIN
DEC = DEC \ 2
Loop
Else 当十进制为负数时
Dim i As Integer
Dim B As String
Dim z As String
DEC = Abs(DEC)
DEC_to_BIN =
Do While DEC 0
z = DEC Mod 2 z
DEC = DEC \ 2
Loop
For i = 1 To Len(z)
Select Case Mid(z, i, 1)
Case 0: B = B 1
Case 1: B = B 0
End Select
Next i
B = add(B)
DEC_to_BIN = B
End If
End Function
Public Function DEC_to_OCT(ByVal DEC As Long) As String 十进制——八进制
If DEC = 0 Then
DEC_to_OCT =
Do While DEC 0
DEC_to_OCT = DEC Mod 8 DEC_to_OCT
DEC = DEC \ 8
Loop
Else 当十进制为负数时
Dim i As Integer
Dim B As String
Dim z As String
DEC = Abs(DEC)
DEC_to_OCT =
Do While DEC 0
z = DEC Mod 2 z
DEC =
您可能关注的文档
- UG40教程第九章__自由曲面建模.doc
- UGNX软件三维建模规范.doc
- UG-NX使用小技巧.doc
- U8+V121新增产品功能介绍-汇总.pptx
- UG垃圾桶课程设计.doc
- UG课件平面铣型腔铣上机.ppt
- ug教材第7章自由曲面.doc
- UG视频教程+曲面设计+加工+工程制图+装配+运动方针+钣金设计.doc
- UL1598固定式燈具安全標准.doc
- UG课程设计 鼠标实体模型的造型与自动编程.doc
- 上外版(2020)必修 第一册Unit 2 Language and Culture Getting Started Reading A教学设计.docx
- 第1课 学会尊重 第1课时(教学设计) 2023-2024学年统编版道德与法治六年级下册.docx
- 中国大百科全书出版社 心理健康教育 五年级下册 15 成长中的我 教案.docx
- 2024-2025学年小学生德育教学设计与情感教育.docx
- 8.勾勒校园新景色(教案)信息技术四年级上册.docx
- 2024-2025学年足球基本技能教学设计研究.docx
- 第二单元 轴对称再认识(一)(教学设计)2023-2024学年五年级上册数学北师大版.docx
- 第1单元 4 冰融化了(习题教学设计)2023-2024学年三年级上册科学(教科版).docx
- 等式的性质1(教学设计)-2024-2025学年五年级上册数学人教版.docx
- 初中地理人教版七上2.2 海陆的变迁 第1课时 教案.docx
文档评论(0)