当前位置：工控论坛 > > 产品 > 自动化软件 > GE 数字集团软件

请问IFIX VBA中 如何实现变量见赋值 点击：5946 | 回复：3



zxdgon

    
  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 32回
  • 年度积分：0
  • 历史总积分：358
  • 注册：2006年9月01日
发表于：2011-04-26 21:36:05
楼主
如下一段程序 ; dim x as single ; x = readvalue “location” ; if x > 50 then ; writevalue x "test" ; 最后那句 我试验如果直接赋值 如：writevalue “10.0” “test” ; 没有问题 如果用 writevalue x “test” ; 就要报错 说未定义 还是啥的 如果把 x 改为 “x” 则要报数据转换错误。 请教一下，这段程序应该怎么写呀？谢谢
分享到：
收藏 邀请回答 回复楼主 举报



zxdgon

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 32回
  • 年度积分：0
  • 历史总积分：358
  • 注册：2006年9月01日
发表于：2011-04-26 21:37:25
1楼
该死 应该怎么换行呢？ 罢了 换行的地方 用 ；
回复 引用 举报

cmy289

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 34回
  • 年度积分：0
  • 历史总积分：167
  • 注册：2008年4月13日
发表于：2011-04-27 10:55:53
2楼

Dim a As Double
a = Fix32.Fix.R.F_CV
If a >50 Then

Fix32.Fix.W.F_CV = a

end if
End Sub 

回复 引用 举报

zxdgon

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 32回
  • 年度积分：0
  • 历史总积分：358
  • 注册：2006年9月01日
发表于：2011-04-28 17:01:16
3楼
引用cmy289 的回复内容：

Dim a As Double
a = Fix32.Fix.R.F_CV
If a >50 Then

Fix32.Fix.W.F_CV = a

end if
End Sub 




确实可行  多谢，
回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师