Работа с таймером и Label - VB
Формулировка задачи:
Добрый день!
Требуется код для такой программы:
* Есть форма
* На форме есть Label1, в котором отображено сколько прошло времени с момента включения ПК
* На Label2 показывается обратный отчет от времени, которое задается в коде, например, 1 час
* Как только время на Label2 истекает выходит предубеждение на Label3
* Через 5 минут ПК выключается
Решение задачи: «Работа с таймером и Label»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д