Вывести значение таймера - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.5 из 5
Похожие ответы