1、VB編寫上位機實例用VB編寫上位機實例（轉載）用VB6.0編寫第一個串口通信上位機程序Visual Basic6.0是一個可視化窗口環境的編程軟件，目前使用Visual Basic6.0 可以快速簡單編寫單片機中的串口通信上位機程序。電子制作HPOO下面我們以一個完整的通信試驗為例子完成如何用Visual Basic6.0編寫單片機串口通信程序。單片機學習HPOO打開安裝好后的Visual Basic6.0主程序界面。選擇“標準EXE。如圖1顯示, 建立Visual Basic 的編程環境。Active! EXE數齬工程外接程序WW1>7ActiveX DLLB7總YB應聲1序單片薜習與

2、設彳115曹程圖1在菜單的工程選項中選擇部件，如圖2。把Visual Basic 的串口通信控件 Microsoft Comm control 6.0調入工作菜單。工程CD格式（3調試運行已廉加葡幣日角竊加m窗萍盤廉加也蕭加類模塊（口匱忝加弟尸控件（U）固添加屬性頁®世薪加用尸站也添舸 WebClass忝加 Data Report添加 DHTML Page 簫加 Data Environment更多口i:內羽設計器（日 碼加立件笛，Ctrl+D穗除FormicCtrl+T圖2在打開部件對話框中，選擇 Microsoft Comncontrol 6.0 定。圖3的選項框，點擊確控件I設

3、計黠I可插入對象I FPOTC 1.0 TYPE LIBRARY.i-drop Type LibraryU Kodak圖像編輯控制 Kodak圖像昔理控制 Kodak圈像掃描揑制 Kodak圈像編略蹶制'Microsofl ActiveX Plugin Micros oft ADO Data Control 6.0 (OLEDB) Microsoft Agenl Conlrol 2.0* fflnminsmNNNHL Microsoft Common Dialog Control 6.0IF廠只顯示選定頂Microsoft Comai Control 6. 0定位：C； TOJBT5y

4、5tem32W3CDMU3Z OCX職消 I 應用®圖3可以在圖示3中可以看通信控件 Microsoft Comm control 6.0 C:WINNTsystem32MSCOMM32.O文件。如果大家在首次調用通信控件 Microsoft Comm control 6.0 對話框中找到，請直接在系統目錄中搜索名為 覽加入VB的工作界面中。添加完控件回到編程的文件是在控件時無法在控件MSCOMM32.O文件。然后通過瀏 界面。如下圖4。嘰 Project 1 - Mitrosoft Visual Bsic i亦件巳褊罰E）視甌歸二緻巴榻:© 圜應jeS（£）畫詢

5、郵! >Z3iTEltfiOK 控件停止并退出越±1 Z1Prujectl - Forml (Form)-! x|TeztlrVB$O£程單片機學牙與設訂UUMSCDMI通信壇件Tinm左時垃件C oirmancb ultoci 控件通過右邊的菜單把一些必要的控件放在窗體中。然后點擊窗體中的Timer控件按F4彈出屬性窗口進行設置。其具體設置如下：調頻FM發射話筒制作套件TiB«r I Tiwsr三|撐字母序|按分類序|（名荊）TimrlExLbledTriMIndexInitervaljOOL«£t15&0T咤Top3S&

6、;0Timer定時器控件設置屬性，（通過按 F4鍵可彈出此窗口）冏用一1|毀薦I測t I確定取消應用Mscomr通信控件參數屬性設置(通過單擊控件的右鍵屬性可彈出此窗口) 單片機設計本文用到的其他控件：CommandButto控件和TextBox控件按默認屬性設置不變。 單片機編程器HPOO以上設置完成，回到編程窗體區中，任意雙擊。會顯示Visual Basic 的程序窗體的Load事件程序。在代碼窗口中輸入： 單片機編程器HPOOPrivate Sub Form_Load()MSComm1.PortOpe n = True'窗體的加載時，就打開通信端口，通信端口的參數也可以在此指定T

7、imer1.E nabled = Timer1.E nabled'窗體的加載時，同時定時器控件事件End Sub電子元件郵購網這樣設置目的是當程序在打開是，首先打開通信控件MSComm注意這里的串口通信參數中的波特率設置是默認參數的。即：波特率：9600bps；校驗位：無；數據位：8位；停止位：1。電子元件郵 購網雙擊定時器控件Timer1同樣在定時器窗體的事件程序中，輸入相關代碼：電子 元件郵購Private Sub Timer1_Timer()If MSComm1.lnBufferCount > 0 Then'程序檢查輸入緩沖區中是否有數據，若有數據Text1.Tex

8、t = Text1.Text + MSComm1.l nput'則將此數據讀取后，指定給文本框的 Text屬性End IfEnd Sub單片機編程器HPOO'此事件會在每一個Interval屬性值的循環計數間隔內被調用一次，這樣就可以 一直讀取串口中有無數據發送。定時器一直按設置速度循環讀取串口數據。直到串口的程序緩沖區中有數據就把他發給 Text1文本框顯示出來。 杭州電子元件郵購網地址：最后雙擊CommandButtor控件,在彈出的程序窗口事件中輸入如下代碼：電子元件郵購Private Sub Comma nd1_Click()MSComml.PortOpe n = Fa

9、lse'關閉通信端口End'結束系統End Sub單片機編程器HPOO在這個窗口中MSComm1.PortOpen = False是當程序停止或者關閉軟件時都應該 加上關閉串口。通過以上簡單的代碼就實現了 VB串口接收程序。編輯完成后， 我們通過Visual Basic 菜單文件中的編譯來生產可執行文件。如下圖：陶 Project! - MicrosoFl VtaualBaric 1文件騙輯©觀圖妙工程迴格#期建工程 目打肝工程a，Ctrl+MCtrl+O雨加工程移隊工程(B)Q保存工程憾 工程另存為"保存 Fowl frin©Forml.frm 存為(心“ 保存能擇 傑存更改軸腳本(團Ctrl+S號打印®D打印設Ctrl+P生成 Pra)ec 11 .exe(K).生成工程淚(1 Prajectl.vbp2 , J轉速計Pro)ectl.vbp3電功率計Projedl.Ybp4.UED自動淤屏功圜工fflvbp退出Alt+Q«汨串口誥程單片扯學習與il畫曲毎-1口1其1weltorre Tvww.hpo-o.n&t welcome 災已Iconae welcome welcotiae wvw hp welc