Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » .NET makaleleri » net » farklı bir kronometre uygulaması bence cok hoş bişi
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Ekranı Yakalama Kodları (Print Screen Gibi)

Yazar: suleymangunay
Bir Checkbox (Name...:Check1)
Bir Command (Name...:cmdCapture)
Bir Timer (Name...:Timer Interval=1000) özelliklerinde
C:Ekran.bmp olarak kaydeder


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 6990
Yayın Tar:22.04.2006
Yazar : karacan
Hit :1352

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Dim saniye As Integer = 0
Dim dakika As Integer = 0
Dim saat As Integer = 0

Private Sub btnVer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVer.Click
btnKes.Enabled = True
Azrail.Enabled = True
btnVer.Enabled = False
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Azrail.Interval = 1
Azrail.Enabled = False
btnSiyir.Enabled = False
btnKes.Enabled = False
End Sub

Private Sub btnKes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKes.Click
Azrail.Enabled = False
btnKes.Enabled = False
btnSiyir.Enabled = True
End Sub

Private Sub BenjaZma_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Azrail.Tick
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
lblh.Text = "0" & saat
Else
lblh.Text = saat
End If
If dakika < 10 Then
lblm.Text = "0" & dakika
Else
lblm.Text = dakika
End If
If saniye < 10 Then
lbls.Text = "0" & saniye
Else
lbls.Text = saniye
End If

End Sub

Private Sub btnSiyir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiyir.Click
btnVer.Enabled = True
lbls.Text = "00"
lblm.Text = "00"
lblh.Text = "00"
saat = 0
dakika = 0
saniye = 0
btnSiyir.Enabled = False
End Sub

End Class




Yorumlar, eklemeler ve düşünceler
        ama salise 60 a kadar değil 99 a kadar gider bu kronometrede 60 a kadar gidiyor.

   muratcenk007, 21.04.2009 23:01
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin