3VA2063-5KQ32-0AA0

PortOpen　設置并返回通訊端口的狀態（打開或關閉）。在設計時無效。格式為：
MSComm.PortOpen［=TRUE/FALSE］ 。
bbbbb　返回并刪除接收緩沖區中的數據流。該屬性在設計時無效，在運行時為只讀。
格式為：MSComm.bbbbb。
bbbbbLen　設置并返回 bbbbb 屬性從接收緩沖區中每次讀取的字符數。格式為：MSComm.bbbbbLen［=CharNumber］。bbbbbLen 屬性的缺省值是 0。設置 bbbbbLen 為 0 時，使用 bbbbb 將使 MSComm 控件讀取接收緩沖區中全部的內容。若接收緩沖區中的字符數小于bbbbbLen 屬性設置的字符數，bbbbb 屬性返回一個零長度字符串 ("")。所以在使用bbbbb 前，用戶可以通過檢查 InBufferCount 屬性來確定緩沖區中是否已有需要數目的字符。
InBufferCount　返回接收緩沖區中已接收的字符數。格式為： MSComm.InBufferCount［=0］。該屬性在設計時無效，但設置InBufferCount 屬性為0 可以接收緩沖區。
bbbbbMode　設置或返回 bbbbb 屬性取回的數據的類型。格式為MSComm.bbbbbMode［=Modbbbbue］。若數據只用 ANSI 字符集，設置bbbbbMode屬性值為0（缺省），數據通過 bbbbb 屬性以文本形式取回。如數據中有嵌入控制字符、Nulls 等等，可設置bbbbbMode屬性值為1，數據通過 bbbbb 屬性以二進制形式取回。
Output　向發送緩沖區寫數據。該屬性在設計時無效，在運行時為只讀。格式為：MSComm.Output=OutData。OutData為要發送的數據，可以是文本數據或二進制數據。
Rthreshold　設置或返回輸入緩沖區中存放接收字符的最小數。當其屬性值為1時，則緩沖區中每接收到一個字符就引發一次OnComm事件，以便及時從緩沖區中取走數據；當設為0時，則不引發OnComm事件；當設為其它值時，如Rthreshold屬性值為5時，則緩沖區中每接收到5個字符引發一次OnComm事件。
CommEvent　返回最近的通訊事件或錯誤的數字代碼。格式為：mEvent。 當CommEvent屬性值為常數ComEvReceive=2時，收到 Rthreshold 個字符，就會觸發OnComm事件，直到用 bbbbb 屬性從接收緩沖區中取出數據。
DTREnable　確定在通訊時是否使 Data Terminal Ready (DTR) 線有效。Data Terminal Ready 是計算機發送到調制解調器的信號，指示計算機準備就緒，可以開始傳輸數據。格式為：MSComm.DTREnable［=TRUE/FALSE］。 DTREnable 設置為 True，當端口被打開時 Data Terminal Ready 線設置為高電平（開），當端口被關閉時 Data Terminal Ready 線設置為低電平（關）。 DTREnable 設置為 False，Data Terminal Ready 線始終保持為低電平。在很多情況下，當Data Terminal Ready 線發生從開到關的轉換時，調制解調器進入命令狀態，執行“ATH0”命令來掛斷電話。
2．3　MSComm控件的OnComm 事件
通訊控件產生的唯一事件是OnComm事件。每當有通訊錯誤或某事件發生時，通訊控件就會產生此事件。事件或錯誤的數字代碼放在CommEvent屬性中。
3　程序設計

