一直看到有些朋友在问ModBus主从站的通讯问题，今天抽空儿给大家发几篇。

事先申明，我是调用的主从站库，库本身并不是我编写的，我没有那么大的能耐。

另外，上位机是用VB编写，VB本身不是很熟，如果有什么错误，请大家海谅。

最后，这仅仅只是一个测试程序，如果各位想用到商业方面，还需要各位自己去完善。

说明：PLC从站，PC作主站，用ModBus协议进行通讯。PC机读取PLCVW区的数据；PC机还读取PLC内部I或者O地址的状态。

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

以下是PLC程序实现，方便贴出，已转换为STL

TITLE=程序注释

Network 1 // 网络标题

// 在第一个循环周期内初始化Modbus从站协议

LD SM0.1

CALL SBR3, 1, 12, 9600, 0, 0, 128, 32, 1000, &VB0, M10.1, MB11

Network 2

// 在每个循环周期内执行Modbus 从站协议

LD SM0.0

CALL SBR1, M10.2, MB12

Network 3

LD SM0.0

MOVW AIW0, VW100

/I +54, VW100

MOVW AIW2, VW102

/I +54, VW102 字串2

MOVW AIW4, VW104

/I +54, VW104

MOVW AIW6, VW106

/I +54, VW106

Network 4

LD SM0.0

= Q0.0

Network 5

LD I0.0

= Q0.1

Network 6

LD I0.1

= Q0.2

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

以下是VB源码

Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long

Dim x1

Dim p11, p12, p13, p14, p15, p16, p17, p18

Function CRC16(data() As Byte) As String

Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC寄存器

Dim CL As Byte, CH As Byte '多项式码&HA001

Dim SaveHi As Byte, SaveLo As Byte

Dim i As Integer

Dim Flag As Integer

CRC16Lo = &HFF

CRC16Hi = &HFF

CL = &H1

CH = &HA0

For i = 0 To UBound(data)

CRC16Lo = CRC16Lo Xor data(i) '每一个数据与CRC寄存器进行异或 字串5

For Flag = 0 To 7

SaveHi = CRC16Hi

SaveLo = CRC16Lo

CRC16Hi = CRC16Hi \ 2 '高位右移一位

CRC16Lo = CRC16Lo \ 2 '低位右移一位

If ((SaveHi And &H1) = &H1) Then '如果高位字节最后一位为1

CRC16Lo = CRC16Lo Or &H80 '则低位字节右移后前面补1

End If '否则自动补0

If ((SaveLo And &H1) = &H1) Then '如果LSB为1，则与多项式码进行异或

CRC16Hi = CRC16Hi Xor CH

CRC16Lo = CRC16Lo Xor CL

End If

Next Flag

Next i

Dim ReturnData(1) As Byte

ReturnData(0) = CRC16Hi 'CRC高位

ReturnData(1) = CRC16Lo 'CRC低位

CRC16 = ReturnData

End Function

Private Sub About_Click()

frmAbout.Show

End Sub

Private Sub Form_Load() '初始化

Timer1.Enabled = False '定时器1无效

Timer1.Interval = 1000 '定时器1时间为1S

Timer2.Enabled = True '定时器2有效

Timer2.Interval = 1000 '定时器2时间为1S