Pages

Subscribe:

Ads 468x60px

17 January 2008

PENGACAKAN DENGAN VB.NET

Karena kemaren ada sedikit waktu, plus pengin mendalami teknologi .NET, aku iseng buat program pengacakan angka, ini bisa juga untuk program-program pengundian. Data aku pilih pakai File .txt karena relative kecil daripada dari database atau excel. Awalnya aku kira pengacakan pakai metode looping, namun sudah nyari kemana-mana, ternyata tidak ada syarat yang bisa menghentikan looping tersebut by event button(rencana start dan stop pakai button)
Lansung aja kita bikin project di VB.NET, kebetulan pakai yang express 2005 cukup powerfull, kecuali kalau memang mau bikin yang big size. Untuk membaca file .txt aku tampung data-data tersebut dengan array. Caranya kita definikan dulu variable global buat array :
Dim Ar(15000000) As String (kebetulan data yang diacak string)


Untuk membaca data kita imports dulu Imports System.IO, terus di form_load kita isi dengan :

Using sr As StreamReader = New StreamReader("Data.txt")
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
line = sr.ReadLine()
Ar(n) = line
n = n + 1
Loop Until line Is Nothing
sr.Close()
End Using

Otomatis semua data telah tersimpan di Array Ar.
Untuk interval pengacakan kita butuh component Timer(disini Timer1) didefault false, dalam event Timer1_Tick kita isi dengan :

Dim x As Integer
Dim nilai As String
x = CInt(Int((n * Rnd()) + 12))
nilai = Ar(x)
TextBox1.Text = nilai
Me.Refresh()

Script di atas pertama nyari random integer(x) dari jumlah data array, terus nilai dari array tersebut ditampilkan dalam TextBox1. Disini kecepatan interval timer sangat berpengaruh.

Selanjutnya kita bikin controller buat pengundiannya,
Untuk start pengundian tinggal pakai Timer.Enabled = true dan stop pakai Timer1.Enabled = false.
Jadi deh program pengundiannya, rencana mau tak tambahin setting background(di sesuaikan dengan event pengundiannya) dan juga datanya.

4 comments:

  1. duh.. Vb.Net.. kangen euy, pengen menjamah vb.Net lg..

    ReplyDelete
  2. walah, berarti sampeyan sudah katam.. :)
    Bisa belajar nih...

    ReplyDelete
  3. bener,mie goreng di situ emang mahal..!!!
    mana yg jual juga ga cantik...


    *ansab*

    ReplyDelete
  4. bang ilman minta contoh aplikasinya yang dah jdi dunk.. qu mau belajar belajar...

    ReplyDelete