锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net添加串口控件 如何在vb编程环境中添加串口控件( 二 )

IT技术数据


void CMainFrame::OnCommMscomm(){
VARIANT vResponse;int k;
if(m_commCtrl.GetCommEvent()==2) {
k=m_commCtrl.GetInBufferCount(); //接收到的字符数目
if(k0) {
vResponse=m_commCtrl.GetInput(); //read
SaveData(k,(unsigned char*) vResponse.parray-pvData);
} // 接收到字符，MSComm控件发送事件 }
。。。。。// 处理其他MSComm控件
}
void CMainFrame::OnCommSend() {
。。。。。。。。// 准备需要发送的命令，放在TxData[]中
CByteArray array;
array.RemoveAll();
array.SetSize(Count);
for(i=0;iCount;i++)
array.SetAt(i, TxData[i]);
m_ComPort.SetOutput(COleVariant(array)); // 发送数据 }
二 使用32位的API 通信函数:
⑴．在中MainFrm.cpp定义全局变量
HANDLEhCom; // 准备打开的串口的句柄
HANDLEhCommWatchThread ;//辅助线程的全局函数
⑵．打开串口，设置串口
hCom =CreateFile( "COM2", GENERIC_READ | GENERIC_WRITE, // 允许读写
0,// 此项必须为0
NULL,// no security attrs
OPEN_EXISTING,//设置产生方式
FILE_FLAG_OVERLAPPED, // 我们准备使用异步通信
NULL );
我使用了FILE_FLAG_OVERLAPPED结构 。这正是使用API实现非阻塞通信的关键所在 。
ASSERT(hCom!=INVALID_HANDLE_VALUE); //检测打开串口操作是否成功
SetCommMask(hCom, EV_RXCHAR|EV_TXEMPTY );//设置事件驱动的类型
SetupComm( hCom, 1024,512) ; //设置输入、输出缓冲区的大小
PurgeComm( hCom, PURGE_TXABORT | PURGE_RXABORT | PURGE_TXCLEAR
| PURGE_RXCLEAR ); //清干净输入、输出缓冲区
COMMTIMEOUTS CommTimeOuts ; //定义超时结构，并填写该结构
…………
SetCommTimeouts( hCom, CommTimeOuts ) ;//设置读写操作所允许的超时
DCBdcb ; // 定义数据控制块结构
GetCommState(hCom, dcb ) ; //读串口原来的参数设置
dcb.BaudRate =9600; dcb.ByteSize =8; dcb.Parity = NOPARITY;
dcb.StopBits = ONESTOPBIT ;dcb.fBinary = TRUE ;dcb.fParity = FALSE;
SetCommState(hCom, dcb ) ; //串口参数配置
上述的COMMTIMEOUTS结构和DCB都很重要，实际工作中需要仔细选择参数 。
⑶启动一个辅助线程，用于串口事件的处理 。
Windows提供了两种线程，辅助线程和用户界面线程 。辅助线程没有窗口，所以它没有自己的消息循环 。但是辅助线程很容易编程，通常也很有用 。
在次 ， 我们使用辅助线程 。主要用它来监视串口状态，看有无数据到达、通信有无错误；而主线程则可专心进行数据处理、提供友好的用户界面等重要的工作 。
hCommWatchThread=
CreateThread( (LPSECURITY_ATTRIBUTES) NULL, //安全属性
0,//初始化线程栈的大小 ， 缺省为与主线程大小相同
(LPTHREAD_START_ROUTINE)CommWatchProc, //线程的全局函数
GetSafeHwnd(), //此处传入了主框架的句柄
0, dwThreadID );
ASSERT(hCommWatchThread!=NULL);
⑷为辅助线程写一个全局函数，主要完成数据接收的工作 。请注意OVERLAPPED结构的使用，以及怎样实现了非阻塞通信 。
UINT CommWatchProc(HWND hSendWnd){
DWORD dwEvtMask=0 ;
SetCommMask( hCom, EV_RXCHAR|EV_TXEMPTY );//有哪些串口事件需要监视？
WaitCommEvent( hCom, dwEvtMask, os );// 等待串口通信事件的发生
检测返回的dwEvtMask ， 知道发生了什么串口事件：
if ((dwEvtMaskEV_RXCHAR) == EV_RXCHAR){ // 缓冲区中有数据到达
COMSTAT ComStat ; DWORD dwLength;
ClearCommError(hCom, dwErrorFlags, ComStat ) ;
dwLength = ComStat.cbInQue ; //输入缓冲区有多少数据？
if (dwLength0) {BOOL fReadStat ;
fReadStat = ReadFile( hCom, lpBuffer ， dwLength, dwBytesRead,READ_OS( npTTYInfo ) ); //读数据
注:我们在CreareFile()时使用了FILE_FLAG_OVERLAPPED,现在ReadFile()也必须使用

推荐阅读


上一篇：如何使用僵尸乐园服务器地址？ 僵尸乐园服务器地址怎么用

下一篇：食品拍摄要注意什么，食品产品拍摄