SST-PFB-CLX

【SST-PFB-CLX 伍德海德】

【SST-PFB-CLX 伍德海德】

厦门莫格电气自动化有限公司是一家多年专业销售进口自动化系统（机器人系统、分布式控制系统DCS、可编程序控制器PLC、 工业控制通訊转换器 、远端输出/输入模块、人机界面）备件。以停产控制系统零部件、为优势、我们有大量库存和盈余操控系统零件、停产的控制系统部分硬件、我们也发布了许多新的硬件和产品来支持你现有的控制系统或运用的控制技术、停产的“DCS系统备品 备件 PLC模块 备件”整机及配件系列、有着强大的优势。只要您需要的PLC产品、我们就能帮您找到、公司价格优势。

    以“专业、 诚信、创新、合作、共赢”的经营理念、不断开发新产品、为客户提供优质服务、以zui大限度追求客户满意、并不断开拓新领域业务。

产品直接从境外进货、能够提供不同国别、厂商的设备以及备件、解决您多处寻找的麻烦或对产品质量问题的担心等、在价格上我们有很大的优势、产品详细信息、竭诚欢迎您来电查询！

【 伍德海德】

厦门莫格电气自动化有限公司

：雷琳

：/，

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

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

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

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

说明：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

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寄存器进行异或

For Flag = 0 To 7

SaveHi = CRC16Hi

SaveLo = CRC16Lo

CRC16Hi = CRC16Hi 2 '高位右移一位

CRC16Lo = CRC16Lo 2 '低位右移一位

If ((SaveHi And &H1) = &H1) Then '如果高位字节zui后一位为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

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text8.Text = ""

Text10.Text = ""

MSComm1.CommPort = 1 '设定端口号

MSComm1.Settings = "9600,n,8,1" '设定通讯波特率

MSComm1.InBufferSize = 1024 '接收缓冲器大

MSComm1.OutBufferSize = 1024 '输出缓冲器大

MSComm1.InputMode = comInputModeBinary '以二进制传输

MSComm1.RThreshold = 1 '

MSComm1.SThreshold = 0

MSComm1.InputLen = 0 '读取接收缓冲器所有字符

MSComm1.OutBufferCount = 0 '清空发送缓冲区

MSComm1.InBufferCount = 0 '清空接收缓冲区

If MSComm1.PortOpen = False Then

Command3.Caption = "打开串口"

Else

Command3.Caption = "关闭串口"

End If

End Sub

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click() '退出程序，定时器1无效

Timer1.Enabled = False

Cls

Unload Me

End Sub

Private Sub Command3_Click()

On Error Resume Next

If MSComm1.PortOpen = False Then

MSComm1.PortOpen = True

Else

MSComm1.PortOpen = False

End If

If MSComm1.PortOpen Then '打开关闭按钮显示文字

Command3.Caption = "关闭串口"

Else

Command3.Caption = "打开串口"

End If

If Err Then '打开串口失败，则显示出错信息

MsgBox Error$, 48, "错误信息"

Exit Sub

End If

End Sub

Private Sub Timer1_Timer() '读V存储区数据

Dim CRC() As Byte

Dim FGetData As String

Dim aa() As Byte

Dim s As String

Dim str As String

Dim i As Integer

Dim bb, cc As String

ReDim aa(5) As Byte '定义动态数组

aa(0) = &HC

aa(1) = &H3

aa(2) = &H0

aa(3) = &H32

aa(4) = &H0

aa(5) = &H4

CRC = CRC16(aa)

str = CRC

s = ""

For i = 1 To LenB(str)

s = s + Hex(AscB(MidB(str, i, 1)))

Next i

bb = Right(s, 2)

cc = Mid(s, 1, 2)

If Len(s) < 4 Then

cc = Mid(s, 1, 1)

End If

ReDim Preserve aa(0 To 7) As Byte

aa(6) = Val("&H" & bb)

aa(7) = Val("&H" & cc)

MSComm1.OutBufferCount = 0 '清空输出寄存器

MSComm1.Output = aa

FGetData = ReceiveData

Text5.Text = FGetData

