1、可視化程序設計實驗指導書重慶科技學院電氣與信息工程學院測控技術系2015年6月目 錄第一部分 C+簡介1一、C+語言和面向對象11、C與C+12、類（Class）13. 封裝24. 繼承25. 重載36. 多態3二、Windows的運行機制31、Windows的元素-窗體32、Windows的動力-消息3第二部分 BCB簡介4一、BCB的歷史與未來4二、BCB的定位4三、BCB與其它語言的比較51、與Delphi的比較52、與VC+的比較5四、重要的不可視組件與BCB類51、AnsiString52、Tstrings與TStringList5五、BCB6的一般編程步驟6第三部分 可視化程序設計

2、實驗項目6實驗一 C+ Builder初步應用6實驗二 常用組件設計8實驗三 口令字的實現11實驗四 定時器的使用14實驗五 簡單的文字處理程序19實驗六 串口通訊程序的實現22實驗七 數據庫的初步應用24實驗八 使用SQL連接數據庫27實驗九 波形顯示界面設計30實驗十 動態鏈接庫的初步應用34實驗十一 網絡通信36附表 C+Builder常用控件屬性、方法表44C+Builder 實驗指導書 第一部分 C+簡介一、C+語言和面向對象1、C與C+C+是更好的C和面向對象的C；C+的基本單位是類（Class），它關注的是自然界中穩定事物，它有固定的屬性（Property)和方法（Method）

3、，只要用類把事物描述好存入庫中，然后根據需要改變這些事物聯系起來的方法，就能達到以不變應萬變的目的，這是面向對象程序設計的基本思想；C的基本單位是函數（Function），它關注的是事物之間的聯系，而這種聯系是變化的、不穩定的，只要有一點小變化，就會引起整個系統功能的大變化。2、類（Class）類的開式類似于C語言中的結構體，只是比結構體多了成員函數（Member Function）typedef struct _Entity int ID; char Caption50; char Name50; char Type250; char CreatedTime20; char Keyword2

4、00; Entity;/-class TEntityprivate: int ID; char Caption50; char Name50; char Type250; char CreatedTime20; char Keyword200;public: TEntity(int id, char* caption = NULL, char* name = NULL, char* type = NULL, char* createdtime = NULL, char* keyword = NULL); TEntity(TEntity& entity) ID = entity.ID;

5、strcpy(Caption, entity.Caption); strcpy(Name, entity.Name); strcpy(Type, entity.Type); strcpy(CreatedTime, entity.CreatedTime); strcpy(Keyword, entity.Keyword); TEntity(void); void WriteToFile(const char* FileName); void ReadFromFile(const char* FileName);一般說來一個類會在兩個文件中實現：在頭文件（*.h）中對類進行說明，上述類的聲明部分就應

6、放在頭文件中。在源文件（*.CPP）中完成類成員函數的實現，象上面WriteToFile與ReadFromFile的具體實現的代碼就應放在CPP文件中。3. 封裝通過上面的形式，對類中的私有成員進行了封裝，而公有成員函數則是該類對外統一的接口，這種封裝可以使類之間減少相互干擾。這樣從外面來看，類就是一個通過接口能完成一定功能的“黑匣子”，而用戶根本不需要關心類內部的實現情況。4. 繼承通過繼承，可以使子類具有父類的所有特性（成員數據與成員函數）。（1）繼承的方式 繼承方式有三種： public 公有方式 private 私有方式 protected 保護方式繼承方式決定了派生類對基類成員的使用

7、權限繼承方式說明公有繼承 public基類的public和protected成員被派生類繼承后，保持原來的特性私有繼承 private基類的public和protected成員被派生類繼承后，變成private成員保護繼承 protected基類的public和protected成員被派生類繼承后，變成protected成員無論何種繼承，基類的private成員都不能被派生類訪問（2）派生類的構造函數與析構函數基類的構造函數與析構函數不能被派生類繼承。派生類對象建立時，先執行基類的構造函數，然后執行派生的構造函數。對于析構函數來說，其順序剛好相反。（3）派生類成員函數的重載當派生類中需要擴展或

