Question

vb与欧姆龙plc通讯问题

Private Sub Form_Load()
MSComm1.CommPort = 2
MSComm1.Settings = "9600,e,7,2" '通信参数设置'
'MSComm1.InputMode = MSComm1.InputMode.Text '以文本方式接收数据'
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True '打开串口'
Call qk
End Sub
'向plc写入数据'
Private Sub butwrite_click()
Dim plcend As String
'Public Sub SetIR(N As Integer, m As Integer)
' Dim s As String
's = "@00WR" & Format$(N, "0000") & Right$("0000" + Hex$(m), 4)
'SendPLC s
'End Sub
'检验串口是否关闭,若串口已关闭,则打开它'
'plc必须处于编程状态才可以写入数据'
plcend = "@00sc00" '@"为"开始符"表示数据帧开始；"sc"为host-link指令；"00"表示下位plc的设备地址，ascii码表示[4]'
MSComm1.Output = plcend + fcs(plcend) + "*" + Chr$(13)
MSComm1.InBufferCount = 0
Dim outstring As String
outstring = "@00WR0001" + Trim(txtcontent.Text)
outstring = outstring + fcs(outstring) + "*" + Chr$(13) '采用异或校验，即fcs校验；"*+ chr$(13)"表示结束符，表示数据帧的结束，即"*↙"[4]。
MSComm1.InBufferCount = 0
MSComm1.Output = outstring '向plc发送数据
End Sub
'从plc读取数据
Private Sub butread_click()
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
Dim outstring, instring As String
outstring = "@00rr00100001"
outstring = outstring + fcs(outstring) + "*" + Chr$(13)
MSComm1.InBufferCount = 0
MSComm1.Output = outstring '向plc发送读取数据的命令
Dim i As Integer
Do While MSComm1.InBufferCount - t <= 14 Or i > 9000 'i为等待的时间
i = i + 1
Loop
'提取有用数据并显示
If i < 9000 Then
instring = MSComm1.Input
txtcontent.Text = "输出010通道的数据为" + Mid(instring, 8, 4)
Else
MsgBox ("读取失败")
End If
End Sub
'fcs校验
Function fcs(ByVal fcsstr As String) As String
Dim slen, i, xorresult As Integer
Dim tempfcs As String
slen = Len(fcsstr)
xorresult = 0
For i = 1 To slen
xorresult = xorresult Xor Asc(Mid$(fcsstr, i, 1))
Next i
tempfcs = Hex$(xorresult)
If Len(tempfcs) = 1 Then tempfcs = "0" + tempfcs
fcs = tempfcs
End Function
Private Sub Form_Terminate()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
End Sub
Private Sub qk()
txtcontent.Text = ""
Text2.Text = ""
End Sub
现在想把输入ir000写入，变成接通模式，怎么改呢？

Answer 1

太阳雨多年积攒极其珍贵的原创VB串口通信技术资料V3.0(800M)

VB串口通信编程源码200个,多种行业多种应用...
VB串口通信技术文章160篇,详尽地对VB串口通信的诠释...
VB串口通信电子书籍16部,工业通信名家著作,经典细致...
VB串口通信控件16个,简化串口通信编码,提高开发效率...
VB串口视频教程46个,两套完整视频教程,讲解直观,更快掌握...

超级赠品一:OSI网络模型教程48M
超级赠品二:串口硬件层知识大全资料包24M
超级赠品三:串口调试工具80个,应用于各种串口调试与校验计算...
超级赠品四:程序员发展类文章和书籍12部,帮助您的成长,健康和发展....
超级赠品五:更送虚拟串口调试软件, 帮助你在没有串口的电脑上也能正常调试...

你在淘宝搜索“太阳雨VB串口资料”就可以找到，希望可以帮助到你。
同时,还有"太阳雨VC串口资料"和"太阳雨DELPHI"串口资料...

Answer 2

直接数据线连接 下载 就可以