畢業(yè)設(shè)計(jì)論文：基于vb的計(jì)算器的設(shè)計(jì)與實(shí)現(xiàn)-閱讀頁
2024-12-21 22:33本頁面
【正文】 nteger Dim j As Integer L = 0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z r = Split(L, |) For i = 1 To Len(S) For j = 0 To UBound(r) If UCase(Mid(S, i, 1)) = r(j) Then Convert = Convert * N + j End If Next j Next i End Function Private Function Two16(ByVal X As String) As String Do While Len(X) Mod 4 0 X = 0 + X Loop Do While Len(X) 0 Select Case Right(X, 4) Case 0000 Two16 = 0 + Two16 Case 0001 Two16 = 1 + Two16 Case 0010 23 Two16 = 2 + Two16 Case 0011 Two16 = 3 + Two16 Case 0100 Two16 = 4 + Two16 Case 0101 Two16 = 5 + Two16 Case 0110 Two16 = 6 + Two16 Case 0111 Two16 = 7 + Two16 Case 1000 Two16 = 8 + Two16 Case 1001 Two16 = 9 + Two16 Case 1010 Two16 = A + Two16 Case 1011 Two16 = B + Two16 Case 1100 Two16 = C + Two16 Case 1101 Two16 = D + Two16 Case 1110 Two16 = E + Two16 Case 1111 Two16 = F + Two16 24 End Select X = Left(X, Len(X) 4) Loop End Function Public Function HEX_to_BIN(ByVal Hex As String) As String Dim i As Long Dim B As String Hex = UCase(Hex) For i = 1 To Len(Hex) Select Case Mid(Hex, i, 1) Case 0: B = B amp。 0001 Case 2: B = B amp。 0011 Case 4: B = B amp。 0101 Case 6: B = B amp。 0111 Case 8: B = B amp。 1001 Case A: B = B amp。 1011 Case C: B = B amp。 1101 Case E: B = B amp。 1111 End Select 25 Next i Do While Left(B, 1) = 0 B = Right(B, Len(B) 1) Loop HEX_to_BIN = B End Function Public Function OCT_to_BIN(ByVal Oct As String) As String Dim i As Long Dim B As String For i = 1 To Len(Oct) Select Case Mid(Oct, i, 1) Case 0: B = B amp。 001 Case 2: B = B amp。 011 Case 4: B = B amp。 101 Case 6: B = B amp。 111 End Select Next i While Left(B, 1) = 0 B = Right(B, Len(B) 1) Wend OCT_to_BIN = B End Function Public Function HEX_to_OCT(ByVal Hex As String) As String 26 Dim bin As String Hex = UCase(Hex) bin = HEX_to_BIN(Hex) HEX_to_OCT = BIN_to_OCT(bin) End Function Public Function BIN_to_OCT(ByVal bin As String) As String Dim i As Long Dim H As String If Len(bin) Mod 3 0 Then bin = String(3 Len(bin) Mod 3, 0) amp。 0 Case 001: H = H amp。 2 Case 011: H = H amp。 4 Case 101: H = H amp。 6 Case 111: H = H amp。 其次，學(xué)習(xí)程序設(shè)計(jì)要具備一定的數(shù)學(xué) 基礎(chǔ)，計(jì)算機(jī)與數(shù)學(xué)有很大的聯(lián)系，綜觀計(jì)算機(jī)歷 史，計(jì)算機(jī)的數(shù)學(xué)模型和體系結(jié)構(gòu)等都是由數(shù)學(xué)家提出的。 、學(xué)習(xí)程序設(shè)計(jì)基本要求： 熟悉 Visual Basic 操作環(huán)境與設(shè)計(jì)工具，能設(shè)計(jì)應(yīng)用程序界面。 理解、運(yùn)用數(shù)據(jù)庫的連接，及調(diào)用 。 掌握 VB語言的基礎(chǔ)知識(shí)，程序設(shè)計(jì)的方法。 、程序設(shè)計(jì)方法概述 初期的程序設(shè)計(jì) 高運(yùn)行效率，少占用內(nèi)存為目標(biāo) 結(jié)構(gòu)化程序設(shè)計(jì) 程序的可讀性，可維護(hù)性為目標(biāo) 程序 =算法 +數(shù)據(jù)結(jié)構(gòu) +計(jì)算機(jī)語言 +面向過程的程序設(shè)計(jì)方法 面向?qū)ο蟮某绦蛟O(shè)計(jì) 降低程序的復(fù)雜性，提高軟件的開法效率和改善工作界面為目標(biāo) 程序 =對(duì)象 +消息 +面向?qū)ο蟮某绦蛟O(shè)計(jì) 、如何學(xué)好 VB (1)養(yǎng)成良好的學(xué)習(xí)習(xí)慣 (2)學(xué)習(xí)程序設(shè)計(jì)要注重理解一些重要的概念。借簽別人設(shè)計(jì)的好程序 (5) VB 程序設(shè)計(jì)學(xué)習(xí)的重點(diǎn) (6)養(yǎng)成良好的編程習(xí)慣 32 、不足之處 由于水平問題，計(jì)算器的許多其他功能沒有實(shí)現(xiàn)，而且程序還存在許多缺陷。 33 參考文獻(xiàn) 1.《東華理工大學(xué)長江學(xué)院課程設(shè)計(jì)報(bào)告》 2.《基于 Visual Basic 語言的文本編輯器設(shè)計(jì)》，石家莊鐵道學(xué)院課程設(shè)計(jì)
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1