本文格式為Word版，下載可任意編輯——基于VisualBasic的編程實現一個計算器第1章緒論

1.1課題簡介1.1.1課程設計題目

基于VisualBasic的計算器的制作

1.1.2課題要求

基于VisualBasic的編程實現一個計算器軟件，要求計算器能夠實現：加法、減法、乘法、除法、乘方、立方、正弦、余弦、正切、余切、開平方等功能。而且還要實現計算器界面有一個與系統時間同步的時鐘。要求界面簡單美觀，操作簡單便利，類似于我們一直在用的計算器。

1.1.3課題工作內容

1、把握一些程序設計算法的分析，學會使用控件數組；2、把握VB程序的編寫方法，學會VB函數的調用；3、學會應用軟件界面的設計和界面的布局、美化；4、學會編寫與系統時間同步的時鐘；5、撰寫課程設計報告。

1.2系統分析1.2.1開發背景

計算機已經成為我們學習和工作的得力助手：今天，計算機的價格已經十分低廉，性能卻有了長足的進步。它已經被應用于大量領域，計算機之所以如此流行的原因主要有以下幾個方面：

1，計算機可以代替人工進行大量繁雜的勞動；2，計算機可以節省大量資源；

1

3，計算機可以大大的提高人們的工作效率；4，計算機可以使敏感文檔更加安全等。

2

第2章開發環境及實現技術

2.1開發環境

硬件系統：奔騰166MX以上CPU、32M以上內存、1G以上硬盤、光驅。

軟件系統：Windows98/ME/2000/XP、VisualBasic6.0中文版。

2.2開發工具簡介2.2.1總體介紹

微軟公司的VisualBasic6.0是Windows應用程序開發工具，是目前最為廣泛的、易學易用的面向對象的開發工具。VisualBasic提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現本系統VB是一個相對較好的選擇。

Access2000就是關系數據庫開發工具，數據庫能匯集各種信息以供查詢、存儲和檢索。Access的優點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于Excel的電子表格，可以使數據庫一目了然。另外，Access允許創立自定義報表用于打印或輸出數據庫中的信息。Access也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，與其他網絡用戶共享數據庫。Access是一種關系數據庫工具，關系數據庫是已開發的最通用的數據庫之一。如上所述，

3

Access作為關系數據庫開發具備了大量優點，可以在一個數據包中同時擁有桌面數據庫的便利和關系數據庫的強大功能。

微軟的JET數據庫引擎提供了與數據庫打交道的途徑，我們是通過它以及VisualBasic來訪問數據庫并對其進行各種操作。VisualBasic、Access以及其他微軟的軟件產品都是通過共用JET數據庫引擎，從而給用戶提供了豐富的數據類型。

DATA控件在數據庫中的信息與將信息顯示給用戶看的VisualBasic程序之間架起了一座橋梁。我們可以設置DATA控件的各個屬性，告訴它要調用那個數據庫的哪個部分。缺省狀況下，DATA控件根據數據庫中的一個或多個數據表建立一個

dynaset-type（動態集合）類型的記錄集合。一個記錄集合是動態的也就意味著，當原來的數據表中的容改變了以后，該記錄集合中的記錄也會隨之改變。DATA控件還提供了用來瀏覽不同記錄的各種跳轉按鈕。將DATA控件放置在窗體中之后，我們還必需在該控件與要處理的數據庫之間建立聯系。

2.2.2詳細介紹

1.VisualBasic6.0的語言特性

VB語言是一種以事件驅動作為運行機制的可視化的程序設計語言。它不僅提供了常規的編程環境，還提供了一套可視化的設計工具，便于程序員進行可視化的程序設計。它不僅具有傳統程序設計語言的基本功能，而且在軟件的不斷升級中，功能也越來越強。

2.VisualBasic6.0的特點

4

與傳統的程序設計語言相比，VB的主要特點介紹如下。（1）面向對象的可視化編程

在VB應用程序開發環境下，應用了面向對象的程序設計方法；即把程序和數據封裝起來視為一個對象工具，每個對象都是可是的。程序設計員在設計是只需要根據設計界面的要求利用現有的對象工具，直接在屏幕上設計不同的對象（如：窗口、菜單、按鈕、滾動條等），并為每個對象設置屬性。（2）結構化程序設計語言