8、修改某些成員函數的功能時，則在派生類中要重新聲明這些函數，然后在實現部分重新實現被聲明的函數。如果是在原有功能進行擴展，則要在派生類函數中調用基類的函數。如不需要原有功能，也可以不調用基類的函數。這就是函數的重載，它可以用同一個函數名實現不同的功能。5. 重載這是C+不同于C語言的一個重要特征。它允許幾個功能相似的函數共有一個函數名稱。實際上，C+通過一種特殊的命名技術來解決重載的問題，通過參數的個數和參數的類型來確定特定的函數。但不能通過不同的函數返回值來進行區分。int fn(int x);folat fn(int x);double fn(int x);long double fn(in

9、t x);int abs(int x);float abs(float x);double abs(double x);long double abs(long double x);正確 不正確6. 多態用相同的指令，調用不同的函數。（1）編譯時多態：如前面的函數重載實現的就是編譯時多態。它可以用相同的函數名，根據函數參數的不同（數量或類型）去實現不同的功能。但調用什么函數去實現什么功能卻是在編譯時就已確定，并以后不能更改，是一種靜止的多態。（2）運行時多態：它是利用虛函數實現的。用同一條指令，可以根據程序運行時的不同的情況去調用對應的函數去實現不同的功能。 二、Windows的運行機制1、W

10、indows的元素-窗體2、Windows的動力-消息多任務成為Windows的基本功能，因此引入了事件驅動機制。它不同于過程驅動，沒有固定的流程，而是等待用戶或系統發出的指令，再來響應。第二部分 BCB簡介一、BCB的歷史與未來Borland 公司是歷史上編程工具第一開發商。 Delphi是Borland公司在C+領域慘敗后的一個突破點，是RAD（快速應用程序開發）的領導者。BCB就是Delphi for C+，它與Delphi十分相似：l 程序界面相同； l 使用相同的程序柜架VCL ； l 相同的開發過程； l 不同的只是語法。 新的VCL 有望用C+ 重寫，使BCB 擺脫Delphi

11、的影響。 二、BCB的定位語言工具應根據自身情況和目標進行選擇，沒有最好的工具，各種工具都有用。BCB定位于Windows桌面應用程序開發，有強大的可視化開發能力，界面開發快；對于桌面數據庫開發有一定的優勢；開發系統級程序（驅動程序）非常困難。三、BCB與其它語言的比較1、與Delphi的比較l 由于Windows是由C語言寫成，較Delphi調用API（應用程序接口）更為方便；l 更適合有C語言基礎的程序員；l 但Delphi的資源更豐富；2、與VC+的比較l 它們使用了不同的程序框架，VC+使用MFC（微軟基礎類庫），BCB使用VCL（可視化組件庫）l 從層次上VCL優于MFC，能做到快速

12、開發；l 不過MFC與Windows同出一門，MFC有微軟的強力支持；l VC+跨平臺的兼容性更好；l VC+運行時間長，積累的資源最多；l C+是一種語言標準，好比圖紙，而BCB與VC+則是根據這一圖紙生產的不同的產品；四、重要的不可視組件與BCB類1、AnsiString是功能很強的字符串類，利用構造函數可以從其它類型生成AnsiString類型；可以用+進行連接，還重載了<，>，<=，>=，!=等運算符，除進行字節比較外，還可以用AnsiCompare方法進行中文比較；它還有眾多強大的方法，見表3.212、Tstrings與TStringList用于訪問多行文本，

13、可以看到Lines屬性就是Tstrings類對象指針；Tstrings類的Strings屬性就是一個AnsiString類對象的數組；本質上是一個double類型的浮點數； 0 - 1899年12月30日零點 計時起點 37750.9240272338 - 2003年5月9日22點10分35秒整數部份-距離計時起點的天數小數部份-當前時間與全天24小時的比值可以將TDateTime對象用作浮點數，也可以把浮點數轉換成TDateTime，實際上可以方便地在時間類型與其它類型間完成轉換；用Now()函數可以取當前時間；用DayOfWeek可以取出星期 0 1 2 3 4 5 6 Sunday Mo

14、nday Tuesday Wednesday Thursday Friday Saturday 五、BCB6的一般編程步驟Ø File|New開始一個項目Ø 設計界面，設置組件屬性Ø 撰寫組件事件處理程序Ø 運行程序Ø 對程序中的錯誤進行調試和修改Ø 在上面的過程中不要忘記隨時保存文件第三部分 可視化程序設計實驗項目實驗一 C+ Builder初步應用一、 實驗目的通過一個簡單的實例，讓學生熟悉C+Builder集成開發環境，掌握利用C+Builder進行應用程序開發的步驟，初步能完成簡單的程序設計，掌握基本的調試手段和調試方法，熟悉

