Program PHP Kursus Pra UAS

Silahkan Download Programnya

silahkan Download programnya

database dari 2 program di atas sama, jadi tinggal import salah satu databasenya j
klo ada yang g bisa di download, tolong comment y...

Read more »

Posted in: download,PHP

Program Visual Basic 6.0 Pra UAS "Bimbel"

mav baru bisa Upload hari ini

Silahkan di download

Read more »

CARA MEMBUAT FORM LOGIN PADA VISUAL BASIC 6.0

Form login merupakan form yang sering kita temui pada sebuah program. Form ini di buat untuk membatasi akses pengguna pada sebuah program agar program tersebut hanya bisa di akses oleh orang-orang tertentu saja.

Langsung saja kita buat sebuah form login sederhana. Disini saya akan membuat form login dengan menggunkan database Ms.Access. 

Langkah pertama adalah membuat databasenya terlebih dahulu. Buatlah database dengan nama  “penjualan” (sebenarnya untuk nama databasenya bebas, kebetulan aja saya kepikiran untuk buat  database “penjualan”). Setelah anda buat databasenya, silahkan anda buat tabel “user” dengan struktur seperti ini:

Kemudian isi tabel tersebut seperti ini:

Jika anda telah selesai membuat dan mengisi tablenya, silahkan close Ms.Access anda kemudian buka Visual Basic anda.
Jika Visual Basic anda telah terbuka, silahkan anda buat tampilan form login seperti di bawah ini:

Setelah selesai membuat tampilan form login seperti di atas, sillahkan anda lakukan koneksi ke database yang anda buat tadi. Caranya sebagai berikut:

1. Klik kanan pada “Adodc1” yang ada di form login yang baru anda buat tadi. Kemudian pilih “ADODC Properties”.

2. Setelah itu, akan muncul jendela Property Pages.

3. Lalu klik tombol “Build” pada Use Connection String, maka akan muncul jendela Data Link Properties.

4. Pilih tab “Provider” lalu “Microsoft Jet 4.0 OLE DB Provider” pada kolom Select the data you want to connect to:. Kemudian klik tombol “Next” maka anda akan di bawa ke tab “Connection” pada jendela Data Link Properties.

5. Silahkan klik tomboldan cari dimana database yang tadi anda buat.

Jika databasenya sudah ketemu, kemudian anda pilih lalu klik tombol “Open”.
6. setelah itu, kolom yang berada di bawah Select the data you want to connect to: akan terisi alamat dari database anda.

Untuk membuktikan koneksi yang kita lakukan berhasil atau tidak, silahkan klik tombol “Test Connection”.
7. Jika pesan yang muncul seperti ini:.

Kemunkinan terjadi kesalahan pada saat pengkoneksian. Klik “OK” pada pesan tersebut dan silahkan ulangi sekali lagi langkah no.5 sampai no.6.
8. Jika pesan yang muncul seperti ini:

Maka pengkoneksian yang anda lakukan telah berhasil. Klik “OK” pada pesan tersebut dan klik “OK” pada jendela Data Link Properties.
9. Setelah itu, anda akan di bawa kembali ke jendela Property Pages. Sekarang kolom kosong pada Use Connection String telah berisi kode-kode hasil dari pengkoneksian yang anda lakukan tadi.

10. Sekarang pilih tab “RecordSource” pada jendela Property Pages. Pilih “2-adCmdTable” pada combo Command Type dan pilih tabelnya (tabel “user”) pada combo Table or Stored Procedure Name seperti yang terlihat pada gambar di bawah ini. Jika semuanya telah di setting, klik “OK”.

Proses pengkoneksian telah selesai. Sekarang anda buat listingnya sebagai berikut:


Private Sub cmdlogin_Click()
If txtuser.Text = "" Then
MsgBox "Masukkan User Name Anda", vbInformation, "Confirmation"
txtuser.SetFocus
Exit Sub
End If
If txtpass.Text = "" Then
MsgBox "Masukkan Password Anda", vbCritical, "Confirmation"
txtuser.SetFocus
Exit Sub
End If
Adodc1.Recordset.Find "userid='" & txtuser.Text & "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
If txtpass.Text = Adodc1.Recordset!password Then
MsgBox "Welcome To My Program......", vbInformation, "Pesan"
Me.Hide
menuutama.Show
Else
MsgBox "password salah..!"
txtpass.Text = ""
txtpass.SetFocus
End If
Else
MsgBox "AKSES DI TOLAK",vbCritical+vbOKOnly, "iNFO"
txtuser = ""
txtpass = ""
txtuser.SetFocus
End If
End Sub


Private Sub cmdcancel_Click()
txtuser.Text = ""
txtpass.Text = ""
txtuser.SetFocus
End Sub

Private Sub Form_Activate()
txtuser.Text = ""
txtpass.Text = ""
txtuser.SetFocus
End Sub

Private Sub Txtpass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdlogin_Click
End If
End Sub

Private Sub txtuser_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
txtpass.SetFocus
End If
End Sub

Private Sub Form_Load()
Adodc1.Refresh
End Sub



Demikianlah tutorial pembuatan form login yang saya buat ini. Jika ada suatu kekurangan pada tutorial yang saya buat ini saya mohon maaf sedalam-dalamnya dan saya mohon kritik dan saran yang membangun dari teman-teman semua. SEMOGA BERMANFAAT…!

Read more »

Posted in: Tutorial,visual basic

Cara membuat menu utama pada Visual Basic 6

