当前位置：工控论坛 > > 产品 > PLC > 罗克韦尔(AB)PLC

关于ab程序中一段vb程序问题 点击：898 | 回复：19



cpgz868

    
  • 精华：0帖
  • 求助：0帖
  • 帖子：30帖 | 130回
  • 年度积分：0
  • 历史总积分：670
  • 注册：2010年2月24日
发表于：2013-03-13 21:44:01
楼主
Private Sub Button3_Released()
Dim num
For num = 1 To Trend1.Pens.Count
Trend1.Pens.Remove (1)
Next

Dim pen1, pen2, pen3, pen4, pen5, pen6, pen7, pen8 As Pen

Dim Ps As Pens

Set Ps = Trend1.Pens

Set pen1 = Ps.Add("shiyan_bianliang\tank1_liuliang", "供热抽111汽压力", "MPa", 0, 1.6, "AIAO")
Set pen2 = Ps.Add("shiyan_bianliang\tank2_liuliang", "汽机至加111热蒸汽母管压力", "MPa", 0, 0.6, "AIAO")

End Sub
===============================================
====================================================
============================================================


请问一下，这个程序什么意思，有没什么出错的地方吗
分享到：
收藏 邀请回答 回复楼主 举报



zcb190813

  • 精华：0帖
  • 求助：1帖
  • 帖子：2帖 | 28回
  • 年度积分：0
  • 历史总积分：382
  • 注册：2012年10月14日
发表于：2013-03-13 21:52:43
1楼
路过   新手表示不懂 
回复 引用 举报

江湖混混-余 辉

  • [版主]
  • 精华：53帖
  • 求助：44帖
  • 帖子：3351帖 | 28451回
  • 年度积分：603
  • 历史总积分：131640
  • 注册：2006年4月25日
发表于：2013-03-13 23:16:30
2楼
这个可以请教一下论坛上的  酷客 高级工程师
回复 引用 举报

江湖走走--原创军团

  • [版主]
  • 精华：30帖
  • 求助：7帖
  • 帖子：836帖 | 7833回
  • 年度积分：193
  • 历史总积分：46108
  • 注册：2001年2月15日
发表于：2013-03-13 23:18:17
3楼

dim是定义变量语句，变量的意思就是在程序运行时开辟的一块临时数据存储区
dim的用法
   dim <标识符> 【as <类型>】
标识符就是这个变量的名字
变量引用方法：
    <标识符>=<数值或表达式> ‘给变量赋值
    <另一变量>=<标识符>        ‘取出变量值“送”到另一变量
所以，dim num就是定义一个名为num的“任何类型”变量！

 你这个程序应该是历史趋势图

回复 引用 举报

ngwjx

  • 精华：0帖
  • 求助：0帖
  • 帖子：3帖 | 19回
  • 年度积分：0
  • 历史总积分：0
  • 注册：1900年1月01日
发表于：2013-03-14 08:33:49
4楼
按一下BUTTON3按钮,历史趋势的笔自动加1,比如第一次是显示的pen1的历史趋势,按下button3后就会显示pen2趋势,等差递增.
回复 引用 举报

cpgz868

  • 精华：0帖
  • 求助：0帖
  • 帖子：30帖 | 130回
  • 年度积分：0
  • 历史总积分：670
  • 注册：2010年2月24日
发表于：2013-03-20 12:46:20
5楼

引用 ngwjx 的回复内容： 按一下BUTTON3按钮,历史趋势的笔自动加1,比如第... 

 现在就是有一个问题，这样指令移植修改成这样：放到自己按钮上，就是不能新增，why？

Private Sub Button3_Released()

Dim pen1, pen2, pen3, pen4, pen5, pen6, pen7, pen8 As Pen
Dim Ps As Pens

Set Ps = Trend1.Pens

Set pen1 = Ps.Add("shiyan_bianliang\tank1_liuliang", "励磁11111电压", "V", 0, 70)
Set pen2 = Ps.Add("shiyan_bianliang\tank2_liuliang", "励磁22222电流", "A", 0, 100)

End Sub

 

 

按钮名称是Button3    趋势的名称：Trend1

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

 

请高手帮忙一下，，，，，

 

回复 引用 举报

cpgz868

  • 精华：0帖
  • 求助：0帖
  • 帖子：30帖 | 130回
  • 年度积分：0
  • 历史总积分：670
  • 注册：2010年2月24日
发表于：2013-03-21 12:23:47
6楼

有谁知道呢么么么么么么 ***,,,,,,,,,,

回复 引用 举报

simonwu675

  • 精华：0帖
  • 求助：3帖
  • 帖子：11帖 | 794回
  • 年度积分：0
  • 历史总积分：2856
  • 注册：2009年11月23日
