求教：VB与OMRON温控表通讯-专业自动化论坛-中国工控网论坛

求教：VB与OMRON温控表通讯点击：708 | 回复：2

精华：1099帖
求助：0帖
帖子：14392帖 | 54470回
年度积分：0
历史总积分：622
注册：2008年9月08日

发表于：2003-11-04 15:31:00

楼主

我正在试验用VB的mscomm控件与OMRON E5AK温控表通讯，DOS下的qbasic通了，但是VB中始终发送出去没有回应，线路没有问题。程序如下，请各位高手帮忙看看，先在这里谢过了！ Private Sub Command1_Click() fcs = 0 For ifcs = 1 To Len(Text1.Text) 这部分是验证计算 fcs = fcs Xor Asc(Mid$(Text1.Text, ifcs, 1)) 不会有问题 Next fcs1$ = Right$("0" + Hex$(fcs), 2) sd$ = Text1.Text & fcs1$ & Chr(42) MSComm1.Output = sd$ End Sub Private Sub Form_Load() MSComm1.PortOpen = True MSComm1.SThreshold = 1 MSComm1.RThreshold = 1 End Sub Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent Case comEvReceive Text2.Text = MSComm1.Input End Select end sub

分享到：

邀请回答

回复楼主

GaryLin

精华：0帖
求助：0帖
帖子：4帖 | 1186回
年度积分：0
历史总积分：1263
注册：2003年4月15日

发表于：2003-11-04 10:03:00

1楼

2, 3 脚对接试试, 看看是否有收到回应 (原先发出的信息).

回复引用举报

小戴

精华：0帖
求助：0帖
帖子：0帖 | 3回
年度积分：0
历史总积分：53
注册：2002年11月04日

发表于：2003-11-04 15:31:00

2楼

如果硬件连接没有问题,且通讯协议正确的话: Private Sub MSComm1_OnComm() 　　Select Case MSComm1.CommEvent 　　 Case comEvReceive 　　 Text2.Text = MSComm1.Input 　　 End Select 　　end sub 上面代码中,把Text2.Text=MSComm1.Input 改为 Text2.Text=Text2.Text+MSComm1.Input 试试

回复引用举报

热门招聘

﻿求教：VB与OMRON温控表通讯 ﻿点击：708 | 回复：2

求教：VB与OMRON温控表通讯点击：708 | 回复：2