畢業(yè)設(shè)計論文：基于vb的計算器的設(shè)計與實現(xiàn)-免費閱讀
【正文】 、程序設(shè)計方法概述 初期的程序設(shè)計 高運行效率，少占用內(nèi)存為目標(biāo) 結(jié)構(gòu)化程序設(shè)計 程序的可讀性，可維護(hù)性為目標(biāo) 程序 =算法 +數(shù)據(jù)結(jié)構(gòu) +計算機(jī)語言 +面向過程的程序設(shè)計方法 面向?qū)ο蟮某绦蛟O(shè)計 降低程序的復(fù)雜性，提高軟件的開法效率和改善工作界面為目標(biāo) 程序 =對象 +消息 +面向?qū)ο蟮某绦蛟O(shè)計 、如何學(xué)好 VB (1)養(yǎng)成良好的學(xué)習(xí)習(xí)慣 (2)學(xué)習(xí)程序設(shè)計要注重理解一些重要的概念。 其次，學(xué)習(xí)程序設(shè)計要具備一定的數(shù)學(xué) 基礎(chǔ)，計算機(jī)與數(shù)學(xué)有很大的聯(lián)系，綜觀計算機(jī)歷 史，計算機(jī)的數(shù)學(xué)模型和體系結(jié)構(gòu)等都是由數(shù)學(xué)家提出的。 0 Case 001: H = H amp。 001 Case 2: B = B amp。 1001 Case A: B = B amp。 0001 Case 2: B = B amp。 Command1(Index).Caption End If Else If dflag = 0 Then = amp。 3) 能夠?qū)崿F(xiàn)角度、弧度、梯度的相互轉(zhuǎn)換。 在這個計算器的程序中，我用到了單行選擇語句 If … Then … Else… , 塊語句 if… then… end if,If 語句的嵌套，多條件選擇語句 Select Case,而且還用到了按鈕、文本框、框架、單選按鈕控件 ，菜單的設(shè)計。 在此報告中我重點敘述了計算機(jī)的各個功能及用法。 4) 能夠?qū)崿F(xiàn)的進(jìn)制的相互轉(zhuǎn)換。 . dflag = 1 Else MsgBox (Error) End If End If End Sub Private Sub Command2_Click(Index As Integer) If opnre = 0 Or Index = 4 Then If ind = 0 Then prev = prev + Val() ElseIf ind = 1 Then 10 prev = prev Val() ElseIf ind = 2 Then If Val() = 0 Then MsgBox (SORRY DIVIDE ZERO) Exit Sub Else prev = prev / Val() End If ElseIf ind = 3 Then prev = prev * Val() End If = Str(prev) oflag = 0 End If opnre = 1 ind = Index dflag = 0 End Sub 、退格、清除、清空 Private Sub Command3_Click() Dim length As Integer length = Len() If length = 1 Then If 0 Then = 0 End If 11 Else = Left(, length 1) End If flag = True End Sub Private Sub Command4_Click() dflag = 0 prev = 0 oflag = 0 ind = 0 opnre = 0 = 0 End Sub Private Sub Command5_Click() = 0 End Sub 、復(fù)制、粘貼 Private Sub fz_Click() End Sub Private Sub zt_Click() = 12 = () End Sub 、兩窗體的切換 Private Sub ck_Click() End Sub Private Sub ckx_Click() End Sub 、科學(xué)型計算器的代碼 、變量的定義及初始化 Dim dflag As Integer Dim i As Integer Dim opnre As Integer Dim prev As Double Dim oflag As Integer Dim ind As Integer Dim X As Double Dim Y As Double Private Sub Form_Load() prev = 0 oflag = 0 13 ind = 0 opnre = 0 ang = / 180 End Sub 、簡單的運算 Private Sub Command1_Click(Index As Integer) If ind = 4 Then prev = 0 = ind = 0 End If opnre = 0 If oflag = 0 Then = End If oflag = 1 If Command1(Index).Caption . Then If 0 Then = amp。 0010 Case 3: B = B amp。 1010 Case B: B = B amp。 010 Case 3: B = B amp。 1 Case 010: H = H amp。因此，要學(xué)習(xí)好計算機(jī)就要有 一定的數(shù)學(xué)基礎(chǔ)，不過對于初學(xué)者來說，在數(shù)學(xué)基礎(chǔ)方面的要求并不是很高，從我個人的 角度來看，有高中數(shù)學(xué)水平就差不多了。 (3)自己動手編寫程序 (4)閱讀。 31 能閱讀一般難的程序； 能應(yīng)用編寫一些簡單程序； 具有用 Visual Basic 開發(fā) Windows 環(huán)境下應(yīng)用程序的能力和閱讀分析一般難度的 VB 程序的能力。 7 End Select Next i While Left(H, 1) = 0 H = Right(H, Len(H) 1) Wend 27 BIN_to_OCT = H End Function Public Function OCT_to_DEC(ByVal Oct As String) As Long Dim i As Long Dim B A
公司管理相關(guān)推薦
鄂ICP備17016276號-1