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;
[code lang=”vbnet”]Dim saniye, dakika, saat As Integer[/code]
Timer1 yazılacaklar;
[code language=”VB”]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[/code]
Form1_Load’a yazılacaklar:
[code lang=”vbnet”] saat = 0
dakika = 0
saniye = 0[/code]
Button1(Durdur) yazılacaklar;
[code language=”VB”]Timer1.Enabled = False[/code]
Button2(Devat et) yazılacaklar;
[code language=”VB”]Timer1.Enabled = True[/code]
Button3(Saat olarak ayarla) yazılacaklar;
[code lang=”vbnet”] saat = TextBox3.Text
<pre>dakika = TextBox2.Text
saniye = TextBox1.Text[/code]
Button4(Kronometreyi sıfırla) yazılacaklar;
[code lang=”vbnet”] saat = 0
<pre>dakika = 0
saniye = 0[/code]
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
ben bu programı çalıştırmaya çalıştım ama pre kısmnda hata veriyor ayrıca bu preler tam olark ne işe yarıyor niye hata veriyor olabilir
program hatasız çalışıyor.
@yeşim
duğru diyorsunuz yeşim hanım