用VB編寫上位機(jī)實(shí)例

1、標(biāo)簽：無標(biāo)簽VB編寫上位機(jī)實(shí)例I 確定 I 取消 I 應(yīng)用圖3用VB編寫上位機(jī)實(shí)例16:14:22 UTC+0800Sun Apr 1 2007用VB6.0編寫第一個(gè)串口通信上位機(jī)程序Visual Basic6.0Visual Basic6.0是一個(gè)可視化窗口環(huán)境的編程軟件，目前使用可以快速簡(jiǎn)單編寫單片機(jī)中的串口通信上位機(jī)程序。F面我們以一個(gè)完整的通信試驗(yàn)為例子完成如何用VisualBasic6.0編寫單片機(jī)串口通信程序。打開安裝好后的 Visual Basic6.0主程序界面。選擇“標(biāo)準(zhǔn)EXE”。如圖1顯示,建立Visual Basic的編程環(huán)境。EXEActiveX DLL數(shù)據(jù)工程外接程序

2、立-1-單H機(jī)學(xué)習(xí)與設(shè)Jfcl在菜單的工程選項(xiàng)中選擇部件，如圖2。把Visual Basic的串口通信控件Microsoft Comm control 6.0 調(diào)入工作菜單。工徴日格式 調(diào)感y運(yùn)行 J5添加甯體 巧添加MLI窗儆D 禮粛加廡鍥 曲就哄模塊© 圈忝加用戶控件 直I淘口屬性貢® 斶誘加用尸交襠I添加 WeLCl'ss 忝加 Data Report 忝a DHTML Page 希加 Data Enwantnent 更務(wù)ActiveX設(shè)計(jì)器, 雨加丈件Ctrl+D倉(cāng)刖用（ED，Ctrl+T的選項(xiàng)框，點(diǎn)擊確定。在打開部件對(duì)話框中，選擇Microsoft Com

3、m control 6.0證fr- FPDTC 1.0TYPE LIBRARY亠 hidlrop Type Libra ly kodak輯控制 kodak理控制I Kodak圖像掃描控制 Kodak El像縮略圈栓制 Micro soft ActiveX Plugin Micro son ADO Data Control 5 0 (OLEDB>口 Micro son Agent Control 2.0田旦巫四E空丄KE®上.EG史.g屯屈 iBjSjl闞jIHffiMB訓(xùn)fflm綁BW MItroeonCommon Dialog Control 6.0 創(chuàng)JjI 上.lOLF

4、DO= an瀏覽葩.I廠只顯示選定項(xiàng)）-Hi cro soft Comm Control 5.0定S： C： mmXsy !tem3?MSC0MI«3Z. OCX可以在圖示3中可以看通信控件Microsoft Comm control 6.0的文件是在C:WINNTsystem32MSCOMM32.OCX 文件。如果大家在首次調(diào)用通信控件Microsoft Comm con trol 6.0控件時(shí)無法在控件對(duì)話框中找到，請(qǐng)直接在系統(tǒng)目錄中搜索名為 MSCOMM32.OCX 文件。然后通過瀏覽加入VB的工作界面中。添加完控件回到編程界面。如下圖1% Projrrt 1 - Microt

5、on： Visual Paic 設(shè)1十|曲口-遁Q電I昭餌切 Projecll - Form I (Form)左,憫串口鈴程單片機(jī)學(xué)習(xí)與謖計(jì)Textl二EJZlITesftBos 控件MSCOMM通信控件C停止并退出SIfd-bnltcn 控件Tuner定時(shí)控件/Timer控件通過右邊的菜單把一些必要的控件放在窗體中。然后點(diǎn)擊窗體中的按F4彈出屬性窗口進(jìn)行設(shè)置。其具體設(shè)置如下:1。屋桂-Timer 1TiB«r1 Timer按芋理序I按分糞序IloaEjiabled TrueIzideKTimer定時(shí)器控件設(shè)置屬性，（通過按F4鍵可彈出此窗口）硬枠I(yè)設(shè)疊步數(shù):握手協(xié)（K）;I 確圭_

6、 I 取消 I 應(yīng)用 I幫助 Mscomm通信控件參數(shù)屬性設(shè)置（通過單擊控件的右鍵屬性可彈出此窗口）本文用到的其他控件：CommandButton 控件和TextBox控件按默認(rèn)屬性設(shè)置不變。以上設(shè)置完成，回到編程窗體區(qū)中，任意雙擊。會(huì)顯示Visual Basic的程序窗體的Load事件程序。在代碼窗口中輸入:Private Sub Form_Load()MSComml. PortOpen = True'窗體的加載時(shí)，就打開通信端口，通信端口的參數(shù)也可以在此指定Timerl.E nabled = Timerl.E nabled'窗體的加載時(shí)，同時(shí)定時(shí)器控件事件End Sub這樣

7、設(shè)置目的是當(dāng)程序在打開是，首先打開通信控件 MSComm，注意這里的串口通信參數(shù)中的波特率設(shè)置是默認(rèn)參數(shù)的。即：波特率：9600bps ;校驗(yàn)位：無；數(shù)據(jù)位：8位；停止位:雙擊定時(shí)器控件Timerl同樣在定時(shí)器窗體的事件程序中，輸入相關(guān)代碼:P rivate Sub Timer1_Timer()If MSComm1.I nBufferCou nt > 0 Then '程序檢查輸入緩沖區(qū)中是否有數(shù)據(jù)，若有數(shù)據(jù)TextI.Text = TextI.Text + MSComml.l nput'則將此數(shù)據(jù)讀取后，指定給文本框的Text屬性End IfEnd Sub '此事

8、件會(huì)在每一個(gè)Interval屬性值的循環(huán)計(jì)數(shù)間隔內(nèi)被調(diào)用一次，這樣就可以一直讀取串口中有無數(shù)據(jù)發(fā)送。定時(shí)器一直按設(shè)置速度循環(huán)讀取串口數(shù)據(jù)。直到串口的程序緩沖區(qū)中有數(shù)據(jù)就把他發(fā)給Textl文本框顯示出來。最后雙擊CommandButton 控件，在彈出的程序窗口事件中輸入如下代碼:Private Sub Comma nd1_Click()MSComm1. PortOpen = False '關(guān)閉通信端口End '結(jié)束系統(tǒng)End Sub在這個(gè)窗口中 MSComm1. PortO pen = False是當(dāng)程序停止或者關(guān)閉軟件時(shí)都應(yīng)該加上關(guān)閉串口。通過以上簡(jiǎn)單的代碼就實(shí)現(xiàn)了VB串口接

9、收程序。編輯完成后，我們通過 Visual Basic菜單文件中的編譯來生產(chǎn)可執(zhí)行文件。如下圖:H 阡oiKU - Mitrosoft 也11川 Baaic 調(diào)Clrl+WC trl+0耐”日串口輪S單片機(jī)學(xué)勻與ibsjBJW皚辱11 BIzJ停止并退出f呆存 Forml,frmCtrl十3Fcmlhm另存為（ 保存選擇©保冉更改的腳豐（Ctrl+P生 s!iProjectL.exe(K).,生成工程組苗）IPrajectlhVbp2轉(zhuǎn)連計(jì)Pro)e(±l .vbp3 ,.電功率計(jì)PriQjectl.vbp1. .'LED自動(dòng)隈屏功圜工程l.yrbp welcQine wtkome wdcQine wfrltfine welcQine www.lipQ w&lcome welcome