modbus rtu协议可以算是一种事实上的工业标准协议，为许多仪表、PLC等所支持。以前有几个用户问如何使用VB编程来与我们的KND-K3系列PLC通讯，于是整了一个demo 程序。这次把这个demo共享，希望能给大家一点帮助。
1）模块文件：modCRC，其中包含了CRC校验的函数。
'data 待校验的数组名称
'no 数组中元素个数
'btLoCRC 算出的CRC高字节
'btHiCRC 算出的CRC低字节
Public Function CalCRC16Fast(data() As Byte, no As Integer, btLoCRC As Byte, btHiCR C As Byte) As String
Dim CL As Byte, CH As Byte '多项式码&HA001
Dim SaveHi As Byte, SaveLo As Byte
Dim i As Integer
Dim Flag As Integer
btHiCRC = &HFF
btLoCRC = &HFF
CL = &H1
CH = &HA0
For i = 0 To (no - 1)
btHiCRC = btHiCRC Xor data(i) '每一个数据与CRC寄存器进行异或
For Flag = 0 To 7
SaveHi = btLoCRC
SaveLo = btHiCRC
btLoCRC = btLoCRC \ 2 '高位右移一位
btHiCRC = btHiCRC \ 2 '低位右移一位
If ((SaveHi And &H1) = &H1) Then '如果高位字节最后一位为1
btHiCRC = btHiCRC Or &H80 '则低位字节右移后前面补1
End If '否则自动补0
If ((SaveLo And &H1) = &H1) Then '如果LSB为1，则与多项式码进行异或
btLoCRC = btLoCRC Xor CH
btHiCRC = btHiCRC Xor CL
End If
Next Flag
Next i
Dim ReturnData(1) As Byte
ReturnData(0) = btHiCRC 'CRC高位
ReturnData(1) = btLoCRC 'CRC低位
CalCRC16Fast = ReturnData
End Function
Public Function CalCRC16Tbl(data() As Byte, no As Integer, btLoCRC As Byte, btHiCRC As Byte) As String
Dim btLoCRC As Byte
Dim btHiCRC As Byte
btLoCRC = &HFF
btHiCRC = &HFF
Dim i As Integer
Dim iIndex As Long
For i = 0 To (no - 1)
iIndex = btHiCRC Xor data(i)
btHiCRC = btLoCRC Xor GetCRCLo(iIndex) '低位处理
btLoCRC = GetCRCHi(iIndex) '高位处理
Next i
Dim ReturnData(1) As Byte
ReturnData(0) = btHiCRC 'CRC高位
ReturnData(1) = btLoCRC 'CRC低位
CalCRC16Tbl = ReturnData
End Function
'CRC低位字节值表
Function GetCRCLo(Ind As Long) As Byte
GetCRCLo = Choose(Ind + 1, _
&H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, _
&H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, _
&H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, _
&H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, _
&H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, _
&H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, _
&H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, _
&H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, _
&H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, _
&H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, _
&H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, _
&H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, _
&H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, _
&H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, _
&H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, _
&H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, _
&H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, _
&H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, _
&H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, _
&H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, _
&H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, _
&H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, _
&H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, _
&H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &H C1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H8 1, &H40)
End Function
'CRC高位字节值表
Function GetCRCHi(Ind As Long) As Byte
GetCRCHi = Choose(Ind + 1, _
&H0, &HC0, &HC1, &H1, &HC3, &H3, &H2, &HC2, &HC6, &H6, &H7, &HC7 , &H5, &HC5, &HC4, &H4, &HCC, &HC, &HD, &HCD, &HF, &HCF, &HCE, &HE, &HA, & HCA, &HCB, &HB, &HC9, &H9, &H8, &HC8, &HD8, &H18, &H19, &HD9, &H1B, &HDB, &HDA, &H1A, &H1E, &HDE, &HDF, &H1F, &HDD, &H1D, &H1C, &HDC, &H14, &HD4, & HD5, &H15, &HD7, &H17, &H16, &HD6, &HD2, &H12, &H13, &HD3, &H11, &HD1, &HD 0, &H10, &HF0, &H30, &H31, &HF1, &H33, &HF3, &HF2, &H32, &H36, &HF6, &HF7, &H 37, &HF5, &H35, &H34, &HF4, &H3C, &HFC, &HFD, &H3D, &HFF, &H3F, &H3E, &HFE, &HFA, &H3A, &H3B, &HFB, &H39, &HF9, &HF8, &H38, &H28, &HE8, &HE9, &H29, &H
EB, &H2B, &H2A, &HEA, &HEE, &H2E, &H2F, &HEF, &H2D, &HED, &HEC, &H2C, &HE 4, &H24, &H25, &HE5, &H27, &HE7, &HE6, &H26, &H22, &HE2, &HE3, &H23, &HE1, & H21, &H20, &HE0, &HA0, &H60, _
&H61, &HA1, &H63, &HA3, &HA2, &H62, &H66, &HA6, &HA7, &H67, &HA5, &H65, &H64, &HA4, &H6C, &HAC, &HAD, &H6D, &HAF, &H6F, &H6E, &HAE, &HAA, &H6A, & H6B, &HAB, &H69, &HA9, &HA8, &H68, &H78, &HB8, &HB9, &H79, &HBB, &H7B, &H7 A, &HBA, &HBE, &H7E, &H7F, &HBF, &H7D, &HBD, &HBC, &H7C, &HB4, &H74, &H75, &HB5, &H77, &HB7, &HB6, &H76, &H72, &HB2, &HB3, &H73, &HB1, &H71, &H70, &HB 0, &H50, &H90, &H91, &H51, &H93, &H53, &H52, &H92, &H96, &H56, &H57, &H97, &H 55, &H95, &H94, &H54, &H9C, &H5C, &H5D, &H9D, &H5F, &H9F, &H9E, &H5E, &H5A, &H9A, &H9B, &H5B, &H99, &H59, &H58, &H98, &H88, &H48, &H49, &H89, &H4B, &H8 B, &H8A, &H4A, &H4E, &H8E, &H8F, &H4F, &H8D, &H4D, &H4C, &H8C, &H44, &H84, &H85, &H45, &H87, &H47, &H46, &H86, &H82, &H42, &H43, &H83, &H41, &H81, &H80, &H40)
End Function
2）窗体：FORM1，上面放置的控件如下：
Begin VB.Form frmCom
Caption = "Form1"
ClientHeight = 8235
ClientLeft = 3885
ClientTop = 2250
ClientWidth = 6810
LinkTopic = "Form1"
ScaleHeight = 8235
ScaleWidth = 6810
Begin VB.TextBox txtReceive …注：放置接收上来的IB0数据
Height = 495
Left = 1200
TabIndex = 2
Top = 2280
Width = 1335
End
Begin https://www.doczj.com/doc/2f8982278.html,mandButton Command1
Caption = "读取IB0"
Height = 495
Left = 2760
TabIndex = 1
Top = 2280
Width = 1695
End
Begin https://www.doczj.com/doc/2f8982278.html,mandButton cmdSDO
Caption = "置位Q1.1"
Height = 495
Left = 2160
TabIndex = 0
Top = 3720
Width = 1575
End
Begin MSCommLib.MSComm ComK3
Left = 480
Top = 1080
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
End
① Form_Load事件，在此主要是实现了打开并初始化串口Private Sub Form_Load()
With ComK3
.CommPort = 1
.Settings = "19200,N,8,1"
.InputMode = comInputModeBinary '二进制收发
.InBufferSize = 512
.OutBufferSize = 512
If (Not .PortOpen) Then .PortOpen = True
End With
End Sub
② Form_UnLoad事件，在此主要是关闭串口
Private Sub Form_Unload(Cancel As Integer)
If (ComK3.PortOpen) Then
ComK3.PortOpen = False
End If
End Sub
③“置位Q1.1”按钮单击事件
'设置Q1.1为1
Private Sub cmdSDO_Click()
Dim btSend(8) As Byte
btSend(0) = &H1 '目标站号
btSend(1) = &H5 '功能码
btSend(2) = &H0 'Q1.1地址（0009）高字节
btSend(3) = &H9 'Q1.1地址（0009）低字节
btSend(4) = &HFF '强制值高字节
btSend(5) = &H0 '强制值低字节
Dim crc
Dim btCRCHi As Byte, btCRCLo As Byte
crc = CalCRC16Fast(btSend, 6, btCRCLo, btCRCHi)
btSend(6) = btCRCHi
btSend(7) = btCRCLo
ComK3.Output = CVar(btSend)
End Sub
④“读取IB0”按钮单击事件
'查表知I0.0的modbus地址为0000，从I0.0开始读取连续8位
Private Sub Command1_Click()
'发请求
Dim btSend(8) As Byte
btSend(0) = &H1 '目标站号
btSend(1) = &H2 '功能码
btSend(2) = &H0 'I0.0地址（0000）高字节
btSend(3) = &H0 'i0.0地址（0000）低字节
btSend(4) = &H0 '读取个数高字节
btSend(5) = &H8 '读取个数低字节
Dim crc
Dim btCRCHi As Byte, btCRCLo As Byte
crc = CalCRC16Fast(btSend, 6, btCRCLo, btCRCHi)
btSend(6) = btCRCHi
btSend(7) = btCRCLo
ComK3.Output = CVar(btSend)
'注意下面编写的接收过程很简单，要编写实际应用的监控程序来说需要更完善 Dim btReceive As Variant
With ComK3
Do
DoEvents
Loop Until .InBufferCount = 6
.InputLen = 6
btReceive = .Input
If btReceive(1) = &H2 Then '若正确，返回帧的第2个字节为功能码.实际上，此处应首先进行CRC校验
txtReceive.Text = Hex$(btReceive(3))
End If
End With
End Sub
A、读取数据(标准moｄbｕｓ协议） 地址默认为0ｘ0１,可以更改 1、读取数据 主机呼: ０１03 00 0０００ 01 840A 从机答: 0103 02 ＸX ＸX XＸ XX 上面02，XX等均为一个字节。数据为两个字节，高位字节在前。每帧的开头和结尾至少有３。5个字节时间的间隔. 2。读设备地址 ００20 CＲC (4个字节）(读取:00 2０ 0068) 00 20 Adress CRC （5个字节) 3．写设备地址 ０0 10 Adresｓ CRC (5个字节)（地址设为01:00 10 ０1 BD C0) 00 10CＲＣ?(4个字节）（返回：00 100０ 7Ｃ) 说明: １.读写地址命令的地址位必须是０0。 2。Adｒess为1个字节,范围为0－25５。 用户在为主机编程时,除了站号（地址)和ＣＲＣ校验码之外，其它字节的字符均采用上面的内容不变。主机格式中的读取点数为0１。从机回答帧中的功能码(03）和读单元字节数(０1）不变。
计算CＲC码的步骤: 1、预置16位寄存器为十六进制FFFＦ(即全为1）。称此寄存器为ＣRＣ寄存器; 2、把第一个8位数据与16位CRC寄存器的低位相异或,把结果放于CRＣ寄存器; 3、把寄存器的内容右移一位（朝低位)，用0填补最高位，并检查右移后的移出位; ４、如果最低位为0：重复第３步（再次移位） 如果最低位为1:CＲC寄存器与多项式A0０1(１0１００000 ０000 ００01）进行异或； 5、重复步骤3和４,直到右移8次，这样整个8位数据全部进行了处理; 6、重复步骤２到步骤5,进行下一步8位数据的处理; ７、最后得到的CＲＣ寄存器即为CRＣ码; 8、将ＣＲC结果放入信息帧时，将高低位交换,低位在前。 //*＊**＊*＊****＊＊**＊＊**＊＊＊＊＊**＊＊＊＊****＊*＊＊＊*＊***＊**＊＊＊＊****＊＊＊**＊＊＊*＊*＊**********＊*＊**＊***＊＊＊***＊*** //*＊名称：CRC16 //**说明:CＲＣ效验函数 ／/**形参：*p效验帧的指针帧长 dataｌen /／**返回值：效验字 /／*＊**＊＊＊***＊*＊＊＊＊**＊****＊*＊**＊***＊＊*＊****＊＊*＊*＊**＊＊*＊***＊＊****＊****＊＊＊＊＊*＊***＊**＊＊＊*＊**＊＊**＊*＊＊＊* ｕｎsignedｉnt CRC16（ｕnsigned chａr ＊ p, ｕint16 ｄaｔalen ) { unｓignｅd cｈar ＣRC16Lｏ,ＣRC16Hi,CL,CH，SaveHi，SａvｅLｏ； ｉｎt i,Flag; CRＣ16Lo =0ｘFF； CRC１6Hｉ＝ 0xFF; ＣL ＝ 0x01； CH= 0ｘＡ０; ｆor（ｉ=０；i
VB6.0的小程序计算器 对于刚入门学习VB6的朋友来说肯定会做些小程序吧，这里就是给大家演示个简单的计算器程序，仅供参考啦。 界面上加减乘除四个按钮分别是cmdAdd、cmdPlus、cmdMultiple、cmdDevide，小数点按钮是cmdDot，负号按钮是cmdMinuse，数字0～9为了偷懒，用了控件数组cmdNumber(0)~ cmdNumber(9)，上面txtShow是显示数字和结果用的，txtOperate是显示中间步骤的。 思路大致是这样，点加减乘除这类操作符的时候，把当前txtShow的值保存在模块变量mstrParam1里，同时把操作符保存到mstrOperate里，按等于号时把先把当前txtShow的值保存在模块变量mstrParam2里，然后对mstrParam1和mstrParam2进行运算，当然要记得设法把String转换成数值进行运算。 转换的过程要注意，这里是用的Variant数据类型，vParam1和vParam2都是Variant 类型，保存的是mstrParam1和mstrParam2的数值。之所以不用integer、long、double 这些标准类型，是因为这些类型都有大小限制，做出来用着不方便，VB最大的整型long才到 2147483647，这意味着计算器的计算结果只能限制在9位到10位。而Variant类型可以支持非常大的数，具体多大不清楚，但起码几十位是能够支持的。另外，最后算完的结果也要做格式化，因为如果数值非常大的话，VB会自动转成科学计数法，所以要用Format函数进行调整。 如果需要源代码的话在我百度空间里留言。https://www.doczj.com/doc/2f8982278.html,/zhaozhigang517
摘要 随着人类社会的发展，人类对知识的需求也不断地增长。在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就自然而然地在人们的生活中占据了一定的位置。绘本图书与其他普通图画书的区别在于绘本图书通常有独立的绘画著者，图画有个人风格，画面即情即景，可单幅成画，容易提高儿童读书的积极性。如何科学地管理绘本馆不但关系到读者求知的方便程度，也关系到绘本馆的发展，因此，开发一套完善的绘本图书馆管理系统就成不可少了，图书管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。 经过分析，使用Microsoft公司的Visual Basic6.0为开发工具，利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供级开发人员，使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。开发过程中不断修正和改进，直到形成用户满意的可行系统。 本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发本系统的详细过程，提出实现绘本图书馆信息管理、资源共享的基本目标，从而推动迈向数字化绘本图书馆的步伐，并阐述系统结构设计和功能设计，从绘本图书的入库登记到查询浏览，形成了一个整体自动化管理模式，从软件工程的角度进行了科学而严谨的阐述。 关键词：绘本；图书管理系统；Visual Basic6.0 I
Abstract With the development of society , Mankind need more knowledge also constantly increase, Under such circumstances, book gradually become the main path to obtain the knowledge of life, and library naturally occupied in people certainly position, how science ground the management library not only relate to the convenient degree that the reader beg to know, but also relate to the library that strategy of development, therefore, develop the management system of a perfect library can't little, Library management system is a typical management information system (MIS), which mainly includes the establishment of database and front-end application maintenance and development of the two. After analysis, the use of Microsoft's development tool Visual Basic6.0 for the use of its various kinds of object-oriented visual development platform as a development tool, object-oriented technology and graphical application development environment, especially its There is an extremely powerful level of integration environment to provide developers, allowing developers through the menu, interface, graphical browsing tools, dialog boxes, and a variety of embedded generators to easily complete a variety of complex operations. Development process, constantly revised and improved, until users are satisfied with it. This paper introduced under the Visual Basic6.0 the environment adoption" from top to bottom total programming, from the detailed process that bottom but up applied development" develop this system, from the step that but the push head into the arithmetic figure of the library, and shows the system construction design and function design, from the books of store in warehouse to register the search to view, books that issue from library card to angle of borrow , become a the whole automation the management the mode, and proceeds careful explain from the software engineering science. Keywords：library; borrow; search to view; Visual Basic6.0
计算器v b源代码 IMB standardization office【IMB 5AB- IMBK 08- IMB 2C】
计算器vb源代码.txt性格本身没有好坏，乐观和悲观对这个世界都有贡献，前者发明了飞机，后者发明了降落伞。完全版的前后台代码... '请把下面的保存为 VERSION Begin Calculator BorderStyle = 1 'Fixed Single Caption = "计算器" ClientHeight = 2970 ClientLeft = 2580 ClientTop = 1485 ClientWidth = 3270 ClipControls = 0 'False BeginProperty Font Name = "System" Size = Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "":0000 LinkMode = 1 'Source LinkTopic = "Form1" MaxButton = 0 'False PaletteMode = 1 'UseZOrder ScaleHeight = 2970 ScaleWidth = 3270 WhatsThisHelp = -1 'True Begin Number Caption = "7" Height = 480 Index = 7 Left = 120 TabIndex = 7 Top = 600 Width = 480 End
用VB编写一个简单的图书管理系统 Srl2011009（学号）石二辽（姓名）指导教师徐哲鑫 【摘要】笔者采用Visual Basic 为开发工具，设计一款具备友好的图形用户界面、简便操作的图书管理系统。充分利用计算机功能实现读者管理、书籍管理、借还书籍管理等信息的自动化控制，将使图书管理员从繁杂、重复的劳作中解放出来。 【关键词】图书；面向对象；软件工程 1概述 开发背景 用计算机管理图书馆里一切信息是一种计算机应用技术的创新,在计算机还未普及之前图书管理都是由图书管理人员手工记帐的方式来操作的.现在一般的图书馆都是采用计算机作为工具，使用实用的图书管理程序来帮助图书馆管理员进行更有效的图书管理。 图书管理系统产生的背景 图书管理系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于台数据库的建立和维护要求建立起数据一致性和完整性强、数据安全性好的库。而对于前端应用程序则要求应用程序具备功能完备、友好的图形用户界面、便捷使用等特点[1]。 系统功能要求的分析 开发本系统的总体任务是实现图书管理系统的系统化和自动化，帮助图书管理员更好更高效地完成图书管理工作，本系统要完成的功能主要有: 书籍管理部分:图书类别管理和图书信息管理。其中，书籍类别管理包括添加书籍类别、修改书籍类别、删除书籍类别等；书籍信息管理包括书籍信息的添加、修改、查询、删除等。 读者管理部分:读者类别管理和读者信息管理，读者类别管理包括读者类别添加、修改、删除等；读者信息包括读者添加读者信息、修改读者信息、查询读者信息、删除读者信息等。 借阅管理部分:借书信息管理和还书信息管理，借书信息管理、还书信息管理均包括其信息的添加、修改、查询等。 系统管理部分:添加管理员,修改密码,退出系统。 2开发环境及实现技术介绍
查看完整版本: [-- modbus协议及modbus RTU的C51程序--] 电子工程师之家-> 51单片机论坛-> modbus协议及modbus RTU的C51程序[打印本页]登录-> 注册-> 回复主 题-> 发表主题 一线工人2007-11-15 21:44 modbus协议及modbus RTU的C51程序 完整的程序请下载[attachment=1488] Modbus通讯协议 Modbus协议最初由Modicon公司开发出来，在1979年末该公司成为施耐德自动化(Schneider Automation)部门的一部分，现在Modbus已经是工业领域全球最流行的协议。此协议支持传统的RS-232、RS-422、RS-485和以太网设备。许多工业设备，包括PLC，DCS，智能仪表等都在使用Modbus协议作为他们之间的通讯标准。有了它，不同厂商生产的控制设备可以连成工业网络，进行集中监控。 当在网络上通信时，Modbus协议决定了每个控制器须要知道它们的设备地址，识别按地址发来的消息，决定要产生何种行动。如果需要回应，控制器将生成应答并使用Modbus协议发送给询问方。 Modbus 协议包括ASCII、RTU、TCP等，并没有规定物理层。此协议定义了控制器能够认识和使用的消息结构，而不管它们是经过何种网络进行通信的。标准的Modicon控制器使用RS232C实现串行的Modbus。Modbus的ASCII、RTU协议规定了消息、数据的结构、命令和就答的方式，数据通讯采用Maser/Slave方式，Master端发出数据请求消息，Slave端接收到正确消息后就可以发送数据到Master端以响应请求；Master端也可以直接发消息修改Slave端的数据，实现双向读写。 Modbus 协议需要对数据进行校验，串行协议中除有奇偶校验外，ASCII模式采用LRC校验，RTU模式采用16位CRC校验，但TCP模式没有额外规定校验，因为TCP协议是一个面向连接的可靠协议。另外，Modbus采用主从方式定时收发数据，在实际使用中如果某Slave站点断开后（如故障或关机），Master端可以诊断出来，而当故障修复后，网络又可自动接通。因此，Modbus协议的可靠性较好。 下面我来简单的给大家介绍一下，对于Modbus的ASCII、RTU和TCP协议来说，其中TCP和RTU协议非常类似，我们只要把RTU协议的两个字节的校验码去掉，然后在RTU 协议的开始加上5个0和一个6并通过TCP/IP网络协议发送出去即可。所以在这里我仅介绍一下Modbus的ASCII和RTU协议。
_ MODBUS 通讯协议说明 1. 通讯相关的参数 2．通讯说明 2.1 数据格式说明 控制器采用RS-485总线，协议符合ModBus 规约，数据格式有标准MODBUS-RTU 、 非标准MODBUS-RTU(16进制)和ASC(ASC Ⅱ码)3种格式。 数据传输均采用8位数据位、1位停止位、无奇偶校验位。波特率可设为2400、4800、9600和19200 bit/s 。 通讯传送分为独立的信息头，和发送的编码数据。以下的通讯传送方式定义与RTU 通讯规约相兼容： 2.2 非标准MODBUS-RTU(16进制)数据格式详细说明 下面以RTU(16进制)数据格式进行详细说明，ASC Ⅱ码数据格式只是把16进制代码 转换成ASC Ⅱ码字符。 地址码：这个字节表明由用户设定地址码的从机将接收由主机发送来的信息。并且每个从机都有具有唯一的地址码，并且响应回送均以各自的地址码开始。主机发送的地址码表明将发送到的从机地址，而从机发送的地址码表明回送的从机地址。 功能码：通讯传送的第二个字节。ModBus 通讯规约定义功能号为01H 到7FH 。本控制器利用其中的一部分功能码。作为主机请求发送，通过功能码告诉从机执行什么动作。作为从机响应，从机发送的功能码与从主机发送来的功能码一样，并表明从机已响应主机进行操作。如果从机发送的功能码的
最高位 (比如功能码大于7FH)，则表明从机没有响应操作或发送出错。 数据区：数据区是根据不同的功能码而不同。 CRC码：二字节的错误检测码。 当通讯命令发送至仪器时，符合相应地址码的设备接通讯命令，并除去地址码，读取信息，如果没有出错，则执行相应的任务；然后把执行结果返送给发送者。返送的信息中包括地址码、执行动作的功能码、执行动作后结果的数据以及错误校验码。如果出错就不发送任何信息。 2.2.2 信息帧格式： （1）地址码： 地址码是信息帧的第一字节(8位)，从1到255。这个字节表明由用户设置地址的从机将接收由主机发送来的信息。每个从机都必须有唯一的地址码，并且只有符合地址码的 从机才能响应回送。当从机回送信息时，相当的地址码表明该信息来自于何处。 （2）功能码： 主机发送的功能码告诉从机执行什么任务。表2列出的功能码都有具体的含义及操作。 （3 数据区包含需要从机执行什么动作或由从机采集的返送信息。这些信息可以是数值、参考地址等等。例如，功能码告诉从机读取寄存器的值，则数据区必需包含要读取寄存器 的起始地址及读取长度。对于不同的从机，地址和数据信息都不相同。 （4）错误校验码： 主机或从机可用校验码进行判别接收信息是否出错。有时，由于电子噪声或其它一些干扰，信息在传输过程中会发生细微的变化，错误校验码保证了主机或从机对在传送过程 中出错的信息不起作用。这样增加了系统的安全和效率。错误校验采用CRC-16校验方法。 注： 信息帧的格式都基本相同：地址码、功能码、数据区和错误校验码。 2.2.3 错误校验 参与冗余循环码（CRC）计算的包括：地址码、功能码、数据区的字节。 冗余循环码包含2个字节，即16位二进制。CRC码由发送设备计算，放置于发送信息的尾部。接收信息的设备再重新计算接收到信息的 CRC码，比较计算得到的CRC码是否与接收到的相符，如果两者不相符，则表明出错。 CRC码的计算方法是，先预置16位寄存器全为1。再逐步把每8位数据信息进行处理。在进行CRC码计算时只用8位数据位，起始位及停止位，如有奇偶校验位的话也包括奇偶校验位，都不参与CRC码计算。 在计算CRC码时，8位数据与寄存器的数据相异或，得到的结果向低位移一字节，用0填补最高位。再检查最低位，如果最低位为1，把寄存器的内容与预置数相异或，如果最低位为0，不进行异或运算。 这个过程一直重复8次。第8次移位后，下一个8位再与现在寄存器的内容相异或，这个过程与以上一样重复8次。当所有的数据信息处理完后，最后寄存器的内容即为CRC码值。 计算CRC码的步骤为： (1).预置16位寄存器为十六进制FFFF（即全为1）。称此寄存器为CRC寄存器； (2).把第一个8位数据与16位CRC寄存器的低位相异或，把结果放于CRC寄存器； (3).把寄存器的内容右移一位(朝低位)，用0填补最高位，检查最低位（注意：这时的最低位指移位前 的最低位，不是移位后的最低位）； (4).如果最低位为0：重复第3步(再次移位)
Dim sum As Double Dim flag1 As Integer Dim flag2 As Integer Public wen As Double Private Sub Command19_Click() Command24_Click Operator = Index NewEntry = True End Sub Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 wen = 0 Label1.Caption = "" Case 1 Text1.Text = Str(wen) Case 2 If Text1.Text = "" Then wen = 0 Label1.Caption = "" Else wen = Val(Text1.Text) Label1.Caption = "M" End If Text1.Text = "" Case 3 wen = Val(Text1.Text) + wen Label1.Caption = "M" End Select End Sub Private Sub Command12_Click() If Text1.Text <> "" Then
Text1.Text = Text1.Text * -1 Else MsgBox "输入不能为空！", vbOKOnly, "警告" Text1.SetFocus End If End Sub Private Sub Command16_Click() If InStr(Text1.Text, ".") = 0 Then Text1.Text = Text1.Text & "." Else Exit Sub End If End Sub Private Sub Command21_Click() Text1.Text = Str(Sqr(Val(Text1.Text))) End Sub Private Sub Command22_Click() sum = Text1.Text flag1 = 5 flag2 = 1 End Sub Private Sub Command23_Click() Text1.Text = Str(Val(Text1.Text / 1)) flag2 = 0 End Sub Private Sub Command24_Click() Select Case (flag1) Case 1 Text1.Text = sum + Text1.Text Case 2 Text1.Text = sum - Text1.Text Case 3 Text1.Text = sum * Text1.Text Case 4 If Text1.Text = 0 Then df = MsgBox("除数不能为零!请重新输入.", vbOKOnly + vbInformation, "警告") Text1.Text = "" Text1.SetFocus Exit Sub
要实现Modbus RTU通信， 一、需要STEP 7-Micro/WIN32 V3.2以上版本的编程软件，而且须安装STEP 7-Micro/WIN32 V3.2 Instruction Library（指令库）。Modbus RTU功能是通过指令库中预先编好的程序功能块实现的。 Modbus RTU从站指令库只支持CPU上的通信0口（Port0） 基本步骤： 1. 检查Micro/WIN的软件版本，应当是STEP 7-Micro/WIN V3.2以上版本。 2. 检查Micro/WIN的指令树中是否存在Modbus RTU从站指令库（图1），库中应当 包括MBUS_INIT和MBUS_SLAVE两个子程序。 如果没有，须安装Micro/WIN32 V3.2的Instruction Library（指令库）软件包； 1. 西门子编程时使用SM0.1调用子程序MBUS_INIT进行初始化，使用SM0.0调用 MBUS_SLAVE，并指定相应参数。 关于参数的详细说明，可在子程序的局部变量表中找到； 调用Modbus RTU通信指令库图中参数意义如下： a. 模式选择：启动/停止Modbus，1=启动；0=停止 b. 从站地址：Modbus从站地址，取值1~247 c. 波特率：可选1200，2400，4800，9600，19200，38400，57600，115200 d. 奇偶校验：0=无校验；1=奇校验；2=偶校验 e. 延时：附加字符间延时，缺省值为0 f. 最大I/Q位：参与通信的最大I/O点数，S7-200的I/O映像区为128/128， 缺省值为128 g. 最大AI字数：参与通信的最大AI通道数，可为16或32 h. 最大保持寄存器区：参与通信的V存储区字（VW） i. 保持寄存器区起始地址：以&VBx指定（间接寻址方式） j. 初始化完成标志：成功初始化后置1
MODBUS协议 Modbus是一种串行通信协议，是Modicon于1979年，为使用可编程逻辑控制器（PLC）而发表的。事实上，它已经成为工业领域通信协议标准，并且现在是工业电子设备之间相当常用的连接方式。M odbus比其他通信协议使用的更广泛的主要原因有： 公开发表并且无版税要求 相对容易的工业网络部署 对供应商来说，修改移动原生的位或字节没有很多限制 Modbus允许多个设备连接在同一个网络上进行通信，举个例子，一个由测量温度和湿度的装置，并且将结果发送给计算机。在数据采集与监视控制系统（SCADA）中，Modbus通常用来连接监控计算机和remote terminal unit (RTU)。 Modbus协议目前存在用于串口、以太网以及其他支持互联网协议的网络的版本。 大多数Modbus设备通信通过串口EIA-485物理层进行[1]。 对于串行连接，存在两个变种，它们在数值数据表示不同和协议细节上略有不同。Modbus RTU是一种紧凑的，采用二进制表示数据的方式，Modbus ASCII是一种人类可读的，冗长的表示方式。这两个变种都使用串行通讯（serial communication）方式。RTU格式后续的命令／数据带有循环冗余校验的校验和，而ASCII格式采用纵向冗余校验的校验和。被配置为RTU变种的节点不会和设置为ASCII变种的节点通信，反之亦然。
对于通过TCP/IP（例如以太网）的连接，存在多个Modbus/TCP 变种，这种方式不需要校验和的计算。 对于所有的这三种通信协议在数据模型和功能调用上都是相同的，只有封装方式是不同的。 Modbus 有一个扩展版本 Modbus Plus(Modbus+或者MB+)，不过此协定是Modicon专有的，和 Modbus不同。它需要一个专门的协处理器来处理类似HDLC的高速令牌旋转。它使用1Mbit/s的双绞线，并且每个节点都有转换隔离装置，是一种采用转换／边缘触发而不是电压／水平触发的装置。连接Modbus Plus到计算机需要特别的接口，通常是支持ISA（SA85）,PCI或者PCMCIA总线的板卡。 Modbus协议是一个 master/slave 架构的协议。有一个节点是master 节点，其他使用Modbus协议参与通信的节点是 slave 节点。每一个 slave 设备都有一个唯一的地址。在串行和MB+网络中，只有被指定为主节点的节点可以启动一个命令（在以太网上，任何一个设备都能发送一个Modbus命令，但是通常也只有一个主节点设备启动指令）。 一个ModBus命令包含了打算执行的设备的Modbus地址。所有设备都会收到命令，但只有指定位置的设备会执行及回应指令（地址 0例外，指定地址 0 的指令是广播指令，所有收到指令的设备都会执行，不过不回应指令）。所有的Modbus命令包含了检查码，以确定到达的命令没有被破坏。基本的ModBus命令能指令一个RTU改变
课程设计说明书正文 一、题目：计算器的创作和相应程序的编写 二、本题的主要功能：通过计算器的创作熟悉各控件的属性和练习程序的编写。 三、程序截图： 四、源程序清单： Begin VB.Form Form1 Caption = "计算器" ClientHeight = 3765 ClientLeft = 165 ClientTop = 855 ClientWidth = 5355 Icon = "Form1.frx":0000 LinkTopic = "Form1" LockControls = -1 'True ScaleHeight = 3765 ScaleWidth = 5355 StartUpPosition = 3 '窗口缺省 Begin https://www.doczj.com/doc/2f8982278.html,mandButton Command4 Caption = "=" Height = 495 Left = 4470 TabIndex = 28 Top = 3060
Width = 735 End Begin https://www.doczj.com/doc/2f8982278.html,mandButton Command3 Caption = "1/x" Height = 495 Left = 4470 TabIndex = 27 Top = 2520 Width = 735 End Begin https://www.doczj.com/doc/2f8982278.html,mandButton Command2 Caption = "%" Height = 495 Left = 4470 TabIndex = 26 Top = 1980 Width = 735 End Begin https://www.doczj.com/doc/2f8982278.html,mandButton Command1 Caption = "sqrt" Height = 495 Left = 4470 TabIndex = 25 Top = 1440 Width = 735 End Begin https://www.doczj.com/doc/2f8982278.html,mandButton cmbDOT Caption = "." Height = 495 Left = 2910 TabIndex = 24 Top = 3060 Width = 735 End
源程序清单 1、文件名 login(login.frm) 功能说明：整个系统的登陆界面，需要输入用户名和登陆密码才能进入到系统中，进行借阅等操作。 源代码： Option Explicit Dim cnt As Integer Private Sub Command1_Click() Dim sql As String Dim rs_login As New ADODB.Recordset If Trim(Combo1.Text) = "" Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" Combo1.SetFocus Else sql = "select * from 系统管理 where 用户名='" & Combo1.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" Combo1.SetFocus Else If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then userID = Combo1.Text rs_login.Close Unload Me form1.Show Else MsgBox "密码不正确", vbOKOnly + vbExclamation, "" txtpwd.SetFocus End If
End If cnt = cnt + 1 If cnt = 3 Then Unload Me End If Exit Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim connectionstring As String connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=book.mdb" conn.Open connectionstring cnt = 0 End Sub Private Sub txtuser_Change() End Sub 2、文件名 form1(form1.frm) 功能说明：整个系统的主界面，其中包括图书管理、读者管理、图书借阅管理、系统管理、关于，以及在这下面的子菜单。 源代码： Private Sub add_admin_Click() frmadduser.Show End Sub Private Sub add_back_book_Click() frmbackbookinfo.Show
什么是ModBusRTU通讯协议 Modbus协议最初由Modicon公司开发出来，在1979年末该公司成为施耐德自动化(Schneider Automation)部门的一部分，现在Modbus已经是工业领域全球最流行的协议。此协议支持传统的RS-232、RS-422、RS-485和以太网设备。许多工业设备，包括PLC，DCS，智能仪表等都在使用Modbus协议作为他们之间的通讯标准。有了它，不同厂商生产的控制设备可以连成工业网络，进行集中监控。 当在网络上通信时，Modbus协议决定了每个控制器须要知道它们的设备地址，识别按地址发来的消息，决定要产生何种行动。如果需要回应，控制器将生成应答并使用Modbus协议发送给询问方。 Modbus协议包括ASCII、RTU、TCP等，并没有规定物理层。此协议定义了控制器能够认识和使用的消息结构，而不管它们是经过何种网络进行通信的。标准的Modicon控制器使用RS232C实现串行的Modbus。Modbus的ASCII、RTU协议规定了消息、数据的结构、命令和就答的方式，数据通讯采用Maser/Slave方式，Master端发出数据请求消息，Slave端接收到正确消息后就可以发送数据到Master端以响应请求；Master端也可以直接发消息修改Slave 端的数据，实现双向读写。
Modbus协议需要对数据进行校验，串行协议中除有奇偶校验外，ASCII模式采用LRC校验，RTU模式采用16位CRC校验，但TCP模式没有额外规定校验，因为TCP协议是一个面向连接的可靠协议。另外，Modbus采用主从方式定时收发数据，在实际使用中如果某Slave站点断开后（如故障或关机），Master端可以诊断出来，而当故障修复后，网络又可自动接通。因此，Modbus协议的可靠性较好。 对于Modbus的ASCII、RTU和TCP协议来说，其中TCP和RTU协议非常类似，我们只要把RTU协议的两个字节的校验码去掉，然后在RTU协议的开始加上5个0和一个6并通过TCP/IP 网络协议发送出去即可。 （一）、通讯传送方式： 通讯传送分为独立的信息头，和发送的编码数据。以下的通讯传送方式定义也与ModBusRTU通讯规约相兼容： 初始结构= ≥4字节的时间 地址码= 1 字节 功能码= 1 字节 数据区= N 字节 错误校检= 16位CRC码
Option Explicit Const CC1 = 1E+28, CC2 = 0.000000000000001, CC3 = 100000000000000# Dim Op1, Op2 ' 预先输入操作数。 Dim DecFlag% ' 小数点存在吗？ Dim Klast ' 指示上一次按键事件的类型。 Dim OpFlag ' 指示未完成的操作。 Dim Kedt% ' 指示键入状态，0-未操作，1-算过，2-改过Dim MemNum ' 存储器 Dim Temp2 ' Function sqr28(a As V ariant) As V ariant Dim c As Double c = Sqr(a) If c > CC3 Or c < CC2 Then sqr28 = c Else sqr28 = CDec(Sqr(a)) sqr28 = sqr28 - (sqr28 * sqr28 - a) / sqr28 * 0.5 End If End Function Function cur28(a As V ariant) As V ariant Dim t As V ariant, c As Double c = Abs(a) ^ (1 / 3) If c > 1000000000# Or c < 0.000000001 Then cur28 = c * Sgn(a) Else cur28 = CDec(c) * Sgn(a) t = cur28 * cur28 cur28 = cur28 - (cur28 * t - a) / t / 3 End If End Function ' 存入存储器 Private Sub BtMS_Click() If Kedt = 2 Then GetOp1 MemNum = Op1 LabMem.Visible = MemNum <> 0 Kedt = 1 End Sub ' 取出存储器数据 Private Sub BtMr_Click() CancelEntry_Click Op1 = MemNum
目录 1登录窗体模块组成 (1) 2各窗体介绍 (1) 2.1登录窗口 (1) 2.2登录成功后的主窗口实现 (1) 2.3登录窗口 (1) 2.1登录窗口 (1) 2.1登录窗口 (1) 2.1登录窗口 (1) 2.1登录窗口 (1) 2.1登录窗口 (1) 2.1登录窗口 (1) 2.1登录窗口 (1) 2.1登录窗口 (1) 2.1登录窗口 (1) 2.1登录窗口 (1) I
I 1登录窗体模块组成 1登录窗口 2数据库连接定义窗口 3读者增加 4学生借书与查询历史窗口 5书籍借阅历史 6主窗口 7读者选择 8增加书籍 9书籍选择 10管理员增加 2各窗体介绍 在窗体Module1.vb 中定义了数据库的连接，每次读完数据库都将数据库连接关闭，在每次需要用到数据库的时候打开连接就可以了，以免以后每次用到数据库都要重新定义连接。其定义如下 Public constr As String = "User ID=sa; Password=; database=homework; server=(local)" Public mycon As New SqlConnection(constr) Public mycom As SqlCommand Public myda As SqlDataAdapter 2.1 登录窗口 图2登录窗口界面 其登录按钮代码为： If ComboBox1.Text = "" Or TextBox1.Text = "" Then MessageBox.Show("用户名或密码不能为空", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 此句的作用是判断用户名或者密码是否为空 Dim sqlstr As String = "select Count(*) from Administrator Where Name='"
MODBUS-RTU通讯协议简介 2008-10-10 17:27 1.1 Modbus协议简述 ACRXXXE系列仪表使用的是Modbus-RTU通讯协议，MODBUS协议详细定义了校验码、数据序列等，这些都是特定数据交换的必要内容。MODBUS协议在一根通讯线上使用主从应答式连接（半双工），这意味着在一根单独的通讯线上信号沿着相反的两个方向传输。首先，主计算机的信号寻址到一台唯一的终端设备（从机），然后，终端设备发出的应答信号以相反的方向传输给主机。 Modbus协议只允许在主机（PC，PLC等）和终端设备之间通讯，而不允许独立的终端设备之间的数据交换，这样各终端设备不会在它们初始化时占据通讯线路，而仅限于响应到达本机的查询信号。 1.2 查询—回应周期 1.2.1 查询 查询消息中的功能代码告之被选中的从设备要执行何种功能。数据段包含了从设备要执行功能的任何附加信息。例如功能代码03是要求从设备读保持寄存器并返回它们的内容。数据段必须包含要告之从设备的信息：从何寄存器开始读及要读的寄存器数量。错误检测域为从设备提供了一种验证消息内容是否正确的方法。 1.2.2 回应 如果从设备产生一正常的回应，在回应消息中的功能代码是在查询消息中的功能代码的回应。数据段包括了从设备收集的数据：如寄存器值或状态。如果有错误发生，功能代码将被修改以用于指出回应消息是错误的，同时数据段包含了描述此错误信息的代码。错误检测域允许主设备确认消息内容是否可用。 1.3 传输方式 传输方式是指一个数据帧内一系列独立的数据结构以及用于传输数据的有限规则，下面定义了与Modbus 协议– RTU方式相兼容的传输方式。 每个字节的位： · 1个起始位 · 8个数据位，最小的有效位先发送 ·无奇偶校验位 · 1个停止位 错误检测(Error checking)：CRC（循环冗余校验） 1.4 协议 当数据帧到达终端设备时，它通过一个简单的“端口”进入被寻址到的设备，该设备去掉数据帧的“信封”（数据头），读取数据，如果没有错误，就执行数据所请求的任务，然后，它将自己生成的数据加入到取得的“信封”中，把数据帧返回给发送者。返回的响应数据中包含了以下内容：终端从机地址(Address)、被执行了的命令(Function)、执行命令生成的被请求数据(Data)和一个校验码(Check)。发生任何错误都不会有成功的响应，或者返回一个错误指示帧。 1.4.1 数据帧格式 Address Function Data Check 8-Bits 8-Bits N x 8-Bits 16-Bits 1.4.2 地址（Address）域 地址域在帧的开始部分，由一个字节（8位二进制码）组成，十进制为0～255，