• Home
 · 
• Miscellaneous
 · 
• Counter. If you want to see how much time left to a dead-line, you can use this code.

Counter. If you want to see how much time left to a dead-line, you can use this code.

Counter. If you want to see how much time left to a dead-line, you can use this code.

Rate Counter. If you want to see how much time left to a dead-line, you can use this code.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'If you want to see how much time left to a dead-line, you can use this code.
'
'This is code of a form.
'All you need to do:
'Make a form. Put Text1,Text2,text3 (Text fields next to each other); Timer1, Label1, Command1
'Put this code to the Form1
'
Dim s, m, g As Long
Dim t As Long
Dim ss, mm, gg As Long

Private Sub Command1_Click()
t = Text1 * 60 * 60 + Text2 * 60 + Text3
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
Command1.Caption = "START!"
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()

t = t - 1

If t <= 59 Then
Label1.Caption = "00:00:" & Str(t)
End If

If 59 < t < 3600 Then
m = Int(t / 60)
s = t - (m * 60)
Call displayed
Label1.Caption = "00:" & mm & ":" & ss
End If

If t > 3599 Then
g = Int(t / 60 / 60)
m = t - (60 * g * 60)
m = Int(m / 60)
s = t - (60 * m) - (60 * 60 * g)
    
Call displayed

Label1.Caption = gg & ":" & mm & ":" & ss

End If

'Check code
Form1.Print "t = " & t
Form1.Print "g = " & g
Form1.Print "m = " & m
Form1.Print "s = " & s
Form1.Print ""
'End of check code

If t = 0 Then
Timer1.Enabled = False
MsgBox ("Time's up!")
End If


End Sub

Sub displayed()
If s > 9 Then
ss = Str(s)
Else: ss = "0" & Str(s)
End If

If m > 9 Then
mm = Str(m)
Else: mm = "0" & Str(m)
End If

If s = 60 Then ss = "00"
If m = 60 Then mm = "00"

If g > 9 Then
gg = Str(g)
Else: gg = "0" & g
End If

End Sub