p11 = Val("&H" & Mid(FGetData, 7, 4))

p12 = Val("&H" & Mid(FGetData, 11, 4))

p13 = Val("&H" & Mid(FGetData, 15, 4))

p14 = Val("&H" & Mid(FGetData, 19, 4))

End Sub

Private Sub Command4_Click() 'I状态

Dim CRC() As Byte

Dim FGetData As String

Dim aa() As Byte

Dim s As String

Dim str As String

Dim i As Integer

Dim bb, cc As String

ReDim aa(5) As Byte '定义动态数组

aa(0) = &HC

aa(1) = &H2

aa(2) = &H0

aa(3) = &H0

aa(4) = &H0

aa(5) = &H1

CRC = CRC16(aa)

str = CRC

s = ""

For i = 1 To LenB(str)

s = s + Hex(AscB(MidB(str, i, 1)))

Next i

bb = Right(s, 2)

cc = Mid(s, 1, 2)

If Len(s) < 4 Then

cc = Mid(s, 1, 1)

End If

ReDim Preserve aa(0 To 7) As Byte

aa(6) = Val("&H" & bb)

aa(7) = Val("&H" & cc)

MSComm1.OutBufferCount = 0 '清空输出寄存器

MSComm1.Output = aa

FGetData = IReceiveData

p17 = Val("&H" & Mid(FGetData, 7, 2))

p18 = Val("&H" & Mid(FGetData, 9, 2))

End Sub

Private Sub Command5_Click() 'Q状态

Dim CRC() As Byte

Dim FGetData As String

Dim aa() As Byte

Dim s As String

Dim str As String

Dim i As Integer

Dim bb, cc As String

ReDim aa(5) As Byte '定义动态数组

aa(0) = &HC

aa(1) = &H1

aa(2) = &H0

aa(3) = &H0

aa(4) = &H0

aa(5) = &H1

CRC = CRC16(aa)

str = CRC

s = ""

For i = 1 To LenB(str)

s = s + Hex(AscB(MidB(str, i, 1)))

Next i

bb = Right(s, 2)

cc = Mid(s, 1, 2)

If Len(s) < 4 Then

cc = Mid(s, 1, 1)

End If

ReDim Preserve aa(0 To 7) As Byte

aa(6) = Val("&H" & bb)

aa(7) = Val("&H" & cc)

MSComm1.OutBufferCount = 0 '清空输出寄存器

MSComm1.Output = aa

FGetData = QReceiveData

p15 = Val("&H" & Mid(FGetData, 7, 2))

p16 = Val("&H" & Mid(FGetData, 9, 2))

End Sub

Private Function ReceiveData() As String '返回V存储器区数据

Dim FGetData As String

Dim t1 As Long

Dim av As Variant

Dim i As Integer

Dim ReDataLen As Integer

FGetData = ""

t1 = GetTickCount() '取时间，做延时用

Do '循环等待接收数据

DoEvents

If MSComm1.InBufferCount > 0 Then '串口有数据了

ReDataLen = MSComm1.InBufferCount '取数据长度

av = MSComm1.Input '将串口数据取出来

For i = 0 To ReDataLen - 1

FGetData = FGetData & Right("00" & Hex(av(i)), 2)

Next i

End If

If Len(FGetData) >= 6 Then

If Len(FGetData) > Val("&H" & Mid(FGetData, 5, 2)) * 2 + 8 Then

ReceiveData = FGetData

Exit Function

End If

End If

If GetTickCount - t1 > 2000 Then '2秒没收完就不收了

ReceiveData = ""

Exit Function

End If

Loop

End Function

Private Function IReceiveData() As String '反回I状态

Dim FGetData As String

Dim t1 As Long

Dim av As Variant

Dim i As Integer

Dim ReDataLen As Integer

FGetData = ""

t1 = GetTickCount() '取时间，做延时用

Do '循环等待接收数据

DoEvents

If MSComm1.InBufferCount > 0 Then '串口有数据了

ReDataLen = MSComm1.InBufferCount '取数据长度

av = MSComm1.Input '将串口数据取出来

For i = 0 To ReDataLen - 1

