Aplikasi Angka Random Metode LCM Menggunakan Visual Basic.Net 2008

Kali saya memosting bagaimana cara membuat aplikasi angka random metode LCM dengan Visual basic Net 2008.

Komponen - Komponen Apa saja yang kita perlukan :
1. Label Sebanyak 5
2.TextBox sebanyak 5
3.Button sebanyak 3
4.ListBox sebanyak 1

Nextt....
Setelah Kita mengetahui komponen apa saja yang kita gunakan, maka kita lihat langkah berikut

Langkah - Langkah Disain Form :
1. Disain Form Anda Sesuai Dengan Tampilan Form Saya yaitu Pada cover Dengan Komponen-Komponen yang sudah saya tentukan diatas

Setelah selesai... Selanjutnya Kita akan merubah Name dan Text  Properties pada komponen yang di tentukan, Perhatikan dan jangan sampai ada yang salah :D ,

1). Label Cukup Diganti Teks Sesuai Nama Pada Form Diatas.

2). -TextBox Nilai awal acak (Xi) Di Rubah Namenya Menjadi "NilaiAC"
     - TextBox Konstanta(a) Di Rubah Namenya Menjadi "ks"
     - TextBox Konstanta(c) Penambahan Namenya Di Rubah Menjadi "ksp"
     - TextBox Batas maksimal(M) Namenya Di Rubah Menjadi "Bm"
      - TextBox Hasil Acak Namenya Di Rubah Menjadi "Hc"
Dan Untuk Teks Pada TextBox Tidak Usah Di rubah :)

3).-Button Input Nilai Di Rubah Namenya Menjadi "Input" Dan Teks "Input Nilai"
-Button Mulai Di Rubah Namenya Menjadi "Mulai" Dan Teks "Mulai" 
-Button Lanjut Di Rubah Namenya Menjadi "lanjut" Dan Teks "Lanjut" 

Setelah Selesai Mendisain Form... Selanjutnya Memasukkan Listing Program :

4. Klik Double Pada Form... Block Semua Program Yang Ada
Dan Delete.. Lalu Copy Paste Listing Program Dibawah :)

5. Listing Program :


Public Class Form1
    Public xi As Integer
    Sub aktiftombol(ByVal a As Boolean, ByVal b As Boolean)
        Ks.Enabled = a
        Ksp.Enabled = b
        Bm.Enabled = b
        NilaiAC.Enabled = b
        Hc.Enabled = b
    End Sub

    Sub rubahbutton(ByVal fc1 As Boolean, ByVal fc2 As Boolean, ByVal fc3 As Boolean)
        Input.Enabled = fc1
        Mulai.Enabled = fc2
        lanjut.Enabled = fc3
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Selamat Datang Program Angka Acak Metode Lcm Awal Study", MsgBoxStyle.Information, "Welcome")
        aktiftombol(False, False)
        rubahbutton(True, False, False)
    End Sub
    
Private Sub Mulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mulai.Click
        Dim a, c, m As Integer
        a = Ks.Text
        c = Ksp.Text
        m = Bm.Text
        xi = NilaiAC.Text
        xi = (a * xi + c) Mod m
        Hc.Text = xi
        ListBox1.Items.Add("Putaran" & ":" & Hc.Text)
        rubahbutton(False, False, True)
    End Sub

    Private Sub lanjut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lanjut.Click
        Dim a, c, m As Integer
        a = Ks.Text
        c = Ksp.Text
        m = Bm.Text
        xi = (a * Hc.Text + c) Mod m
        Hc.Text = xi
        ListBox1.Items.Add("Putaran" & ":" & Hc.Text)
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Input.Click
        aktiftombol(True, True)
        rubahbutton(False, True, False)
        NilaiAC.Focus()
    End Sub
End Class