VB课程设计 进制转换.docVIP

内容摘要 进制转换，是利用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 =