FGetData = FGetData & Right("00" & Hex(av(i)), 2)

Next i

End If

If Len(FGetData) >= 6 Then

If Len(FGetData) > Val("&H" & Mid(FGetData, 5, 2)) * 2 + 8 Then

IReceiveData = FGetData

Exit Function

End If

End If

If GetTickCount - t1 > 2000 Then '2秒没收完就不收了

IReceiveData = ""

Exit Function

End If

Loop

End Function

Private Function QReceiveData() As String '反回Q状态

Dim FGetData As String

Dim t1 As Long

Dim av As Variant

Dim i As Integer

Dim ReDataLen As Integer

FGetData = ""

t1 = GetTickCount() '取时间，做延时用

Do '循环等待接收数据

DoEvents

If MSComm1.InBufferCount > 0 Then '串口有数据了

ReDataLen = MSComm1.InBufferCount '取数据长度

av = MSComm1.Input '将串口数据取出来

For i = 0 To ReDataLen - 1

FGetData = FGetData & Right("00" & Hex(av(i)), 2)

Next i

End If

If Len(FGetData) >= 6 Then

If Len(FGetData) > Val("&H" & Mid(FGetData, 5, 2)) * 2 + 8 Then

QReceiveData = FGetData

Exit Function

End If

End If

If GetTickCount - t1 > 2000 Then '2秒没收完就不收了

QReceiveData = ""

Exit Function

End If

Loop

End Function

Private Sub Timer2_Timer()

x1 = x1 + 1

Text10.Text = str(x1)

Text1.Text = str(p11)

Text2.Text = str(p12)

Text3.Text = str(p13)

Text4.Text = str(p14)

Text7.Text = str(p15)

If Text7.Text = 1 Then Text7.BackColor = RGB(255, 0, 255)

If Text7.Text = 0 Then Text7.BackColor = RGB(0, 255, 255)

'Text6.Text = str(p16)

Text9.Text = str(p17)

If Text9.Text = 1 Then Text9.BackColor = RGB(255, 0, 255)

If Text9.Text = 0 Then Text9.BackColor = RGB(0, 255, 255)

'Text8.Text = str(p18)

End Sub

XD50-FC
XD50-FCL
XDL505
XCL5010
5134685-100
5141598-100
51304685-150
51401598-150
51304518-150
51304493-250
51304493-150
51304493-100
51304419-150
51304419-100
51304501-100
51303979-550
51401497-100
51401469-100
51190916-104
51109693-100B
51201397-004
51201397-002
51195153-005
51201420-005
51201420-003
51201421-100
51195479-200
51201420-002
51201420-004
51308111-002
51109806-002
51304487-100
RM7895 C 1012
XL50A-MMI-EP
XD508-F
51401216-100
W7704D1016
W7704A1004
N2024-2POS
XFL523B
XF524B
XSL514
XSL511
T7560A1000
T7412A1018
XSL513
DPS400
DPT1000
DPT400
DPT50
XFL524B
XFL523B
XFL521B
HC900
621-0025RC
621-9938RC
51402573-250
51402573-150
TC-CCR013
TC-CCR011
TC-CCN013
TC-OAV081
TC-IAH161
900C52-0021
SP/FW/PS413
1007051
51305381-500
51305776-100
SDI-1624
51405040-175
51405038-375
51308386-175
51308371-175
51306773-175
51401546-100
VLC-853C3
VLC-853
51304260-200
51304487-100
900C32-0021
900P02-0001
51401529-100C
51304190-300
51304069-100
51303939-100
51401547-100
51303926-100
51304467-100
51401491-100
51401491-100/MU-TAMT02
51304441-100/MU-TDID12
51304650-100/MU-TD0D13
38001704-100
51304084-100/MU/MC-TP
51304338-100
51304335-100 MU-TAX12
38001680-100
51304453-150
51304672-100
51304672-150
51304493-200
51304754-100
51309152-175
900r12-0001
51304386-100
900C53-0021
900G02-0001
51304672-100
51304485-100
51304754-100
51304481-100
51303970-500
51304260-400
51304518-100
51304672-150