Visual Basic 6 ve Visual Basic 2010 Kronometre Yapımı

Herkese merhaba,

Tam gaz paylaşımlara devam ediyoruz arkadaşlar. Şimdi sizlerle basit bir kronometre yapacağız. Geliştirip kullanılabilir bir program olacak, kullanışlı olduğu için işe yarar bir program. Internette arayıp örneklerini bulamadığım için böyle bir konu açmayı tercih ettim. Size sıfırdan kendi anlatımımla bir konu açıyorum,  umarım yararlanabilirsiniz. Hemen başlayalım.

Kronometre Nasıl Yapılır?

VB6; 
İlk önce formumuza birkaç nesne eklememiz gerekiyor.

• 1 adet Label
• 3 adet Buton
• 1 adet Textbox
• 1 adet Timer 

Verdiğim nesneleri formumuza ekleyelim.

visual basic kronometre

Form_Load’ a geçelim ve verdiğim kodları yapıştıralım.

Text1.Text = “…….”
Label1.Caption = “0″
Command1.Caption = “Başlat”
Command2.Caption = “Kayıt ET”
Command3.Caption = “Sıfırla”
Text1.Enabled = False

Hangi nesnelerin ne işe yarayacağını görmemiz için bu kodları yazıyoruz.

Şimdi ise geri kalan kodlarımızı yazalım.

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

Private Sub Command2_Click()
Text1.Text = Text1.Text & vbCrLf & “Son Kayıt: ” & Label1.Caption & ” saniye”

End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
Label1.Caption = “0″
Text1.Text = “”
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
End Sub

vb6 kronometre

Gördüğümüz gibi sorunsuz çalışıyor.

VB2010 ;

• 1 adet Label
• 4 adet Buton
• 1 adet Textbox
• 1 adet Timer  

Programınızı şekilde görüldüğü gibi hazırlayınız .
  
Başlat Butonu İçin;   
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start() 
 End Sub

Kaydet Butonu İçin;  
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = TextBox1.Text + "        " + Label1.Text
    End Sub

Sıfırla Butonu İçin;   
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Stop()
        TextBox1.Text = ""
        Label1.Text = 0
    End Sub

 Timer İçin;  
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = CInt(Label1.Text) + 1
    End Sub

  Durdur Butonu için; 
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Timer1.Stop()
    End Sub
End Class