| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大牛一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 161 人关注过本帖
标题:请高手帮忙写个vb代码,实现当输入信号值时,点击计算得出电流值;当输入电 ...
只看楼主 加入收藏
穿越极速729
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2019-5-31
结帖率:50%
  已结贴   问题点数:10  回复次数:3   
请高手帮忙写个vb代码,实现当输入信号值时,点击计算得出电流值;当输入电流值时,点击计算得出信号值
求教高手:在信号类型中选择相应的信号(压力、差压、温度),输入已知最大值、最小值。当输入信号值时,点击计算得出电流值;当输入电流值时,点击计算得出信号值。信号类型中的各个信号,对应的计算公式各不同。请高手帮忙写个VB代码,
附件: 您没有浏览附件的权限,请 登录注册
2019-05-31 14:42
穿越极速729
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2019-5-31
  得分:0 
我是小白,求高手帮忙。谢谢!
2019-05-31 14:43
wufuzhang
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:广州
等 级:版主
威 望:4
帖 子:77
专家分:422
注 册:2017-8-9
  得分:10 
回复 2楼 穿越极速729
程序代码:
Option Explicit

Dim signalIndex As Byte

Private Sub Form_Load()
  Combo1.Clear
  Combo1.AddItem "请输入信号类型", 0
  Combo1.AddItem "压力", 1
  Combo1.AddItem "差压", 2
  Combo1.AddItem "温度", 3
  Combo1.ListIndex = 0
End Sub

Private Sub Command1_Click()
  signalIndex = Combo1.ListIndex
  Select Case signalIndex
    Case 1, 2, 3
      If Text3.Text <> "" Then
         Text4.Text = Val(Text3.Text) * signalIndex * (Val(Text2.Text) + Val(Text1.Text))
      Else
         Text3.Text = Val(Text4.Text) / signalIndex / (Val(Text2.Text) + Val(Text1.Text))
      End If
    Case Else
      MsgBox "请选择信号类型"
  End Select
End Sub

Private Sub Command2_Click()
  Unload Me
End Sub



信号值和电流值的计算公式互逆

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2019-05-31 19:23
穿越极速729
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2019-5-31
  得分:0 
回复 3楼 wufuzhang
非常感谢!
2019-06-01 09:27







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.025744 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved