Innovative Source Code VB

aplikasi kecil buat LOCK Folder

2011-12-23T02:59:00.000-08:00

Aplikasi ini berguna untuk nge LOCK ato mengunci password… sebenarnya tidak benar-benar mengunci cuma membuat folder tidak bisa di buka dengan cara biasa.. yach cukuplah untuk menghalangi tangan2 jail yang membuka folder sembarangan…
Cara Kerjanya:

Klik tombol Select Folder, kemudian pilih Folder mana Yang hendak dikunci
Klik Tombol LOCK kemudian anda akan ditanyai password yang nanti akan digunakan waktu proses Unlock,
Masukkan Password kemudian Akhiri dengan ENTER, jika keluar pesan lock successful maka berhasil

Folder yang terkunci icon nya akan berubah menjadi icon folder terkunci, folder tidak akan bisa dimasuki.
Untuk membuka kunci caranya :

Jalankan lagi program folder lock, pilih folder mana yang hendak dibuka kuncinya
Klik tombol Unlock, kemudian anda akan ditanyai password yang dibuat waktu proses lock tadi
Masukkan Password kemudian Akhiri dengan Enter, jika keluar pesan proses Unlock berhasil maka folder anda sudah normal kembali…

Download file executable windows di
Folder Lock Beta-2.1.exe
Download Source (visual basic 6) di
Folder Lock.zip

Menggunakan Animated Chart di Visual Basic 6

2011-07-26T02:30:00.000-07:00

Di Visual Basic 6 memang sudah di sediakan komponen chart yaitu ms chart, namun bila anda merasa bosan dengan tampilan chart/grafik yang diberikan oleh ms chart anda bisa mencoba komponen animatedchart berikut ini,,

http://www.wupload.com/file/52043809/AnimatedChart_withDatabaseSample.zip

contoh sudah saya tambahkan untuk komunikasi dengan database…

Mirror :

http://lnk.co/HBK97

Open Link di Visual Basic 6

2010-09-06T03:24:00.000-07:00

Untuk membuka link sebuah site dari program visual basic kita bisa menggunakan code

'Deklarasi
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Prosedur memanggil
Private Sub Command1_Click()
ShellExecute hWnd, "open", "http://google.com", vbNullString, vbNullString, Empty
End Sub

contoh project bisa di download di sini

Entry Data di MSHFlexgrid Menggunakan Kontrol TextBox dan ComboBox

2010-01-21T05:21:00.000-08:00

dari hari ke hari contoh latihan yang dibuat mahasiswa dalam menampilkan data rata-rata menggunakan listview.. dimana untuk menambahkan data kedalam list tersebut harus menambahkan kontrol TextBox atau ComboBox di luar listview tadi...

terpikir untuk mencoba cara lain untuk input kedalam tabel seperti menggunakan datagrid namun tetep bisa mengenali event onChange keyPress de el el. Akhirnya coba menggunakan MSHFlexgrid digabung dengan textBox dan ComboBox menjadi sebuah control yang memenuhi harapanq. :P

Download file Projectnya.

semoga bermanfaat

Contoh Desain Form

2010-01-15T00:18:00.000-08:00

Melihat para mahasiswa berkreasi dengan visual basic, banyak banget kreasi dan desain form yang mereka buat, mulai dari yang minimalis hanya menggunakan warna dan shape standard, ada juga yang memakai berbagai macam ocx sehingga tampilan program yang dibuat makin ciamik, ada juga yang bikin gambar sendiri lalu di masukkan dalam visual basic 6.

Gak mau ketinggalan ikut buat ah … ini neh hasilnya

dengan program photoshop q buat desain formnya lalu kopas alias copy paste ke form visual basic, ditambah sedikit animasi menggunakan timer dan efek fade, yach lumayan deh…

filenya bisa di donwload di sini

Visual Basic 6 : Membuat Crystal Report menggunakan Database Access yang ter Password

2009-11-26T04:45:00.000-08:00

Dua hari yang lalu temen saya mas Indra tanya.. "mas tau gak, carane buat report menggunakan Crystal Report menggunakan database Access tapi Accessnya ada Passwordnya??" dalam pikiranku "yo podho ae to... ngono wae kok ra iso...". Setelah ku coba, Ternyata aku juga kagak bisa hahahaha :P . Setelah report terbuat muncul pesan error

"Open Database Session Failed"

Nah ne sore mumpung lab lagi sepi ngenet ahhh.... buka google dan mulai cari artikel sana sini... emang dasar google sakti tau aja yang gue cari.. binggo.... ni dia... solusinya...

ternyata harus nambahin code berikut:

Report.Database.Tables(1).SetSessionInfo "", Chr$(10) + "password_anda"

jadi gambaran lengkapnya code waktu form load adalah seperti berikut ;

Contoh projectnya bisa di ambil di sini

Semoga bermanfaat..

Game Sederhana “TEST MEMORY” dari Visual Basic 6.0

2008-04-08T06:28:00.000-07:00

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

2008-02-23T01:56:00.000-08:00

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