VB向天平发送数据问题 点击:669 | 回复:0



xiafei110

    
  • 精华:0帖
  • 求助:0帖
  • 帖子:7帖 | 11回
  • 年度积分:0
  • 历史总积分:137
  • 注册:2004年11月08日
发表于:2004-11-14 14:01:00
楼主
各位高手,我有电子天平一个,想用VB写程序控制他,怎么实现不了呢? 天平的各项参数如下: 串口通讯协议: 波特率:600;数据位:8位;起始位:1位;停止位:1位 数据格式: 起始空格:2位;数据7位;符号:3位;停止:1位;回车:1位 校验:无 输出引角内容:2--RXD 3--TXD 5--GND 6,8为外接作命令打印键 计算机可以通过RS232与其通讯,计算机下达命令有: 1BH+70H 发送数据 1BH+71H 校准 1BH+72H 计数 1BH+73H 清零 我的程序是这样的,各位看看是怎么回事,请各位帮帮忙, 我的邮箱xiafei110@sina.com: Private Sub Command1_Click() MSComm1.settings = "600,n,8,1" MSComm1.PortOpen = True End Sub Private Sub Command2_Click() MSComm1.PortOpen = False End Sub Private Sub Command3_Click() MSComm1.Output = "1BH+71H" End Sub Private Sub Command4_Click() MSComm1.Output = "1BH+71H" End Sub Private Sub Command5_Click() MSComm1.Output = "1BH+72H" End Sub Private Sub Command6_Click() MSComm1.Output = "1BH+73H" End Sub Private Sub Command7_Click() MSComm1.Output = "1BH+74H" End Sub Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent Case comEvCD Case comEvCTS Case comEvDSR Case comEvRing Text1.Text = Trim(MSComm1.Output) Case comEvSend End Select End Sub


热门招聘
相关主题

官方公众号

智造工程师