1 ile 100 arasında 50’den küçük olan sayıyı bulan program örnek VB.Net
Bu programımızda 1 ile 100 arasında 50’den küçük olan sayıları bulmak için tasarlanmıştır.
50 nin altındaki sayıları bulalım.Bu programı yazmak için bir adet label buton label ve listbox’a ihtiyacımız var olamktadır.
2 adet değişken belirliyoruz. Dim a, b As Integer Daha sonra Formun Loadında Label1’i 0 ‘a eşitliyoruz. Ve button’un click’ine a=a+1 komutunu yazıyoruz . yani a her tıklandığında birer birer artıyor. Ve If a = 10 Then Button1.Enabled = False Kodlarını yazıyoruz . eğer a 10’a eşit olduğunda buton1 kapanacaktır . Ve daha sonra Rastgele sayı bulmaya yarayan Randomize komutunu ayzmaya başlıyoruz bu komutu b değişkenin içine atıyoruz. Randomize() b = Int(Rnd() * 101) Daha sonra tekrar şart belirliyoruz eğer b küçük veya eşitse 50 ye label1 teker teker artsın komutunu yazıyoruz If b <= 50 Then Label1.Text = Label1.Text + 1
Bütün bu komutları yazdıktan sonra programımız çalışacaktır butona maximum 10 defa basılacaktır. Her basılıdığında rastgele bir sayı bulunacaktır . Bulunan Bu sayıların kaç tanesi 50 ‘den küçükse labelde yazılacaktır.
Yazılan tüm rakamları görebilmemiz içinde son olarak ; ListBox1.Items.Add(b) bu kodları yazarız.Ve programı çalıştırdıktan sonra sonuç olarak ortaya çıkan tüm rakamları listelemiş oluruz..
elinize emeğinize sağlık 🙂
elinize sağlık çook gusel olmuş 🙂