请教用vb最个界面来控制 plc和读取plc数据

1082

dickpigzhu

文章数：69

年度积分：50

历史总积分：1082

作者的所有帖子(69)

注册时间：2006/5/16

发站内信

发表于：2006/5/17 9:38:00

#0楼

本人是学自动控制的没学过vb, vb还是临时学了点才入门学校要求用vb 做界面在电脑上控制 plc 和读取plc数据就通过一根RS232的线连接电脑和 plc.. 现在就是通信方面还不是很懂,, 那位高手能够指点一下或者有这方面的小程序发给我让我自己来慢慢消化也可以
谢谢了本人qq 282328990
email: dickpigzhu@163.com

【方案】湿球温度——从传统的干湿计到现代湿度控制变量

只看该作者 | 赞[1] | 踩[0] | 引用 | 回复 | 编辑 | 推荐 | 举报 | 结帖 | 管理

911

sicoly

文章数：4

年度积分：50

历史总积分：911

作者的所有帖子(4)

注册时间：2006/6/6

发站内信

发表于：2006/6/6 18:32:00

#1楼

用以下代码好象可以与PLC可以通信到,你试试,一起探讨吧:
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
End Sub

Private Sub Command1_Click()
Dim Rdstr$
MSComm1.PortOpen = True
MSComm1.InputLen = 0

'（2）读取1#站PLC数据寄存器DO的内容
'指令序列代码格式为：ENQ 01 FF WR 0D000 01 CR LF
SendCom$ = Chr(5) + "01FFWRD6040001" + Chr(13) + Chr(10)
MSComm1.Output = SendCom '向PLC發出讀取D0數據命令字符串
Debug.Print SendCom$
Do While (i < 5000)
i = i + 1
Loop
DoEvents
Rdstr$ = 0
Debug.Print "1:" & Rdstr
Rdstr$ = MSComm1.Input '接收PLC發回數據
Debug.Print "2:" & Rdstr
rvd$ = Mid(Rdstr, 1, 5)
Debug.Print "3:" & rvd$
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
MSComm1.PortOpen = False
End Sub

【方案】压缩空气中的微生物滋生——您需要关注的三个问题|维萨拉

只看该作者 | 赞[1] | 踩[0] | 引用 | 回复 | 编辑 | 推荐 | 举报 | 管理