作者gecer (gecer)
看板Visual_Basic
标题[VBA ]请问visual basic 2010如何跟delta plc通训
时间Sun Dec 1 14:01:45 2013
小弟初学 要开启M0
M0 address 是0800所以根据plc的datasheet 传送讯息为: 01 05 08 00 FF 00 F6 CR LF
小弟程式码如下
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim Port As String
SerialPort1.PortName = "COM6"
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 7
SerialPort1.Parity = IO.Ports.Parity.Even
SerialPort1.StopBits = 1
SerialPort1.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
SerialPort1.WriteLine(
":01050800FF00F6CRLF")
End Sub
End Class
不过plc没有反应 请问要如何修改程式 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 1.173.167.10
1F：推 johnpage:bin <> string 12/01 17:12
可以请教楼上是什麽意思吗?
※ 编辑: gecer 来自: 1.173.167.10 (12/01 18:45)
我知道了 CR LF要输入 chr(对应的ASCII) 另外LRC算错了 所以红色那一行是
":01050800FF00" & "F3" & Chr(13) & Chr(10)
※ 编辑: gecer 来自: 218.164.4.172 (12/02 16:21)
※ 编辑: gecer 来自: 218.164.4.172 (12/02 16:23)
※ 编辑: gecer 来自: 218.173.183.103 (12/03 08:57)