您現在所在的是：
PLC論壇
發表於：2026-04-15 02:31:48
#0樓
本人用的是三菱PLCf1s
想通過VB讀取D0數據，程序實現如下：
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)+"01FFWR0D000001"+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
但不能讀到D0數據，上麵程序有錯嗎？或者與PLC命令通信字符有錯嗎？
有些資料書上說還要設置PLC的D8120寄存器，我設了，還是不行.
還請高人指點指點!!
敬上!
想通過VB讀取D0數據，程序實現如下：
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)+"01FFWR0D000001"+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
但不能讀到D0數據，上麵程序有錯嗎？或者與PLC命令通信字符有錯嗎？
有些資料書上說還要設置PLC的D8120寄存器，我設了，還是不行.
還請高人指點指點!!
敬上!
發表於：2026-04-15 02:31:48
#1樓
在DoEvents處使用一段延時程序試試，再看看PLC上設定的響應時間是多少，我記得好像是100ms,如果不行那檢查PLC中的通訊錯誤繼存器是否有輸出，如有則說明程序中的協議有錯。
發表於：2026-04-15 02:31:48
#4樓
''ReadWordA(串行控件,站號，數據地址,要讀取的長度）
''例：ReadWordA comm,"01","D0001"
Public Function ReadWordA(comm As MSComm, StNo As String, Address As String, WordLen As String) As Long
Dim strT As String
On Error Resume Next
strT = chr(&h05) & StNo & "FF" & "WR" & "A" & Address & WordLen
strT = strT & Sumcheck(strT) ''
comm.OutBufferCount = 0
comm.RThreshold = Val(WordLen) * 4 + 8
comm.Output = strT
End Function
Public Function Sumcheck(chstr As String) As String ''計算校驗和
Dim hexl As Long
Dim i As Long
For i = 2 To Len(chstr)
hexl = hexl + Asc(Mid(chstr, i, 1))
Next i
Sumcheck = Right(Hex(hexl), 2)
End Function
[此貼子已經被作者於2026-04-15 02:31:48編輯過]
- • [視頻課程]一個小時教你學會升降輸送係統編程方法
- • [視頻課程]零基礎快速入門西門子S7-1500PLC
- • [視頻課程]西門子S7-200SMART如何快速找回原點
- • [視頻課程]三菱PLC程序進製轉化你懂了嗎
- • [視頻課程]台達DVP係列入門精講
- • [視頻課程]七節課帶你全麵認識西門子S7-1200
- • [視頻課程]西門子S7-1500TCPU應用
- • [視頻課程]西門子S7-1200與歐姆龍溫控儀表的自由口通信
- • [視頻課程]西門子S7-200SMART帶參數子程序使用詳解
78.0005