麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學院 > 開發設計 > 正文

基于Windows95平臺的VB5串行端口通信程序的設計

2019-11-18 17:35:48
字體：大 中 小
來源：轉載
供稿：網友
----VisualBasic5.0以其簡單易學、32位面向對象程序設計的支持，倍受廣大計算機開發者的青睞，已廣泛地應用于各個領域，而在實時監測系統中串行端口通信又是一項基礎功能，我們使用VB5編寫了實時水庫水文自動監測系統的后臺機軟件，本文就WINDOWS95環境中采用VB5設計串行端口通信程序進行較為詳細的討論且給予實例。

----一般用VB開發串行通信程序有兩種方法:一是利用WINDOWS的通信API函數;另一種是采用VB標準控件Mscomm來實現。

----一.WINDOWS95的通信API方法

----WINDOWS95中的串口通信API函數不同于WINDOWS32中的OpenComm、CloseComm、ReadComm、WriteComm，而是采用硬件與文件通用的函數CreateFile、ReadFile、WriteFile、CloseHandle，該類函數更具有一般性，并且可以用EscapeCommFunction函數實現低層次的硬件操作，比如:SETXOFF、CLRDTR等。

----利用API編寫串口通信程序較為復雜，需要掌握的通信知識多一些，其優點是實現功能上可作的更好、應用面更廣泛，更適合于編寫較為復雜的低層次通信程序等。采用這種方法編寫串行端口通信程序一般分可為以下幾個過程:

----(1)初始化串行端口

----首先用CreateFile函數打開指定串口，置參數中訪問類型為GENERIC_READ|GENERIC_WRITE、共享模式為0、創建標志為OPEN_EXISTING、
----以下是事件驅動方式的接收程序主要部分：

counter=Timer 10
Do
IfTimer>counterThen
mainfrm.Label1.Caption="正在通信......"
mainfrm.Label1.Refresh
counter=Timer 10
EndIf
DoEvents
Loop
EndSub

----以下為事件處理子程序，flag為一靜態變量記錄讀取次數以便改變接收數據的長度，可跟據實際需要添加其它處理內容：

PrivateSubMSComm1_OnComm()
SelectCaseMSComm1.CommEvent
CasecomEvReceive
Ifflag>246Then
MSComm1.InputLen=0:MSComm1.RThreshold=32
EndIf
buffer=MSComm1.Input
temp=buffer
Print#hfile，temp
counter=Timer 10
DoWhileTimer>counter
DoEvents
Loop
flag=flag 1
CasecomEvEOF
EVMsg$="檢測到文件結尾!!!"
CasecomFrame
ERMsg$="楨出錯!!!"
CasecomRxParity
ERMsg$="奇偶錯!!!"
EndSelect
IfLen(EVMsg$)Then
Text1.Text="Status:"&EVMsg$
ElseIfLen(ERMsg$)Then
Text1.Text="Status:"&ERMsg$
Beep
Ret=MsgBox(ERMsg$，1，"ClickCancel
toquit，OKtoignore.")
MSComm1.PortOpen=False
EndIf
EndSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 成人免费在线网 | 中文国产在线视频 | 精品久久久久久久久久久久包黑料 | www国产成人免费观看视频,深夜成人网 | 成年性羞羞视频免费观看无限 | 91香草视频| 久久国产精品久久久久久电车 | 高清av免费| 欧美一级精品片在线看 | 91成人在线网站 | 线观看免费完整aaa 一二区成人影院电影网 | 激情宗合网| 国产精品欧美久久久久一区二区 | 成人做爰www免费看 欧美精品免费一区二区三区 | 九色国产| 性猛交ⅹxxx乱巴西 在线播放中文 | 182tv成人福利视频免费看 | 日本高清在线播放 | 国产成人强伦免费视频网站 | 免费欧美一级视频 | 日韩视频一区二区三区在线观看 | 精品国产一区二区三区天美传媒 | 毛片网站视频 | 欧产日产国产精品99 | 亚洲精品免费播放 | 日本在线不卡一区二区 | 91麻豆精品国产91久久久更新资源速度超快 | 久久久久久久久久久久久久av | 久久精品视频16 | 久久久久99一区二区三区 | 激情久久一区二区 | 一区二区视频在线看 | 欧美性生活免费视频 | 日韩字幕 | 福利一区二区三区视频在线观看 | 美女视频黄视大全视频免费网址 | 国产精品欧美久久久久一区二区 | 国产一级爱c视频 | 亚洲精品欧美二区三区中文字幕 | 亚洲一区二区三区视频免费 | 在线a |