VB6使用API實(shí)現(xiàn)串口通信

《VB6使用API實(shí)現(xiàn)串口通信》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、需要和客戶的產(chǎn)品通訊，但波特率是非常規(guī)的，MScomm無(wú)法實(shí)現(xiàn)，原有的軟件框架和條件又不能轉(zhuǎn)用VC開發(fā)底層，于是用VB6調(diào)用API實(shí)現(xiàn)了這個(gè)通訊功能，雖然在VB6下這個(gè)程序還是單進(jìn)程的，但實(shí)現(xiàn)了異步非阻塞的通信，性能相當(dāng)穩(wěn)定，下面是測(cè)試程序代碼PrivateSubcmdSend_Click()SubcmdSend_Click()???'定義文件讀寫屬性結(jié)構(gòu)???DimsaAsSECURITY_ATTRIBUTES???'定義串口狀態(tài)結(jié)構(gòu)???DimtypCommStatAsCOMSTAT???'定義串口狀態(tài)錯(cuò)誤???DimlngErrorAsLong??????'********打開串口*

2、*******???DimhCFAsLong???hCF=CreateFile("COM4",_???????????????????????GENERIC_READOrGENERIC_WRITE,0,sa,_???????????????????OPEN_EXISTING,FILE_ATTRIBUTE_NORMALOrFILE_FLAG_OVERLAPPED,0)???Debug.Print"打開串口："&hCF??????'********獲取出錯(cuò)信息********???DimerrNumAsLong???errNum=GetLastError()???Debug.Print"出錯(cuò)信

3、息："&errNum??????'定義標(biāo)志值???DimflagAsLong??????????????'定義設(shè)備控制塊???DimtypDCBAsDCB??????'********獲取設(shè)備控制塊********???flag=GetCommState(hCF,typDCB)???Debug.Print"獲取串口DCB："&flag??????typDCB.BaudRate=2500????'定義波特率???typDCB.Parity=NOPARITY??'無(wú)校驗(yàn)位???typDCB.ByteSize=8???????'數(shù)據(jù)位???typDCB.StopBits=0???????'停止位

4、0/1/2=1/1.5/2??????????'********設(shè)置串口參數(shù)********???flag=SetCommState(hCF,typDCB)???Debug.Print"設(shè)置串口參數(shù)："&flag??????'********設(shè)置緩沖區(qū)大小********???flag=SetupComm(hCF,1024,1024)???'Debug.Print"設(shè)置緩沖區(qū)："&flag??????'********清空讀寫緩沖區(qū)********???flag=PurgeComm(hCF,PURGE_RXABORTOrPURGE_RXCLEAROrPURGE_TXABORTOrPURGE

5、_TXCLEAR)???'Debug.Print"強(qiáng)制清空緩沖區(qū)："&flag??????'定義超時(shí)結(jié)構(gòu)體???DimtypCommTimeoutsAsCOMMTIMEOUTS???typCommTimeouts.ReadIntervalTimeout=0????'相鄰兩字節(jié)讀取最大時(shí)間間隔（為0表示不使用該超時(shí)間隔）???typCommTimeouts.ReadTotalTimeoutMultiplier=0?????'一個(gè)讀操作的時(shí)間常數(shù)???typCommTimeouts.ReadTotalTimeoutConstant=0???????'讀超時(shí)常數(shù)???typCommTimeout

6、s.WriteTotalTimeoutMultiplier=0????'一個(gè)寫操作的時(shí)間常數(shù)（為0表示不使用該超時(shí)間隔）???typCommTimeouts.WriteTotalTimeoutConstant=0??????'寫超時(shí)常數(shù)（為0表示不使用該超時(shí)間隔）??????????'********超時(shí)設(shè)置********???flag=SetCommTimeouts(hCF,typCommTimeouts)???'Debug.Print"超時(shí)設(shè)置："&flag??????????'********發(fā)送數(shù)據(jù)********???'定義要發(fā)送字節(jié)數(shù)???DimlngNumberofByte

7、sToWriteAsLong???'定義實(shí)際發(fā)送字節(jié)數(shù)???DimlngNumberofBytesToWrittenAsLong???'定義重疊結(jié)構(gòu)體???DimtypOverLappedAsOVERLAPPED??????'定義發(fā)送數(shù)據(jù)???DimarrbytTest(0To23)AsByte???'載波收發(fā)器同步頭???arrbytTest(0)=CByte(&H53)???arrbytTest(1)=CByte(&