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

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

2、的串口通信控件Microsoft Comm control 6.0調(diào)入工作菜單。 圖2在打開部件對(duì)話框中，選擇Microsoft Comm control 6.0的選項(xiàng)框，點(diǎn)擊確定。圖3圖3可以在圖示3中可以看通信控件Microsoft Comm control 6.0的文件是在C:WINNTsystem32MSCOMM32.OCX文件。如果大家在首次調(diào)用通信控件Microsoft Comm control 6.0控件時(shí)無法在控件對(duì)話框中找到，請(qǐng)直接在系統(tǒng)目錄中搜索名為MSCOMM32.OCX文件。然后通過瀏覽加入VB的工作界面中。添加完控件回到編程界面。如下圖4。圖4通過右邊的菜單把一些必要

3、的控件放在窗體中。然后點(diǎn)擊窗體中的Timer控件按F4彈出屬性窗口進(jìn)行設(shè)置。其具體設(shè)置如下： Timer定時(shí)器控件設(shè)置屬性，（通過按F4鍵可彈出此窗口） Mscomm通信控件參數(shù)屬性設(shè)置（通過單擊控件的右鍵屬性可彈出此窗口）本文用到的其他控件：CommandButton控件和TextBox控件按默認(rèn)屬性設(shè)置不變。 單片機(jī)編程器 HPOO以上設(shè)置完成，回到編程窗體區(qū)中，任意雙擊。會(huì)顯示Visual Basic的程序窗體的Load事件程序。在代碼窗口中輸入： 單片機(jī)編程器 HPOOPrivate Sub Form_Load() MSComm1.PortOpen = True 窗體的加載時(shí)，就打開通

4、信端口，通信端口的參數(shù)也可以在此指定 Timer1.Enabled = Timer1.Enabled 窗體的加載時(shí)，同時(shí)定時(shí)器控件事件End Sub 這樣設(shè)置目的是當(dāng)程序在打開是，首先打開通信控件MSComm，注意這里的串口通信參數(shù)中的波特率設(shè)置是默認(rèn)參數(shù)的。即：波特率：9600bps；校驗(yàn)位：無；數(shù)據(jù)位：8位；停止位：1。 電子元件郵購(gòu)網(wǎng)雙擊定時(shí)器控件Timer1同樣在定時(shí)器窗體的事件程序中，輸入相關(guān)代碼：Private Sub Timer1_Timer() If MSComm1.InBufferCount 0 Then程序檢查輸入緩沖區(qū)中是否有數(shù)據(jù)，若有數(shù)據(jù) Text1.Text = Te

5、xt1.Text + MSComm1.Input則將此數(shù)據(jù)讀取后，指定給文本框的Text屬性 End IfEnd Sub 此事件會(huì)在每一個(gè)Interval屬性值的循環(huán)計(jì)數(shù)間隔內(nèi)被調(diào)用一次，這樣就可以一直讀取串口中有無數(shù)據(jù)發(fā)送。定時(shí)器一直按設(shè)置速度循環(huán)讀取串口數(shù)據(jù)。直到串口的程序緩沖區(qū)中有數(shù)據(jù)就把他發(fā)給Text1文本框顯示出來。 杭州電子元件郵購(gòu)網(wǎng)地址:最后雙擊CommandButton控件 ，在彈出的程序窗口事件中輸入如下代碼： Private Sub Command1_Click() MSComm1.PortOpen = False關(guān)閉通信端口 End結(jié)束系統(tǒng)End Sub 在這個(gè)窗口中MSComm1.PortOpen = False是當(dāng)程序停止或者關(guān)閉軟件時(shí)都應(yīng)該加上關(guān)閉串口。通過以上簡(jiǎn)單的代碼就實(shí)現(xiàn)了VB串口接收程序。編輯完成后，我們通過Visual Basic菜單文件中的編譯來生產(chǎn)可執(zhí)行文件。如下