MSComm 控件提供下列兩種處理通訊的方式：查詢方式和事件驅動方式。
3．1　查詢通訊
通過檢查InBufferCount 屬性值來判定輸入緩沖區中是否接收到相應數目的字符或字節。若已接收到相應數目的字符或字節，就可以用bbbbb屬性來接收這些字符或字節；否則繼續查詢InBufferCount屬性值，直到滿足條件。
下面是用查詢方式實現的通訊程序。在下面給出的例子中，我們接收的數據都是48字節的定長二進制數據。為實現該程序，需在窗體上加入一個通訊控件MSComm1，四個命令按鈕cmdDial，cmdHangUp，cmdOrder，cmdExit。
窗體文件清單（只給出主要的程序代碼）
Dim ret '定義窗體級變量
Dim databuffer() As Byte 'databuffer是存放接收數據的數組
Private Sub bbbb—Load()
'設置當前通信串口為COM2口
mPort = 2
'設置串口傳輸速率為2400bps，數據位8位，無校驗，一位停止位
MSComm1.Settings = "2400,n,8,1"
MSComm1.bbbbbMode = 1 '以二進制形式從輸入緩沖區中讀數據
MSComm1.RThreshold = 0 '接收到數據不引發OnComm事件
MSComm1.bbbbbLen = 0 '一次讀出輸入緩沖區中的所有數據
MSComm1.PortOpen = True '打開串口
End Sub
Private Sub cmdDial—Click() '撥號聯機
Static Num As bbbbbb
Num = bbbbbBox$("Enter Phone Number:", "Dial Number", Num) '輸入電話號碼
If Num = "" Then Exit Sub
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
If Err Then Exit Sub
End If
MSComm1.Output = "ATDT" & Num & vbCrLf
'ATDT通知調制解調器以音頻方式撥號
cmdHangUp.Enabled = True
cmdDial.Enabled = False
MSComm1.InBufferCount = 0
'查詢InBufferCount 屬性值來確定輸入緩沖區中是否接收到調制解調器回送的字符串“10  ”，以證實撥號成功，正確建立聯接
Do
DoEvents
Loop Until MSComm1.InBufferCount =3
End Sub
Sub ReceiveData() '接收數據子程序
Dim temp
MSComm1.InBufferCount = 0 '清空輸入緩沖區
'查詢InBufferCount 屬性值來確定輸入緩沖區中是否有接收到48字節的數據
Do
DoEvents
Loop Until MSComm1.BufferCount = 48
temp = MSComm1.bbbbb
databuffer = temp '將接收到的數據的類型轉換為字節數組類型
End Sub
Private Sub cmdHangUp—Click() '數據通訊結束后，執行操作
Dim ret
ret = MSComm1.DTREnable
'當DTR信號發生從高電平到低電平的轉換時，調制解調器從傳輸狀態進入命令狀態
MSComm1.DTREnable = True
MSComm1.DTREnable = False
MSComm1.DTREnable = ret
MSComm1.Output = "ATH0"　　　　'ATH0是命令
cmdHangUp.Enabled = False
cmdDial.Enabled = True
If Err Then MsgBox Error$, 48
End Sub
Private Sub cmdExit—Click() '單擊退出按鈕觸發的事件過程
Mscomm1.Portopen=False '關閉串口
End
End Sub
Private Sub cmdOrder—Click() '單擊查詢按鈕觸發的事件過程
Dim temp
Dim order() As Byte
order = StrConv(Chr(0) + "aa" + Chr(13), vbFromUnicode) '查詢命令串
'strconv()函數的功能是將Unicode字符串轉換為ASCII碼字符串
temp = order
MSComm1.Output = temp
'通過與串口聯接的調制解調器向遠端電源控制器發送查詢命令
ReceiveData '查詢接收48字節的數據

3．2　事件驅動通訊
事件驅動通訊是處理串行端互作用的一種非常有效的方法。在許多情況下，當輸入緩沖區中收到字符或是輸出緩沖區空時，需要通知程序以便處理，在這些情況下，可以利用 MSComm 控件的 OnComm 事件捕獲并處理這些通訊事件。
下文給出的用事件驅動方法設計的通訊程序與上面的查詢通訊程序具有相同的窗口界面和功能。在實現過程中，要把查詢通訊程序的查詢接收子程序去掉，這是因為在事件驅動的通訊中，接收數據都是在OnComm事件過程里完成的。并且，在bbbb—load事件過程中將Rthreshold屬性值設為1。在程序設計時，還要引入一個窗體級變量comstate，指示串口當前的狀態。下面只給出OnComm 事件過程。
Private Sub MSComm1—OnComm()
Dim temp As Variant
Dim tempbyte() As Byte
Select Case mEvent
'根據不同的CommEvent屬性的值來確定引起OnComm事件的具體原因，然后進行不同的處理
Case 2 'MSCOMM—EV—RECEIVE=2
temp = MSComm1.bbbbb '從緩沖區中讀出接收到的數據
tempbyte= temp '將接收到的數據的類型轉換為字節數組類型
Dim k As Integer
Static i As Integer
For k = LBound(tempbyte) To UBound(tempbyte)
If comstate=0 Then 'comstate=0, 串口處在撥號狀態
If tempbyte(k)=13 Then
'判斷是否收到調制解調器回送的結果碼結束符回車符
comstate=1 '撥號成功
End If
Else 'comstate=1,串口處在接收數據狀態
databuffer(i)=tempbyte(k)
i=i+1
If i=47 Then
i=0
End If
Next k
End Select
End Sub
以上，我們討論了用VB實現遠程數據通訊的兩種方法。需要注意的是，用查詢方式進行通訊程序設計時，要對輸入緩沖區中的數據及時處理，保證數據的正確接收。例如，在輸出調制解調器撥號命令后，程序就立即查詢調制解調器的回送結果碼；而向電源控制器發出查詢命令后，程序就立即查詢接收上報的數據。如果在數據量大，功能比較復雜的通訊程序中，就應該采用事件驅動的通訊方法，保通訊的可靠性。

潯之漫智控技術（上海）有限公司經銷/CO-TRUST科思創西門子PLC；S7-200S7-300 S7-400 S7-1200 觸摸屏，變頻器，6FC，6SNS120 V10 V60 V80伺服數控備件：原裝進口電機，電線，電纜，希望能跟您有更多的合作機會。我公司經營西門子全新原裝PLC；S7-200S7-300 S7-400 S7-1200 觸摸屏，變頻器，6FC，6SNS120 V10 V60 V80伺服數控備件：原裝進口電機（1LA7、1LG4、1LA9、1LE1），國產電機（1LG0，1LE0）大型電機（1LA8，1LA4，1PQ8）伺服電機（1PH，1PM，1FT，1FK，1FS）西門子保內全新原裝產品‘質保一年。一年內因產品質量問題免費更換新產品；不收取任何費。歡迎致電咨詢。