请问问题出在哪里?

已锁定

ChenChon

  • 帖子

    11
  • 精华

    0
  • 被关注

    0

论坛等级:新手

注册时间:2003-06-06

普通 普通 如何晋级?

请问问题出在哪里?

643

5

2003-04-12 12:50:29

我用PC/PPi电缆与计算机相连,采用自由通信协议。用VB编程,PLC发回来在VB程序中接收正常,可是发送的始终不成功?请问是怎么回事?
程序如下:
主:
LD SM0.0
MOVB 9, SMB30 //自由通讯协议 9600bps
MOVB 16#A0, SMB87
MOVB 16#FF, SMB89
MOVB 100, SMB94
ATCH INT_0, 23 //若接收完成转中断1
ENI
RCV VB100, 0


INT_0:
NETWORK 1
LDB= SMB86, 16#20 //接收成功则接通线圈Q0.0
= Q0.0

VB程序定义了 发送按钮 文本框 使用 Microsoft Communications Control 控件通过串行口2进行发送。
程序如下:
Private Sub Exit_Click()
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
End Sub

Private Sub Form_Load()
Text1.Text = ""
With MSComm1
.CommPort = 2
.Settings = "9600,n,8,1" //通信设置为9600bps
.InputMode = comInputModeText
.RThreshold = 1
.InputLen = 0
.InBufferCount = 0
.OutBufferCount = 0 //串行口初始化
End With
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True //打开串行口
End Sub

Private Sub Send_Click()
MSComm1.Output = Text1.Text //发送所输入的字符
End Sub
请问问题出在哪里? 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC S7-200

共有33263条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
X 图片
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。