| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 313 人关注过本帖
标题:关于VB上位机问题
只看楼主 加入收藏
飞翔的蚂蚁
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2019-1-15
结帖率:100%
  已结贴   问题点数:20  回复次数:4   
关于VB上位机问题
本人新手  现在是做变频器的控制,现在想进行设置24段压力值,根据时间每个小时运行不同的压力,请问这个怎么做?希望有详细的代码!!谢谢!
2019-01-15 18:44
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:36
帖 子:347
专家分:1840
注 册:2016-3-10
  得分:0 
Private Sub Form_Load()
  Timer1.Interval = 1000
  Timer1.Enabled = True
End Sub
设置一个timer,可以设置1秒检测一次
Private Sub Timer1_Timer()
  Text1.Text = "当前时间:" & Format(Now(), "YYYY-MM-DD HH:MM:SS")'显示当前时间
  Select Case Hour(Now)'选择当前小时
  Case 0
   '控制0点执行
  Case 1
   '控制1点执行
  Case 2
  ....
  Case 22
  Case 23
  End Select
End Sub
2019-01-16 08:57
飞翔的蚂蚁
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2019-1-15
  得分:0 
回复 楼主 飞翔的蚂蚁
你好  首先很感谢你的回复,还有一些问题需要请教,我现在想让我的这24段压力根据小时的不同分别写入其中一个和主控通讯的地址,与此同时想让我设置的这24段压力值可以保存在页面中,请问如何处理?其中我24段压力的地址为TXET(0)--TXET(23)  和主控通讯的地址为  TXET10  ,我现在在24段压力上写入数值,其中数值是不显示的,也不知道是否已经写入进去了,请指教,如果可以,我可以发你原程序代码,请帮忙更正一下,谢谢!!万分感谢!!会有报酬,谢谢!
附件: 您没有浏览附件的权限,请 登录注册
2019-01-16 10:11
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:36
帖 子:347
专家分:1840
注 册:2016-3-10
  得分:20 
Public cur_hour

Private Sub Form_Load()
  For i = 0 To 23
    Text1(10) = 10 '假设你的24个压力值为0-23,也可以手动赋值
  Next
End Sub

Private Sub Command1_Click() '使能按钮
  cur_hour = Val(Hour(Now)) '选择当前小时
  Text10.Text = Text1(cur_hour) '选择当前小时压力值赋值给text10
  Call set1 '进行第一次压力处理
  Timer1.Interval = 1000 '开启定时器
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  If cur_hour <> Val(Hour(Now)) Then '如果是同一小时,不做处理
    cur_hour = Val(Hour(Now)) '记录当前小时,执行压力处理
    Text10.Text = Text1(cur_hour) '选择当前小时压力值赋值给text10
    Call set1
  End If
End Sub

Private Sub set1()
  '压力处理程序
End Sub


2019-01-16 10:46
飞翔的蚂蚁
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2019-1-15
  得分:0 
很感谢 !谢谢!
2019-01-22 08:18







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

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