Membuat Aplikasi Random Number Pada VB.2008

Selamat Sore sobat blogger, kali ini ketemu lagi dengan saya Raflyzea Agara yang pastinya akan berbagi ilmu-ilmu yang ane ketahuin nih gan, kali ini kita akan coba membuat program sederhana yaitu membuat aplikasi random number menggunakan VB.2008.

pada dasarnya, materi ini bukan lah menuntut kita untuk membuat program, karna materi ini hanya mempelajari metode Random Number pada mata kuliah Pemodelan & Simulasi pada Teknik Informatika, Langsung aja deh gan, kita masuk ke TKP: tp agak ada sedikit Materi nihh gan...

dalam mempelajari Random Number dasar-dasarnya sebagai berikut :

• Proses Pembangkit Bilangan Acak
• Bilangan acak pada dasarnya dibangkitkan dengan cara manual atau dengan bantuan komputer seperti yang akan kita lakukan berikut ini.
• bilangan acak yang dibangkitkan dengan bilangan acak semu karena memanfaatkan rumus-rumus matematika.

Metode yang kita gunakan adalah LCM (Linear Congruent Methode)

• Salah satu teknik yang digunakan untuk bilangan acak.
• LCM akan menghasilkan bilangan bulat dengan urutan X1, X2, X3,......... Xn  Samapi M-1
• Ciri Khas LCM adalah kemunculan angka yang sama pada priodik tertentu yang tak bisa dihindarkan
• Kualitas bilangan acak ditentukan berdasarkan angka konstanta pada rumus yang tersedia
• jika kemunculan angka yang sama dalam kurun waktu yang lama akan lebih bagus.

Rumus-rumus LCM

Xi = (Xn . a + C) Mod M

Dimana:

Xi = Bilangan acak dan nilai awal random yang ditentukan

a   = Konstanta Perkalian

C  = Konstanta Penambah

M = Batasan

Mod= Modulus

dan setelah mempelajari materinya, kita langsung aja gan, menuju ke barisak puisi-puisi program yang langkah terakhirnya, langkah-langkahnya sebagai berikut yaitu:

1. Desain dahulu tampilannya seperti gambar di atas menggunakan 4 label rubahlah text pada propertiesnya (Xn, a, C dan M) 
2. gunakan 6 textbox  lalu rubah Name pada Propertiesnya (btnxn,btna, btnc, btnm,btnhasil, dan btnmod)
3. pakailah 2 button saja dan ubah text di propertiesnya (Proses, Hapus) dan juga pada name di propertiesnya (btnproses, btnhapus)
4. ambil 1 buah listview dan rubah name pada propertiesnya jadi LV
5. jika sudah selesai mendesain, pastikan sekali lagi, Text dan Name pada propertiesnya tidak terbalik, jika semua sudah benar, maka tinggal masukkan script dibawah ini.

Public Class Form1

    Sub bersih()

        btnx.Text = ""

        btna.Text = ""

        btnc.Text = ""

        btnm.Text = ""

        btnhasil1.Text = ""

        btnhasil2.Text = ""

    End Sub

    Sub buattabel()

        lv.Columns.Add("Xn", 50, HorizontalAlignment.Center)

        lv.Columns.Add("a", 50, HorizontalAlignment.Center)

        lv.Columns.Add("C", 50, HorizontalAlignment.Center)

        lv.Columns.Add("M", 60, HorizontalAlignment.Center)

        lv.Columns.Add("Modulus", 60, HorizontalAlignment.Center)

        lv.Columns.Add("Hasil", 130, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        btnhasil2.Text = (Val(btnx.Text) * Val(btna.Text) + Val(btnc.Text)) Mod Val(btnm.Text)

        btnhasil1.Text = Val(btnx.Text) * Val(btna.Text) + Val(btnc.Text) / Val(btnm.Text)

        Dim x As New ListViewItem

        x.Text = btnx.Text

        x.SubItems.Add(btna.Text)

        x.SubItems.Add(btnc.Text)

        x.SubItems.Add(btnm.Text)

        x.SubItems.Add(btnhasil2.Text)

        x.SubItems.Add(btnhasil1.Text)

        lv.Items.Add(x)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        bersih()

    End Sub

End Class

jika semu script sudah terpasang, maka silahkan di debug (jalankan) dan program anda telah selesai, mungkin ini doang yang dapat ane share, thanks udah mampir, dan silahkan baca juga artikel lainnya di Raflyzea-Agara.Blogspot.com