中国自动化学会专家咨询工作委员会指定宣传媒体
免费注册 登录 广告服务 | 客服中心
您现在所在的是:

PLC论坛

抖音 德嘉 泓格论坛 FLIR红外热像论坛
工控论坛首页 PLC论坛 → 浏览主题: VB&PLC高手呀
发表新帖 回复该主题
回帖:6个,阅读:2841 [上一页] [1] [下一页]
* 帖子主题:

VB&PLC高手呀

分享到
1245
comszmz
文章数:114
年度积分:50
历史总积分:1245
注册时间:2003/8/29
发站内信
发表于:2003/11/3 17:16:00
#0楼
請教高人,關於VB與PLC通信的問題(以下是我的代碼)!
本人用的是三菱PLCf1s
想通過VB讀取D0數據,程序實現如下:
 Private Sub Form_Load()
   MSComm1.ComPort=1
   MSComm1.Settings="9600,N,8,1"
 End Sub

 Private Sub Command1_Click()
   MSComm1.PortOpen=True
   MSComm1.Inputlen=0
   SendCom$=Chr(5)+"01FFWR0D000001"+Chr(13)+Chr(10)
   MSComm1.Output=SendCom  '向PLC發出讀取D0數據命令字符串
   DoEvents
   RdStr$=MSComm1.Input    '接收PLC發回數據
   Rvd$=Mid(RdStr,1,5)    
   If Rvd=Chr(2)+"01FF" Then '是否接收到
      ACKStr$=Chr(6)+"01FF"
      MSComm1.Output=ACKStr
      RdStr=Val("&H"+Trim(Mid(RdStr,6,4))) '取出D0數據
      Label1.Caption=RdStr
      Msgbox "讀取正確",16
   Else
      Msgbox "讀取錯誤!",16
   End If
 End Sub
只能讀到一串中文亂碼,上面程序有錯嗎?或者與PLC命令通信字符有錯嗎?
有些資料書上說還要設置PLC的D8120寄存器,我設了,還是不行.
還請高人指點指點!!
  敬上!
1232
pedo
文章数:94
年度积分:50
历史总积分:1232
注册时间:2003/9/13
发站内信
发表于:2003/11/3 22:31:00
#1楼
好像MSComm1.Settings="9600,N,8,1" 应改为 "9600,E,7,1"。不过没试过!
                 皮多
1245
comszmz
文章数:114
年度积分:50
历史总积分:1245
注册时间:2003/8/29
发站内信
发表于:2003/11/8 17:40:00
#2楼
也是不行,只讀出一串中文亂碼
4061
利昌機電 版主
文章数:2023
年度积分:50
历史总积分:4061
注册时间:2003/10/26
发站内信
发表于:2003/11/8 18:03:00
#3楼
樓上有PLC (FX +OMRON + 永宏VB) 通訊範例程式 ,其中已經包含您所需的動作,說明部份為繁體中文,請自行轉換.
图
1245
comszmz
文章数:114
年度积分:50
历史总积分:1245
注册时间:2003/8/29
发站内信
发表于:2003/11/10 9:16:00
#4楼
謝謝利昌機電!請問PLC (FX +OMRON + 永宏VB) 通訊範例程式 支不支持Fx1s,因為現在急用!
4061
利昌機電 版主
文章数:2023
年度积分:50
历史总积分:4061
注册时间:2003/10/26
发站内信
发表于:2003/11/10 14:25:00
#5楼
呵呵...我還真沒注意呢!!
三菱fx系列cpu有三個type,我查資料做功課去了.
jum
图
1147
lifa58
文章数:81
年度积分:50
历史总积分:1147
注册时间:2003/5/21
发站内信
发表于:2003/12/12 16:20:00
#6楼
此楼内容不符合板块规定,不予显示! 查看原帖内容>>
工控学堂推荐视频:

关于我们 | 联系我们 | 广告服务 | 本站动态 | 友情链接 | 法律声明 | 非法和不良信息举报

工控网客服热线:0755-86369299
版权所有 工控网 Copyright©2024 Gkong.com, All Rights Reserved

78.0005