当前位置：工控论坛 > > 产品 > 工控机 > 研华工控机

研华Adam4017通讯问题，急！！！ 点击：3503 | 回复：10



罗开

    
  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 4回
  • 年度积分：0
  • 历史总积分：0
  • 注册：2007年12月10日
发表于：2004-12-12 11:19:00
楼主
关于研华ADAM4017的问题，我现在手上有个这东西，正在调试，急着做工程用，但我英文不太好看不懂说明书。我想写程序和它通信，能帮帮我吗？ > 关于研华ADAM4017的资料，最好是有例子，VB,的DElphi 的都行。小弟先谢了。 Private Sub Command1_Click() MSComm1.Output = "#010" + vbCr End Sub Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.Settings = "9600,n,8,1" MSComm1.PortOpen = True End Sub Private Sub Form_Unload(Cancel As Integer) MSComm1.PortOpen = False End Sub Private Sub MSComm1_OnComm() Text1.Text = MSComm1.Input End Sub 这是我用VB写的程序，发出后ADAM4017的灯闪了一下，但没有收到返回，请帮帮忙，谢谢
分享到：
收藏 邀请回答 回复楼主 举报



罗开

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 4回
  • 年度积分：0
  • 历史总积分：0
  • 注册：2007年12月10日
发表于：2004-12-12 12:52:00
1楼
帮帮忙啊，小弟真的是急死了啊。55555555555555555
回复 引用 举报

GaryLin

  • 精华：0帖
  • 求助：0帖
  • 帖子：4帖 | 1186回
  • 年度积分：0
  • 历史总积分：1263
  • 注册：2003年4月15日
发表于：2004-12-13 09:31:00
2楼
研华有一个叫 Adam Utility 的东西, 先去抓来用用, 可以帮您作基本的测试. 测试 OK 了, 再去研究您的程序.
回复 引用 举报

DAQCHINA

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 68回
  • 年度积分：0
  • 历史总积分：128
  • 注册：2004年1月02日
发表于：2004-12-13 19:46:00
3楼

Whatisthisthe quie

回复 引用 举报

罗开

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 4回
  • 年度积分：0
  • 历史总积分：0
  • 注册：2007年12月10日
发表于：2004-12-14 12:33:00
4楼
先谢谢GaryLin与DAQCHINA的回复 以经测试通过了，都以经读到了。 再次感谢二位的回复。Thanks！
回复 引用 举报

GaryLin

  • 精华：0帖
  • 求助：0帖
  • 帖子：4帖 | 1186回
  • 年度积分：0
  • 历史总积分：1263
  • 注册：2003年4月15日
发表于：2004-12-14 13:14:00
5楼
您实际上是遇到啥问题? 如何解决的? 给大伙分享一下您的经验吧! Thanks!
回复 引用 举报

罗开

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 4回
  • 年度积分：0
  • 历史总积分：0
  • 注册：2007年12月10日
发表于：2004-12-14 13:34:00
6楼
哦哦，我忙了说了。呵呵，其实就是接收时出的错。下面这句 Private Sub MSComm1_OnComm() Text1.Text = MSComm1.Input End Sub把这个改用在timer里就行了。 Private Sub Timer2_Timer() If MSComm1.InBufferCount > 3 Then Text1(8).Text = MSComm1.Input End Sub 就是这样就正常了。 再次感谢各位的回复，祝好运！
回复 引用 举报

dongwangpeng

  • 精华：0帖
  • 求助：0帖
  • 帖子：3帖 | 8回
  • 年度积分：0
  • 历史总积分：338
  • 注册：2004年1月29日
发表于：2004-12-30 13:37:00
7楼
Adam4017,通信格式可能要加和校验
回复 引用 举报

天涯海客

  • 精华：0帖
  • 求助：0帖
  • 帖子：9帖 | 18回
  • 年度积分：0
  • 历史总积分：52
  • 注册：2006年7月16日
发表于：2007-10-18 11:40:00
8楼
Private Sub MSComm1_OnComm()
　　Text1.Text = MSComm1.Input
End Sub

用这个OnCOMM 触发事件,你还没有定义接收多少个字符触发呢,当然不能接收到数据. 当然用定时器就不存在这个问题了.我也用这个东西.
回复 引用 举报

sunzhigang0101

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 14回
  • 年度积分：0
  • 历史总积分：16
  • 注册：2007年10月23日
发表于：2008-01-23 13:53:00
9楼
孙志刚         15963106335
————————————————————
济南研讯科技有限公司
地址：济南市二环东路3966号东环国际广场C座603室
直线：15963106335
总机：0531-83530880,1,2,3，83530884~5
传真：0531-83530885-8010/8015
网址：www.yanxunkj.com
研华：www.advantech.com.cn
MOXA；www.moxa.com.cn
MSN:  sunzhigang0101@hotmail.com
E-mail：sunzhigang0101@163.com

研华（中国）有限公司在山东地区的授权代理商，授权服务商 
 济南研讯科技有限公司负责研华全线产品（研华原装整机、数据采集卡、分布式I/O 摸块 一体化工作站、工业级显示器、工业级平板电脑、研华工业键盘、工业级单板电脑、嵌入式主板、工业通讯,工业I/O,人机界面）等在山东市场的销售及现场售后服务。
研华原装工控机全国联保，原装整机质保两年，第一年提供整机硬件故障现场服务。
回复 引用 举报

yzt8866

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 1回
  • 年度积分：0
  • 历史总积分：11
  • 注册：2010年5月12日
发表于：2010-08-18 22:24:48
10楼
adam4017+软件在那下载？
回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师