把程式發上來好嗎?
我也編過一個,讀D128數據的,但也不成功
Private Sub Form_Load()
MSComm1.ComPort=1
MSComm1.Settings="9600,N,8,1"
End Sub
Private Sub Command1_Click()
MSComm1.PortOpen=True
MSComm1.Inputlen=0
SendCom$=Chr(5)+"01FFWR0D012801"+Chr(13)+Chr(10)
MSComm1.Output=SendCom '向PLC發出讀取D0數據命令字符串
DoEvents
RdStr$=MSComm1.Input '接收PLC發回數據
Rvd$=Mid(RdStr,1,5)
If Rvd=Chr(2)+"01FF" Then '是否接收到
ACKStr$=Chr(6)+"01FF"
MSComm1.Output=ACKStr
RdStr=Val("&H"+Trim(Mid(RdStr,6,4))) '取出D0數據
Label1.Caption=RdStr
Msgbox "讀取正確",16
Else
Msgbox "讀取錯誤!",16
End If
End Sub
03-10-28 11:44