Visual Basic 编写进制转换器.pdf
《Visual Basic 编写进制转换器.pdf》由会员分享,可在线阅读,更多相关《Visual Basic 编写进制转换器.pdf(26页珍藏版)》请在咨信网上搜索。
1、Visua l Ba sic迤制事事换器篇名Visua l Ba sic迤制巾豺奠器 Visua l Ba sic迤制事事换器壹前言由於二年了“数位暹辑”中的二迤制、八迤制、十迤制舆十六迤制的傅换,可是甯只懂得二迤制,而我凭生活常用的卸是十迤制,再含十算方面上造成FF多 不便,彳爰来樊明了八迤制和十六迤制,但我凭曾招二迤制樽成十六迤制以方便 算,千篇一律的手勤看十算不符合现代人迅速、曾罩及不费畤的生活要求,焉了使 1十算上瓢金昔昌臭且不费日寺的情沆下,招Visua l Ba sic舆迤制结合,崖生了“Visua l Ba sic迤制傅换器”,使迤制傅换更方便、更快速,於是决定使用Visua l
2、 Ba sic舆 数位暹辑之迤制的交互用,来富作本的研究事题项目。冢正文一、研究勤械在二年级擘雪的数位暹辑和丫讪318豆,数位诞辑桂的迤制中|我年号花了不少日寺 在算上,常数字小日寺,在t十算上可能不曾有任何差金昔,日寺也不曾花很多,可是富数字大日寺,可能曾出现算金昔的情形,即使汉金昔,所花费的畤也相常多,舄了迤制算燮得曾罩且瓢金昔后吴,我年号突彝奇想利用Visua l Ba si来裂作迤制醇 换,再加上本系且望寸於Visua l Ba sic有相常的典趣,於是揩二迤制、八迤制及十六 迤制樽成十迤制,亦或符十迤制樽成二迤制、八迤制及十六迤制,更不需透谩十 迤制,而可以符二迤制典八迤制互相傅换,
3、使得更加的方便,以及深入的了解 Visua l Ba sic 卿B制 二、研究目的1.了解Visua l Ba sic相的用指令2.使在迤制建算上更加快速3.在求瞪答案畤能更有效率更加型碓-2-Visua l Ba sic迤制事事换器三、研究谩程1.迤制算法十迤制樽换(以下假十迤制输入焉21)A.十迤制十迤制不需任何的傅换,所以得到系吉果焉21(10)=21(10)B.十迤制W二迤制21/2=10 110/2=5 05/2=212/2=101/2=01绘数由下往上排列焉10101,所以得到系吉果焉21(10):10101(2)C.十迤制W八迤制21/8=252/8=02绘数由下往上排列篇25,
4、所以得到结果焉21(10)二25D.十迤制W十六迤制21/16=1 51/16=0 1绘数由下往上排列焉15,所以得到系吉果焉21(10):15(16)二迤制傅换(以下假二迤制输入焉11101)二迤制桂没有2以上的数字,只能有0跟1。A.二迤制W十迤制符11101由右往左分别乘上2的0次方、1次方、2次方等等以此推1十算篇1*2 A0=10*2A1=01*2 A2=41*2 A3=81*2A4=16再招所有结果加起来,所以得到结果焉11101(2)=29(10)-3-Visua l Ba sic迤制本事换器B.二迤制W二迤制不需任何的傅换,所以得到结果焉11101:11101C.二迤制W八迤制
5、先醇成十迤制在傅焉八迤制,所以i十算谩程篇1*2 A0=10*2人1=01*2八2=41*2八3二81*2 A4=16左禹二迤制傅十迤制其余吉果焉2929/8=3 5 3/8=03右焉十迤制樽八迤制其结果篇35由上述1十算可得到结果篇H101=35(8)D.二迤制W十六迤制先醇成十迤制在傅禹十六迤制,所以算谩程焉1*2八0=1 0*2A1=01*2人2=429/16=1 13 1/16=011*2人3=81*2人4=16左禹二迤制傅十迤制其余吉果焉29右焉十迤制樽十六迤制由於十六迤制大於10的数字曾用英文来代替,分别焉:A=10,B=11,C=12,D=13,E=14,F=15所以十迤制樽十六
6、迤制的结果焉1D由上述算可得到结果焉11101=1D(16)八迤制傅换(以下假八迤制输入焉13)八迤制桂没有8以上的数字,只能有1至J 7的数字。A.八迤制十迤制符13由右往左分别乘上8的0次方、1次方、2次方等等以此推算意)3*8A0=31*8人 1=8再招所有结果加起来,所以得到结果焉13(8)=11(10)-4-Visua l Ba sic迤制本事换器B.八迤制|二迤制先醇成十迤制在醇舄二迤制,所以算谩程焉3*8 人 0=3 11/2=511*8A1=8 5/2=212/2=101/2=01左焉八迤制傅十迤制 右焉十迤制傅二迤制其余吉果焉11 其结果:1011由上述算可得到结果:g 13
7、=1011C.八迤制八迤制不需任何的傅换,所以得到结果焉13(8)=13(8)D.八迤制辅十六迤制先傅成十迤制在傅焉十六迤制,所以If算遇程焉3*8 人 0=3 13/16=0 131*8人1=8左焉八迤制傅十迤制 右焉十迤制傅十六谨制其结果篇11由於十六迤制大於10的数字曾用英文来代替,分别舄:A=10,B=11,C=12,D=13,E=14,F=15所以十迤制傅十六迤制的结果篇B由上述算可得到结果焉13(8)=B(16)(4)十六迤制穗换(以下假I殳十六迤制输入:g 1A)十六迤制81有ABCDEF道六彳固英文字母,分别代表篇:A=10,B=ll,C=12,D=13,E=14,F=15 来
8、看以下的傅换方法:(其中A=10,所以以下用10来代替)A.十六迤制傅十迤制符1A由右往左分别乘上16的。次方、1次方、2次方等等以此推If 算篇10M6A0=101*16Al=16再揩所有余吉果加起来,所以得到余吉果焉1A(8)=26(10)-5-Visua l Ba sic迤制本事换器B.十六迤制W二迤制先醇成十迤制在醇舄二迤制,所以算谩程焉10*16A0=10 26/2=13 01*16人 1=16 13/2=6 16/2=30 3/2=11 1/2=01左焉十六迤制傅十迤制 右焉十迤制傅二迤制其结果篇26 其结果篇11010由上述1十算可得到结果焉1416)=110102)C.十六迤制
9、W八迤制先醇成十迤制在傅焉八迤制,所以i十算谩程篇10*16 Ao=101*16A 1:16左焉十六迤制傅十迤制其余吉果焉2626/8=3 2 3/8=03右焉十迤制樽八迤制其结果篇32由上述鼠十算可得到结果焉1A(16):32(8)D.十六迤制W十六迤制不需任何的樽换,所以得到结果焉1A(16)=1A(16)2.Bl(一)VB迤制傅换器-6-Visua l Ba sic迤制本事换器表(一)物件定物件名彳禽(Na me)尉生1殳定值FormlCa ptionVB数位醇换器Combo 1、Combo2Text溟撵迤制Textl、Text2Text(空白)Textl、Text2Alignment1
10、-靠右封膂Text2Ena bledFa lseCmdCha ngeoverCa ption傅换CmdClea rCa ption清除CmdEndCa ption皿藉由逗撵迤制在迤行樽换取得结果,其中逮官殳有清除跟高08的按,其中揩左遏空格焉输入值,右遏空格焉输出值。以下篇Visua l Ba sic迤制傅换器的程式礁Priva te Sub Foi*m_Loa d()Dim i As IntegerDim choose_left(l To 4)As StringDim choose_right(l To 4)As String先言殳定雨障列来存取雨彳固下拉式逗罩桂要放的柬西choosejef
11、t(l)=十迤制:choose_right(l)=十迤制choose_left(2)=二迤制:choose_right(2)=二迤制choose_left(3)=八迤制:choose_right(3)=八迤制choose_left(4)=十六迤制:choose_right(4)=十六迤制存取完军彳爰,再利用迪I圈输入余合雨偃I下拉式逗罩For i=1 To 4Combo 1.Additem choosejeft(i)Combo2.AddItem choose_right(i)Next iEnd Sub其结果焉:-7-Visua l Ba sic迤制本事换器H(-)左遏下拉式逗罩11(三)右遏下
12、拉式逗罩Priva te Sub CmdCha ngeover_Click()Dim cha(lOO)As StringDim i As Integer,Test As StringDim Bina ry As Integer,Dina ry As IntegerDim Octa l As Integer,Hex As Stringi=1以下都曾用一雨彳固退圈符数字拆成偃I位数旋存取在cha(lOO)此障列上,道檄才可 迤行醇摸,由於每彳固傅换方法皆不同,:W的方法也曾因此不同。以十迤制傅十迤制的方式If Combo 1.Text=十迤制And Combo2.Text=十迤制ThenDina
13、ry=Textl.TextText2.Text=Dina ry-8-Visua l Ba sic迤制本事换器a VB港制尊换器B0I十迤制 3|十谨制 3|2A 樽拯|2711(四)十迤制樽十迤制结果以十迤制W二迤制的方式ElselfCombol,Text=“十迤制 And Combo2.Text=二迤制 ThenDina ry=Textl.TextWhile i 100cha(i)=Dina ry Mod 2Dina ry=Dina ry 2Bina ry=Bina ry+cha(i)*10 A(i-1)再利用十迤制傅二迤制的方法嘉入i=i+1WendText2.Text:Bina ryU(
14、五)未按傅前-9-Visua l Ba sic迤制本事换器ffiK六)按下去彳麦以十迤制W八迤制的方式ElselfCombol,Text=十迤制 And Combo2.Text=ABSfl ThenDina ry=Textl.TextWhile i 100cha(i)=Dina ry Mod 8Dina ry=Dina ry 8Octa l=Octa l+cha(i)*10 A(i-1)再利用十迤制醇八迤制的方法嘉入i=i+1WendText2.Text=Octa l11(七)十迤制醇八迤制结果-10-Visua l Ba sic迤制本事换器以十迤制十六迤制的方式Elself Combo 1.
15、Text=十迤制And Combo2.Text=十六迤制ThenDina ry=Text 1.TextWhile i 100cha=Dina iy Mod 16Dina ry=Dina ry 16Select Ca se cha(i)Ca se Is=10:cha(i)=ACa se Is=ll:cha(i)=BCa se Is=12:cha(i)=CCa se Is=13:cha(i)=DCa se Is=14:cha(i)=ECa se Is=15:cha(i)=FEnd SelectHex=cha(i)+Hexi=i+1WendWhile Left(Hex,1)=0Hex=Mid(Hex
16、,2,Len(Hex)-1)揩 Hex 左遏的 0 全部消掉 WendText2.Text=Hexffl(A)十迤制醇十六迤制结果-11-Visua l Ba sic迤制本事换器以二迤制十迤制的方式Elself Combo 1.Text=二迤制And Combo2.Text=十迤制ThenBina iy=Textl.TextWhile i=2 ThenMsgBox 每低I数字不能大於等於2”,J二迤制金昔热11(九)二迤制金昔Dina ry 二 0i=i+100End Ifi=i+1WendText2.Text=Dina ry二迤制只有0跟1,所以造成金昔官吴二迤制金昔官吴,输出的结果:0二迤
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic 编写进制转换器 编写 转换器
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【曲****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【曲****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。