SST-PFB-CLX

【SST-PFB-CLX 伍德海德】

【SST-PFB-CLX 伍德海德】

廈門(mén)莫格電氣自動(dòng)化有限公司是一家多年專(zhuān)業(yè)銷(xiāo)售進(jìn)口自動(dòng)化系統（機器人系統、分布式控制系統DCS、可編程序控制器PLC、 工業(yè)控制通訊轉換器 、遠端輸出/輸入模塊、人機界面）備件。以停產(chǎn)控制系統零部件、為優(yōu)勢、我們有大量庫存和盈余操控系統零件、停產(chǎn)的控制系統部分硬件、我們也發(fā)布了許多新的硬件和產(chǎn)品來(lái)支持你現有的控制系統或運用的控制技術(shù)、停產(chǎn)的“DCS系統備品 備件 PLC模塊 備件”整機及配件系列、有著(zhù)強大的優(yōu)勢。只要您需要的PLC產(chǎn)品、我們就能幫您找到、公司價(jià)格優(yōu)勢。

    以“專(zhuān)業(yè)、 誠信、創(chuàng )新、合作、共贏(yíng)”的經(jīng)營(yíng)理念、不斷開(kāi)發(fā)新產(chǎn)品、為客戶(hù)提供優(yōu)質(zhì)服務(wù)、以zui大限度追求客戶(hù)滿(mǎn)意、并不斷開(kāi)拓新領(lǐng)域業(yè)務(wù)。

產(chǎn)品直接從境外進(jìn)貨、能夠提供不同國別、廠(chǎng)商的設備以及備件、解決您多處尋找的麻煩或對產(chǎn)品質(zhì)量問(wèn)題的擔心等、在價(jià)格上我們有很大的優(yōu)勢、產(chǎn)品詳細信息、竭誠歡迎您來(lái)電查詢(xún)！

【 伍德海德】

廈門(mén)莫格電氣自動(dòng)化有限公司

：雷琳

：/，

一直看到有些朋友在問(wèn)ModBus主從站的通訊問(wèn)題，今天抽空兒給大家發(fā)幾篇。

事先申明，我是調用的主從站庫，庫本身并不是我編寫(xiě)的，我沒(méi)有那么大的能耐。

另外，上位機是用VB編寫(xiě)，VB本身不是很熟，如果有什么錯誤，請大家海諒。

zui后，這僅僅只是一個(gè)測試程序，如果各位想用到商業(yè)方面，還需要各位自己去完善。

說(shuō)明：PLC從站，PC作主站，用ModBus協(xié)議進(jìn)行通訊。PC機讀取PLCVW區的數據；PC機還讀取PLC內部I或者O地址的狀態(tài)。

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

以下是PLC程序實(shí)現，方便貼出，已轉換為STL

TITLE=程序注釋

Network 1 // 網(wǎng)絡(luò )標題

// 在*個(gè)循環(huán)周期內初始化Modbus從站協(xié)議

LD SM0.1

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

Network 2 

// 在每個(gè)循環(huán)周期內執行Modbus 從站協(xié)議

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) '每一個(gè)數據與CRC寄存器進(jìn)行異或

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 '否則自動(dòng)補0

If ((SaveLo And &H1) = &H1) Then '如果LSB為1，則與多項式碼進(jìn)行異或

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 '定時(shí)器1無(wú)效

Timer1.Interval = 1000 '定時(shí)器1時(shí)間為1S

Timer2.Enabled = True '定時(shí)器2有效

Timer2.Interval = 1000 '定時(shí)器2時(shí)間為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 '以二進(jìn)制傳輸

MSComm1.RThreshold = 1 '

MSComm1.SThreshold = 0

MSComm1.InputLen = 0 '讀取接收緩沖器所有字符

MSComm1.OutBufferCount = 0 '清空發(fā)送緩沖區

MSComm1.InBufferCount = 0 '清空接收緩沖區

If MSComm1.PortOpen = False Then

Command3.Caption = "打開(kāi)串口"

Else

Command3.Caption = "關(guān)閉串口"

End If

End Sub

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click() '退出程序，定時(shí)器1無(wú)效

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 '打開(kāi)關(guān)閉按鈕顯示文字

Command3.Caption = "關(guān)閉串口"

Else

Command3.Caption = "打開(kāi)串口"

End If

If Err Then '打開(kāi)串口失敗，則顯示出錯信息

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 '定義動(dòng)態(tài)數組

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狀態(tà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 '定義動(dòng)態(tài)數組

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狀態(tà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 '定義動(dòng)態(tài)數組

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() '取時(shí)間，做延時(shí)用

Do '循環(huán)等待接收數據

DoEvents

If MSComm1.InBufferCount > 0 Then '串口有數據了

ReDataLen = MSComm1.InBufferCount '取數據長(cháng)度

av = MSComm1.Input '將串口數據取出來(lái)

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秒沒(méi)收完就不收了

ReceiveData = ""

Exit Function

End If

Loop

End Function

Private Function IReceiveData() As String '反回I狀態(tài)

Dim FGetData As String

Dim t1 As Long

Dim av As Variant

Dim i As Integer

Dim ReDataLen As Integer

FGetData = ""

t1 = GetTickCount() '取時(shí)間，做延時(shí)用

Do '循環(huán)等待接收數據

DoEvents

If MSComm1.InBufferCount > 0 Then '串口有數據了

ReDataLen = MSComm1.InBufferCount '取數據長(cháng)度

av = MSComm1.Input '將串口數據取出來(lái)

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秒沒(méi)收完就不收了

IReceiveData = ""

Exit Function

End If

Loop

End Function

Private Function QReceiveData() As String '反回Q狀態(tài)

Dim FGetData As String

Dim t1 As Long

Dim av As Variant

Dim i As Integer

Dim ReDataLen As Integer

FGetData = ""

t1 = GetTickCount() '取時(shí)間，做延時(shí)用

Do '循環(huán)等待接收數據

DoEvents

If MSComm1.InBufferCount > 0 Then '串口有數據了

ReDataLen = MSComm1.InBufferCount '取數據長(cháng)度

av = MSComm1.Input '將串口數據取出來(lái)

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秒沒(méi)收完就不收了

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