Random Berulang & Random Tak Berulang

(klik on the image if want to see real image)

Di bawah ini adalah algoritma berikut sintaksnya untuk menggenerate random angka baik berulang atau tidak berulang di VB.Net / Visual Basic 2008,- silahkan dipelajari :


Public Class Random

Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click
Dim angka((Val(TextBox1.Text) - 1)) As Integer
Dim acak As New Random
Dim arrlist As New ArrayList
Dim i, angka2 As Integer

ListBox1.Items.Clear()
ListBox2.Items.Clear()

For i = 0 To angka.Length - 1
angka(i) = (acak.Next(Val(TextBox1.Text)) - 1) + 2
ListBox1.Items.Add(angka(i))
Next

i = 0

Do
angka2 = (acak.Next(Val(TextBox1.Text)) - 1) + 2
If Not arrlist.Contains(angka2) Then
arrlist.Add(angka2)
ListBox2.Items.Add(arrlist.Item(i))
i = i + 1
End If
Loop Until (i > Val(TextBox1.Text) - 1)

End Sub

End Class

----- Code'It, Write'It, Share'It, Love'It -----
----------- IT Field It's My Passion -----------

Correct Me If I'am Wrong