15、簡單控件的使用方法。二、 實驗設備1臺PC、CB6開發環境等。三、 程序功能點擊“隱藏”按鈕，“Hello World”消失，按鈕變成“顯示”；再點擊“顯示”按鈕，“Hello World”又顯示出來，同時按鈕變成“隱藏”。額外功能：可以修改標簽Label的文字，如下圖。四、 設計步驟1、 從Standard面板放一個Label控件和一個Button控件，建立如圖1-1界面：圖1-1圖1-2圖1-4 圖1-3 圖1-5 2、有關控件屬性設置如下表控件類型控件名稱屬性值ButtonButton1Caption“隱藏”LabelLabel1Caption“Hello World”3、在“隱藏”按鈕

16、上雙擊或如圖1-2選擇對象觀察器（Object Inspector）的事件（Event）頁的OnClick項，為Button1按鈕添加單擊事件響應代碼如下void _fastcall TForm1:Button1Click(TObject *Sender)/此行代碼自動生成，不用書寫 if(Button1->Caption="隱藏") Button1->Caption="顯示" Label1->Visible=false;/Visible屬性為false表示該控件不可見 else Button1->Caption="隱藏

17、" Label1->Visible=true; /Visible屬性為true表示該控件可見 /此行代碼自動生成，不用書寫4、 單擊File->Save Project As保存文件，如圖1-3。保存時最好為每一個程序新建一個文件夾來存放文件，如圖1-45、單擊運行按鈕，如圖1-5，運行程序。五、 C+Builder項目文件介紹圖1-61、 一般情況下在運行該程序以前，C+Builder項目中只有圖1-6中前6個文件，就是所謂的源程序。1）Project1.bprC+Builder的項目文件（Borland Project），它統一管理著所有的源程序，通過打開它可以打開C

18、+Builder項目；2）Project.cpp主要包含了WinMain( )函數，WinMain( )函數的作用相當于Turbo C中的Main( )函數。它實際上完成應用程序的初始化、創建如圖1 這樣的窗體。這里順便說一句，要深入學習C+Builder編程，除了要對各種控件能熟練使用以外，還要深入了解Windows下程序運行的機制，打開黑匣子。3）Unit1.h窗體Form1是用一個類來實現的，Unit1.h是這個類的頭文件，在這個頭文件中可以看見在界面中所放的每一個控件都對應成這個類的一個成員變量。添加的每一個事件（消息）響應，如“隱藏”按鈕的單擊事件響應，都對應成這個類的一成員函數。當

19、然，這些操作都會自動完成，我們也可以手動進行操作。了解這些將有助于我們調試程序。4）Uni1.cpp它是窗體Form1的實現文件，具體實現程序功能。上面的代碼就添加在這里，它是我們最常用的一個文件，但它不能單獨工作。5）Unit1.dfm它主要定義窗體的位置信息以及外觀信息。6）Project1.res 它是資源文件，2、 運行程序后，會增加后4 個文件。擴展名為EXE的Project1.exe是經鏈接后生成的可執行文件，可在Windows中直接運行；擴展名為Obj的文件，是對源程序編譯后生成的目標文件，供鏈接程序使用以生成可執行文件；實驗二 常用組件設計一、 實驗目的通過實驗學習TCheck

20、Box、TComboBox、TMemo、TGroupBox等常用組件的用法。二、 實驗設備1臺PC、CB6開發環境等。三、 程序功能設計一個用于輸入學生基本信息的應用程序，要求在輸入合法的學號后（規定10位數字字符），窗體上的其他組件才可使用，否則給出錯誤信息，且要求班級信息在運行時加入。額外功能：如果學號中有數字以外的其它字符，提示出錯。（提示：可用AnsiString類的ToIntDef方法實現）四、 設計步驟1、建立下圖的界面，Label、ComboBox、Edit、RadioGroup、GroupBox、CheckBox、Memo、Button組件在Stardard面板中，UpDown