VB系統提供了豐富的數據類型、眾多的內部函數、子程序、事件子程序和自定義函數，各個子程序模塊之間可以彼此獨立，也可以相互聯系，形成了結構化程序結構，易學通用。（3）事件驅動的編程機制

事件驅動是加強程序圖形界面交互性的主要方法。用戶的每一個動作或操作行為都可以產生一個事件，每個事件都可以驅動一段程序的運行。程序員只需編寫響應用戶動作的代碼，各個動作之間不一定有聯系。代碼短、易編寫、易維護。（4）可以對多種數據庫進行訪問

利用數據控件或ODBC能夠訪問Access、Excel、FoxPro、dBASE、Btrieve、Lotus1-2-3、Paradox等類型的數據庫和電子表格。（5）OLE和Active技術的應用

使用OLE（對象鏈接與嵌入技術）能夠開發集聲音、圖像、動畫、字處理、Web等對象于一體的應用程序。Active技術可以使開發人員擺脫特定語言的束縛，便利的使用標準的Active部件，調用標準的接口，實現特定功能。

5

圖3-3計算器界面布置

3.2代碼編寫

1.通用型代碼編寫：

此段代碼的作用主要是聲明pi、布爾型變量V、變量S、X、Y。具體代碼如下：

Constpi=3.1415926'定義pi

DimvAsBoolean'是否第一次單擊運算符DimsAsInteger'存放上次按的運算符DimXAsDouble'存放第一個操作數DimYAsDouble'存放其次個操作數

2.Form的代碼編寫：

此段代碼的作用主要是實現系統時間在Label3中的同步顯

11

示，具體代碼如下：

PrivateSubForm_Load()Form1.Tag=\

Timer1.Enabled=True

Timer1.Interval=1000'設定間隔1000=1秒'一秒顯示一次當前時間EndSub

3.Command1的代碼編寫：

此段代碼的作用主要是實現將Command上的數字在Text中顯示，具體代碼如下：

PrivateSubCommand1_Click(IndexAsInteger)IfForm1.Tag=\向顯示中的數追加新數IfIndex=10ThenText1.Text=\Else

Text1.Text=Command1(Index).CaptionEndIf

Form1.Tag=\Else

Text1.Text=Text1.Text&Command1(Index).CaptionEndIfEndSub

4.Command3的代碼編寫：

此段代碼主要是實現對Text中的數據清零，具體代碼如下：

PrivateSubCommand3_Click(IndexAsInteger)Text1.Text=\X=0Y=0EndSub

5.Command4的代碼編寫：

此段代碼主要是實現將計算器程序關閉。

PrivateSubCommand4_Click(IndexAsInteger)UnloadMeEndSub

12

6.Command2的代碼編寫：

此段代碼是這個計算器軟件的主體部分，它能夠實現計算器上的各類功能，并且能依照具體狀況分別顯示我們所想要的結果。具體代碼如下：

PrivateSubCommand2_Click(IndexAsInteger)Form1.Tag=\第一次按運算符IfvThen

X=Val(Text1.Text)'將鍵入的數字存入xf=NotvElse

Y=Val(Text1.Text)SelectCasesCase0

Text1.Text=X+YCase1

Text1.Text=X-YCase2

Text1.Text=X*YCase3

IfY0ThenText1.Text=X/YElse

MsgBox(\不能以0為除數\Text1.Text=Xv=FalseEndIfCase4

X=Val(Text1.Text)X=X^2

Text1.Text=XCase5

X=Val(Text1.Text)X=X^3

Text1.Text=XCase6

X=Val(Text1.Text)X=Sin(X*pi/180)Text1.Text=X

13

Case7

X=Val(Text1.Text)X=Cos(X*pi/180)Text1.Text=XCase8

X=Val(Text1.Text)X=Tan(X*pi/180)Text1.Text=XCase9

X=Val(Text1.Text)X=Atn(X*pi/180)Text1.Text=XCase10

X=Val(Text1.Text)X=Sqr(X)Text1.Text=XCase11

X=Val(Text1.Text)X=Log(X)Text1.Text=XCase12Y=0v=FalseEndSelectX=Val(Text1.Text)EndIfs=IndexEndSub

7.Timer的代碼編寫：

此段程序主要是實現將系統時間顯示在Label3中。具體代碼如下：

PrivateSubTimer1_Timer()Label3.Enabled=True

Label3.Caption=