发表于：2013-03-21 12:51:53
7楼
少了一段循环的程序？                                
回复 引用 举报

cpgz868

  • 精华：0帖
  • 求助：0帖
  • 帖子：30帖 | 130回
  • 年度积分：0
  • 历史总积分：670
  • 注册：2010年2月24日
发表于：2013-03-21 20:55:09
8楼

引用 simonwu675 的回复内容： 少了一段循环的程序？                 ...

请高手指点一下，具体操作？

回复 引用 举报

cpgz868

  • 精华：0帖
  • 求助：0帖
  • 帖子：30帖 | 130回
  • 年度积分：0
  • 历史总积分：670
  • 注册：2010年2月24日
发表于：2013-03-21 20:56:12
9楼

引用 simonwu675 的回复内容： 少了一段循环的程序？                 ...

或者发个画面过来看看，，呵呵  万分感谢

回复 引用 举报

zxmsjj

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 455回
  • 年度积分：0
  • 历史总积分：4054
  • 注册：2009年5月26日
发表于：2013-03-21 21:26:01
10楼

路过   新手表示不懂 

回复 引用 举报

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 455回
  • 年度积分：0
  • 历史总积分：1000
  • 注册：2008年1月09日
发表于：2013-03-21 22:13:16
11楼

就是先将趋势中各条趋势线先删去,然后重新添加趋势线，也就是修改趋势线对应的变量，这里使用了动态修改了趋势线对应的变量

回复 引用 举报

cpgz868

  • 精华：0帖
  • 求助：0帖
  • 帖子：30帖 | 130回
  • 年度积分：0
  • 历史总积分：670
  • 注册：2010年2月24日
发表于：2013-03-22 12:46:53
12楼

引用  的回复内容： 就是先将趋势中各条趋势线先删去,然后重新添加趋势线，也... 

 现在就是我新建一个画面 放置1个趋势 1个按钮，然后通过按钮来添加趋势线，就是添加不上去，

语句如下：

Private Sub Button3_Released()

Dim pen1, pen2, pen3, pen4, pen5, pen6, pen7, pen8 As Pen
Dim Ps As Pens

Set Ps = Trend1.Pens

Set pen1 = Ps.Add("shiyan_bianliang\tank1_liuliang", "励磁11111电压", "V", 0, 70)
Set pen2 = Ps.Add("shiyan_bianliang\tank2_liuliang", "励磁22222电流", "A", 0, 100)

End Sub

 

请高手指点一下

 

回复 引用 举报

cpgz868

  • 精华：0帖
  • 求助：0帖
  • 帖子：30帖 | 130回
  • 年度积分：0
  • 历史总积分：670
  • 注册：2010年2月24日
发表于：2013-03-25 12:11:34
13楼

请高手指点一下***

回复 引用 举报

cpgz868

  • 精华：0帖
  • 求助：0帖
  • 帖子：30帖 | 130回
  • 年度积分：0
  • 历史总积分：670
  • 注册：2010年2月24日
发表于：2013-03-27 12:51:18
14楼

看来没有人知道啊。。。。。

回复 引用 举报

S11233

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 5回
  • 年度积分：0
  • 历史总积分：16
  • 注册：2013年3月12日
发表于：2013-03-27 14:07:43
15楼

本人大量求购西门子plc模块、数控模块、模拟量模块、触摸屏、、、、、、、、、主要包括西门子S7 200\300\400等系列产品   希望各位新老客户前来洽谈合作     QQ:1210732865     电话：18907143001

回复 引用 举报

y878739339

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 29回
  • 年度积分：0
  • 历史总积分：82
  • 注册：2011年10月28日
发表于：2013-03-27 22:05:52
16楼

你的按钮名称是叫Button3吗?你需要在点击新加的按钮上右键VBA..

回复 引用 举报

cpgz868

  • 精华：0帖
  • 求助：0帖
  • 帖子：30帖 | 130回
  • 年度积分：0
  • 历史总积分：670
  • 注册：2010年2月24日
发表于：2013-03-28 12:41:43
17楼

引用 y878739339 的回复内容： 你的按钮名称是叫Button3吗?你需要在点击新加的按... 

 按钮是Button3

回复 引用 举报

阿呆的中国梦

  • 精华：0帖
  • 求助：4帖
  • 帖子：12帖 | 220回
  • 年度积分：0
  • 历史总积分：162
  • 注册：2016年9月16日
发表于：2016-09-24 17:44:41
18楼

看看看看看看学习学习学习学习

回复 引用 举报

上官寒阳

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 33回
  • 年度积分：0
  • 历史总积分：5
  • 注册：2016年9月15日
发表于：2016-09-24 17:51:29
19楼

看看看看看看学习学习学习学习

回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师