Bu başlığa 4 cevap verilmiş

[LaRsiE_]

visual basicte kronometre yapmak isterseniz buyrun kodlar


Dim saat, dakika, saniye

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
saniye = 0
saat = 0
dakika = 0
Label1.Caption = "00"
Label2.Caption = "00"
Label3.Caption = "00"
End Sub

Private Sub Form_Load()
Label1.Caption = "00"
Label2.Caption = "00"
Label3.Caption = "00"
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
saniye = saniye + 1
If saniye = 60 Then
saniye = 0
dakika = dakika + 1
If dakika = 60 Then
dakika = 0
saat = saat + 1
If saat = 24 Then
saat = 0
End If
End If
End If
If saat < 10 Then
Label1.Caption = "0" & Str(saat)
Else
Label1.Caption = saat
End If
If dakika < 10 Then
Label2.Caption = "0" & Str(dakika)
Else
Label2.Caption = dakika
End If
If saniye < 10 Then
Label3.Caption = "0" & Str(saniye)
Else
Label3.Caption = saniye
End If
End Sub

[serserii666]

kusura bakma ama bana ilk önce visul basic6.0 lazım
çok aradım ama bulamadım
acaba nerden indirebilirim
bilen varsa yardımcı olsun
şimdiden teşekkürler...

[ozlemkart]

yazdığın programı yeni okudum. bana da visual basic 6.0 lazım ama bilg.a kuramıyorum sebebi nedir bilmiyorum. C:/windows/system32 dosyasının Ms-Dos ve Windows dosyalarını çalıştıramadığı gibi bir hata veriyor

[LaRsiE_]

arkadaşlar programı araştıracam buldugum zaman topic açarım

[cicim19]

merhaba larsie:)
ilk önce visual basicte kronometre yazmışsın teşekkür ederim.kronometreyi bir başkası istediği için yazmışsın ama olsun. benimde işime yaradı.ben üniv. okuyorum.üniv. hocamız kronometre yapmamızı söyledi bende senin sayende yapmış oldum..senle tanışmak isterim.bende keşke visual basiciği bilsem.1 seneden beri basic görüyorum ama hala yapamıyorum.hep kalıyorum:(