Untuk membuat sebuah menu utama di dalam Visual Basic 6.0 silahkan ikuti langkah-langkah berikut:

          Langkah pertama kita akan membuat MDI Form. Nantinya MDI Form ini akan kita jadikan Menu Utama. Sebenarnya kita bisa membuat menu utama dengan menggunakan form biasa tapi umumnya menu  utama di buat dari sebuah MDI form. Untuk perbedaan MDI Form sendiri dengan form yang lain silahkan anda cari sendiri ya…, yang saya tahu bahwa MDI Form bisa menampung form biasa dengan jumlah yang tak terbatas dan form yang berada di dalam MDI Form desebut dengan childform sedangkan MDI Form di sebut juga sebagai Induk Form. Langsug saja kita buat MDI Formnya.

1. Jalankan Visual Basic 6.0 terlebih dahulu
2. Buatlah sebuah MDI form dengan cara: klik menu Project-Add MDI Form 

3. Lalu akan muncul jendela baru seperti di bawah ini:

Lalu klik tombol Open.
4. Setelah itu, MDI Form akan tampil

Tampilan MDI From sedikit berbeda dengan form biasa, MDI Form memiliki warna yang agak gelap dan hanya bisa di buat satu kali saja di satu project.
5. Setelah MDI Form berhasil di buat, sekarang kita buat menu-menunya. Pilih menu Tools-Menu Editor atau tekan Ctrl + E atau bisa juga langsung anda pilih icon menu editor yang terletak di samping icon open seperti pada gambar.

6. Setelah memilih menu editor, maka akan muncul jendelah menu editor seperti pada gambar di bawah ini:

7. Sekarang kita mulai pembuatan menunya, langkah pertama yang kita lakukan adalah mengisi kolom Caption dan kolom Name. Caption dan Name di sini merupakan Caption & name dari menu yang akan kita buat nanti. Setelah caption dan name di isi, lalu klik tombol next untuk untuk membuat menu berikutnya. Sebagai contoh, saya akan mengisi kolom Caption dengan” &File” dan kolom Name dengan “mnfile” seperti di bawah ini:

Lambang “&” pada kolom Caption berfungsi untuk membuat garis bawah pada huruf “F” dari kata “File” sehingga pada saat menu kita telah sekesai akan terlihat seperti “File”. Sedangkan “mn” dari “mnfile” pada kolom Name merupakan inisial dari nama menu. Hal ini sama seperti saat anda memberi name pada sebuah textbox. Inisial pada textbox biasanya adalah “txt”, sehingga pada saat memberi name pada textbox alamat (Cuma buat contoh aja), maka name-nya menjadi “txtalamat”. Seperti itulah maksudnya…
8. Setelah Caption dan Name menu selesai di isi, secara otomatis kolom yang ada di bawah jendela menu editor akan terisi seperti gambar di bawah ini

9. Setelah itu, klik tombol Next. Maka area abu-abu akan turun menjadi seperti:

Kemudian klik tombol Panah ke kanan , maka akan muncul titik-titik seperti di bawah ini:

Ini menandakan bahwa yang akan di buat selanjutnya merupakan sebuah submenu.
Isi kembali kolom Caption dan Name seperti di bawah ini:

Kemudian klik tombol Next kembali untuk membuat menu berikutnya.
Maka tampilannya akan seperti ini

10.  Klik tombol pana ke kiri , untuk menghilangkan titik-titik yang ada, sehingga akan tampil seperti ini

Ini menandakan bahwa yang akan kita buat adalah sebuah menu, bukan submenu.
11. Saya rasa anda sudah paham tentang pembuatan menu dan sub menunya, ini sangat mudah…! Sekarang coba anda buat sendiri menu-menu-nya sehingga akan terbentuk struktur manu seperti di bawah ini:

12. Setelah anda berhasil membuat struktur menu seperti gambar di atas, silahkan klik tombol OK pada jendela Menu Editor. Setelah itu, perhatikan MDI Form yang telah anda buat tadi..! terdapat sedikit perubahan… YUPZ..! sekarang MDI Form anda sudah di lengkapi dengan menu-menu yang baru saja anda buat. Untuk lebih jelasnya akan terlihat seperti di bawah ini.

Jika anda ingin mengedit menu-menu yang tadi, anda hanya perlu mengklik icon Menu Editor atau menekan Ctrl+E pada keyboard atau juga pilih menu tools-Menu Editor (MDI Form harus dalam keadaan terpilih).
13. Langkah selanjutnya adalah mengisi listing pada tiap-tiap menu yang ada sehingga dapat berfungsi dengan baik. Kita mulai dari submenu exit. Silahkan pilih menu Exit yang terdapat pada MDI Form seperti di bawah ini:

14. Setelah menu Exit di klik, maka akan muncul jendela listing. Silahkan isi listing keluarnya seperti anda mengisi listing tombol keluar. Di sini saya contohkan listing yang paling sederhana seperti di bawah ini:

Gampangkan..! hahaha…! Ehm-ehm…mav…
15. Lakukan hal yang sama untuk mengisi listing pada menu yang lain.
16. Di bawah ini adalah listing pada submenu “Barang” dari menu “Master”

Fungsi listing di atas adalah untuk memanggil form barang yang saya miliki.
17. Di bawah ini merupakan listing dari submenu “Penjualan” dari menu “Transaksi”

Fungsi listing di atas adalah untuk memanggil form penjualan yang saya miliki.

Jika semuanya telah selesai, silahkan anda running….

Demikianlah tutorial yang saya buat….huuuhh…capek juga y…
Pokonya semoga bermanfaat…!

 Saya sudah membuat paper dari tutorial ini, silahkan bagi yang ingin download..!

Read more »

Posted in: download,Tutorial,visual basic