发表于:2004/3/31 21:50:00
#0楼
哪位好心人帮我分析分析为什么数据下传不下去呢?
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "19200,n,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()
Dim pag As String
pag = chr(&H01)+chr(&H05)+chr(&H00)+chr(&H00)+chr(&HFF)+chr(&H00)+chr(&H8C)+chr(&H3A
Mscomm1.output=pag
此功能指令信号为 SLAVE地址:01H;设备地址:05H;功能代码:00H、00H、FFH、00H;为数据段:8CH、3AH;为CRC校验码
我发送数据包时PLC老是没有任何响应,想着应该是格式不对的原因,请问发送数据包具体格式应该怎么写?
谢谢大家了
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "19200,n,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()
Dim pag As String
pag = chr(&H01)+chr(&H05)+chr(&H00)+chr(&H00)+chr(&HFF)+chr(&H00)+chr(&H8C)+chr(&H3A
Mscomm1.output=pag
此功能指令信号为 SLAVE地址:01H;设备地址:05H;功能代码:00H、00H、FFH、00H;为数据段:8CH、3AH;为CRC校验码
我发送数据包时PLC老是没有任何响应,想着应该是格式不对的原因,请问发送数据包具体格式应该怎么写?
谢谢大家了
财上平如水,人中直似衡。