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