Zıplanacak içerik

Featured Replies

Gönderi tarihi:

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

  • 4 hafta sonra...
Gönderi tarihi:

kusura bakma ama bana ilk önce visul basic6.0 lazım :(

çok aradım ama bulamadım

acaba nerden indirebilirim :unsure:

bilen varsa yardımcı olsun

şimdiden teşekkürler...

  • 5 hafta sonra...
Gönderi tarihi:

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

Gönderi tarihi:
  • Yazar

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

  • 2 yıl sonra...
Gönderi tarihi:

merhaba larsie:) :stuart:

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

Katılın Görüşlerinizi Paylaşın

Şu anda misafir olarak gönderiyorsunuz. Hesabınız varsa, hesabınızla gönderi paylaşmak için şimdi oturum açın.
Eğer üye değilseniz hemen KAYIT OLUN.
Not: İletiniz gönderilmeden önce bir Moderatör kontrolünden geçirilecektir.

Misafir
Maalesef göndermek istediğiniz içerik izin vermediğimiz terimler içeriyor. Aşağıda belirginleştirdiğimiz terimleri lütfen tekrar düzenleyerek gönderiniz.
Bu başlığa cevap yaz

Önemli Bilgiler

Bu siteyi kullanmaya başladığınız anda kuralları kabul ediyorsunuz Kullanım Koşulu.