發(fā)表于：2008/11/25 22:21:00
#0樓
串口數(shù)據(jù)接收方式
1、 在oncomm 事件中接收數(shù)據(jù)：
這種方式能充分mscomm控件的特性。oncomm 事件還可以檢查和處理通訊錯誤；可以通過檢查 commevent 屬性的值來查詢事件和錯誤；對于不定長數(shù)據(jù)以及對數(shù)據(jù)進行處理比較復雜的情況，此法不是很方便。
private sub mscomm_oncomm ()
select case mscomm1.commevent
錯誤
case comeventbreak 收到 break。
case comeventcdto cd (rlsd) 超時。
case comeventctsto cts timeout。
case comeventdsrto dsr timeout。
case comeventframe framing error
case comeventoverrun 數(shù)據(jù)丟失。
case comeventrxover接收緩沖區(qū)溢出。
case comeventrxparity parity 錯誤。
case comeventtxfull 傳輸緩沖區(qū)已滿。
case comeventdcb 獲取 dcb] 時意外錯誤
事件
case comevcd cd 線狀態(tài)變化。
case comevcts cts 線狀態(tài)變化。
case comevdsr dsr 線狀態(tài)變化。
case comevring ring indicator 變化。
case comevreceive 收到 rthreshold # of chars.
case comevsend 傳輸緩沖區(qū)有 sthreshold 個字符
case comeveof 輸入數(shù)據(jù)流中發(fā)現(xiàn) eof 字符
end select
end sub
2.輪循法采集數(shù)據(jù):
a、定時器輪循法
對于數(shù)據(jù)包方式收發(fā)數(shù)據(jù)以及不需即時響應情況，用輪循法更好些。實際上輪循法最大的好處在于集中處理數(shù)據(jù)而且不太占用cpu。輪循法要注意定時采集的時間片段大小；這里用二進制收發(fā)模式；使屬性rthreshold、sthreshold為0，屏蔽oncomm事件。
inputmode = cominputmodebinary
rthreshold = 0
sthreshold = 0
private sub tmrcomm_timer()
采用輪循法采集數(shù)據(jù)
dim rx_buff() as byte
dim okstring as string
dim receivedlen as integer
on error goto errorhandler
tmrcomm.enabled = false 關(guān)閉定時器
if commport.inbuffercount > 0 then
receivedlen = commport.inbuffercount
rx_buff = commport.input
okstring = strconv(tempbyte, vbunicode)
if receivedlen = 6 then
if chr(tempbyte(0)) = : and tempbyte(3) = &h0a then
....
end if
if instr(okstring ,:@end*,vbbinarycompare) then
....
end if
end if
tmrcomm.enabled = true 打開定時器
end sub
b、直接輪循法
此法用于接收少量控制命令字；
保存輸入子串的緩沖區(qū)
dim instring as string
使用 com1。
mscomm1.commport = 1
9600 波特，無奇偶校驗，8 位數(shù)據(jù)，一個停止位。
mscomm1.settings = 9600,n,8,1
當輸入占用時，
告訴控件讀入整個緩沖區(qū)。
mscomm1.inputlen = 0
打開端口。
mscomm1.portopen = true
將 attention 命令送到調(diào)制解調(diào)器。
mscomm1.output = atv1q0 & chr$(13)
確保
調(diào)制解調(diào)器以ok響應。
等待數(shù)據(jù)返回到串行端口。
do
doevents
buffer$ = buffer$ & mscomm1.input
loop until instr(buffer$, ok & vbcrlf)
從串行端口讀 ok 響應。
關(guān)閉串行端口。
mscomm1.portopen = false
如何處理不定長數(shù)據(jù)的接收
在處理串口通訊時，經(jīng)常會遇到不定長數(shù)據(jù)的接收。由于通訊任務(wù)不同及編程要求的差異所以采用的方法也有所不同。本文就此問題進行探討。不定長數(shù)據(jù)從數(shù)據(jù)格式上分，可分為有格式和無格式。
一、無格式不定長數(shù)據(jù)的接收
這種格式在實際串口通訊中用得不多，一般只用傳送字符串數(shù)據(jù)。問題在于怎么判斷接收結(jié)束。一般用時間延遲的方法解決。
a、對于非握手式通訊，可用一個定時器定時輪循接收，并假定每個輪循接收完成。用oncomm事件接收也可，只是不如定時器定時輪循接收簡便。
b、對于握手方式通訊，可用直接輪循法提高接收的準確性。下面是實現(xiàn)此法的函數(shù)：
function scomm(scommand as string, comreceive as mscomm) as string
dim nreceivecount as integer
if comreceive.portopen = false then
comreceive.portopen = true
end if
comreceive.output = scommand
do
nreceivecount = comreceive.inbuffercount
sleep (2) api 函數(shù),掛起當前進程一段時間
loop until comreceive.inbuffercount = nreceivecount
if comreceive.portopen = true then
scomm = comreceive.input
end if
end function
注：此函數(shù)參照了xth一文。
此法一般是能確保數(shù)據(jù)接收的正確，但由于windows是多任務(wù)操作系統(tǒng)，當有耗時的進程運行時會丟失數(shù)據(jù)。如果系統(tǒng)會出現(xiàn)這種情況，可增大函數(shù)sleep()的參數(shù)值。
二、不定長格式數(shù)據(jù)的接收
對于不定長數(shù)據(jù)接收最好的方法是制定通訊協(xié)議，比如定義開始字符和結(jié)束字符。由于單片機系統(tǒng)通訊一般不太復雜，沒必要去制定一套象通用計算機間通訊的協(xié)議，而根據(jù)單片機系統(tǒng)的大小和性能要求制定通訊協(xié)議。實際上為便于交流、維護以及一致性，可制定一套可伸縮的通訊協(xié)議。定義了開始字符和結(jié)束字符就容易實現(xiàn)不定長格式數(shù)據(jù)通訊，但在實際通訊編程還是容易出現(xiàn)一些比較隱蔽的通訊錯誤。下面就常用方法分別進行分析。
a、定時器輪循法。
假定每個輪循期數(shù)據(jù)接收完畢，并在每個輪循期處理數(shù)據(jù)，由于有開始字符和結(jié)束字符很容易確定接收數(shù)據(jù)的完整性。好象合理設(shè)定輪循時間值就萬無一失了，但被動接收數(shù)據(jù)時無論如何也找不合適的輪循時間值，因為啟動定時器和數(shù)據(jù)到來基本不同步，這就會出現(xiàn)一次發(fā)送的數(shù)據(jù)被分在兩個輪循期接收，所以被動接收數(shù)據(jù)時不能假定每個輪循期數(shù)據(jù)接收完畢。在接收到結(jié)束字符后才確定一次數(shù)據(jù)接收完畢就可解決此問題。
b、oncomm事件法。
方法和定時器輪循法基本相同，因為每次oncommg事件也只能接收到一部分數(shù)據(jù)。在vb的在線幫助中這樣注解“設(shè)置 rthreshold 為 1，接收緩沖區(qū)收到每一個字符都會使 mscomm 控件產(chǎn)生 oncomm 事件。”。但實際上oncomm事件并不是每收到一個字符便觸發(fā)一次 oncomm 事件。oncomm事件是在緩沖區(qū)收到幾個甚至幾十個字節(jié)數(shù)據(jù)后才被觸發(fā)的。版主認為這是windows多任務(wù)使操作系統(tǒng)不能實時響應造成的。如果要在每次oncomm事件接收一個字符似乎可設(shè)inputlen屬性為1，但實際行不通。vb在線幫助中“有該屬性在從輸出格式為定長數(shù)據(jù)的機器讀取數(shù)據(jù)時非常有用”的注解，好象在說對定長字符有效，但版主發(fā)現(xiàn)inputlen設(shè)為16，接收16個字符定長數(shù)據(jù)時卻被當作兩次接收了，一次12個，一次4個。建議在oncomm事件中接收數(shù)據(jù)要定義通訊協(xié)議并檢測數(shù)據(jù)的完整性。 對于不定長格式數(shù)據(jù)的接收程序員更喜歡定時器輪循法，也許oncomm事件不好控制吧。
對于不定長數(shù)據(jù)的接收，最佳方法可能是在oncomm事件中啟動定時器輪循接收，并同時停止oncomm事件的觸發(fā)，接收完畢后或超時開啟oncomm事件。
用字符方式收發(fā)碼值大于127的字符數(shù)據(jù)
vb的通訊控件友好、功能強大，編程速度快是眾人皆知的。加上vb的易學、易用，快速開發(fā)等特點，數(shù)據(jù)通訊量不是很大時，在單片機通訊領(lǐng)域廣泛地使用vb開發(fā)pc上層通訊軟件。實際開發(fā)時會有不少問題，這里就用字符方式收發(fā)碼值大127的字符數(shù)據(jù)進行討論。
在實際開發(fā)中經(jīng)常遇到通訊只是用來發(fā)送一些控制字符命令和少量數(shù)據(jù)。在vb的中文在線幫助中有“若數(shù)據(jù)只用 ansi 字符集，則用 cominputmodetext”的表述。 ansi字符集是0-127這容易使人誤解為&h88也可用“inputmide=cominputmodetext”方式收發(fā)。我剛開始用vb編通訊模塊時就為此迷惑過，網(wǎng)上不少網(wǎng)友也時常問及這種問題。實際上在vb中0-127是可以正常收發(fā)的，大于127即&h7f的只有&h80和&hff能夠收發(fā)，其余ansi字符都被過濾為0。由于串口通訊是以字節(jié)收發(fā)的，數(shù)據(jù)如以cominputmodetext模式收發(fā)則非字符串數(shù)據(jù)會被過濾。在vb中用“inputmide = cominputmodebinary” 就可以解決這個問題，只是收發(fā)都必須用動態(tài)數(shù)組來完成。用cominputmodebinary模式編程稍有點復雜，調(diào)試也不直觀，對于初學者不易掌握。另外軟件完成后，在實際應用時會增加工程維護難度，因為對于二進制代碼不是易于理解的。比如下端機發(fā)送現(xiàn)場統(tǒng)計數(shù)據(jù)233，cominputmodebinary模式下串口監(jiān)測到“：a &h233;，它代表a探針的溫度。一般串口監(jiān)測軟件要么用ascii方式顯示，要么用二進制方式顯示。用ascii方式則不能看到&h233，而二進制方式則示不好理解，如果顯示58 65 233 59，我想沒有人喜歡這種方式（如果有更好的方式的話）。但如果顯示“：a 2 3 3 ；”不就解決問題了！用cominputmodetext方式就可完成任務(wù)了，只是多了一段數(shù)據(jù)分離程序。對于一般通訊要求這種方法不為是一種好方法。由于通訊任務(wù)是多種多樣的，有時候這種方法就有點力不從心了，如傳送較多的的數(shù)據(jù)時，這會顯著地增加通訊量，通訊變得復雜了，對于單片機系統(tǒng)就不太合適了；還有一些特殊要求，如數(shù)據(jù)包的識別符也不適此法，但能確定傳送數(shù)據(jù)碼值范圍也可用此法。下面介紹另一種方法，此法適用比較廣，傳送二進制數(shù)據(jù)通訊量增加也不大。
這種方法實際上很簡單，實際運用中有不少采用此法。原理是一碼分為二碼。如設(shè)7e為臨界字符，對于7e則分為7e和0兩個ascii碼，依此類推，8f分為7e和11。接收合并時遇到7e則將7e和后一個ascii碼相加為下字符。下面給出c語言函數(shù)，vb轉(zhuǎn)換一下便可。
由于c語言不能返回兩個參數(shù)，所以用數(shù)組指針。
void filt(char code[],char c)
{
if(c==f)
{
if(code[0]>=0x7e)
{
code[1]=code[0]-0x7e;
code[0]=0x7e;
}
else
{
code[1]=0xff; /*0xff作為標記code[1]不可能產(chǎn)生0xff*/
}
}
else if(c==h)
{
if(code[0]!=0x7e)
{
code[1]=0xfe; /*轉(zhuǎn)換完成標記*/
}
else
{
if(code[1]==0xfe)
{
code[1]=0xff; /*接收下一個碼的標記*/
}
else
{
code[0]=code[0]+code[1];
code[1]=0xfe;
}
}
}
發(fā)送時：
char sendchar[2]; /*存儲發(fā)送的值*/
....
sendchar[0]=c; /*c為待發(fā)ascii碼*/
filt(sendchar,f);
if(sendchar(1)==0xff)
{
..... /*發(fā)送sendchar[0]*/
}
else
{
...... /*發(fā)送sendchar[0],sendchar[1]*/
}
接收時：
char receivechar[2]; /*存儲接收的值*/
.....
receivechar[0]=c0; /*c0接收的ascii碼*/
filt(receivechar,h);
if(receivechar[1]==0xff)
{
receivechar[1]=c1; /*c1為下一個*/
filt(receivechar,h);
}
else if(receivechar[1]==0xfe)
{
...... /*存儲轉(zhuǎn)換后的receivechar[0]*/
}
以上代碼僅提供一種思路，實際情況視編程需要而定。
串口通訊問答錄
1、q：各位vb高手：我有一個問題想請教一下。我從com口用bin方式接收到數(shù)據(jù)（一串漢字），存入一byte數(shù)組，但無法還原為一串漢字，我認為是ansi和unicode的轉(zhuǎn)換，請問如何轉(zhuǎn)換。
例：字符串“我”，按bin方式接收成一byte數(shù)組，其值為“206，210”，如用“chr（206）+chr（210）”卻無法得到“我”，實際上“我”=chr（-12860）請問如何能實現(xiàn)byte數(shù)組（206，210）與字符串“我”之間的轉(zhuǎn)換？萬分感謝！！！
jy
1999.10
a：經(jīng)chr（206）+chr（210）轉(zhuǎn)換后實際上變成了兩個unicode字符，四個字節(jié)了。漢字的收發(fā)必須用binary方式。下面的程序能實現(xiàn)漢字收發(fā)。
發(fā)：
dim ytemp() as byte
dim stemp as string
stemp = 你好！
ytemp = strconv(stemp, vbfromunicode)
debug.print ubound(ytemp)
mscomm1.output = ytemp
收：
private sub msctest_oncomm()
中文收發(fā)
dim ytemp() as byte
dim stemp as string
dim i as integer
if msctest.inbuffercount > 0 then
i = msctest.inbuffercount
ytemp = msctest.input
stemp = strconv(ytemp, vbunicode)
txttest1.text = stemp
end if
end sub
deson
1999-10-16
--------------------------------------------------------------------------------
2、q:各位大俠，在下被兩個問題困擾多時，實在無法找到答案，請各位多多指教。
1、在用mscomm控件設(shè)計通訊程序時，我始終無法將asc碼大于127的值發(fā)送出去，查閱了vb論壇以前的文章，按部就班也不行，部分 vb 程序如下，請指教：
private sub okbtn_click()
dim data() as byte
dim temp as variant
redim data(10)
for i = 0 to 10
data(i) = int(rnd()*256)
next
temp = data
mscomm.output = temp
end sub
a：接收方式使用了文本方式，用二進制方式即可。
----------------------------------------------
此篇文章從博客轉(zhuǎn)發(fā)
原文地址： Http://blog.gkong.com/more.asp?id=69123&Name=yangyongxiang
