VBA的妙用：串口通訊程序與EXCEL相結(jié)合

本文來(lái)源：《世紀(jì)星月刊》第2期 作者：劉月新

1 VBA簡(jiǎn)介

　　Visual Basic的應(yīng)用程序版（VBA）是Microsoft公司長(zhǎng)期追求的目標(biāo)，使可編程應(yīng)用軟件得到的實(shí)現(xiàn)，它作為一種通用的宏語(yǔ)言可被所有的Microsoft 可編程應(yīng)用軟件所共享。在沒有VBA以前，一些應(yīng)用軟件如Excel、Word、Access、Project等都采用自己的宏語(yǔ)言供用戶開發(fā)使用，但每種宏語(yǔ)言都是獨(dú)立的，需要用戶專門去學(xué)習(xí)，它們之間互不兼容，使得應(yīng)用軟件之間不能在程序上互聯(lián)。擁有一種可跨越多個(gè)應(yīng)用軟件，使各應(yīng)用軟件產(chǎn)品具有高效、靈活且一致性的開發(fā)工具是至關(guān)重要的。VBA作為一種新一代的標(biāo)準(zhǔn)宏語(yǔ)言，具有上述跨越多種應(yīng)用軟件并且具有控制應(yīng)用軟件對(duì)象的能力，使得程序設(shè)計(jì)人員僅需學(xué)習(xí)一種統(tǒng)一的標(biāo)準(zhǔn)宏語(yǔ)言，就可以轉(zhuǎn)換到特定的應(yīng)用軟件上去，程序設(shè)計(jì)人員在編程和調(diào)試代碼時(shí)所看到的是相同的用戶界面，而且VBA與原應(yīng)用軟件的宏語(yǔ)言相兼容，以保障用戶在代碼和工作上的投資。有了VBA以后，多種應(yīng)用程序共用一種宏語(yǔ)言，節(jié)省了程序人員的學(xué)習(xí)時(shí)間，提高了不同應(yīng)用軟件間的相互開發(fā)和調(diào)用能力。

2 串口通訊程序

1） 輪詢式
　　上位機(jī)向串口發(fā)送讀命令之后一直等待下位機(jī)應(yīng)答，通訊程序處于一個(gè)等待循環(huán)中。
　　優(yōu)點(diǎn)：速度快、誤碼率低（幾乎不存在誤碼）。
　　缺點(diǎn)：消耗CPU。（解決辦法：使用Sleep()API函數(shù)）。
2） 消息式
　　消息式通訊是采用響應(yīng)WINDOWS消息的辦法讀取串口。
　　優(yōu)點(diǎn)：節(jié)省CPU、誤碼率低。
　　缺點(diǎn)：發(fā)送接收機(jī)制過(guò)于繁瑣。
3） 定時(shí)接收式
　　定時(shí)接收式通訊是根據(jù)預(yù)設(shè)的定時(shí)器時(shí)間進(jìn)行讀取數(shù)據(jù)。
　　優(yōu)點(diǎn)：發(fā)送接收機(jī)制相對(duì)簡(jiǎn)單、節(jié)省CPU。
　　缺點(diǎn)：誤碼率太高，不同的硬件需要配置不同的通訊時(shí)間參數(shù)，需要嚴(yán)格的校驗(yàn)運(yùn)算。

3 EXCEL-VBA串口通訊實(shí)例

　　軟件：EXCEL。
　　硬件：艾默生EC10 PLC。
　　功能：通過(guò)EXCEL中的按鈕控制PLC的輸出繼電器Y0。
　　界面：RUN(運(yùn)行通訊)、STOP(停止通訊)、Y0(Y0 ON/OFF控制)。

主程序：

　　Option Explicit
　　Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
　　Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
　　Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
　　Public com1 As New MSCommLib.MSComm
　　Public y0Stt As Boolean
　　Public y0_on As Boolean
　　Public tmrFlag As Boolean
　　Public tmr As Long
　　Sub runn()
　　　　On Error GoTo ed
　　　　com1.Settings = "9600,e,8,1"
　　　　If com1.PortOpen = False Then
　　　　　　com1.PortOpen = True
　　　　End If
　　　　tmr = SetTimer(0, 0, 500, AddressOf ontimer)
　　　　Exit Sub

　　Private Sub cmd1_Click()
　　y0_on = True
　　y0Stt = Not y0Stt
　　End Sub
　　Private Sub cmdRun_Click()
　　runn
　　CheckBox1.Value = 1
　　End Sub
　　Private Sub cmdStop_Click()
　　stopp
　　CheckBox1.Value = 0
　　End Sub