比如你直接发送 aa 和 bb是很不好的习惯，至少应该将该指令封装成一个规范的指令帧，
比如：帧头＋长度＋数据体＋校验，举例aa bb指令：（5a a5 02 aa bb 校验和），其中
5a a5为两个字节的帧头，02表示数据体长度为2个字节，aa bb即时数据体，校验和是前面5个字节的累加和的低字节。当把不同的指令按照相同的帧格式封装好后，程序可以按照帧格式接收完整的数据帧后，再分析数据体是何指令，进行相应的动作，有了相同的帧格式，一个串口就可以接收下来并区分开两组数据。两组数据相互独立，一组出现问题，另一组不会受到影响。出现错误是随机的，只能由计算机判断出错误的数据并删掉。尽量降低错误的出现。
#include "stdafx.h"#include "CommWizard.h"
#include "CommWizardDlg.h"
#include "SettingDlg.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__
#endif
/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About
class CAboutDlg : public CDialog
{
public:
CAboutDlg()
// Dialog Data
//{{AFX_DATA(CAboutDlg)
enum { IDD = IDD_ABOUTBOX }
//}}AFX_DATA
// ClassWizard generated virtual function overrides
//{{AFX_VIRTUAL(CAboutDlg)
protected:
virtual void DoDataExchange(CDataExchange* pDX) // DDX/DDV support
//}}AFX_VIRTUAL
// Implementation
protected:
//{{AFX_MSG(CAboutDlg)
//}}AFX_MSG
DECLARE_MESSAGE_MAP()
}
CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
//{{AFX_DATA_INIT(CAboutDlg)
//}}AFX_DATA_INIT
}
void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX)
//{{AFX_DATA_MAP(CAboutDlg)
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
//{{AFX_MSG_MAP(CAboutDlg)
// No message handlers
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CCommWizardDlg dialog
CCommWizardDlg::CCommWizardDlg(CWnd* pParent /*=NULL*/)
: CDialog(CCommWizardDlg::IDD, pParent)
{
bSend = FALSE
bReceive = FALSE
m_nPort = 1
m_strSettings = _T("9600,n,8,1")
m_strSendString = _T("")
m_nTime = 1000
m_nInputMode = 1
//{{AFX_DATA_INIT(CCommWizardDlg)
m_strReceive = _T("")
//}}AFX_DATA_INIT
// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME)
}
void CCommWizardDlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX)
//{{AFX_DATA_MAP(CCommWizardDlg)
DDX_Control(pDX, IDC_RECEIVE, m_ctrlReceive)
DDX_Control(pDX, IDC_SEND, m_ctrlSend)
DDX_Control(pDX, IDC_TYPE, m_ctrlDataType)
DDX_Text(pDX, IDC_EDIT_RECEIVE, m_strReceive)
DDX_Control(pDX, IDC_COMMCTRL, m_Com)
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CCommWizardDlg, CDialog)
//{{AFX_MSG_MAP(CCommWizardDlg)
ON_WM_SYSCOMMAND()
ON_WM_PAINT()
ON_WM_QUERYDRAGICON()
ON_BN_CLICKED(IDC_RECEIVE, OnReceive)
ON_BN_CLICKED(IDC_SEND, OnSend)
ON_BN_CLICKED(IDC_SETTINGS, OnSettings)
ON_CBN_SELCHANGE(IDC_TYPE, OnSelchangeType)
ON_BN_CLICKED(IDC_CLEAR, OnClear)
ON_BN_CLICKED(IDC_MANUALSEND, OnManualsend)
ON_WM_TIMER()
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CCommWizardDlg message handlers
BOOL CCommWizardDlg::OnInitDialog()
{
CDialog::OnInitDialog()
// Add "About..." menu item to system menu.
// IDM_ABOUTBOX must be in the system command range.
ASSERT((IDM_ABOUTBOX &0xFFF0) == IDM_ABOUTBOX)
ASSERT(IDM_ABOUTBOX <0xF000)
CMenu* pSysMenu = GetSystemMenu(FALSE)
if (pSysMenu != NULL)
{
CString strAboutMenu
strAboutMenu.LoadString(IDS_ABOUTBOX)
if (!strAboutMenu.IsEmpty())
{
pSysMenu->AppendMenu(MF_SEPARATOR)
pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu)
}
}
// Set the icon for this dialog. The framework does this automatically
// when the application's main window is not a dialog
SetIcon(m_hIcon, TRUE) // Set big icon
SetIcon(m_hIcon, FALSE) // Set small icon
// TODO: Add extra initialization here
m_ctrlDataType.AddString(_T("按ASCII码"))
m_ctrlDataType.AddString(_T("按2进制"))
m_ctrlDataType.AddString(_T("按16进制"))
m_ctrlDataType.SetCurSel(m_nInputMode)
return TRUE // return TRUE unless you set the focus to a control
}
void CCommWizardDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
if ((nID &0xFFF0) == IDM_ABOUTBOX)
{
CAboutDlg dlgAbout
dlgAbout.DoModal()
}
else
{
CDialog::OnSysCommand(nID, lParam)
}
}
// If you add a minimize button to your dialog, you will need the code below
// to draw the icon. For MFC applications using the document/view model,
// this is automatically done for you by the framework.
void CCommWizardDlg::OnPaint()
{
if (IsIconic())
{
CPaintDC dc(this)// device context for painting
SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0)
// Center icon in client rectangle
int cxIcon = GetSystemMetrics(SM_CXICON)
int cyIcon = GetSystemMetrics(SM_CYICON)
CRect rect
GetClientRect(&rect)
int x = (rect.Width() - cxIcon + 1) / 2
int y = (rect.Height() - cyIcon + 1) / 2
// Draw the icon
dc.DrawIcon(x, y, m_hIcon)
}
else
{
CDialog::OnPaint()
}
}
// The system calls this to obtain the cursor to display while the user drags
// the minimized window.
HCURSOR CCommWizardDlg::OnQueryDragIcon()
{
return (HCURSOR) m_hIcon
}
void CCommWizardDlg::OnReceive()
{
// TODO: Add your control notification handler code here
m_Com.GetInput()//先预读缓冲区以清除残留数据
bReceive = !bReceive
if(bReceive)
m_ctrlReceive.SetWindowText(_T("停止接收"))
else
m_ctrlReceive.SetWindowText(_T("开始接收"))
}
void CCommWizardDlg::OnSend()
{
// TODO: Add your control notification handler code here
bSend = !bSend
if(bSend)
{
m_ctrlSend.SetWindowText(_T("停止发送"))
SetTimer(1,m_nTime,NULL)//时间为1000毫秒
}
else
{
m_ctrlSend.SetWindowText(_T("自动发送"))
KillTimer(1) //取消定时
}
}
void CCommWizardDlg::OnSettings()
{
// TODO: Add your control notification handler code here
CSettingDlg setDlg
setDlg.nPort = m_nPort
setDlg.nTime = m_nTime
setDlg.strSettings = m_strSettings
setDlg.strSendString = m_strSendString
if(setDlg.DoModal() == IDOK)
{
m_nPort = setDlg.nPort
m_nTime = setDlg.nTime
m_strSettings = setDlg.strSettings
m_strSendString = setDlg.strSendString
}
OpenPort()
}
void CCommWizardDlg::OnSelchangeType()
{
// TODO: Add your control notification handler code here
m_nInputMode = m_ctrlDataType.GetCurSel()
}
void CCommWizardDlg::OnClear()
{
// TODO: Add your control notification handler code here
m_strReceive = _T("")
}
BEGIN_EVENTSINK_MAP(CCommWizardDlg, CDialog)
//{{AFX_EVENTSINK_MAP(CCommWizardDlg)
ON_EVENT(CCommWizardDlg, IDC_COMMCTRL, 1 /* OnComm */, OnOnCommCommctrl, VTS_NONE)
//}}AFX_EVENTSINK_MAP
END_EVENTSINK_MAP()
void CCommWizardDlg::OnOnCommCommctrl()
{
// TODO: Add your control notification handler code here
VARIANT variant_inp
COleSafeArray safearray_inp
LONG len,k
BYTE rxdata[2048]//设置BYTE数组 An 8-bit integerthat is not signed.
CString strtemp
if(bReceive)
{
if(m_Com.GetCommEvent()==2) //事件值为2表示接收缓冲区内有字符
{
variant_inp = m_Com.GetInput() //读缓冲区
safearray_inp = variant_inp //VARIANT型变量转换为ColeSafeArray型变量
len=safearray_inp.GetOneDimSize()//得到有效数据长度
for(k=0k<lenk++)
safearray_inp.GetElement(&k,rxdata+k)//转换为BYTE型数组
for(k=0k<lenk++) //将数组转换为Cstring型变量
{
BYTE bt=*(char*)(rxdata+k) //字符型
if(m_nInputMode == 2)
strtemp.Format("%02X ",bt)//将字符以十六进制方式送入临时变量strtemp存放，注意这里加入一个空隔
else
strtemp.Format("%c",bt)//将字符送入临时变量strtemp存放
m_strReceive = m_strReceive + strtemp //加入接收编辑框对应字符串
}
m_strReceive += "\r\n"
}
}
UpdateData(FALSE) //更新编辑框内容
}
void CCommWizardDlg::OpenPort()
{
if(m_Com.GetPortOpen())
m_Com.SetPortOpen(FALSE)
m_Com.SetCommPort(m_nPort) //选择com1
if( !m_Com.GetPortOpen())
m_Com.SetPortOpen(TRUE)//打开串口
else
AfxMessageBox("cannot open serial port")
m_Com.SetSettings(m_strSettings)//波特率9600，无校验，8个数据位，1个停止位
m_Com.SetRThreshold(1)
//参数1表示每当串口接收缓冲区中有多于或等于1个字符时将引发一个接收数据的OnComm事件
m_Com.SetInputMode(1)
m_Com.SetInputLen(0) //设置当前接收区数据长度为0
m_Com.GetInput()//先预读缓冲区以清除残留数据
}
void CCommWizardDlg::OnManualsend()
{
// TODO: Add your control notification handler code here
CString strSend
if(m_nInputMode >1)
{
CByteArray hexdata
int len=String2Hex(m_strSendString ,hexdata)
m_Com.SetOutput(COleVariant(hexdata))
}
else
m_Com.SetOutput(COleVariant(m_strSendString))//发送数据
}
void CCommWizardDlg::OnTimer(UINT nIDEvent)
{
// TODO: Add your message handler code here and/or call default
OnManualsend()
CDialog::OnTimer(nIDEvent)
}
int CCommWizardDlg::String2Hex(CString str, CByteArray &senddata)
{
int hexdata,lowhexdata
int hexdatalen=0
int len=str.GetLength()
senddata.SetSize(len/2)
for(int i=0i<len)
{
char lstr,hstr=str[i]
if(hstr==' ')
{
i++
continue
}
i++
if(i>=len)
break
lstr=str[i]
hexdata=ConvertHexChar(hstr)
lowhexdata=ConvertHexChar(lstr)
if((hexdata==16)||(lowhexdata==16))
break
else
hexdata=hexdata*16+lowhexdata
i++
senddata[hexdatalen]=(char)hexdata
hexdatalen++
}
senddata.SetSize(hexdatalen)
return hexdatalen
}
//这是一个将字符转换为相应的十六进制值的函数
//功能：若是在0-F之间的字符，则转换为相应的十六进制字符，否则返回-1
char CCommWizardDlg::ConvertHexChar(char ch)
{
if((ch>='0')&&(ch<='9'))
return ch-0x30
else if((ch>='A')&&(ch<='F'))
return ch-'A'+10
else if((ch>='a')&&(ch<='f'))
return ch-'a'+10
else return (-1)
}
.实现你讲的功能，必须用VB中的MSComm控件
MSComm 控件有很多重要的属性，在开始使用MSComm控件之前。需要先了解其属性、事件或错误。
属性描述
CommPort设置或返回通信端口号
Settings 以字符串的形式设置或返回波特率、奇偶校验、数据位和停止位
PortOpen 设置或返回通信端口的状态。也可以打开和关闭端口
Input 返回和删除接收缓冲区中的字符
Output将字符串写入发送缓冲区
CommEvent 属性为通信事件或错误返回下列值之一。在该控件的对象库中也可以找到这些常量。
有关具体的描述，找相应的教材仔细看吧。
VB.的MSComm通信控件提供了一系列标准通信命令的接口，它允许建立串口连接，可以连接到其他通信设备（如Modem）．还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件，从而可以用它创建全双工 、事件驱动的、高效实用的通信程序。但在实际通信软件设计过程中，MSComm控件并非像想像中那样完美和容易控制．。
一般悦来，计算机都有一个或多个串行端口，它们依次为com1、Com2、…，这些串口还提供了外部设备与pC进行数据传输和皿信的通道。这些串口在CPU和外设之间充当解释器的角色。当字符数据从CPU发送给外设时，这些字符数据将被转换成串行比特流数据；当接收数据时，比特流数据被转换为字符数据传递给CPU，再进一步说，在 *** 作系统方面，Windows用通信驱动程序（COMM.DRV）调用API函数发送和接收数据，当用通信控件或声明调用API函数时，它门由COMM. DRV解释并传递给设备驱动程序，作为一个vB程序员，要编写通信程序．只需知道通信控件提供给Windows通信AP1函数的接口即可．换句话说，只需设定和监视通信控件的属性和事件即可。
MSComm控件提供了两种处理通信的方法：
1.事件驱动通信，是一种功能很强的处理串口活动的方法。在大多数情况下，用户需要获知事件发生的时间，例如，在CD（Carrier Detect）线或RTS（Request To Send）线上有字符到达或发生了改变等。在这种情况下，使用MSComm控件的OnComm事件捕获和处理这些通信事件。OnComm也可以捕获和处理通信中的错误。要获取所有事件和通信错误的完整清单，参阅CommEvent属性。
2.程序员也可以在每个重要的程序功能之后检查CommEvent属性的值来检测事件和通信错误。这对小的自含程序可能比较常用。例如，如果编写一个简单的电话拨号程序，那么在接收了每个字符后都产生一个事件并没有意义，因为你只打算从调制解调器中接收OK响应信息。
使用的每个MSComm控件都与一个串口对应。如果在应用程序中需要访问多个串口，必须使用多个MSComm控件。可以在Windows 控制面板中修改串口地址的中断地址。
用Mscomm控件 编写通信程序
在VB中新建一个工程文件。
添加Microsoft Comm Control 组件，
在简体Form1中加入Command命令按钮并取名为CmdTest，MSComm控件取名为SComm1，加入如下程序代码。
Private Sub cmdTestClick ( )'打开串口
MSComml.CommPort =2'设定Com2
If MSComml.PortOpen = False Then
MSComm1.Settings = "9600,n,8,1"'9600波特率，无校验，8位数据位，1位停止位
MSComm1.PortOpen = True'打开串口
End if
MSComm1.OutBufferCount = 0 '清空发送缓冲区
MSComm1.InBufferCount = 0 '滑空接收缓冲区
'发送字符数据时注意必须用回车符（vbcr）结束
MSComm1.Output="This is a qood book ! " &vbCr
'泼打电话号码或发送AT命令
MSComm1.Output = "ATDT 05778191898 , &vbCr
'发送字符数组数据时注意ByteArray必须事先定义赋值
Dim ByteArray as byte( )
'定义动态数组
ReDim ByteArray(1)
'重定义数组大小
ByteArray ( 0 ) =0
ByteArray ( 1 ) = 1
MSComm1.Output = ByteArray
End Sub
private Sub MScommEvent( )
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant
MSComm1.InputLen = 0
'接收二进制数据
MSComm1.InputMode= ComInputModeBinary
Buffer=MSComm1.Input
'接收字符数据
MSComm1.InputMode=comInputModeText
Buffer = MSComml.Input
Case else
End Select
End sub
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）