vb与fx的通讯问题,程序如下

908

dennyzx2003

文章数：2

年度积分：50

历史总积分：908

作者的所有帖子(2)

注册时间：2003/11/20

发站内信

发表于：2003/11/22 16:55:00

#0楼

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,e,7,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()
Dim a, av As String
a = "0010002" + Chr(3)
MSComm1.Output = Chr(5) + Chr(2) + a+ sumcheck(a)
av = MSComm1.Input
Print av
End Sub
为什么什么也接受不到,没有反应,清高手指点

【方案】台达VE系列变频器在数控加工中心上的应用

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

952

bcb0401

文章数：17

年度积分：50

历史总积分：952

作者的所有帖子(17)

注册时间：2003/4/27

发站内信

发表于：2003/11/23 9:27:00

#1楼

去这贴子看一下：贴子主题：請教高人，關於VB與PLC通信的問題(以下是我的代碼)!

【方案】英威腾IVC1 PLC在餐梯控制系统上的应用

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

1245

comszmz

文章数：114

年度积分：50

历史总积分：1245

作者的所有帖子(114)

注册时间：2003/8/29

发站内信

发表于：2003/11/25 14:39:00

#2楼

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,e,7,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()
Dim a, av As String
a = "0010002" + Chr(3)
MSComm1.Output = Chr(5) + Chr(2) + a+ sumcheck(a)
'以上這句改為:MSComm1.Output = Chr(2) + a+ sumcheck(a)即可!
av = MSComm1.Input
Print av
End Sub

【方案】基于 PC 的控制技术的灵活性可以最大限度地缩短开发时间

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

905

xnc51

文章数：2

年度积分：50

历史总积分：905

作者的所有帖子(2)

注册时间：2006/2/22

发站内信

发表于：2006/2/23 11:50:00

#3楼