Source Code Program/Aplikasi Penerimaan Siswa Baru

Alhamdulillah masih dikasi waktu dan kesempatan bisa nulis di blog ini... boleh curhat dikit ngga .. Ban luar New Jupiter MX 2014 mahal banget ya.. !!!!  Rp 200.000,- gansis.. untung uangnya pas.

Oke balik ke topik, aplikasi yang akan saya bagi ini adalah Aplikasi Penerimaan Siswa Baru yang sengaja saya buat untuk memudahkan memasukkan data ke excell.

Selain mengajar saya juga seorang Tata Usaha, jadi ada banyak aplikasi yang rasanya ingin dibuat tapi waktunya kurang. Nah, saya buat aplikasi yang saya beri nama ppdb ini karena kadang risih ngisi data yang ada di Excell.... bayangin pulahan kolom manjang ke kiri. Contohnya data EMIS ini . (EMIS : Education Management Information System milik depag)

Aplikasi PPDB ini ngga sekomplek itu juga sih, tapi akan lebih mudah bila kita nginput datanya kayak gini .

Trus kalau kira kira sudah siap tinggal klik menu "Eksport Ke Ecell" dan.. tadaaaa.. data sudah berada di Excell, tinggal di save saja.

Download Aplikasi Jadinya Disini

Download Source Code Aplikasinya Disini

Download 60-an Source Code dan Terus Bertambah Disini

Membuat Tampilan Form Visual Basic Yang Yahuud

Membuat tampilan yang bagus di Visual Basic 6 tidak lah harus dengan desain-desain yang njlimet, atau memakai komponen tambahan lainnya agar tampilannya jadi WAUW..

VS

Hanya dengan memberikan nilai Autosize : True dan Font : Font Style : Bold pada Properties di tiap LAbel yang ada, kita sudah bisa membuat tampilannya jadi wauw.

Selain itu beberapa tips yang sering saya gunakan :

1. Komponen yang disusun pertama kali adalah komponen Input, cth: TextBox, Combobox.
2. Lalu ubah ketebalan di Label label yang ada.

Membuat Combobox Yang Dinamis di Visual Basic 6

