关于VB上位机问题 - 编程论坛

#2

wds12019-01-16 08:57

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

#3

飞翔的蚂蚁2019-01-16 10:11

回复楼主飞翔的蚂蚁

你好首先很感谢你的回复，还有一些问题需要请教，我现在想让我的这24段压力根据小时的不同分别写入其中一个和主控通讯的地址，与此同时想让我设置的这24段压力值可以保存在页面中，请问如何处理？其中我24段压力的地址为TXET(0)--TXET(23) 和主控通讯的地址为 TXET10 ，我现在在24段压力上写入数值，其中数值是不显示的，也不知道是否已经写入进去了，请指教，如果可以，我可以发你原程序代码，请帮忙更正一下，谢谢！！万分感谢！！会有报酬，谢谢！

只有本站会员才能查看附件，请登录

#4

wds12019-01-16 10:46

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

#5

飞翔的蚂蚁2019-01-22 08:18

很感谢！谢谢！