21、在Win32面板中。提示：“個人愛好”部分由一個TGroupBox組件和4個TCheckBox組成；界面中的可編輯組件中，除班級下拉列表框、學號編輯框和按鈕外，其余組件的Enabled屬性設置為false。2、主要組件屬性設置如下表組件類型控件名稱屬性值RadioGroupRadioGroup1Columns2Items男 女UpDownUpDown1AssociateEdit3Min16ButtonButton1DefaultTrueMemoMemo1ScrollBarsssVertical3、添加事件1）FormCreate事件void _fastcall TForm1:FormCreat

22、e(TObject *Sender) ComboBox1->Items->Add("自動化2012"); ComboBox1->Items->Add("測控2012"); ComboBox1->Items->Add("電自2012"); ComboBox1->Items->Add("計算機2012"); ComboBox1->Items->Add("物聯網2012"); ComboBox1->ItemIndex=0;2）增加But

23、ton1Click事件void _fastcall TForm1:Button1Click(TObject *Sender) if(Edit1->Text.Length()!=10) ShowMessage("學號必須由10位數字組成"); return; Edit2->Enabled=true; RadioGroup1->Enabled=true; Edit3->Enabled=true; UpDown1->Enabled=true; GroupBox1->Enabled=true; Memo1->Enabled=true; Bu

24、tton2->Enabled=true;3）增加Button2Click事件void _fastcall TForm1:Button2Click(TObject *Sender) AnsiString temp; Memo1->Lines->Add("班級："+ComboBox1->Items->StringsComboBox1->ItemIndex); /添加班級 Memo1->Lines->Add("學號："+Edit1->Text); /添加學號 Memo1->Lines->Add(

25、"姓名："+Edit2->Text); /添加姓名 temp="性別：" if(RadioGroup1->ItemIndex=0) temp+="男" else temp+="女" Memo1->Lines->Add(temp); /添加性別 Memo1->Lines->Add("年齡："+Edit3->Text); /添加年齡 temp="愛好：" if(CheckBox1->Checked) temp+=" 計算機

26、" if(CheckBox2->Checked) temp+=" 音樂" if(CheckBox3->Checked) temp+=" 書畫" if(CheckBox1->Checked) temp+=" 體育" Memo1->Lines->Add(temp); Memo1->Lines->Add("n");4、運行界面實驗三 口令字的實現一、 實驗目的通過驗證用戶輸入的密碼是否正確，讓學生掌握常用標準對話框函數，并建立閱讀英文幫助文件的習慣。二、 實驗設備1臺P

27、C、CB6開發環境等。三、 程序功能驗證用戶輸入的密碼，如果正確則顯示歡迎界面，如果密碼錯誤，則提示用戶重新輸入，用戶最多有三次輸入密碼的機會。額外功能（實現其中任意一個功能即可）：1、密碼可以修改，并能保存到文件中；（保存文件可用Memo控件的SaveToFile方法實現）2、在驗證密碼時，密碼從文件中加載；（加載可用Memo控件的LoadFromFile方法實現）3、密碼保存時不用明文的方式保存，用簡單的算法對密碼進行加密后保存（常用MD5加密方式）。四、 設計步驟1、 從Standard面板放一個Edit控件和一個Button控件，建立如圖3-1界面。2、有關控件屬性設置如下表控件類型控

