如何通过串口读取plc的数据

串口编程的学习应该从以下几个方面入手：1.就是上位机的编程，使用c语言或者vc，vb等语言进行上位机的编程实现，主要就是 *** 作串口，理解通信波特率，奇偶校验位，停止位的概念。如果使用单片机或者c语言开发的话，就会有一定麻烦，如果使用vb或者vc的话，就可以调用微软的串口通信控件进行串口的编程，这样的例子网上很多，你可以下载下来分析一下。2.下位机的编程，就是plc的编程，主要是要理解通信协议为前提，首先把通信的协议搞定了，才可以进行通信的编程。例如：西门子的编程有自由口的通信，就必须编写下位机的梯形图程序；松下的话就简单很多了。只要理解通信协议就可以编程了。3.在编程中，好的通信工具很重要：串口调试助手。可以帮助我们更好的进行串口的调试。4.西门子和松下的资料，我比较多，要是需要的话，给你分享一下。

#include "stdafx.h"

#ifdef _DEBUG

#undef THIS_FILE

static char THIS_FILE[]=__FILE__

#define new DEBUG_NEW

#endif

//////////////////////////////////////////////////////////////////////

// Construction/Destruction

//////////////////////////////////////////////////////////////////////

ADOConn::ADOConn()

{

}

ADOConn::~ADOConn()

{

}

// 初始化—连接数据库

void ADOConn::OnInitADOConn()

{

// 初始化OLE/COM库环境

::CoInitialize(NULL)

try

{

// 创建Connection对象

m_pConnection.CreateInstance("ADODB.Connection")

// 设置连接字符串，必须是BSTR型或者_bstr_t类型

_bstr_t strConnect = "Provider=MSDASQL.1Persist Security Info=FalseUser ID=***Data Source=***"

m_pConnection->Open(strConnect,"","",adModeUnknown)

}

// 捕捉异常

catch(_com_error e)

{

// 显示错误信息

AfxMessageBox(e.Description())

}

}

// 执行查询

_RecordsetPtr& ADOConn::GetRecordSet(_bstr_t bstrSQL)

{

try

{

// 连接数据库，如果Connection对象为空，则重新连接数据库

if(m_pConnection==NULL)

OnInitADOConn()

// 创建记录集对象

m_pRecordset.CreateInstance(__uuidof(Recordset))

// 取得表中的记录

m_pRecordset->Open(bstrSQL,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText)

}

// 捕捉异常

catch(_com_error e)

{

// 显示错误信息

AfxMessageBox(e.Description())

}

// 返回记录集

return m_pRecordset

}

// 执行SQL语句，Insert Update _variant_t

BOOL ADOConn::ExecuteSQL(_bstr_t bstrSQL)

{

//_variant_t RecordsAffected

try

{

// 是否已经连接数据库

if(m_pConnection == NULL)

OnInitADOConn()

// Connection对象的Execute方法:(_bstr_t CommandText,

// VARIANT * RecordsAffected, long Options )

// 其中CommandText是命令字串，通常是SQL命令。

// 参数RecordsAffected是 *** 作完成后所影响的行数,

// 参数Options表示CommandText的类型：adCmdText-文本命令；adCmdTable-表名

// adCmdProc-存储过程；adCmdUnknown-未知

m_pConnection->Execute(bstrSQL,NULL,adCmdText)

return true

}

catch(_com_error e)

{

AfxMessageBox(e.Description())

return false

}

}

void ADOConn::ExitConnect()

{

// 关闭记录集和连接

if (m_pRecordset != NULL)

m_pRecordset->Close()

m_pConnection->Close()

// 释放环境

::CoUninitialize()

}

---