① 龚建伟《Visual C++/Turbo C串口通信编程实践》电子书、源代码、光盘内容 [email protected]
在指兆穗猜敬这儿唯卜，自己下载吧
http://ishare.iask.sina.com.cn/search.php?key=Visual+C%2B%2B%2FTurbo+C%B4%AE%BF%DA%CD%A8%D0%C5%B1%E0%B3%CC%CA%B5%BC%F9&format=
② 用visual C++怎样编一个最简单的串口程序
用VC++6.0实现PC机与单片机之间
串行通信的方法
湖南大学（长沙410082） 于小亿 王 辉 张志学
摘 要 详细介绍了在Windows环境下应用VC++实现PC机与单片机的几种串行通信方法，给出了用Visual C++6.0编写的PC机程序和用C51编写的单片机通信程序。经实际应用系统运行稳定可靠。
关键词 Visual C++ 类 串行通信
--------------------------------------------------------------------------------
工业控制领域（如DCS系统），经常涉及到串行通信问题。为了实现微机和单片机之间的数据交换，人们用各种不同方法实现串行通信，如DOS下采用汇编语言或C语言，但在Windows 环境下却存在一些困难和不足。在Windows操作系统已经占据统治地位的情况下（何况有些系统根本不支持DOS如Windows2000）开发Windows 环境下串行通信技术就显得日益重要。
VC++6.0是微软公司于1998年推出的一种开发环境，以其强大的功能，友好的界面，32位面向对象的程序设计及Active X的灵活性而受广大软件开发者的青睐，被广泛应用于各个领域。应用VC++开发串行通信目前通常有如下几种方法：一是利用Windows API通信函数；二是利用VC的标准通信函数_inp、_inpw、_inpd、_outp、_outpw、_outpd等直接对串口进行操作；三是使用Microsoft Visual C++的通信控件（MSComm）；四是利用第三方编写的通信类。以上几种方法中第一种使用面较广，但由于比较复杂，专业化程度较高，使用较困难；第二种需要了解硬件电路结构原理；第三种方法看来较简单，只需要对串口进行简单配置，但是由于使用令人费解的VARIANT 类，使用也不是很容易；第四种方法是利用一种用于串行通信的CSerial类（这种类是由第三方提供），只要理解这种类的几个成员函数，就能方便的使用。笔者利用CSerial类很方便地实现了在固定式EBM气溶胶灭火系统分区启动器（单片机系统）与上位机的通信。以下将结合实例，给出实现串行通信的几种方法。
1 Windows API通信函数方法
与通信有关的Windows API函数共有26个，但主要有关的有：
CreateFile() 用 “comn”（n为串口号）作为文件名就可以打开串口。
ReadFile() 读串口。
WriteFile() 写串口。
CloseHandle() 关闭串口句柄。初始化时应注意CreateFile()函数中串口共享方式应设为0，串口为不可共享设备，其它与一般文件读写类似。以下给出API实现的源代码。
2 利用端口函数直接操作
这种方式主要是采用两个端口函数_inp(), _outp()实现对串口的读写，其中读端口函数的原型为：
int _inp(unsigned shot port)
该函数从端口读取一个字节，端口号为0~65535。
写端口的函数原型为：
int _outp(unsigned shot port, int databyte)
该函数向指定端口写入一个字节。
不同的计算机串口地址可能不一样，通过向串口的控制及收发寄存器进行读写，可以实现灵活的串口通信功能，由于涉及具体的硬件电路讨论比较复杂，在此不加赘述。
3 MSComm控件
MSComm控件是微软开发的专用通信控件，封装了串口的所有功能，使用很方便，但在实际应用中要小心对其属性进行配置。下面详细说明该类应用方法。
3.1 MSComm控件的属性
CommPort：设置串口号，类型 short :1-comm1 2-comm2.
Settings：设置串口通信参数，类型 CString :B波特率，P奇偶性（N无校验，E偶校验，O奇校验），D字节有效位数，S停止位。
PortOpen：设置或返回串口状态，类型 BOOL：TURE打开，FALSE关闭。
InputMode:设置从接收缓冲区读取数据的格式，类型 long： 0-Text 1-Bin。
Input:从接收缓冲区读取数据，类型 VARIANT。
InBufferCount:接收缓冲区中的字节数，类型：short。
InBufferSize:接收缓冲区的大小，类型：short。
Output:向发送缓冲区写入数据，类型：VARIANT。
OutBufferCount:发送缓冲区中的字节数，类型：short。
OutBufferSize:发送缓冲区的大小，类型：short。
InputLen:设置或返回Input读出的字节数，类型：short。
CommEvent:串口事件，类型：short。
3.2 程序示例
串口初始化
if (!m_comm.GetPortOpen())
m_comm.SetPortOpen(TURE); /*打开串口*/
m_comm.SetSettings( "4800,n,8,1 "); /*串口参数设置*/
m_comm.SetInputMode(0); /*设置TEXT缓冲区输入方式*/
m_comm.SetRthresHold(1); /*每接收一个字符则激发OnComm()事件*/
接收数据
m_comm.SetInputLen(1); /*每次读取一个字符
VARINAT V1=m_comm.GetInput();
/*读入字符*/
m_V1=V1.bstrval;
发送字符 m_comm.SetOutput(Colevariant ( "Hello "); /*发送 “Hello” */
3.3 注意
SetOutput方法可以传输文本数据或二进制数据。用SetOutput方法传输文本数据，必须定义一个包含一个字符串的 Variant。发送二进制数据，必须传递一个包含字节数组的Variant 到 Output 属性。正常情况下，如果发送一个 ANSI 字符串到应用程序，可以以文本数据的形式发送。如果发送包含嵌入控制字符、Null 字符等的数据，要以二进制形式发送。此处望引起读者注意，笔者曾经在此犯错。
4 VC++类CSerial
4.1 串行通信类CSerial简介
Cserial 是由MuMega Technologies公司提供的一个免费的VC++类，可方便地实现串行通信。以下为该类定义的说明部分。
class CSerial
{
public:
CSerial();
~CSerial();
BOOL Open( int nPort = 2, int nBaud = 9600 );
BOOL Close( void );
int ReadData( void *, int );
int SendData( const char *, int );
int ReadDataWaiting( void );
BOOL IsOpened( void ){ return( m_bOpened ); }
protected:
BOOL WriteCommByte( unsigned char );
HANDLE m_hIDComDev;
OVERLAPPED m_OverlappedRead, m_OverlappedWrite;
BOOL m_bOpened;
}
4.2 串行通信类Cserial 成员函数简介
1. CSerial：：Cserial是类构造函数，不带参数，负责初始化所有类成员变量。
2. CSerial:: Open这个成员函数打开通信端口。带两个参数,第一个是端口号，有效值是1到4，第二个参数是波特率，返回一个布尔量。
3. CSerial:: Close函数关闭通信端口。类析构函数调用这个函数，所以可不用显式调用这个函数。
4. CSerial:: SendData函数把数据从一个缓冲区写到串行端口。它所带的第一个参数是缓冲区指针，其中包含要被发送的资料；这个函数返回已写到端口的实际字节数。
5. CSerial:: ReadDataWaiting函数返回等待在通信端口缓冲区中的数据，不带参数。
6. CSerial:: ReadData函数从端口接收缓冲区读入数据。第一个参数是void＊缓冲区指针，资料将被放入该缓冲区；第二个参数是个整数值，给出缓冲区的大小。
③ 《Visual+C++_Turbo+C串口通信编程实践》与《Visual C++串口通信技术详解》哪本内容好，望高手指点一下
我用的是《Visual+C++_Turbo+C串口通信编程实践》，感觉还好，串口编程时遇到的问题基本都有。
④ 龚建伟《Visual C++/Turbo C串口通信编程实践》电子书、源代码、光盘内容。
我有。 发啦
楼主给分啊。
⑤ 《Visual C#.NET串口通信及测控应用典型实例》求此书电子版
网络网盘搜索一下就有的，要制作高清PDF可以私信。
⑥ 跪求 Visual C#.NET串口通信及测控应用典型实例 PDF 谢谢了 解决++++分
有一个文本的代码《用C#serialport写一个通信串口调试程序》，可惜你要PDF的。
⑦ vc++ 串口通讯
两慎顷个核心文件LZ可以参考宽扮陆下
//SerialPort.h
#ifndef __SERIALPORT_H__
#define __SERIALPORT_H__
#define WM_COMM_BREAK_DETECTED WM_USER+1 // A break was detected on input.
#define WM_COMM_CTS_DETECTED WM_USER+2 // The CTS (clear-to-send) signal changed state.
#define WM_COMM_DSR_DETECTED WM_USER+3 // The DSR (data-set-ready) signal changed state.
#define WM_COMM_ERR_DETECTED WM_USER+4 // A line-status error occurred. Line-status errors are CE_FRAME, CE_OVERRUN, and CE_RXPARITY.
#define WM_COMM_RING_DETECTED WM_USER+5 // A ring indicator was detected.
#define WM_COMM_RLSD_DETECTED WM_USER+6 // The RLSD (receive-line-signal-detect) signal changed state.
#define WM_COMM_RXCHAR WM_USER+7 // A character was received and placed in the input buffer.
#define WM_COMM_RXFLAG_DETECTED WM_USER+8 // The event character was received and placed in the input buffer.
#define WM_COMM_TXEMPTY_DETECTED WM_USER+9 // The last character in the output buffer was sent.
#include <windows.h>
class CSerialPort
{
public:
int m_nWriteSize;
// contruction and destruction
CSerialPort();
virtual ~CSerialPort();
// port initialisation
BOOL InitPort(CWnd* pPortOwner, UINT portnr = 1, UINT baud = 19200, char parity = 'N', UINT databits = 8, UINT stopbits = 1, DWORD dwCommEvents = EV_RXCHAR, UINT writebuffersize = 1024);
HANDLE m_hComm;
// start/stop comm watching
BOOL StartMonitoring();
BOOL RestartMonitoring();
BOOL StopMonitoring();
//get the information from the port
DWORD GetWriteBufferSize();
DWORD GetCommEvents();
DCB GetDCB();
//缺宴write to the port
void WriteToPort(char* string);
void WriteToPort(char* string,int n);
void WriteToPort(LPCTSTR string);
void WriteToPort(LPCTSTR string,int n);
//close the port
void ClosePort();
protected:
// protected memberfunctions
void ProcessErrorMessage(char* ErrorText);
static UINT CommThread(LPVOID pParam);
static void ReceiveChar(CSerialPort* port, COMSTAT comstat);
static void WriteChar(CSerialPort* port);
// thread
CWinThread* m_Thread;
// synchronisation objects
CRITICAL_SECTION m_csCommunicationSync;
BOOL m_bThreadAlive;
// handles
HANDLE m_hWriteEvent;
HANDLE m_hShutdownEvent;
// Event array.
// One element is used for each event. There are two event handles for each port.
// A Write event and a receive character event which is located in the overlapped structure (m_ov.hEvent).
// There is a general shutdown when the port is closed.
HANDLE m_hEventArray[3];
// structures
OVERLAPPED m_ov;
COMMTIMEOUTS m_CommTimeouts;
DCB m_dcb;
// owner window
CWnd* m_pOwner;
// misc
UINT m_nPortNr;
char* m_szWriteBuffer;
char* m_szReadBuffer;
DWORD m_dwCommEvents;
DWORD m_nWriteBufferSize;
};
#endif __SERIALPORT_H__
//SerialPort.cpp
#include "stdafx.h"
#include "SerialPort.h"
#include <assert.h>
static BOOL RA = TRUE;
//
// Constructor
//
CSerialPort::CSerialPort()
{
m_hComm = NULL;
// initialize overlapped structure members to zero
m_ov.Offset = 0;
m_ov.OffsetHigh = 0;
// create events
m_ov.hEvent = NULL;
m_hWriteEvent = NULL;
m_hShutdownEvent = NULL;
m_szWriteBuffer = NULL;
m_nWriteSize=1;
m_bThreadAlive = FALSE;
}
//
// Delete dynamic memory
//
CSerialPort::~CSerialPort()
{
do
{
SetEvent(m_hShutdownEvent);
} while (m_bThreadAlive);
// if the port is still opened: close it
if (m_hComm != NULL)
{
CloseHandle(m_hComm);
m_hComm = NULL;
}
// Close Handles
if(m_hShutdownEvent!=NULL)
CloseHandle( m_hShutdownEvent);
if(m_ov.hEvent!=NULL)
CloseHandle( m_ov.hEvent );
if(m_hWriteEvent!=NULL)
CloseHandle( m_hWriteEvent );
TRACE("Thread ended\n");
delete [] m_szWriteBuffer;
}
//
// Initialize the port. This can be port 1 to 8.
//
BOOL CSerialPort::InitPort(CWnd* pPortOwner, // the owner (CWnd) of the port (receives message)
UINT portnr, // portnumber (1..4)
UINT baud, // baudrate
char parity, // parity
UINT databits, // databits
UINT stopbits, // stopbits
DWORD dwCommEvents, // EV_RXCHAR, EV_CTS etc
UINT writebuffersize) // size to the writebuffer
{
assert(portnr > 0 && portnr < 9);
assert(pPortOwner != NULL);
// if the thread is alive: Kill
if (m_bThreadAlive)
{
do
{
SetEvent(m_hShutdownEvent);
} while (m_bThreadAlive);
TRACE("Thread ended\n");
}
// create events
if (m_ov.hEvent != NULL)
ResetEvent(m_ov.hEvent);
else
m_ov.hEvent = CreateEvent(NULL, TRUE, FALSE, NULL);
if (m_hWriteEvent != NULL)
ResetEvent(m_hWriteEvent);
else
m_hWriteEvent = CreateEvent(NULL, TRUE, FALSE, NULL);
if (m_hShutdownEvent != NULL)
ResetEvent(m_hShutdownEvent);
else
m_hShutdownEvent = CreateEvent(NULL, TRUE, FALSE, NULL);
// initialize the event objects
m_hEventArray[0] = m_hShutdownEvent; // highest priority
m_hEventArray[1] = m_ov.hEvent;
m_hEventArray[2] = m_hWriteEvent;
// initialize critical section
InitializeCriticalSection(&m_csCommunicationSync);
// set buffersize for writing and save the owner
m_pOwner = pPortOwner;
if (m_szWriteBuffer != NULL)
delete [] m_szWriteBuffer;
m_szWriteBuffer = new char[writebuffersize];
m_szReadBuffer = new char[40];
m_nPortNr = portnr;
m_nWriteBufferSize = writebuffersize;
m_dwCommEvents = dwCommEvents;
BOOL bResult = FALSE;
char *szPort = new char[50];
char *szBaud = new char[50];
// now it critical!
EnterCriticalSection(&m_csCommunicationSync);
// if the port is already opened: close it
if (m_hComm != NULL)
{
CloseHandle(m_hComm);
m_hComm = NULL;
}
// prepare port strings
sprintf(szPort, "COM%d", portnr);
sprintf(szBaud, "baud=%d parity=%c data=%d stop=%d", baud, parity, databits, stopbits);
// get a handle to the port
m_hComm = CreateFile(szPort, // communication port string (COMX)
GENERIC_READ | GENERIC_WRITE, // read/write types
0, // comm devices must be opened with exclusive access
NULL, // no security attributes
OPEN_EXISTING, // comm devices must use OPEN_EXISTING
FILE_FLAG_OVERLAPPED, // Async I/O
0); // template must be 0 for comm devices
if (m_hComm == INVALID_HANDLE_VALUE)
{
// port not found
delete [] szPort;
delete [] szBaud;
return FALSE;
}
// set the timeout values
m_CommTimeouts.ReadIntervalTimeout = 1000;
m_CommTimeouts.ReadTotalTimeoutMultiplier = 1000;
m_CommTimeouts.ReadTotalTimeoutConstant = 1000;
m_CommTimeouts.WriteTotalTimeoutMultiplier = 1000;
m_CommTimeouts.WriteTotalTimeoutConstant = 1000;
// configure
if (SetCommTimeouts(m_hComm, &m_CommTimeouts))
{
if (SetCommMask(m_hComm, dwCommEvents))
{
if (GetCommState(m_hComm, &m_dcb))
{
m_dcb.EvtChar = parity;
m_dcb.fRtsControl = RTS_CONTROL_ENABLE; // set RTS bit high!
m_dcb.BaudRate = baud;
m_dcb.ByteSize = databits;
m_dcb.StopBits = stopbits;
if (BuildCommDCB(szBaud, &m_dcb))
{
if (SetCommState(m_hComm, &m_dcb))
; // normal operation... continue
else
ProcessErrorMessage("SetCommState()");
}
else
ProcessErrorMessage("BuildCommDCB()");
}
else
ProcessErrorMessage("GetCommState()");
}
else
ProcessErrorMessage("SetCommMask()");
}
else
ProcessErrorMessage("SetCommTimeouts()");
delete [] szPort;
delete [] szBaud;
RA = TRUE;
// flush the port
PurgeComm(m_hComm, PURGE_RXCLEAR | PURGE_TXCLEAR | PURGE_RXABORT | PURGE_TXABORT);
// release critical section
LeaveCriticalSection(&m_csCommunicationSync);
TRACE("Initialisation for communicationport %d completed.\nUse Startmonitor to communicate.\n", portnr);
return TRUE;
}
//
// The CommThread Function.
//
UINT CSerialPort::CommThread(LPVOID pParam)
{
// Cast the void pointer passed to the thread back to
// a pointer of CSerialPort class
CSerialPort *port = (CSerialPort*)pParam;
// Set the status variable in the dialog class to
// TRUE to indicate the thread is running.
port->m_bThreadAlive = TRUE;
// Misc. variables
DWORD BytesTransfered = 0;
DWORD Event = 0;
DWORD CommEvent = 0;
DWORD dwError = 0;
static COMSTAT comstat;
BOOL bResult = TRUE;
// Clear comm buffers at startup
if (port->m_hComm) // check if the port is opened
PurgeComm(port->m_hComm, PURGE_RXCLEAR | PURGE_TXCLEAR | PURGE_RXABORT | PURGE_TXABORT);
// begin forever loop. This loop will run as long as the thread is alive.
for (;;)
{
// Make a call to WaitCommEvent().
// we do this for each port!
bResult = WaitCommEvent(port->m_hComm, &Event, &port->m_ov);
if (!bResult)
{
// If WaitCommEvent() returns FALSE, process the last error to determin
// the reason..
switch (dwError = GetLastError())
{
case ERROR_IO_PENDING:
{
// This is a normal return value if there are no bytes
// to read at the port.
// Do nothing and continue
break;
}
case 87:
{
// Under Windows NT, this value is returned for some reason.
// I have not investigated why, but it is also a valid reply
// Also do nothing and continue.
break;
}
default:
{
// All other error codes indicate a serious error has
// occured. Process this error.
port->ProcessErrorMessage("WaitCommEvent()");
break;
}
}
}
else
{
// If WaitCommEvent() returns TRUE, check to be sure there are
// actually bytes in the buffer to read.
bResult = ClearCommError(port->m_hComm, &dwError, &comstat);
if (comstat.cbInQue == 0)
continue;
} // end if bResult
// Main wait function. This function will normally block the thread
// until one of nine events occur that require action.
Event = WaitForMultipleObjects(3, port->m_hEventArray, FALSE, INFINITE);
switch (Event)
{
case 0:
{
// Shutdown event. This is event zero so it will be
// the higest priority and be serviced first.
CloseHandle(port->m_hComm);
port->m_hComm=NULL;
port->m_bThreadAlive = FALSE;
// Kill this thread. break is not needed, but makes me feel better.
AfxEndThread(100);
delete [] port->m_szReadBuffer;
break;
}
case 1: // read event
{
GetCommMask(port->m_hComm, &CommEvent);
if (CommEvent & EV_RXCHAR)
// Receive character event from port.
ReceiveChar(port, comstat);
if (CommEvent & EV_CTS)
::SendMessage(port->m_pOwner->m_hWnd, WM_COMM_CTS_DETECTED, (WPARAM) 0, (LPARAM) port->m_nPortNr);
if (CommEvent & EV_BREAK)
::SendMessage(port->m_pOwner->m_hWnd, WM_COMM_BREAK_DETECTED, (WPARAM) 0, (LPARAM) port->m_nPortNr);
if (CommEvent & EV_ERR)
::SendMessage(port->m_pOwner->m_hWnd, WM_COMM_ERR_DETECTED, (WPARAM) 0, (LPARAM) port->m_nPortNr);
if (CommEvent & EV_RING)
::SendMessage(port->m_pOwner->m_hWnd, WM_COMM_RING_DETECTED, (WPARAM) 0, (LPARAM) port->m_nPortNr);
if (CommEvent & EV_RXFLAG)
::SendMessage(port->m_pOwner->m_hWnd, WM_COMM_RXFLAG_DETECTED, (WPARAM) 0, (LPARAM) port->m_nPortNr);
break;
}
case 2: // write event
{
// Write character event from port
WriteChar(port);
break;
}
} // end switch
} // close forever loop
return 0;
}
//
// start comm watching
//
BOOL CSerialPort::StartMonitoring()
{
if (!(m_Thread = AfxBeginThread(CommThread, this)))
return FALSE;
TRACE("Thread started\n");
return TRUE;
}
//
// Restart the comm thread
//
BOOL CSerialPort::RestartMonitoring()
{
TRACE("Thread resumed\n");
m_Thread->ResumeThread();
return TRUE;
}
//
// Suspend the comm thread
//
BOOL CSerialPort::StopMonitoring()
{
TRACE("Thread suspended\n");
m_Thread->SuspendThread();
return TRUE;
}
//
// If there is a error, give the right message
//
void CSerialPort::ProcessErrorMessage(char* ErrorText)
{
char *Temp = new char[200];
LPVOID lpMsgBuf;
FormatMessage(
FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
NULL,
GetLastError(),
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
(LPTSTR) &lpMsgBuf,
0,
NULL
);
sprintf(Temp, "WARNING: %s Failed with the following error: \n%s\nPort: %d\n", (char*)ErrorText, lpMsgBuf, m_nPortNr);
MessageBox(NULL, Temp, "Application Error", MB_ICONSTOP);
LocalFree(lpMsgBuf);
delete [] Temp;
}
//
// Write a character.
//
void CSerialPort::WriteChar(CSerialPort* port)
{
BOOL bWrite = TRUE;
BOOL bResult = TRUE;
DWORD BytesSent = 0;
ResetEvent(port->m_hWriteEvent);
// Gain ownership of the critical section
EnterCriticalSection(&port->m_csCommunicationSync);
if (bWrite)
{
// Initailize variables
port->m_ov.Offset = 0;
port->m_ov.OffsetHigh = 0;
// Clear buffer
PurgeComm(port->m_hComm, PURGE_RXCLEAR | PURGE_TXCLEAR | PURGE_RXABORT | PURGE_TXABORT);
bResult = WriteFile(port->m_hComm, // Handle to COMM Port
port->m_szWriteBuffer, // Pointer to message buffer in calling finction
// strlen((char*)port->m_szWriteBuffer), // Length of message to send
port->m_nWriteSize, // Length of message to send
&BytesSent, // Where to store the number of bytes sent
&port->m_ov); // Overlapped structure
// deal with any error codes
if (!bResult)
{
DWORD dwError = GetLastError();
switch (dwError)
{
case ERROR_IO_PENDING:
{
// continue to GetOverlappedResults()
BytesSent = 0;
bWrite = FALSE;
break;
}
default:
{
// all other error codes
port->ProcessErrorMessage("WriteFile()");
}
}
}
else
{
LeaveCriticalSection(&port->m_csCommunicationSync);
}
} // end if(bWrite)
if (!bWrite)
{
bWrite = TRUE;
bResult = GetOverlappedResult(port->m_hComm, // Handle to COMM port
&port->m_ov, // Overlapped structure
&BytesSent, // Stores number of bytes sent
TRUE); // Wait flag
LeaveCriticalSection(&port->m_csCommunicationSync);
// deal with the error code
// if (!bResult)
{
// port->ProcessErrorMessage("GetOverlappedResults() in WriteFile()");
}
} // end if (!bWrite)
//Verify that the data size send equals what we tried to send
if (BytesSent != port->m_nWriteSize) // Length of message to send)
{
TRACE("WARNING: WriteFile() error.. Bytes Sent: %d; Message Length: %d\n", BytesSent, strlen((char*)port->m_szWriteBuffer));
}
// ::SendMessage((port->m_pOwner)->m_hWnd, WM_COMM_TXEMPTY_DETECTED, (WPARAM) RXBuff, (LPARAM) port->m_nPortNr);
// ::SendMessage((port->m_pOwner)->m_hWnd, WM_COMM_TXEMPTY_DETECTED,0,(LPARAM) port->m_nPortNr);
}
//
// Character received. Inform the owner
//
void CSerialPort::ReceiveChar(CSerialPort* port, COMSTAT comstat)
{
BOOL bRead = TRUE;
BOOL bResult = TRUE;
DWORD dwError = 0;
DWORD BytesRead = 40;
//unsigned char RXBuff;
memset(port->m_szReadBuffer,0,40);
for (;;)
{
if(RA == FALSE)
{
return;
}
// Gain ownership of the comm port critical section.
// This process guarantees no other part of this program
// is using the port object.
EnterCriticalSection(&port->m_csCommunicationSync);
// ClearCommError() will update the COMSTAT structure and
// clear any other errors.
bResult = ClearCommError(port->m_hComm, &dwError, &comstat);
LeaveCriticalSection(&port->m_csCommunicationSync);
// start forever loop.
if (comstat.cbInQue == 0)
{
// break out when all bytes have been read
break;
}
EnterCriticalSection(&port->m_csCommunicationSync);
if (bRead)
{
bResult = ReadFile(port->m_hComm, // Handle to COMM port
port->m_szReadBuffer, // RX Buffer Pointer
BytesRead, // Read one byte
&BytesRead, // Stores number of bytes read
&port->m_ov); // pointer to the m_ov structure
// deal with the error code
if (!bResult)
{
switch (dwError = GetLastError())
{
case ERROR_IO_PENDING:
{
// asynchronous i/o is still in progress
// Proceed on to GetOverlappedResults();
bRead = FALSE;
break;
}
default:
{
// Another error has occured. Process this error.
port->ProcessErrorMessage("ReadFile()");
break;
}
}
}
else
{
// ReadFile() returned complete. It is not necessary to call GetOverlappedResults()
bRead = TRUE;
}
} // close if (bRead)
if (!bRead)
{
bRead = TRUE;
bResult = GetOverlappedResult(port->m_hComm, // Handle to COMM port
&port->m_ov, // Overlapped structure
&BytesRead, // Stores number of bytes read
TRUE); // Wait flag
// deal with the error code
if (!bResult)
{
port->ProcessErrorMessage("GetOverlappedResults() in ReadFile()");
}
} // close if (!bRead)
LeaveCriticalSection(&port->m_csCommunicationSync);
// notify parent that a byte was received
::SendMessage((port->m_pOwner)->m_hWnd, WM_COMM_RXCHAR, (WPARAM) (port->m_szReadBuffer), (LPARAM) port->m_nPortNr);
} // end forever loop
}
//
// Write a string to the port
//
void CSerialPort::WriteToPort(char* string)
{
assert(m_hComm != 0);
memset(m_szWriteBuffer, 0, sizeof(m_szWriteBuffer));
strcpy(m_szWriteBuffer, string);
m_nWriteSize=strlen(string);
// set event for write
SetEvent(m_hWriteEvent);
}
void CSerialPort::WriteToPort(char* string,int n)
{
assert(m_hComm != 0);
memset(m_szWriteBuffer, 0, sizeof(m_szWriteBuffer));
// memset(m_szWriteBuffer, 0, n);
// strncpy(m_szWriteBuffer, string, n);
memcpy(m_szWriteBuffer, string, n);
m_nWriteSize=n;
// set event for write
SetEvent(m_hWriteEvent);
}
void CSerialPort::WriteToPort(LPCTSTR string)
{
assert(m_hComm != 0);
memset(m_szWriteBuffer, 0, sizeof(m_szWriteBuffer));
strcpy(m_szWriteBuffer, string);
m_nWriteSize=strlen(string);
// set event for write
SetEvent(m_hWriteEvent);
}
void CSerialPort::WriteToPort(LPCTSTR string,int n)
{
assert(m_hComm != 0);
memset(m_szWriteBuffer, 0, sizeof(m_szWriteBuffer));
// strncpy(m_szWriteBuffer, string, n);
memcpy(m_szWriteBuffer, string, n);
m_nWriteSize=n;
// set event for write
SetEvent(m_hWriteEvent);
}
//
// Return the device control block
//
DCB CSerialPort::GetDCB()
{
return m_dcb;
}
//
// Return the communication event masks
//
DWORD CSerialPort::GetCommEvents()
{
return m_dwCommEvents;
}
//
// Return the output buffer size
//
DWORD CSerialPort::GetWriteBufferSize()
{
return m_nWriteBufferSize;
}
void CSerialPort::ClosePort()
{
RA = FALSE;
SetEvent(m_hShutdownEvent);
}
⑧ VC串口通信问题
串口的操作可以有两种操作方式：同步操作方式和重叠操作方式（又称为异步操作方式）。同步操作时，API函数会阻塞直到操作完成以后才能返回（在多线程方式中，虽然不会阻塞主线程，但是仍然会阻塞监听线程）；而重叠操作方式，API函数会立即返回，操作在后台进行，避免线程的阻塞。
无论那种操作方式，一般都通过四个步骤来完成：
（1） 打开串口
（2） 配置串口
（3） 读写串口
（4） 关闭串口
（1） 打开串口
Win32系统把文件的概念进行了扩展。无论是文件、通信设备、命名管道、邮件槽、磁盘、还是控制台，都是用API函数CreateFile来打开或创建的。该函数的原型为：
lpFileName：将要打开的串口逻辑名，如“COM1”；
dwDesiredAccess：指定串口访问的类型，可以是读取、写入或二者并列；
dwShareMode：指定共享属性，由于串口不能共享，该参数必须置为0；
lpSecurityAttributes：引用安全性属性结构，缺省值为NULL；
dwCreationDistribution：创建标志，对串口操作该参数必须置为OPEN_EXISTING；
dwFlagsAndAttributes：属性描述，用于指定该串口是否进行异步操作，该值为FILE_FLAG_OVERLAPPED，表示使用异步的I/O；该值为0，表示同步I/O操作；
hTemplateFile：对串口而言该参数必须置为NULL；
同步I/O方式打开串口的示例代码：
HANDLE hCom; //全局变量，串口句柄
hCom=CreateFile("COM1",//COM1口
GENERIC_READ|GENERIC_WRITE, //允许读和写
0, //独占方式
NULL,
OPEN_EXISTING, //打开而不是创建
0, //同步方式
NULL);
if(hCom==(HANDLE)-1)
{
AfxMessageBox("打开COM失败!");
return FALSE;
}
return TRUE;
（2）、配置串口
在打开通讯设备句柄后，常常需要对串口进行一些初始化配置工作。这需要通过一个DCB结构来进行。DCB结构包含了诸如波特率、数据位数、奇偶校验和停止位数等信息。在查询或配置串口的属性时，都要用DCB结构来作为缓冲区。
一般用CreateFile打开串口后，可以调用GetCommState函数来获取串口的初始配置。要修改串口的配置，应该先修改DCB结构，然后再调用SetCommState函数设置串口。
typedef struct _DCB{
………
//波特率，指定通信设备的传输速率。这个成员可以是实际波特率值或者下面的常量值之一：
DWORD BaudRate;
CBR_110，CBR_300，CBR_600，CBR_1200，CBR_2400，CBR_4800，CBR_9600，CBR_19200， CBR_38400，
CBR_56000， CBR_57600， CBR_115200， CBR_128000， CBR_256000， CBR_14400
DWORD fParity; // 指定奇偶校验使能。若此成员为1，允许奇偶校验检查
…
BYTE ByteSize; // 通信字节位数，4—8
BYTE Parity; //指定奇偶校验方法。此成员可以有下列值：
EVENPARITY 偶校验 NOPARITY 无校验
MARKPARITY 标记校验 ODDPARITY 奇校验
BYTE StopBits; //指定停止位的位数。此成员可以有下列值：
ONESTOPBIT 1位停止位 TWOSTOPBITS 2位停止位
ONE5STOPBITS 1.5位停止位
………
} DCB;
winbase.h文件中定义了以上用到的常量。如下：
#define NOPARITY 0
#define ODDPARITY 1
#define EVENPARITY 2
#define ONESTOPBIT 0
#define ONE5STOPBITS 1
#define TWOSTOPBITS 2
#define CBR_110 110
#define CBR_300 300
#define CBR_600 600
#define CBR_1200 1200
#define CBR_2400 2400
#define CBR_4800 4800
#define CBR_9600 9600
#define CBR_14400 14400
#define CBR_19200 19200
#define CBR_38400 38400
#define CBR_56000 56000
#define CBR_57600 57600
#define CBR_115200 115200
#define CBR_128000 128000
#define CBR_256000 256000
GetCommState函数可以获得COM口的设备控制块，从而获得相关参数： BOOL GetCommState(
HANDLE hFile, //标识通讯端口的句柄
LPDCB lpDCB //指向一个设备控制块（DCB结构）的指针
);
SetCommState函数设置COM口的设备控制块：
BOOL SetCommState(
HANDLE hFile,
LPDCB lpDCB
);
除了在BCD中的设置外，程序一般还需要设置I/O缓冲区的大小和超时。Windows用I/O缓冲区来暂存串口输入和输出的数据。如果通信的速率较高，则应该设置较大的缓冲区。调用SetupComm函数可以设置串行口的输入和输出缓冲区的大小。 BOOL SetupComm(
HANDLE hFile, // 通信设备的句柄
DWORD dwInQueue, // 输入缓冲区的大小（字节数）
DWORD dwOutQueue // 输出缓冲区的大小（字节数）
);
在用ReadFile和WriteFile读写串行口时，需要考虑超时问题。超时的作用是在指定的时间内没有读入或发送指定数量的字符，ReadFile或WriteFile的操作仍然会结束。
要查询当前的超时设置应调用GetCommTimeouts函数，该函数会填充一个COMMTIMEOUTS结构。调用SetCommTimeouts可以用某一个COMMTIMEOUTS结构的内容来设置超时。
读写串口的超时有两种：间隔超时和总超时。间隔超时是指在接收时两个字符之间的最大时延。总超时是指读写操作总共花费的最大时间。写操作只支持总超时，而读操作两种超时均支持。用COMMTIMEOUTS结构可以规定读写操作的超时。
COMMTIMEOUTS结构的定义为： typedef struct _COMMTIMEOUTS {
DWORD ReadIntervalTimeout; //读间隔超时
DWORD ReadTotalTimeoutMultiplier; //读时间系数
DWORD ReadTotalTimeoutConstant; //读时间常量
DWORD WriteTotalTimeoutMultiplier; // 写时间系数
DWORD WriteTotalTimeoutConstant; //写时间常量
} COMMTIMEOUTS,*LPCOMMTIMEOUTS;
COMMTIMEOUTS结构的成员都以毫秒为单位。总超时的计算公式是：
总超时＝时间系数×要求读/写的字符数＋时间常量
例如，要读入10个字符，那么读操作的总超时的计算公式为：
读总超时＝ReadTotalTimeoutMultiplier×10＋ReadTotalTimeoutConstant
可以看出：间隔超时和总超时的设置是不相关的，这可以方便通信程序灵活地设置各种超时。
如果所有写超时参数均为0，那么就不使用写超时。如果ReadIntervalTimeout为0，那么就不使用读间隔超时。如果ReadTotalTimeoutMultiplier 和 ReadTotalTimeoutConstant 都为0，则不使用读总超时。如果读间隔超时被设置成MAXDWORD并且读时间系数和读时间常量都为0，那么在读一次输入缓冲区的内容后读操作就立即返回，而不管是否读入了要求的字符。
在用重叠方式读写串口时，虽然ReadFile和WriteFile在完成操作以前就可能返回，但超时仍然是起作用的。在这种情况下，超时规定的是操作的完成时间，而不是ReadFile和WriteFile的返回时间。
配置串口的示例代码： SetupComm(hCom,1024,1024); //输入缓冲区和输出缓冲区的大小都是1024
COMMTIMEOUTS TimeOuts;
//设定读超时
TimeOuts.ReadIntervalTimeout=1000;
TimeOuts.ReadTotalTimeoutMultiplier=500;
TimeOuts.ReadTotalTimeoutConstant=5000;
//设定写超时
TimeOuts.WriteTotalTimeoutMultiplier=500;
TimeOuts.WriteTotalTimeoutConstant=2000;
SetCommTimeouts(hCom,&TimeOuts); //设置超时
DCB dcb;
GetCommState(hCom,&dcb);
dcb.BaudRate=9600; //波特率为9600
dcb.ByteSize=8; //每个字节有8位
dcb.Parity=NOPARITY; //无奇偶校验位
dcb.StopBits=TWOSTOPBITS; //两个停止位
SetCommState(hCom,&dcb);
PurgeComm(hCom,PURGE_TXCLEAR|PURGE_RXCLEAR);
在读写串口之前，还要用PurgeComm()函数清空缓冲区，该函数原型： BOOL PurgeComm(
HANDLE hFile, //串口句柄
DWORD dwFlags // 需要完成的操作
);
参数dwFlags指定要完成的操作，可以是下列值的组合： PURGE_TXABORT 中断所有写操作并立即返回，即使写操作还没有完成。
PURGE_RXABORT 中断所有读操作并立即返回，即使读操作还没有完成。
PURGE_TXCLEAR 清除输出缓冲区
PURGE_RXCLEAR 清除输入缓冲区
（3）、读写串口
我们使用ReadFile和WriteFile读写串口，下面是两个函数的声明：
BOOL ReadFile(
HANDLE hFile, //串口的句柄
// 读入的数据存储的地址，
// 即读入的数据将存储在以该指针的值为首地址的一片内存区
LPVOID lpBuffer,
DWORD nNumberOfBytesToRead, // 要读入的数据的字节数
// 指向一个DWORD数值，该数值返回读操作实际读入的字节数
LPDWORD lpNumberOfBytesRead,
// 重叠操作时，该参数指向一个OVERLAPPED结构，同步操作时，该参数为NULL。
LPOVERLAPPED lpOverlapped
);
BOOL WriteFile(
HANDLE hFile, //串口的句柄
// 写入的数据存储的地址，
// 即以该指针的值为首地址的nNumberOfBytesToWrite
// 个字节的数据将要写入串口的发送数据缓冲区。
LPCVOID lpBuffer,
DWORD nNumberOfBytesToWrite, //要写入的数据的字节数
// 指向指向一个DWORD数值，该数值返回实际写入的字节数
LPDWORD lpNumberOfBytesWritten,
// 重叠操作时，该参数指向一个OVERLAPPED结构，
// 同步操作时，该参数为NULL。
LPOVERLAPPED lpOverlapped
);
在用ReadFile和WriteFile读写串口时，既可以同步执行，也可以重叠执行。在同步执行时，函数直到操作完成后才返回。这意味着同步执行时线程会被阻塞，从而导致效率下降。在重叠执行时，即使操作还未完成，这两个函数也会立即返回，费时的I/O操作在后台进行。
ReadFile和WriteFile函数是同步还是异步由CreateFile函数决定，如果在调用CreateFile创建句柄时指定了FILE_FLAG_OVERLAPPED标志，那么调用ReadFile和WriteFile对该句柄进行的操作就应该是重叠的；如果未指定重叠标志，则读写操作应该是同步的。ReadFile和WriteFile函数的同步或者异步应该和CreateFile函数相一致。
ReadFile函数只要在串口输入缓冲区中读入指定数量的字符，就算完成操作。而WriteFile函数不但要把指定数量的字符拷入到输出缓冲区，而且要等这些字符从串行口送出去后才算完成操作。
如果操作成功，这两个函数都返回TRUE。需要注意的是，当ReadFile和WriteFile返回FALSE时，不一定就是操作失败，线程应该调用GetLastError函数分析返回的结果。例如，在重叠操作时如果操作还未完成函数就返回，那么函数就返回FALSE，而且GetLastError函数返回ERROR_IO_PENDING。这说明重叠操作还未完成。
您可以观察返回的字符串，其中有和仪表显示值相同的部分，您可以进行相应的字符串操作取出仪表的显示值。
打开ClassWizard,为静态文本框IDC_DISP添加CString类型变量m_disp，同时添加WM_CLOSE的相应函数： void CRS485CommDlg::OnClose()
{
// TODO: Add your message handler code here and/or call default
CloseHandle(hCom); //程序退出时关闭串口
CDialog::OnClose();
}
程序的相应部分已经在代码内部作了详细介绍。连接好硬件部分，编译运行程序，细心体会串口同步操作部分。
例程2
打开VC++6.0，新建基于对话框的工程RS485Comm，在主对话框窗口IDD_RS485COMM_DIALOG上添加两个按钮，ID分别为IDC_SEND和IDC_RECEIVE，标题分别为“发送”和“接收”；添加一个静态文本框IDC_DISP，用于显示串口接收到的内容。在RS485CommDlg.cpp文件中添加全局变量：
HANDLE hCom; //全局变量，
串口句柄在RS485CommDlg.cpp文件中的OnInitDialog()函数添加如下代码：
hCom=CreateFile("COM1",//COM1口
GENERIC_READ|GENERIC_WRITE, //允许读和写
0, //独占方式
NULL,
OPEN_EXISTING, //打开而不是创建
FILE_ATTRIBUTE_NORMAL|FILE_FLAG_OVERLAPPED, //重叠方式
NULL);
if(hCom==(HANDLE)-1)
{
AfxMessageBox("打开COM失败!");
return FALSE;
}
SetupComm(hCom,100,100); //输入缓冲区和输出缓冲区的大小都是100
COMMTIMEOUTS TimeOuts;
//设定读超时
TimeOuts.ReadIntervalTimeout=MAXDWORD;
TimeOuts.ReadTotalTimeoutMultiplier=0;
TimeOuts.ReadTotalTimeoutConstant=0;
//在读一次输入缓冲区的内容后读操作就立即返回，
//而不管是否读入了要求的字符。
//设定写超时
TimeOuts.WriteTotalTimeoutMultiplier=100;
TimeOuts.WriteTotalTimeoutConstant=500;
SetCommTimeouts(hCom,&TimeOuts); //设置超时
DCB dcb;
GetCommState(hCom,&dcb);
dcb.BaudRate=9600; //波特率为9600
dcb.ByteSize=8; //每个字节有8位
dcb.Parity=NOPARITY; //无奇偶校验位
dcb.StopBits=TWOSTOPBITS; //两个停止位
SetCommState(hCom,&dcb);
PurgeComm(hCom,PURGE_TXCLEAR|PURGE_RXCLEAR);
分别双击IDC_SEND按钮和IDC_RECEIVE按钮，添加两个按钮的响应函数： void CRS485CommDlg::OnSend()
{
// TODO: Add your control notification handler code here
OVERLAPPED m_osWrite;
memset(&m_osWrite,0,sizeof(OVERLAPPED));
m_osWrite.hEvent=CreateEvent(NULL,TRUE,FALSE,NULL);
char lpOutBuffer[7];
memset(lpOutBuffer,''\0'',7);
lpOutBuffer[0]=''\x11'';
lpOutBuffer[1]=''0'';
lpOutBuffer[2]=''0'';
lpOutBuffer[3]=''1'';
lpOutBuffer[4]=''0'';
lpOutBuffer[5]=''1'';
lpOutBuffer[6]=''\x03'';
DWORD dwBytesWrite=7;
COMSTAT ComStat;
DWORD dwErrorFlags;
BOOL bWriteStat;
ClearCommError(hCom,&dwErrorFlags,&ComStat);
bWriteStat=WriteFile(hCom,lpOutBuffer,
dwBytesWrite,& dwBytesWrite,&m_osWrite);
if(!bWriteStat)
{
if(GetLastError()==ERROR_IO_PENDING)
{
WaitForSingleObject(m_osWrite.hEvent,1000);
}
}
}
void CRS485CommDlg::OnReceive()
{
// TODO: Add your control notification handler code here
OVERLAPPED m_osRead;
memset(&m_osRead,0,sizeof(OVERLAPPED));
m_osRead.hEvent=CreateEvent(NULL,TRUE,FALSE,NULL);
COMSTAT ComStat;
DWORD dwErrorFlags;
char str[100];
memset(str,''\0'',100);
DWORD dwBytesRead=100;//读取的字节数
BOOL bReadStat;
ClearCommError(hCom,&dwErrorFlags,&ComStat);
dwBytesRead=min(dwBytesRead, (DWORD)ComStat.cbInQue);
bReadStat=ReadFile(hCom,str,
dwBytesRead,&dwBytesRead,&m_osRead);
if(!bReadStat)
{
if(GetLastError()==ERROR_IO_PENDING)
//GetLastError()函数返回ERROR_IO_PENDING,表明串口正在进行读操作
{
WaitForSingleObject(m_osRead.hEvent,2000);
//使用WaitForSingleObject函数等待，直到读操作完成或延时已达到2秒钟
//当串口读操作进行完毕后，m_osRead的hEvent事件会变为有信号
}
}
PurgeComm(hCom, PURGE_TXABORT|
PURGE_RXABORT|PURGE_TXCLEAR|PURGE_RXCLEAR);
m_disp=str;
UpdateData(FALSE);
}
打开ClassWizard,为静态文本框IDC_DISP添加CString类型变量m_disp，同时添加WM_CLOSE的相应函数： void CRS485CommDlg::OnClose()
{
// TODO: Add your message handler code here and/or call default
CloseHandle(hCom); //程序退出时关闭串口
CDialog::OnClose();
}
这是我看过的一个资料。打开、设置和读写串口的方法都说的很详细了。由于网络知道回答问题是有长度限制的。有些例子被我删了。如果需要就加我QQ。给你发信息了。
⑨ 求：《visual C++串口通信开发入门与编程实践》周韧研、商斌编着这本书的实例源代码！
Visual C++_Turbo C串口通信编程实践
不错，循序渐进！
⑩ VisualBasic串口通信程序设计
1mscomm.vbx通信控件描述
mscomm.vbx通信控件可直接从vb的toolbox中加入窗体form，即可用其进行通信。若toolbox中无此控件，则用tools的customcontrols将mscomm.vbx从windows的system子目录中加入vb的toolbox中。
1.1通信方式
mscomm.vbx有2种不同的方式来处理和解决各类通信软件的开发和设计问题
1、事件驱动。它与c/c 写windows软件时的窗口回调函数类似，是1种功能强大的处理问题的方法。在实际工作中，往往要处理许多通信中的相关事件，例如：当线路数据到达本端或cd线和rts信号线状态发生变化时，要求我们使用相应的事件来跟踪和处理，该控件是使用oncomm事件来实现的，它也包括检测和处理通信错误等方面的问题，commevent值返回最近的通信事件或错误的数字代码。通信控件详细的错误和事件举例有：
mscomm-er-break收到1个breaksignal
mscomm-er-cdtocd信号超时
mscomm-ev-cdcd信号改变
2、查缺此询方式。由程序设计者负责读取commevent的值并处理所发生的错误或事件。通常简单的应用程序设计可采用这种办法。
1.2通信控件的属性
利用通信控件编制通信程序，关键是准确理解设置通信控件的属性。mscomm.vbx提供了27个关于通信控件方面的属性，例如：
commport：设置或返回通信口编号。
settings：设置或返回以字符串形式出现的数据通信格式：波特率、校验、数据位和停止位。
portopen：设置或返回通信口状态（包括打开和关闭1个通信口）
3、实例
本程序应用背景为dcc95型静电除尘器自动监控系统软件，解决1个pc工控机（主站）与32个单片机（宴扮子站）之间的通信问题。主站与子站之间这总线式网络结构，采用rs-485通信标准，以问答方式进行数据通信。由于32个子站与主站发送通信命令（下行命令），主站在接收子站发回的相应回答命令（上行命令）后继续发送下行命令的通信形式。根据系统功能的要求，主站需发送2种类型的命令：（1）同期命令，它由定时器触发引起，每隔ls周期发送1次；（2）非周期性命令，它由操作者按动相应命令按钮引起，非周期性发送。自动监控系统软件安装在主站上，而通信程序作为自动监控系统软件的一部分也安装在主站上。
本文仅列出调试通信程序时进行试验用的基本演示程序清单。试验时，用1台pc机作为主站，另一台pc机模拟32个子站的工作，两台pc机之间采用rs232c串口通信。往主站的通信演示程序窗体（form）中加入1个通信控件、2个定时器控件和1个命令按钮控件，通信控件（mscomm1）用于访问串口，发送和接收数据；periodic定时器控件（periodic）用于控制每秒由主站向各子站发送周期性命令；命令按钮控件(nonperiodic-command)与nonperiodic定时器控件（nonperiodic）用于发送非周期性命令。数据传送采用事件驱动的通信方式，根据不同的发送命令设置rtreshlod属性，从而引起oncomm事件以接收数据。
2.1窗体各控件初始化程序
设置通信串口工作参数，设置periodic定时器的在断间隔为ls,nonperiodic定时器的中断间隔为0.5s。
subform-load()
mscomm1.commport=2'选用com2串行口
mscomm1.settings="9600，n8，1"'波特率9600，无奇偶校验位，8位数据位1位停止位
mscomm1.inputlen=0'input将读取接收缓冲区的全部内容
mscomm1.inbuffersize=1024'设置接收缓冲区伏祥迅的字节长度
mscomm1.portopen=true'打开通信口
mscomm1.inbuffercount=0'清除发送缓冲区数据
mscomm1.outbuffercount=0'清除接收缓冲区数据
periodic.inteval=100'设置ls定时间隔，使遥测命令每隔ls发送1次
nonperiodic.inteval=500'设置0.5s定时间隔，查询命令按钮是否处于激活状态以确定是否发送周期性命令
command-pressed=false'命令按钮为未激活状态
ring-periodic=false'周期性命令数据传输尚未开始
ring-nonperiodic=false'非周期性命令数据传输尚未开始
endsub
2.2非周期性命令发送程序
根据命令按钮状态及周期性命令数据传输状态，在nonperiodic定时器的中断程序中发送非周期性命令。
subnonperiodic-command-click()
command-pressed=true'命令按钮激活
endsub
subnonperiodic-timer()
ifring-periodic=trueorcommand-pressed=false
thenexitsub'若周期性命令数据传输尚未结束或命令按钮处于激活状态，则退出发送非周期性命令程序。
command-pressed=false'命令按钮恢复为未激活状态
callsenddata(nonperiodic-command)'发送非周期性命令
mscomm1.rthreshold=r-nonperiodic-byte'发送非周期性命令后，设置rthreshold属性，使主站接收所设定的字节数后引发oncomm事件
endsub
2.3periodic定时器程序
在periodic定时器的中断程序中发送周期性命令：
subperiodic-timer()
ifring-nonperiodic=truethenexitsub'若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。
ring-periodic=true'设置周期性命令数据传输状态为正在进行中
callsenddata(periodic-command)'发送周期性命令
mscomm1.rthreshold=r-periodic-byte'发送周期性命令后，主站接收r-remot-edata-byte个字节，可引发oncomm事件
endsub
2.4oncomm事件程序
根据rthreshold属性设置值，当接收缓存区内接收到相应字节的字符时，引发oncomm事件，在中断程序中接收数据。
submscomm1-oncomm()
selectcasemscomm1.commevent'在此可插入处理各种不同错误或事件的代码
casemscomm-ev-receive
receivestring$=mscomm1.input
selectcasemscomm1.rthreshold
caser-periodic-byte'周期性命令的应答数据
calldisposedata(periodic-command)'处理接收数据
ringperiodic=false'设置周期性命令数据传输状态为结束
caser-nonperiodic-byte'非周期性命令的应答数据
calldisposedata(nonperiodic-command)'处理接收数据
ring-nonperiodic=false'设置非周期性命令数据传输状态为结束
endselect
endselect
endsub
随着vb版本的不断升级，vb将成为最快速、易用、强劲的应用开发工具，是企业级客户/服务器应用软件开发的首选工具之一。