Работа с таймером и Label - VB

Формулировка задачи:

Добрый день! Требуется код для такой программы: * Есть форма * На форме есть Label1, в котором отображено сколько прошло времени с момента включения ПК * На Label2 показывается обратный отчет от времени, которое задается в коде, например, 1 час * Как только время на Label2 истекает выходит предубеждение на Label3 * Через 5 минут ПК выключается

Код к задаче: «Работа с таймером и Label - VB»

textual
Option Explicit
Dim a As String
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Form_Load()
  Dim a_hour, a_minute, a_second
  a = Format(GetTickCount() / 1000, "0") 'всего секунд
  a_hour = Int(a / 3600)
  a = a - a_hour * 3600
  a_minute = Int(a / 60)
  a_second = a - a_minute * 60
  MsgBox "Ваш компьютер работает в эту загрузку " & Str(a_hour) & " часов " & Str(a_minute) & " минут" & Str(a_second) & " секунд"
End Sub
 
Private Sub Timer1_Timer()
    a = Format(GetTickCount() / 1000, "0")
    Label1.Caption = a
    If a > 60 * 60 * 3 Then MsgBox "Компьютер работает более 3-х часов"
End Sub

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

10   голосов, оценка 3.700 из 5


СОХРАНИТЬ ССЫЛКУ