28、件名稱屬性值ButtonButton1Caption“確定”DefaulttrueEditEdit1PassWordChar*Text空值圖3-13、為Button1按鈕添加單擊事件響應代碼如下：void _fastcall TForm1:Button1Click(TObject *Sender) static i=0; if(Edit1->Text="1234") ShowMessage("歡迎"); else i+; if(i=3) ShowMessage("退出"); Close(); else ShowMessage(&

29、quot;口令錯誤"+AnsiString(i)+"次"); Edit1->SetFocus();/Edit1控件設置焦點 4、運行程序，并思考為什么變量I被定義成靜態變量？5、重新修改程序，讓程序增加一些功能。void _fastcall TForm1:Button1Click(TObject *Sender) static i=0; if(Edit1->Text="1234") ShowMessage("歡迎"); else i+; if(i=3) /ShowMessage("退出");

30、Application->MessageBox("退出","錯誤",MB_OK+MB_ICONWARNING); Close(); else /ShowMessage("口令錯誤"+AnsiString(i)+"次"); AnsiString msg; int nResult; msg="口令錯誤"+AnsiString(i)+"次n是否重新輸入？" nResult=Application->MessageBox(msg.c_str(),"提示"

31、;, MB_YESNO + MB_ICONINFORMATION); if(nResult=IDYES)/根據用戶的輸入確定是否繼續輸入密碼 Edit1->SetFocus();/Edit1控件設置焦點 Edit1->Clear(); else Close(); 6、程序中新增加的功能主要是因為使用了MessageBox函數，下面是它的介紹，摘錄自C+Builder的幫助文件，會看幫助是編程者必備的基本功。int _fastcall MessageBox(const char * Text, const char * Caption, int Flags);DescriptionU

32、se MessageBox to display a generic dialog box a message and one or more buttons. Caption is the caption of the dialog box and is optional.MessageBox is an encapsulation of the Windows API MessageBox function. TApplication encapsulation of MessageBox automatically supplies the missing window handle p

33、arameter needed for the Windows API function.The value of the Text parameter is the message, which can be longer than 255 characters if necessary. Long messages are automatically wrapped in the message box. The value of the Caption property is the caption that appears in the title bar of the dialog

34、box. Captions can be longer than 255 characters, but don't wrap. A long caption results in a wide message box.The Flags parameter specifies what buttons appear on the message box and the behavior (possible return values). The following table lists the possible values. These values can be combine

35、d to obtain the desired effect.ValueMeaningMB_ABORTRETRYIGNOREThe message box contains three push buttons: Abort, Retry, and Ignore.MB_OKThe message box contains one push button: OK. This is the default.MB_OKCANCELThe message box contains two push buttons: OK and Cancel.MB_RETRYCANCELThe message box

36、 contains two push buttons: Retry and Cancel.MB_YESNOThe message box contains two push buttons: Yes and No.MB_YESNOCANCELThe message box contains three push buttons: Yes, No, and Cancel.MessageBox returns 0 if there isnt enough memory to create the message box. Otherwise it returns one of the follow

37、ing values:ValueNumeric valueMeaningIDOK1The user chose the OK button.IDCANCEL2The user chose the Cancel button.IDABORT3The user chose the Abort button.IDRETRY4The user chose the Retry button.IDIGNORE5The user chose the Ignore button.IDYES6The user chose the Yes button.IDNO7The user chose the No but

38、ton.實驗四 定時器的使用一、 實驗目的通過在程序中實現文字在閃爍中移動，讓學生掌握定時器控件、工具條、單選按鈕控件、多選按鈕控件的使用，并以及進一步掌握菜單控件的使用方法。二、 實驗設備1臺PC、CB6開發環境等。三、 程序功能本程序首先實現文字在閃爍中向左移動，然后再分別通過RadioGroup控件、菜單和工具欄控制文字的移動方向，用CheckBox控制是否移動，用ComboBox改變移動文字內容。額外功能（實現其中任意一個功能即可）：1）文字移動時間間隔可調；（可設置Timer控件的Interval屬性）2）文字移動步長可調；3）文字按正弦規律移動。（正弦可調用sin函數，需包含mat

39、h.h頭文件）四、 設計步驟1、Timer控件的使用功能：文字不受控制地循環地向左移動。1）從Standard面板放一個Label控件，從System面板放一個Timer控件，設計如圖4-1界面2）有關控件屬性設置如下表控件類型控件名稱屬性值LabelLabel1Caption“歡迎光臨”Font自行設置AnchorsTimerTimer1InterVal503）為Timer1控件添加定時事件響應代碼如下：void _fastcall TForm1:Timer1Timer(TObject *Sender) Label1->Left-=4; if(Label1->Left<-L

40、abel1->Width) Label1->Left=Form1->Width; Label1->Font->Color=RGB(255*rand(),255*rand(),255*rand();4）運行程序圖4-1圖4-2圖4-3圖4-42、Radio與CheckBox控件的使用功能： CheckBox控件控制文字是否移動，Radio控件控制文字移動的方向。1）在圖4-1的基礎上，再從Standard面板上加入一個CheckBox控件和一個RadioGroup控件，建立如圖4-2界面。2）有關控件屬性設置如下表控件類型控件名稱屬性值TimerTimer1Inte

41、rVal50CheckBoxCheckBox1Caption運行CheckedfalseRadioGroupRadioGroup1Caption方向Items向左向右Columns23)各控件事件響應代碼如下：void _fastcall TForm1:Timer1Timer(TObject *Sender) if(RadioGroup1->ItemIndex=1) Label1->Left+=4; else if(RadioGroup1->ItemIndex=0) Label1->Left-=4; if(Label1->Left < -Label1->

42、;Width) Label1->Left=Form1->Width; Label1->Font->Color=RGB(255*rand(),255*rand(),255*rand(); /-void _fastcall TForm1:CheckBox1Click(TObject *Sender) if(CheckBox1->State=cbChecked) Timer1->Enabled=true; else Timer1->Enabled=false;/-void _fastcall TForm1:FormActivate(TObject *Send

43、er) CheckBox1->OnClick(Sender);3、菜單與工具條的使用功能：用菜單各工具條控制文字是否移動以及移動的方向。1）建立如圖4-3界面，并建立如圖4-4所示菜單，工具條的加入如第3步所示。2）菜單的有關控件屬性設置如下表控件類型控件名稱屬性值MenuItemmiLeftCaptionm向左CheckedtrueRadioItemtruemiRightCaption向右CheckedfalseRadioItemtruemiStopCaption停止Checkedtrue3）工具條可按以下步驟建立：（1）參照圖3-2，在ImageList1控件中加入合適的圖標（2）插

44、入ControlBar工具條控件，如4-4（3）在剛才插入的ControlBar工具條控件中插入ToolBar工具條控件，如圖4-5（4）在ToolBar控件上單擊鼠標右鍵，選擇“New Button”命令，新建三個工具按鈕圖 4-4圖 4-5（5）有關工具條控件屬性設置如下表：控件類型控件名稱屬性值ControlBarControlBar1AutoSizetrueAlignalTopBevelEdgefalse false false falseToolBarToolBar1AutoSizetrueAlignalTopFlattrueDragKinddkDockEdgeBordersfals

45、e false false falseImagesImageList1ToolButtonToolButton1StyletbsCheckGroupedtrueOnClickmiRightClickToolButton2StyletbsCheckGroupedtrueOnClickmiLeftClickToolButton3StyletbsCheckeGroupedfalseOnClickmiStopClick4)各控件事件響應代碼如下：_fastcall TForm1:TForm1(TComponent* Owner) : TForm(Owner) bRun=false; nDirect=0

46、; if(nDirect=0) miLeft->Checked=true; else miRight->Checked=true; miStop->Checked=!bRun; CheckBox1->Checked=bRun; RadioGroup1->ItemIndex=nDirect;/-void _fastcall TForm1:Timer1Timer(TObject *Sender) if(nDirect=1) Label1->Left+=4; else if(nDirect=0) Label1->Left-=4; if(Label1->

47、Left < -Label1->Width) Label1->Left=Form1->Width; else if(Label1->Left > Form1->Width) Label1->Left=0;Label1->Font->Color=RGB(255*rand(),255*rand(),255*rand();/-void _fastcall TForm1:CheckBox1Click(TObject *Sender) bRun=CheckBox1->Checked; miStop->Checked=!bRun; T

48、imer1->Enabled=bRun;/-void _fastcall TForm1:ComboBox1Change(TObject *Sender) Label1->Caption=ComboBox1->Text;/-void _fastcall TForm1:miLeftClick(TObject *Sender) nDirect=0; miLeft->Checked=true; RadioGroup1->ItemIndex=nDirect;/-void _fastcall TForm1:miRightClick(TObject *Sender) nDire

49、ct=1; miRight->Checked=true; RadioGroup1->ItemIndex=nDirect;/-void _fastcall TForm1:miStopClick(TObject *Sender) miStop->Checked=!miStop->Checked; bRun=!miStop->Checked; CheckBox1->Checked=bRun; Timer1->Enabled=bRun;/-void _fastcall TForm1:FormActivate(TObject *Sender) CheckBox1->OnClick(Sender);/-void _fastcall TForm1:RadioGroup1Click(TObject *Sender) nDirect=RadioGroup1->ItemIndex; if(nDirect) miRight->Checked=true; else miLeft-