Membuat Program Random Number Generator pad 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 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

Continue Reading