Pb6中的串行通信(MSCOMM32.OCX)完全解答版
2024-07-21 02:10:07
供稿：網友
pb6中的串行通信(mscomm32.ocx)完全解答版
本文給出一個在pb6中如何采集串行口數據的實例及mscomm32.ocx控件的一些基本知識。
一：問題描述
本文解決的是采集磅房的磅值讀取問題。磅秤和計算機(com1/com2)之間使用rs-232標準串行線相連。波特率為1200，數據格式如下：每100ms發送一組數據，每組數據有5幀，每幀11位，1位起始位(0),8位數據位(d0-d7),2位停止位(1)，無奇偶校驗.定義如下：
第1幀：d0—d7 ----0ffh(起始位)
第2幀：d0—d2 ----為小數點位置(0-5)
d3 -----nc
d4 -----1表示稱重穩定 0表示稱重未穩定
d5 -----1表示稱重為負 0表示稱重為正
d6 -----nc
d7 -----1表示超載
第3幀：d0—d7 ----bcd1(稱重值)
第4幀：d0—d7 ----bcd2(稱重值)
第5幀：d0—d7 ----bcd3(稱重值)
bcd1，bcd2，bcd3為由低到高的稱重值的bcd碼。
二：解決方案
使用vb中的mscomm32.ocx控件，先在pb中的ole的insert control中注冊該控件，如果注冊完畢后使用時提示沒有license ，則是沒有注冊碼問題，網上提供了好多這方面的解決方法，但試過后都沒能解決問題，我的解決方法是裝vb，安裝vb時一定要選擇安裝activex。轉完vb肯定能解決問題。
在窗口上添加該控件，名稱為ole_1。在窗口的open事件里設置ole_1的屬性。
ole_1.object.commport=1
ole_1.object.settings="1200,n,8,1"
ole_1.object.portopen=true
ole_1.object.rthreshold= 10 //每次取10個字節，在10個字節中肯 定包含一個完整//(5個字節)的磅值數據
ole_1.object.inputlen=1
ole_1.object.inputmode=0
各屬性的意義在下面有詳細的解釋。
在ole_1控件的oncomm事件里添加如下代碼
choose case ole_1.object.commevent
case 2
ole_1.object.rthreshold=0
string ls_t
int ii
int w1,w2,w3,flag1,flag2
for ii=1 to 10
ls_t = ole_1.object.input
flag1 = asc(ls_t) //取字節的數值
if flag1 = 255 then //判斷是否為起始位
ls_t = ole_1.object.input
flag2 = asc(ls_t)
if flag2 = 8 then //判斷數值是否正確
//讀取bcd1, bcd2,bcd3的值
w1 = asc(ole_1.object.input)
w2 = asc(ole_1.object.input)
w3 = asc(ole_1.object.input)
end if
end if
next
//將bcd碼轉換為十進制數值
w1 = w1 - 6*int(w1/16)
w2 = w2 - 6*int(w2/16)
w3 = w3 - 6*int(w3/16)
//按高低位計算
st_1.text=string(w1 + w2*100+w3*10000)
//在次讀取10個數值，觸發oncomm事件
ole_1.object.rthreshold=10
case 1006
st_1.text="over run"
case 8020
st_2.text="read comm device error"
case 1001
st_1.text="break signal received"
case else
st_1.text=string(ole_1.object.input)
return
end choose
三 mscomm32控件的基本屬性
mscomm 控件通過串行端口傳輸和接收數據，為應用程序提供串行通訊功能。mscomm控件在串口編程時非常方便，程序員不必去花時間去了解較為復雜的api函數，而且在vc、vb、delphi等語言中均可使用。 microsoft communications control（以下簡稱mscomm）是microsoft公司提供的簡化windows下串行通信編程的activex控件，它為應用程序提供了通過串行接口收發數據的簡便方法。具體的來說，它提供了兩種處理通信問題的方法：一是事件驅動(event－driven)方法，一是查詢法。
1.mscomm控件兩種處理通訊的方式
mscomm控件提供下列兩種處理通訊的方式：事件驅動方式和查詢方式。
1.1 事件驅動方式
事件驅動通訊是處理串行端口交互作用的一種非常有效的方法。在許多情況下，在事件發生時需要得到通知，例如，在串口接收緩沖區中有字符，或者 carrier detect (cd) 或 request to send (rts) 線上一個字符到達或一個變化發生時。在這些情況下，可以利用 mscomm 控件的 oncomm 事件捕獲并處理這些通訊事件。oncomm 事件還可以檢查和處理通訊錯誤。所有通訊事件和通訊錯誤的列表，參閱 commevent 屬性。在編程過程中，就可以在oncomm事件處理函數中加入自己的處理代碼。這種方法的優點是程序響應及時，可靠性高。每個mscomm 控件對應著一個串行端口。如果應用程序需要訪問多個串行端口，必須使用多個 mscomm 控件。
1.2 查詢方式
查詢方式實質上還是事件驅動，但在有些情況下，這種方式顯得更為便捷。在程序的每個關鍵功能之后，可以通過檢查 commevent 屬性的值來查詢事件和錯誤。如果應用程序較小，并且是自保持的，這種方法可能是更可取的。例如，如果寫一個簡單的電話撥號程序，則沒有必要對每接收一個字符都產生事件，因為唯一等待接收的字符是調制解調器的“確定”響應。
2.mscomm 控件的常用屬性
mscomm 控件有很多重要的屬性，但首先必須熟悉幾個屬性。
commport 設置并返回通訊端口號。
settings 以字符串的形式設置并返回波特率、奇偶校驗、數據位、停止位。
portopen 設置并返回通訊端口的狀態。也可以打開和關閉端口。
input 從接收緩沖區返回和刪除字符。
output 向傳輸緩沖區寫一個字符串。
下面分別描述：
commport屬性 設置并返回通訊端口號。
語法 object.commport[value ] (value 一整型值，說明端口號。)
說明 在設計時，value 可以設置成從 1 到 16 的任何數（缺省值為 1）。但是如果用 portopen 屬性打開一個并不存在的端口時，mscomm 控件會產生錯誤 68（設備無效）。
注意：必須在打開端口之前設置 commport 屬性。
rthreshold 屬性：在 mscomm 控件設置 commevent 屬性為 comevreceive 并產生 oncomm 之前，設置并返回的要接收的字符數。
語法 object.rthreshold [ = value ]（value 整型表達式，說明在產生 oncomm 事件之前要接收的字符數。 ）
說明 當接收字符后，若 rthreshold 屬性設置為 0（缺省值）則不產生 oncomm 事件。例如，設置 rthreshold 為 1，接收緩沖區收到每一個字符都會使 mscomm 控件產生 oncomm 事件。
ctsholding 屬性：確定是否可通過查詢 clear to send (cts) 線的狀態發送數據。clear to send 是調制解調器發送到相聯計算機的信號，指示傳輸可以進行。該屬性在設計時無效，在運行時為只讀。
語法： object.ctsholding（boolean）
mscomm 控件的 ctsholding 屬性設置值：
true clear to send 線為高電平。
false clear to send 線為低電平。
說明：如果 clear to send 線為低電平 (ctsholding = false) 并且超時時，mscomm 控件設置 commevent 屬性為 comeventctsto (clear to send timeout) 并產生 oncomm 事件。
clear to send 線用于 rts/cts (request to send/clear to send) 硬件握手。如果需要確定 clear to send 線的狀態，ctsholding 屬性給出一種手工查詢的方法。
詳細信息 有關握手協議，請參閱 handshaking 屬性。
sthreshold 屬性： mscomm 控件設置 commevent 屬性為 comevsend 并產生 oncomm 事件之前，設置并返回傳輸緩沖區中允許的最小字符數。
語法 object.sthreshold [ = value ]
value 整形表達式，代表在 oncomm 事件產生之前在傳輸緩沖區中的最小字符數。
說明：若設置 sthreshold 屬性為 0（缺省值），數據傳輸事件不會產生 oncomm 事件。若設置 sthreshold 屬性為 1，當傳輸緩沖區完全空時，mscomm 控件產生 oncomm 事件。如果在傳輸緩沖區中的字符數小于 value，commevent 屬性設置為 comevsend，并產生 oncomm 事件。comevsend 事件僅當字符數與 sthreshold 交叉時被激活一次。例如，如果 sthreshold 等于 5，僅當在輸出隊列中字符數從 5 降到 4 時，comevsend 才發生。如果在輸出隊列中從沒有比 sthreshold 多的字符，comevsend 事件將絕不會發生。
handshake 常數
常數 值 描述
comnone 0 無握手。
comxonxoff 1 xon/xoff 握手。
comrts 2 request-to-send/clear-to-send 握手。
comrtsxonxoff 3 request-to-send 和 clear-to-send 握手皆可。
oncomm 常數
常數 值 描述
comevsend 1 發送事件。
comevreceive 2 接收事件。
comevcts 3 clear-to-send 線變化。
comevdsr 4 data-set ready 線變化。
comevcd 5 carrier detect 線變化。
comevring 6 振鈴檢測。
comeveof 7 文件結束。
error 常數
常數 值 描述
comeventbreak 1001 接收到中斷信號
comeventctsto 1002 clear-to-send 超時
comeventdsrto 1003 data-set ready 超時
comeventframe 1004 幀錯誤
comeventoverrun 1006 端口超速
comeventcdto 1007 carrier detect 超時
comeventrxover 1008 接收緩沖區溢出
comeventrxparity 1009 parity 錯誤
comeventtxfull 1010 傳輸緩沖區滿
comeventdcb 1011 檢索端口 設備控制塊 (dcb) 時的意外錯誤
inputmode 常數
常數 值 描述
cominputmodetext 0 （缺省）通過 input 屬性以文本方式取回數據。
cominputmodebinary 1 通過 input 屬性以二進制方式檢取回數據。
cdholding 屬性：通過查詢 carrier detect (cd) 線的狀態確定當前是否有傳輸。carrier detect 是從調制解調器發送到相聯計算機的一個信號，指示調制解調器正在聯機。該屬性在設計時無效，在運行時為只讀。
語法 object.cdholding
設置值：cdholding 屬性的設置值為：
設置 描述
true carrier detect 線為高電平
false carrier detect 線為低電平
說明：注意當 carrier detect 線為高電平 (cdholding = true) 且超時時，mscomm 控件設置commevent 屬性為 comeventcdto（carrier detect 超時錯誤），并產生 oncomm 事件。
注意 在主機應用程序中捕獲一個丟失的傳輸是特別重要的，例如一個公告板，因為呼叫者可以隨時掛起（放棄傳輸）。
carrier detect 也被稱為 receive line signal detect (rlsd)。
數據類型 boolean
dsrholding 屬性：確定 data set ready (dsr) 線的狀態。data set ready 信號由調制解調器發送到相連計算機，指示作好操作準備。該屬性在設計時無效，在運行時為只讀。
語法：object.dsrholding
object 所在處表示對象表達式，其值是“應用于”列表中的對象。
dsrholding 屬性返回以下值：
值 描述
true data set ready 線高
false data set ready 線低
說明：當 data set ready 線為高電平 (dsrholding = true) 且超時時，mscomm 控件設置 commevent 屬性為 comeventdsrto（數據準備超時）并產生 oncomm 事件。
當為 data terminal equipment (dte) 機器寫 data set ready/data terminal ready 握手例程時該屬性是十分有用的。
數據類型：boolean
settings 屬性: 設置并返回波特率、奇偶校驗、數據位、停止位參數。
語法: object.settings[ = value]
說明：當端口打開時，如果 value 非法，則 mscomm 控件產生錯誤 380（非法屬性值）。
value 由四個設置值組成，有如下的格式：
"bbbb,p,d,s"
bbbb 為波特率，p 為奇偶校驗，d 為數據位數，s 為停止位數。value 的缺省值是：
"9600,n,8,1"
inputlen 屬性：設置并返回 input 屬性從接收緩沖區讀取的字符數。
語法 object.inputlen [ = value]
inputlen 屬性語法包括下列部分：
value 整型表達式，說明 input 屬性從接收緩沖區中讀取的字符數。
說明：inputlen 屬性的缺省值是 0。設置 inputlen 為 0 時，使用 input 將使 mscomm 控件讀取接收緩沖區中全部的內容。
若接收緩沖區中 inputlen 字符無效，input 屬性返回一個零長度字符串 ("")。在使用 input 前，用戶可以選擇檢查 inbuffercount 屬性來確定緩沖區中是否已有需要數目的字符。該屬性在從輸出格式為定長數據的機器讀取數據時非常有用。
eofenable 屬性：確定在輸入過程中 mscomm 控件是否尋找文件結尾 (eof) 字符。如果找到 eof 字符，將停止輸入并激活 oncomm 事件，此時 commevent 屬性設置為 comeveof，
語法：object.eofenable [ = value ]
eofenable 屬性語法包括下列部分：
value 布爾表達式，確定當找到 eof 字符時，oncomm 事件是否被激活，如“設置值”中所描述。
value 的設置值：
true 當 eof 字符找到時 oncomm 事件被激活。
false （缺省）當 eof 字符找到時 oncomm 事件不被激活。
說明：當 eofenable 屬性設置為 false，oncomm 控件將不在輸入流中尋找 eof 字符。
錯誤消息（ms comm 控件）
下表列出 mscomm 控件可以捕獲的錯誤：
值 描述
380 無效屬性值 cominvalidpropertyvalue
383 屬性為只讀 comsetnotsupported
394 屬性為只讀 comgetnotsupported
8000 端口打開時操作不合法 comportopen
8001 超時值必須大于 0
8002 無效端口號 comportinvalid
8003 屬性只在運行時有效
8004 屬性在運行時為只讀
8005 端口已經打開 comportalreadyopen
8006 設備標識符無效或不支持該標識符
8007 不支持設備的波特率
8008 指定的字節大小無效
8009 缺省參數錯誤
8010 硬件不可用（被其它設備鎖定）
8011 函數不能分配隊列
8012 設備沒有打開 comnoopen
8013 設備已經打開
8014 不能使用 comm 通知
8015 不能設置 comm 狀態 comsetcommstatefailed
8016 不能設置 comm 事件屏蔽
8018 僅當端口打開時操作才有效 comportnotopen
8019 設備忙
8020 讀 comm 設備錯誤 comreaderror
8021 為該端口檢索設備控制塊時的內部錯誤 comdcberror
本文來源于網頁設計愛好者web開發社區http://www.html.org.cn收集整理，歡迎訪問。
