83SR50C-E
发布时间：2019-01-03 11:41:18点击率：
83SR50C-E 系统参数主画面如下图所示：
图二
数据读取子程序：
Public Function GetData(ByVal StartAddress As String, ByVal GetBytes As Integer, ByVal Hex_Bytes As String) As String
Mm1.InputLen = GetBytes * 2 + 4
Mm1.Output = STX + CMD_Read + StartAddress + Hex_Bytes + ETX + GetSum(CMD_Read + StartAddress + Hex_Bytes + ETX)
‘传送数据组成：起始符+命令+首地址+数据位+结束符+和检验码
GetData = Mm1.Input
Mm1.InBufferCount = 0
Mm1.InputLen = 0
End Function
如需读取数据，通过调用GetData子程序。
参数设置程序可参考读取子程序，只是改变命令而已。
ess97数据库中包含三个表单，包括参数表、记录表、报警记录表。
通过如下子程序是将实际称量值（记录表）更新到数据库：
Private Sub SaveData()
Dim i As Integer
Dim valid As Boolean
On Error Resume Next
valid = True
Data1.Recordset.AddNew
Data1.Recordset.Fields("dtime") = TimeSerial(OnHour, OnMinute, OnSecond)
Data1.Recordset.Fields("systime") = Time ‘系统时间
Data1.Recordset.Fields("get_xl") = LF(1) ‘小料当前称量值
Data1.Recordset.Fields("get_fjs") = LF(2) ‘方解石当前称量值
Data1.Recordset.Fields("get_cs") = LF(3) ‘长石当前称量值
Data1.Recordset.Fields("get_sys") = LF(4) ‘石英砂当前称量值
Data1.Recordset.Fields("get_cj") = LF(5) ‘纯碱当前称量值
On Error Resume Next
Data1.Recordset.Update ‘更新数据库记录
Data1.Recordset.MovePrevi
End Sub
程序中，LF(i)变量对应为图二系统参数表单中实称值。
保存参数子程序只是对数据库操作，程序结构可参考以上子程序。
上位机与PLC通信质量的好坏，对系统的安全可靠运行影响极大，因此，编写程序时，除了在两者之间的通信协议上保持 一致和采取相应的容错技术外，还要考虑系统的整体容错技术，防止系统的不正常。
四、结束语
串行通信是目前计算机与其他设备之间通信广泛采用的方式之一，传送数据准确，程序稳定运行是系统开发的主要目的。本设计中充分利用计算机和PLC的资源，在几乎不增加设备开支的情况下成功的实现上位机与PLC之间的通信。
83SR50C-E
· 成就客户—我们致力于每位客户的满意和成功。· 创业创新—我们追求对客户和公司都至关重要的创新，同时快速而高效地推动其实现。
· 诚信正直—我们秉持信任、诚实和富有责任感，无论是对内部还是外部。
· 多元共赢—我们倡导互相理解，珍视多元性，以全球视野看待我们的文化。
--------------------
联系人：欧工
手机：18030229050
电话：0592-5709821
QQ 3151326358
邮箱 3151326358@qq