title image


Smiley Re: Timerproblematik
Hi,



nimm eine form, setze darauf ein Timer-Control, dann zwei Labels. Nenne eines: lblMin (für die Minuten), das Andere lblSek (für die Sekunden),



dann easy:







      

Option Explicit



Dim nDauer As Long



Private Sub Form_Load()

   nDauer = 540 * 60

   Timer1.Interval = 1000

   lblMin.Caption = 540

   lblSek.Caption = 0

   Timer1.Enabled = True

End Sub



Private Sub Timer1_Timer()

   nDauer = nDauer - 1

   lblMin.Caption = Format(nDauer \ 60, "00")

   lblSek.Caption = Format(nDauer Mod 60, "00")

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0




Programmierst Du noch frei oder wirst Du schon von Microsoft verwaltet ( .NET)?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: