当前位置：工控论坛 > 产品 > PLC > 西门子(Siemens)PLC
首页 上一页 1 2 3 下一页 尾页

vb6.0用ppi协议怎么让s7-200的q0.1或q0.0置1 点击：5213 | 回复：60



zhzhang9756

    
  • 精华：1帖
  • 求助：1帖
  • 帖子：2帖 | 15回
  • 年度积分：0
  • 历史总积分：76
  • 注册：2017年1月22日
发表于：2017-02-06 23:50:17
楼主
求助帖15分-未结帖

vb6.0或vba用ppi协议怎么让s7-200的q0.1或q0.0置1，具体怎么写？

===================================

更新，谢谢楼下各位大侠们的回复，问题已经解决。在这留个记号，给有同样疑问的朋友们，以下是按PPI协议编写的一小段VBA程序，是把数据写入QB0存储器，使Q0.7~Q0.0口得到不同的状态。至于怎么从S7-200里读数据，网上有很多介绍的，百度一下即可。在楼下我也转载一些我从网上查到的资料供大家参考。（以下程序用S7-200仿真模拟软件\IASIMU107B测试过，能正常使用，但还没有在S7-200上测试，等测试完如有变化再更新）：


Private Sub Q00_Click()
Q0_Value = &H1    ‘写给像我一样的PLC菜鸟：&H1是16进制的1，转换成八位二进制就是00000001，这是让Q 0.0=1；如果让Q0.1=1，则=&H2（八位二进制00000010）；让Q0.2=1，则=&H4（八位二进制00000100）；让Q0.1和Q0.0同时=1，则=&H3（八位二进制00000011）；这个值可以是&H0~&HFF中的任意一个值，使Q0.7~Q0.0得到得到不同的状态

Write_Q0 (Q0_Value)
End Sub

Sub Write_Q0(ByRef Q0_Value)

Dim str_write(0 To 37) As Byte
Dim str_val(0 To 5) As Byte
Dim haha As Byte
Dim i As Integer
Dim Temp_FCS As Variant

MSComm1.RThreshold = 24

str_write(0) = &H68
str_write(1) = &H20
str_write(2) = &H20
str_write(3) = &H68
str_write(4) = &H2
str_write(5) = &H0
str_write(6) = &H7C
str_write(7) = &H32
str_write(8) = &H1
str_write(9) = &H0
str_write(10) = &H0
str_write(11) = &H0
str_write(12) = &H0
str_write(13) = &H0
str_write(14) = &HE
str_write(15) = &H0
str_write(16) = &H5
str_write(17) = &H5
str_write(18) = &H1
str_write(19) = &H12
str_write(20) = &HA
str_write(21) = &H10
str_write(22) = &H2
str_write(23) = &H0
str_write(24) = &H1
str_write(25) = &H0
str_write(26) = &H1
str_write(27) = &H82
str_write(28) = &H0
str_write(29) = &H0
str_write(30) = &H0 ' 如果是改写Q0.x,这个地方就=&H0；如果是改写Q1.x，这个地方就是=&H8
str_write(31) = &H0
str_write(32) = &H4
str_write(33) = &H0
str_write(34) = &H8

str_write(35) = Q0_Value  'QB的值，也就是Q0.x或Q1.x的状态


For i = 4 To 35
    Temp_FCS = Temp_FCS + str_write(i)
    Next
str_write(36) = Temp_FCS Mod 256
str_write(37) = &H16
MSComm1.Output = str_write
Sleep (50)
str_val(0) = &H10
str_val(1) = &H2
str_val(2) = &H0
str_val(3) = &H5C
str_val(4) = &H5E
str_val(5) = &H16

MSComm1.Output = str_val
End Sub


Private Sub UserForm_Initialize()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,e,8,1"
MSComm1.InputLen = 0
MSComm1.RThreshold = 24
MSComm1.InputMode = comInputModeBinary
MSComm1.PortOpen = True
End Sub

分享到：
收藏 邀请回答 回复楼主 举报


楼主最近还看过



春华

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 6回
  • 年度积分：0
  • 历史总积分：36
  • 注册：2018年2月07日
发表于：2018-02-25 09:48:25
41楼

10楼大神，赞一个，很详细。

回复 引用 举报

国清才子贵

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 188回
  • 年度积分：0
  • 历史总积分：401
  • 注册：2017年12月24日
发表于：2018-04-01 10:45:47
42楼

谢谢分享，学习一下。

回复 引用 举报

小狼1225

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 43回
  • 年度积分：0
  • 历史总积分：101
  • 注册：2018年4月27日
