Membuat Program Undian dengan Visual Basic 6.0

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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.

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;"

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Membuat Program Undian dengan Visual Basic 6.0, Diterbitkan oleh scodeaplikasi pada Minggu, 12 Januari 2014. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.