Game Sederhana “TEST MEMORY” dari Visual Basic 6.0

Game ini terinspirasi dari salah satu game yang dibuat dengan bahasa pemrograman Python, jadi pas agak nganggur ya iseng-iseng aja aku buat game yang serupa tapi menggunakan bahasa pemrograman Visual Basic 6.0
Gamenya cukup sederhana, cara memainkannya klik tombol play, kemudian komputer akan mensimulasikan tombol mana aja yang di klik, nah tugas anda adalah mengingat dan menirukan tombol mana aja yang di klik dan urut-urutannya. Jika benar maka komputer akan menambah jumlah tombol yang di klik.
Ayo kita test sampai sejauh mana kemampuan kita mengingat
…!!!
DOWNLOAD Program Beserta SOURCE nya di SINI

meng Export Recordset ke Excel di Visual Basic 6.0

Berikut ini adalah contoh code di Visual Basic 6 untuk mengexport data yang ada dalam sebuah recordset ke document excel. Langsung ikuti langkah"nya aja yach …!

• Buat project exe baru, kemudian tambahkan reference di menu Project > References, kemudian berikan tanda centang di Microsoft Excel 9.0 Object Library kemudian klik OK
  
• Tambahkan satu Class Module ke dalam project dan beri nama sesuai keinginan anda misal ExportExcel
  
• Kemudian Ketikkan Code berikut ke dalam class module yang baru saja anda buat tadi
  ------------------------------------------
  Dim rs As ADODB.Recordset
  
  Public Property Let RecordSource(m_rs As Recordset)
  Set rs = m_rs
  End Property
  
  Public Sub ExportToExcel()
  Dim App As Application
  Dim Wb As Workbook
  Dim Wk As Worksheet
  Dim Baris As Long, Kolom As Integer
  Set App = Excel.Application
  Set Wb = App.Workbooks.Add
  Set Wk = Wb.Worksheets(1)
  
  
  With rs
  Baris = 1
  Kolom = 0
  'mencetak header / nama kolom
  For Kolom = 1 To rs.Fields.Count
  Wk.Cells(1, Kolom) = rs.Fields(Kolom - 1).Name
  Next Kolom
  'mencetak data dimulai dari record pertama
  'dan diulang sampai record habis / eof
  .MoveFirst
  While Not .EOF
  Baris = Baris + 1
  For Kolom = 1 To rs.Fields.Count
  Wk.Cells(Baris, Kolom) = rs.Fields(Kolom - 1)
  Next Kolom
  .MoveNext
  Wend
  End With
  
  'memunculkan aplikasi excel
  App.Visible = True
  
  'memutus sambungan dengan excel
  Set Wk = Nothing
  Set Wb = Nothing
  Set App = Nothing
  End Sub
  
  -----------------------------------------
  
• Setelah itu di form buat koneksi dengan database menggunakan object ADODB, setelah itu buat variabel baru sebagai nama class yang baru saja di buat, dilanjutkan dengan mengeset property RecordSource dari class tadi dan berikutnya jalankan method ExportToExcel.
  
  

Untuk men DOWNLOAD contoh projectnya klik di SINI