发表于:2004/2/18 18:33:00
#0楼
使用FX2N-485-BD如何使电脑与三菱PLC(FX2N-48MR) 通信?
电脑端:UOTEK 公司的UT-201型号 RS2323/RS485转换器
PLC 端:FX2N-485-BD
两者接线如下:
RS232/RS485 FX2N-485-BD
T/R+ -----------------> RDA
T/R- -----------------> RDB
FX2N-485-BD其他接线端子(SDA、SDB、SG)还须如何接线?
PLC的梯形图简单示例如下:
| M8002
|---| |---------|------------------------------[MOV H1B81 D8120]
| |
| |------------------------------[MOV H0001 D8121]
|
|---[= D200 K1]-------------------------------------(Y1)
|
|
|---------------------------------------------------[END]
|
上位机用VB6.0编程,简单示例如下:
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.Handshaking = 0
MSComm1.InputLen = 0
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
MSComm1.PortOpen = True
End Sub
Private Sub Command4_Click()
MSComm1.Output = Chr(5) + "00FFRR0" + SumCheck("00FFRR0")
TimeDelay 100 不清 ‘为一延时函数。
Text1.Text = MSComm1.Input
End Sub
Function SumCheck(Data$) As String
'和检验函数
Dim i&
Dim Check&
For i = 1 To Len(Data)
Check = Check + Asc(Mid(Data, i, 1))
Next
SumCheck = Right(Hex$(Check), 2)
End Function
上面VB程序如果是使用FX-232-BD连接电脑与三菱PLC(FX2N系列),PLC梯形图中
设置D8120的值为:H6881,通信正常,电脑能监控PLC.
但这里使用RS485通信方式,用上面的程序与设置,结果电脑与PLC不能正常通信。
请教哪位大侠,如何解决上面的问题。谢谢!!
电脑端:UOTEK 公司的UT-201型号 RS2323/RS485转换器
PLC 端:FX2N-485-BD
两者接线如下:
RS232/RS485 FX2N-485-BD
T/R+ -----------------> RDA
T/R- -----------------> RDB
FX2N-485-BD其他接线端子(SDA、SDB、SG)还须如何接线?
PLC的梯形图简单示例如下:
| M8002
|---| |---------|------------------------------[MOV H1B81 D8120]
| |
| |------------------------------[MOV H0001 D8121]
|
|---[= D200 K1]-------------------------------------(Y1)
|
|
|---------------------------------------------------[END]
|
上位机用VB6.0编程,简单示例如下:
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.Handshaking = 0
MSComm1.InputLen = 0
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
MSComm1.PortOpen = True
End Sub
Private Sub Command4_Click()
MSComm1.Output = Chr(5) + "00FFRR0" + SumCheck("00FFRR0")
TimeDelay 100 不清 ‘为一延时函数。
Text1.Text = MSComm1.Input
End Sub
Function SumCheck(Data$) As String
'和检验函数
Dim i&
Dim Check&
For i = 1 To Len(Data)
Check = Check + Asc(Mid(Data, i, 1))
Next
SumCheck = Right(Hex$(Check), 2)
End Function
上面VB程序如果是使用FX-232-BD连接电脑与三菱PLC(FX2N系列),PLC梯形图中
设置D8120的值为:H6881,通信正常,电脑能监控PLC.
但这里使用RS485通信方式,用上面的程序与设置,结果电脑与PLC不能正常通信。
请教哪位大侠,如何解决上面的问题。谢谢!!