Sınırları NumericUpdown ile belirlenmiş rastgele sayı üretmek Vb.Net
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
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 : http://www.gorselprogramlama.com/sayisal-loto-programi-vbnet
[/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)
Next
End Sub
End Class
[/Code]
