Timer Nesnesiyle Uzun Zaman Hesabı

EftelyA · 18 Şub 2008

Timer nesenesinin interval bölümüne 24 saat yazamıyorsanız işte çözüm...

1 tane timer 1 tane label kullanıcaz.

Timer'ın intervalını 1 dk yapıcaz ve

Private Sub Form_Load()
Label1.Caption = 0
Label1.Visible = False
Timer1.Interval = 60000 ' 1 dk
End Sub

Private Sub Timer1_Timer()
If Label1.Caption = 1440 then
'24 X 60 = 1440
'24 saat olmuştur kodu yazabiliriz
Else:
Label1.Caption = Label1.Caption + 1
' Her bir dakikada 1 arttıracak taa ki 24 saat oluncaya kadar
End Sub

zardog · 25 Nis 2008

niye label atıyorsunki degiskene atılarakta yapılabilirbu

Timer'ın intervalını 1 dk yapıcaz ve

dim deger as integer
Private Sub Form_Load()
deger = 0
Timer1.Interval = 60000 ' 1 dk
End Sub

Private Sub Timer1_Timer()
If deger = 1440 then
'24 X 60 = 1440
'24 saat olmuştur kodu yazabiliriz
Else:
deger = deger + 1
' Her bir dakikada 1 arttıracak taa ki 24 saat oluncaya kadar
End Sub

gibi

tşkler eftelya

Timer Nesnesiyle Uzun Zaman Hesabı

EftelyA

Yaşayan Forum Efsanesi

zardog

Yeni üye

Sosyal medya sayfalarımız