Label

Belajar Visual Basic Bahasa Indonesia

Belajar Visual Basic Bahasa Indonesia

Membuat Program Undian dengan Visual Basic 6.0

Posted: 13 Jan 2014 12:35 AM PST

Belajar Visual basic 6.0 memang tidak ada habisnya untuk mencari ilmu baru mengenai visual basic 6.0. Tutorial vb 6.0 yang akan kami ulas yaitu mengenai cara membuat program undian no dengan visual basic 6.0.

materi belajar vb 6 ini sangat sederhana, hanya menggunakan 2buah label, 1 commandbutton dan 1 timer. Label berfungsi untuk menampilkan urutan angka undian dan nama pemenang undian, command untuk fungsi stop dan start pengunjian.


Namun untuk data pengundian tersebut menggunakan database dengan MS acces 2003 atau bisa menggunakan 2007. materi belajar visual basic 6.0 kami dapatkan dari referensi di sebuah forum group yaitu Media Belajar visual Basic Bahasa Indonesia. Berikut tahapan cara membuatnya :

1. Buatlah desain sederhana seperti yang kami buat, dan tambahkan komponen label, commandbutton, timer.


Membuat Program Undian

2. Jangan lupa menambah references visual basic 6.0, seperti gambar di bawah



3. Buatlah database untuk data pengundian seperti contoh di bawah.


NAMA FIELD
SIZE
TYPE
NoUndian
10
Text
Nama
10
Text


4. Kode Program

Dim Con As New ADODB.Connection
Dim Rst As New ADODB.Recordset

Private Sub Command1_Click()
    If Timer1.Enabled = False Then
        Rst.Open "select * from tblOrang", Con, adOpenKeyset
        Timer1.Enabled = True
        Command1.Caption = "Berhenti"
        Label1.FontSize = 16
        Label2.Caption = ""
        
    Else
        Timer1.Enabled = False
        Command1.Caption = "Mulai"
        Label1.FontSize = 24
        Label2.Caption = Rst!Nama
        Rst.Close
    End If
End Sub

Private Sub Form_Load()
    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\undian.mdb;"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Con.Close
End Sub

Private Sub Timer1_Timer()
    Randomize
    Rst.AbsolutePosition = CInt(Rnd * (Rst.RecordCount - 1)) + 1
    Label1.Caption = Rst!NoUndian
End Sub

Untuk koneksi database sesuaikan nama database yang sudah di buat 
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\undian.mdb;"
Label:

Komentar

Posting Komentar

Postingan Populer