visual Studio .Net'te Kronometre - Turkish Hacking Sabotage | Türkiyenin En Büyük Hack Ve Security Sitesi

b_j_k_38 · **visual Studio .Net'te Kronometre -** 04-04-2008

öncelikle forma 4 adet label, 4 adet button, 1 adet listbox, 1 adet combobox ve 1 adet timer kontrol ekleyin

Butonların Textlerini "Kronometreyi Başlat", "Duraklat", "Durdur" ve "Durdurulan Zamanı Listboxa Ekle" olarak değiştiriniz.

Label1'in Text'ine "Saat Dakika Saniye" yazın.

Label2, 3 ve 4 'ü Saat, Dakika ve Saniye yazılarının altına gelecek şekilde yerleştirin.

Form un Declaration kısmına aşağıdaki tanımlamayı yapın:

Dim saniye, saat, dakika As Integer

Form'un Load olayına aşağıdaki kodları yazın:

Label1.Text = "00"
Label2.Text = ":00"
Label3.Text = ":00"
Timer1.Interval = 100
Timer1.Enabled = False

"Başlat" butonunun Click olayına aşağıdaki kodu yazın:

Timer1.Enabled = True

"Duraklat" butonunun Click olayına aşağıdaki kodu yazın:

Timer1.Enabled = False

"Durdur" butonunun Click olayına aşağıdaki kodları yazın:

saniye = 0
saat = 0
dakika = 0
Label1.Text = "00"
Label2.Text = ":00"
Label3.Text = ":00"
Timer1.Stop()

Timer1'in Tick olayına aşağıdaki kodları yazın:

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.Text = "0" & Str(saat)
Else
Label1.Text = saat
End If
If dakika < 10 Then
Label2.Text = "0" & Str(dakika)
Else
Label2.Text = dakika
End If
If saniye < 10 Then
Label3.Text = "0" & Str(saniye)
Else
Label3.Text = saniye
End If

Combobox'a "Yavaş","Orta" ve "Hızlı" yazılarını ekleyin ve kod bölümüne şu kodları yazın:

If ComboBox1.Text = "Yavaş" Then
Timer1.Interval = 1000
Else
If ComboBox1.Text = "Orta" Then
Timer1.Interval = 500
Else
If ComboBox1.Text = "Hızlı" Then
Timer1.Interval = 10

End If
End If
End If

Ve son olarak "Durdurulan Zamanı Listbox'a Yazdır" butonunun Click olayına da aşağıdaki kodları yazın:

If Timer1.Enabled = False And Button2.Enabled = True Then
ListBox1.Items.Add(Label1.Text + " " + Label2.Text + " " + Label3.Text)
End If

Ve programı çalıştırın...

BAŞARILAR DİLERİM!!!!!!!!

samsunlu_memet · 04-22-2008

Saol güsel paylasım
başka bildiğin örnekler warmı?
warsa senle konusak
adresim samsunlu_memet_55_56@hotmail.com
ok tmm

Konu Bilgileri
	Konu Başlığı visual Studio .Net'te Kronometre	Konudaki Cevap Sayısı 1
	Şuan Bu Konuyu Görüntüleyenler	Görüntülenme Sayısı 0

Seçenekler	Arama
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder	Arama: Gelişmiş arama yap
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)