Вывести значение таймера - VB
Формулировка задачи:
привет всем!!! тут надо вывести значение таймера в label и причем при каждом событии счетчик онулировался и начинал заново с нуля....
я visual basic не очень понимаю но если можно объясните
спасибо всем!!!!!
Решение задачи: «Вывести значение таймера»
textual
Листинг программы
Private Sub Timer1_Timer() Label4.Caption = Format(Now, "dd mm yyyy") Label7.Caption = Label7.Caption + 1 If Label7.Caption > 59 Then Label7.Caption = "0" Label6.Caption = Label6.Caption + 1 End If If Label6.Caption > 59 Then Label6.Caption = "0" Label5.Caption = Label5.Caption + 1 End If If Label5.Caption > 23 Then Label5.Caption = "0" Zero End Sub Private Sub Zero() If Len(Label7.Caption) < 2 Then Label7.Caption = "0" & Label7.Caption If Len(Label6.Caption) < 2 Then Label6.Caption = "0" & Label6.Caption If Len(Label5.Caption) < 2 Then Label5.Caption = "0" & Label5.Caption
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д