Pengacakan Bilangan Dengan Menggunakan Methode LCM

Assalamualaikum.Wr.Wb.

Saya akan berbagi artikel tentang Pengacakan Bilangan Dengan Menggunakan Methode LCM. Artikel ini saya buat untuk memenuhi tugas Mata Kuliah Pemodelan Simulasi di Semester 6(Enam) ini. Disini saya menggunakan Aplikasi Microsoft Visual Basic 2008.

Berikut Tampilannya:

Langkah - langkahnya iadalah sebagai berikut:

1.Buka Aplikasi Microsoft Visual Basic 2008

2.Design seperti tampilan diatas.

3.Setelah selesai membuat designnya masukan listing program dibawah ini.

Berikut Listing Programnya :

Public Class Form1

    Dim xi, i As Integer

    Sub proses()

        Try

            lv.Items.Clear()

            Dim x0i, ai, ci, mi, j As Integer

            ai = a.Text

            ci = c.Text

            mi = m.Text

            x0i = x0.Text

            j = xn.Text

            For k = 1 To j

                xi = (ai * x0i + ci) Mod mi

                Dim lst As New ListViewItem

                lst.Text = "X" & k

                lst.SubItems.Add(a.Text)

                lst.SubItems.Add(c.Text)

                lst.SubItems.Add(m.Text)

                lst.SubItems.Add(xi)

                lst.SubItems.Add(ai * x0i + ci)

                lst.SubItems.Add(xi)

                lst.SubItems.Add(x0i / mi)

                lv.Items.Add(lst)

                x0i = xi

            Next

        Catch ex As Exception

            MsgBox("Input Data Dengan Angka", , "form Rini Astuti")

        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If xn.Text = "" Or a.Text = "" Or c.Text = "" Or m.Text = "" Or x0.Text = "" Then

            MsgBox("Maaf, Isi Dengan Benar !!", , "form Rini Astuti")

            lv.Items.Clear()

        Else

            Call proses()

        End If

    End Sub

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

        xn.Clear()

        a.Text = ""

        c.Text = ""

        m.Text = ""

        x0.Text = ""

        lv.Items.Clear()

    End Sub

    Private Sub x0_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles x0.KeyPress

        If e.KeyChar = Chr(13) Then

            Call proses()

        End If

    End Sub

End Class

Sekian artikel tentang Pengacakan Bilangan Dengan Menggunakan Methode LCM , semoga bermanfaat bagi yang membacanya.
Terima Kasih...... !!!!

Walaikumsallam.Wr.Wb