Masih pagi dan masih semangat, sebenarnya lagi masuk kerja juga sih (saya tata usaha dan guru komputer di sebuah sekolah swasta, disempet sempetin buat mosting beberapa hal-hal mengenai VB 6 yang mungkin bermanfaat buat anda.

Combobox , salah satu komponen di VB 6 yang fungsinya memberikan pilihan ke user, tinggal klik maka si pilihan tadi akan nampil di Comboboxnya.

Pada tingkat coding, untuk mengisi data yang ada dalam ComboBox biasanya menggunakan code berikut ini (diletakkan di Form_load, sehingga saat Form tampil, Comboboxnya sudah terisi ) :

Private Sub Form_Load()

With Combo1

    .Refresh

    .AddItem "Dimas"

    .AddItem "Arie"

    .AddItem "Prastyo"

End With

End Sub

Kekuranganya adalah apabila kita ingin menambah lebih banyak pilihan, maka harus menuliskan 

Combo1.AddItem N1    '-- N1 = Data yang ingin ditampilkan 

Maka dari itu, sebenarnya kita bisa membuat datanya dinamis berdasar pada data yang ada di , database, jadi kalau data di database bertambah, maka di ComboBox bertambah, begitu juga bila berkurang, akan berkurang juga.

Diperlukan sebuah database yang digunakan untuk menampung data, kemudian menghubungkannya ke Visual Basicnya. Coding untuk menampilkan data ke ComboBox seperti berikut ini.

Private Sub Form_Load()

'--- mengambil data nama alat dari tabel alat

sql = "select * from tblalat order by nmalat asc"

Set rsBaca = New ADODB.Recordset

rsBaca.CursorLocation = adUseClient

rsBaca.Open sql, conn, 3, 4

With Combo1

    .Refresh

    Do While Not (rsBaca.EOF)

        .AddItem rsBaca!nmalat & ""

    rsBaca.MoveNext

    Loop

End With

End Sub

Silahkan Download Project VB 6 nya disini

60-an Source Code Lengkap, Download Disini 

Source Code Program/Aplikasi Reservasi Hotel

Aplikasi reservasi hotel yang saya buat ini awalnya adalah pesenan seorang mahasiswa, semua data diambil dari data sebuah hotel yang ada di Jawa. Sayang nya setelah semua sudah selesai si Aplikasinya.. malah sudah hampir 2 bulan ngga ada kabar dari si Mahasiswa untuk membayar Source Codenya yang sudah jadi (Sebenarnya dia pun belum dapat source codenya, hanya saya beri dalam bentuk Aplikasi Exe nya)

Aplikasi ini menggunakan Visual Basic 6 dan MYSQL sebagai databasenya (MYSQL itu database untuk Website pada umumnya .. buat yg belum tahu).

Tampilan aplikasi masih sederhana, Fitur yang ada di aplikasi ini antara lain : Master : Kamar, Setting Kamar, Fasilitas Kamar, Petugas, Foto Kamar, Transaksi : Check In, Check Out, Booking Kamar, Laporan : Laporan Check In, Laporan Check Out, Laporan Booking, Laporan Tamu, Laporan Kamar.

Berikut penampakan form-formnya ketika belum dijalankan, terdiri atas 22 Form, 2 buah module dan 8 buah laporan dalam bentuk Crystal Report.

DOWNLOAD DISINI

Menghubungkan Visual Basic 6 Dengan Microsoft Access

Sudah lama ngga update blog ini.. yang belum kenal.. nama saya Dimas Arie Prastyo, saya kelahiran 1990.. silahkan dipanggil bang, dek, gan atau apa saja..  yang penting akrab.

Langsung saja ke topik bahasannya, bagaimana cara menghubungkan Microsoft Visual Basic 6 ke Microsoft Access. 

Pastikan di komputer kamu sudah terinstal Microsoft Visual Basic dan Microsoft Office tentunya (Access adalah bagian dari Microsoft Office), kalau saya pakai yang Access 2007.

Pertama buka dahulu si Microsoft Visual Basicnya , pilih yang Standard Exe aja ya.

Jangan lupa tambahin lagi modul ke dalamnya, karena di module itu nanti kita akan memasukkan coding yang akan menghubungkan si Visual Basic ke Microsoft Access 2007.

Cara nambahin modulnya : Menu Project -> Add Module -> Open , trus beri nama module yang baru mbrojol tadi (heheh :D) dengan nama MdlKoneksi (ini hanya kebiasaan saya memberi nama ke module)

Tambahin lagi sebuah form , Menu Project -> Add Form.

Tambahin juga Microsoft Activex Data Object dari : Menu Project -> References -> Microsoft ActiveX Data Objext xxx (pilih saja yang palin besar angkanya)

Lalu di Module tadi (MdlKoneksi) isikan coding berikut ini (terlebih dahulu kita sudah membuat file Accessnya ya :D)

'------ awal 

Public Sub Main()

Set conn = New ADODB.Connection

'On Error GoTo Kesalahan

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\Database\db_AlatBerat.mdb;Jet OLEDB:Database"

Form1.Show '-- ini form yang kita tambahin tadi

 Kesalahan:

If Err.Number = -2147467259 Then

    MsgBox "Database tidak dapat diakses atau ditemukan!", vbCritical, "Koneksi Error"

End If

End Sub

'---- akhir

Lalu atur ketika di Run, mana yang akan di jalankan terlebih dahulu .. untuk itu kita pilih Sub Main yang ada MdlKoneksi dahulu yang akan jalan ketika di Run. Menu Project -> Project1 Properties -> Start Up Object pilih Sub Main.

Bingung prakteknya... nih saya kasih yang udah jadi : Download Disini

PERLU SOURCE CODE - SOURCE CODE LAINNYA , KLIK DISINI