发表于：2018-04-27 15:38:36
43楼
好东西，顶一个~~
回复 引用 举报

09lxy

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 97回
  • 年度积分：0
  • 历史总积分：101
  • 注册：2014年12月03日
发表于：2018-05-03 22:39:12
44楼
自由口通讯的都是大神
回复 引用 举报

凄凄切切去

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 43回
  • 年度积分：0
  • 历史总积分：97
  • 注册：2018年5月08日
发表于：2018-05-08 19:26:44
45楼
好帖子，学习了
回复 引用 举报

追梦的

  • 精华：0帖
  • 求助：0帖
  • 帖子：2帖 | 154回
  • 年度积分：419
  • 历史总积分：2037
  • 注册：2017年7月24日
发表于：2018-06-15 22:55:18
46楼

看看，看看，



回复 引用 举报

gk2017

  • 精华：0帖
  • 求助：1帖
  • 帖子：1帖 | 32回
  • 年度积分：33
  • 历史总积分：246
  • 注册：2018年6月19日
发表于：2018-06-19 22:34:25
47楼

学习了，感谢楼主

回复 引用 举报

54诛仙

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 130回
  • 年度积分：0
  • 历史总积分：89
  • 注册：2015年8月06日
发表于：2018-06-20 08:28:26
48楼

谢谢分享，顶楼主。

回复 引用 举报

童工工

  • 精华：0帖
  • 求助：0帖
  • 帖子：3帖 | 88回
  • 年度积分：6
  • 历史总积分：170
  • 注册：2015年11月21日
发表于：2018-08-15 16:29:01
49楼

原创的东西非常好的，。我个人比较支持的。。希望原创者更加出新的文章，让我们得到学习和帮助。谢谢你们原创的

回复 引用 举报

潸然泪下_

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 22回
  • 年度积分：0
  • 历史总积分：111
  • 注册：2018年9月26日
发表于：2018-09-26 10:29:11
50楼

学习了多谢分享

回复 引用 举报

LTJHRB

  • 精华：3帖
  • 求助：50帖
  • 帖子：544帖 | 5540回
  • 年度积分：84
  • 历史总积分：32339
  • 注册：2006年9月20日
发表于：2018-09-27 09:39:01
51楼

自由口通信！用PPI 干什么啊 …………

回复 引用 举报

QWERTY45066

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 69回
  • 年度积分：0
  • 历史总积分：101
  • 注册：2018年11月01日
发表于：2018-11-02 00:23:33
52楼


引用 Q339468465 的回复内容： 这种东西，百度一堆啊

-------------------------


回复 引用 举报

AutoCtrl888

  • 精华：0帖
  • 求助：0帖
  • 帖子：58帖 | 466回
  • 年度积分：55
  • 历史总积分：2401
  • 注册：2007年3月04日
发表于：2018-11-22 20:29:19
53楼

现成的可以用，没必要自己造轮子；

http://blog.sina.com.cn/s/blog_16d7d3ecb0102x1z5.html

回复 引用 举报

蓝天小子

  • 精华：0帖
  • 求助：0帖
  • 帖子：2帖 | 546回
  • 年度积分：58
  • 历史总积分：835
  • 注册：2018年8月07日
发表于：2018-12-07 15:07:04
54楼

这个是真的不懂啊

回复 引用 举报

l0ading

  • 精华：0帖
  • 求助：4帖
  • 帖子：6帖 | 120回
  • 年度积分：2
  • 历史总积分：697
  • 注册：2011年5月05日
发表于：2019-01-27 14:50:19
55楼

太多，慢慢看的

回复 引用 举报

张牟

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 145回
  • 年度积分：0
  • 历史总积分：113
  • 注册：2014年11月08日
发表于：2019-02-17 11:39:36
56楼

学习用，感谢楼主分享，大家一起学习

回复 引用 举报

张牟

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 145回
  • 年度积分：0
  • 历史总积分：113
  • 注册：2014年11月08日
发表于：2019-02-17 11:55:03
57楼

学习用，感谢楼主分享，大家一起学习

回复 引用 举报

gcm1213@163.com

  • 精华：0帖
  • 求助：0帖
  • 帖子：2帖 | 296回
  • 年度积分：0
  • 历史总积分：62
  • 注册：2016年3月07日
发表于：2019-04-04 13:08:09
58楼

谢谢学习学习。希望会很好

回复 引用 举报

apollo0719

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 48回
  • 年度积分：0
  • 历史总积分：58
  • 注册：2004年3月31日
发表于：2019-05-08 01:01:45
59楼

支持原创，感谢楼主。

回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师
    首页 上一页 1 2 3 下一页 尾页