visual basicte kronometre

[Φ 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:(