Kronometre VB.Net
Basit bir kronometre yapılışı..gorsel programlama dersi 1.dönem 3.yazılı uygulama 2.soru.
Yukarıdaki gibi bir kronometre tasarlanacaktır. Durdur ile duracak , devam et tıklanınca devam edecektir. Saat olarak ayarlamak için önce durdur tıklanacak ardından textboxlara saat bilgisi girilecek ve saat olarak ayarla düğmesine tıklanınca kronometre saat gibi çalışmaya devam edecektir. Kronometreyi sıfırlamak için kroanometreyi sıfırla düğmesi tıklanacaktır.
Program 1timer, 4 Button, 3 Textbox, 3 labelden oluşuyor.
Yapılışı:
Form1 de Değişken tanımlayalım;
Dim saniye, dakika, saat As Integer
Timer1 yazılacaklar;
saniye = saniye + 1</p></p> If saniye = 60 Then dakika = dakika + 1 saniye = 0 End If If dakika = 60 Then saat = saat + 1 dakika = 0 End If If saat = 24 Then saat = 0 TextBox1.Text = saniye TextBox2.Text = dakika TextBox3.Text = saat
Form1_Load’a yazılacaklar:
saat = 0 dakika = 0 saniye = 0
Button1(Durdur) yazılacaklar;
Timer1.Enabled = False
Button2(Devat et) yazılacaklar;
Timer1.Enabled = True
Button3(Saat olarak ayarla) yazılacaklar;
saat = TextBox3.Text <pre>dakika = TextBox2.Text saniye = TextBox1.Text
Button4(Kronometreyi sıfırla) yazılacaklar;
saat = 0 <pre>dakika = 0 saniye = 0
PROJEYİ İNDİR
Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.
admin bi ricam olucak ??
sayısal loto gibi bişi ama farklı xS
butona basınca 1 ile 32 arasında 6 sayı yalnız birbirinden farklı sayı vericek vede küçükten büyüğe sıralıcak lütfen yardım et yaa
verdiğim linkte sadece 49 yerine 32 yazacaksın.
hangi link ?? xS
pardon link : http://www.gorselprogramlama.com/sayisal-loto-programi-vbnet
teşekkürler admin bakalım olcak mı
admin baktım tamamda bide bi listbox a bu sayıları küçükten büyüğe doğru sıralaması lazım butona basınca xS
Array.Sort(sayilar) komutu zaten sıralıyor.Tabi sıralamayı içi içe döngü ilede yapabilirsiniz.listbox’a atmada şöyle:
For i As Integer = 0 To sayilar.Length – 1
ListBox1.Items.Add(sayilar(i))
Next
dediğinizi yaptım fakat küçükten büyüğe sıralamadı şöyle sıraladı label1<label2<lbel3< label3 <label5< label6 da ne yazıosa bu şeklde sıraladı yani küçükten büyüğe göre sıralamadı xS
zaten labellarada sıralı ekliyor.Ben denedim küçükten büyüğe sıralı ekliyor.Eğer listeye atarken sırasın diyosan.belirle butonundaki Array.Sort kaldır.sırala butonuna ekle.
evet liste atarken diodum ben … vede baktım array.sort die bişi yok indirdiğim şeyde xS bi if kodunun içinde array.ındexof var şu sizin yaptığınız şeyi iki dkk upload etseniz ordan indirsem direk ?? olur mu kafam allak bullak oldu iyice xS
verdiğim linkte sıralı hali projeyi İNDİR linkindeki dosyayı indir.orda var
teşekkür ederim admin çok çok çok saol