Sınırları NumericUpdown ile belirlenmiş rastgele sayı üretmek Vb.Net

Soru:Alt sınır,üst sınır ve üretilecek sayı adedi numericupdown ile belirlenecek.Üret butonuna tıklandığı zaman üretilen sayıları listbox’a atan programın kodlarını yazınız.

Not 1 : rsayi değişkeni kullanılmadan ListBox1.Items.Add=( Int(Rnd() * (ust_sinir – alt_sinir) + alt_sinir)) satırı kullanılarakta yapılabilir. Diğer üç değişkenide kullanmadan yapmak istersek

ListBox1.Items.Add=( Int(Rnd() * (NumericUpDown2.Value -NumericUpDown1.Value) + NumericUpDown1.Value)) for döngüsünde ise kac_tane değişkeni yerine NumericUpDown3.Value kullanılabilir.Ama değişken kullanıldığı zaman

1- Daha anlaşılır olur 2-Geniş kod satırları olan programların çoğu yerinde bu değişkenleri kullanmak zorunda olabiliriz.

Not 2: Aynı sayıdan iki veya daha fazla üretilebilir.Bunu önlemek için Array sınıfının Indexof özelliği kullanılabilir.Nasıl kullanıldığı ile ilgili örnek için link : https://www.gorselprogramlama.com/sayisal-loto-programi-vbnet

[code lang=”vbnet”][/code][/code]

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim alt_sinir, ust_sinir, kac_tane, rsayi As Integer

alt_sinir = NumericUpDown1.Value

ust_sinir = NumericUpDown2.Value

kac_tane = NumericUpDown3.Value

For i = 1 To kac_tane

rsayi = Int(Rnd() * (ust_sinir – alt_sinir) + alt_sinir)

ListBox1.Items.Add(rsayi)

End Sub

End Class

[/Code]

Sınırları NumericUpdown ile belirlenmiş rastgele sayı üretmek Vb.Net

Projeyi İndir

Bir yanıt yazın