Membuat Form Login dengan VB6

Hai sobat bodolers dimanapun berada, malam ini mimin lagi galau nih jadi mimin mau share ilmu mimin sama kalian semua biar galaunya ilang. Kemarin kita sudah belajar membuat aplikasi-aplikasi sederhana dengan vb6  dan kali inipun tidak kalah sederhananya tapi sangat berguna karena kebanyakan aplikasi akan menggunakannya. Langsung saja kita mulai yah ,,,
Langkah pertama kita buat dulu databasenya , kali ini kita menggunakan database acces. Caranya :
1. Kita buka dulu MS Acces nya

2. Klik Bagian yan ditunjuk tanda panah

3. Ketik nama databasenya , disini mimin pakai "Gudang.mdb" lalu pilih direktorinya kemudian klik 'Create'

4. Akan muncul tampilan ini , klik bagian bertanda panah

5. Kemudian simpan dengan nama 'login'

6. Buat tabelnya dan jika sudah jadi akan seperti tampilan di atas

 Setelah database berhasil dibuat , maka langkah selanjutnya adalah membuat tampilan form login di VB6. Buat form seperti gambar di bawah

Tampilan form yang belum jadi

Kemudian di listing programnya tuliskan seperti ini :
=========================================================================
'memunculkan pasword
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text2.PasswordChar = ""
Else
Text2.PasswordChar = "*"
End If
End Sub

Private Sub Command1_Click()
Call koneksi
Set rslogin = New ADODB.Recordset
rslogin.Open " select * from login where user = '" & Text1.Text & "' and password = '" & Text2.Text & "'", cn, adOpenDynamic, adLockOptimistic
If Not rslogin.EOF Then
    Unload Me
    MsgBox " Selamat datang "
    Form2.Show
    Else
    MsgBox " Maaf, anda bukan pengguna yang berhak !"
    Text1 = ""
    Text2 = ""
    Text1.SetFocus
    End If
    End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Text2.SetFocus
    End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Command1.SetFocus
    End If
End Sub
=========================================================================
namun agar program dapat berjalan seperti seharusnya kita harus menambahkan sebuah Module koneksi pada project kita dan berikut listing programnya
=========================================================================
Public cn As New ADODB.Connection
 Public rsbeli As New ADODB.Recordset
 Public rsbarang As New ADODB.Recordset
 Public rslogin As New ADODB.Recordset
 Public rsjenis As New ADODB.Recordset
 Public RSsupli As New ADODB.Recordset

 Sub koneksi()
 Set cn = New ADODB.Connection
 cn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0; data source= " & App.Path & "\gudang.mdb;" & "Persist Security Info = False"
 cn.CursorLocation = adUseClient
 cn.Open
 End Sub
==========================================================================

Penampakan setelah jadi (password dilindungi tanda *)

 

Password dapat dilihat dengan meng-klik pada checkbox

Sekian potingan mimin kali ini, lebih kurangnya mimin minta maaf dan jika ada pertanyaan silahkan post di komen. Silahkan download projectnya pada tombol dibawah

Read more »

Calculator Sederhana Dengan VB6

Hai sahabat bodolers, kemarin kita sudah Belajar font style dan font color dengan vb6. Kali ini mimin akan kembali memuat post tentang vb6. Secara mimin baru saja selesai belajar tentang VB jadi mimin akan share ilmu yang mimin dapet nih buat para bodolers sekalian. Langsung saja kita mulai tutornya ya. cusssss
Pertama siapkan alat dan bahannya , disini kita butuh komputer or lepi ( laptop ) yang sudah terinstal aplikasi VB6 tentunya. Langkah selanjutnya, kita buka VB6 lalu akan muncul sebuah form berjudul "New Project" disini kita pilih "Standard exe" kemudian klik "OK". Kemudian akan muncul sebuah lembar kerja atau form kosong, nah disinilah kita akan memulai project kita.

1.  Buat form seperti diatas yang terdiri dari :

• Txt1.text = text value 1
• txt2.text = text value 2
• txtjumlah.text = hasil penjumlahan
• txtkali.text = hasil perkalian
• txtbagi.tetx =hasil pembagian
• cmdlagi = caption "Clear"
• cmdkeluar = caption "Exit"
• cmdhitung = caption "Count"

   2. Buat seperti gambar diatas . Bentuk dan model tidak harus sama
   3. Jika sudah kita mulai buat kodingnya, seperti ini

----------------------------------------------------------------------------------------------------------
Private Sub cmdhitung_Click()
'rumus penjumlahan
txtjumlah = Val(txt1.Text) + Val(txt2.Text)
'rumus perkalian
txtkali = Val(txt1.Text) * Val(txt2.Text)
'rumus pengurangan
txtkurang = Val(txt1.Text) - Val(txt2.Text)
'rumus pembagian
txtbagi = Val(txt1.Text) / Val(txt2.Text)
cmdlagi.SetFocus
End Sub

Private Sub cmdkeluar_Click()
'perintah keluar
End
End Sub

Private Sub cmdlagi_Click()
txt1.SetFocus
'mengosongkan textbox
txt1 = ""
txt2 = ""
txtjumlah = ""
txtkali = ""
txtkurang = ""
txtbagi = ""
End Sub

Private Sub txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    txt2.SetFocus
    End If

End Sub
Private Sub txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    cmdhitung.SetFocus
    End If
End Sub
-----------------------------------------------------------------------------------------------------


nah sampai disini program kita sudah jadi nih sob. untuk mencoba apakah pembuatan program berjalan dengan benar maka kita perlu cek program kita dengan klik F5 pada keyboard atau bisa juga tekan tombol play di aplikasi VB6

nah seperti gambar di atas
jika program buatan kita running dengan sempurna tanpa ada debug itu berarti kita talah berhasil membuat programnya. Setelah itu kita simpan hasil kerja kita dengan cara CTRL+S dan ikuti langkahnya.
Saran : Simpan hasil kerja didalam satu folder khusus untuk setiap project baru

 Download Contoh Program

Read more »

Belajar Font Style dan Font Color Dengan VB6

Hai sahabat bodolers, dah lama gak post nih. Kali ini mimin akan memulai post tentang vb6. Secara mimin baru saja selesai belajar tentang VB jadi mimin akan share ilmu yang mimin dapet nih buat para bodolers sekalian. Langsung saja kita mulai tutornya ya. cusssss
Pertama siapkan alat dan bahannya , disini kita butuh komputer or lepi ( laptop ) yang sudah terinstal aplikasi VB6 tentunya. Langkah selanjutnya, kita buka VB6 lalu akan muncul sebuah form berjudul "New Project" disini kita pilih "Standard exe" kemudian klik "OK". Kemudian akan muncul sebuah lembar kerja atau form kosong, nah disinilah kita akan memulai project kita.

1.  Buat form seperti diatas yang terdiri dari : 2 label ( label1 caption : "sandalsbodol.blogspot.com"; name:  lbltxt, label2 caption:"text";name"label1") 1 text box( name: text1) , 2 frame( frame1 caption: "Font Color" dan frame2 caption: "Font Style") , 4 Optionbutton dan 4 checkbox, dan 1 command
2. Buat seperti gambar diatas . Bentuk dan model tidak harus sama
3. Jika sudah kita mulai buat kodingnya, seperti ini

Private Sub chcbold_Click()
'membuat font tebal/ bold , jika chcbold bernilai 1 maka lbltext font nya bold/tebal
If chcbold.Value = 1 Then
lbltext.FontBold = True
Else
lbltext.FontBold = False
End If
End Sub

Private Sub chcitalic_Click()
'membuat font miring/ italic , jika chcbold bernilai 1 maka lbltext font nya italic/ miring
If chcitalic.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub

Private Sub chcstrikeout_Click()
'membuat font strike out , jika chcbold bernilai 1 maka lbltext font nya strike out
If chcstrikeout.Value = 1 Then
lbltext.FontStrikethru = True
Else
lbltext.FontStrikethru = False
End If
End Sub

Private Sub chcunderline_Click()
'membuat font bergaris bawah , jika chcbold bernilai 1 maka lbltext font nya underline/ bergaris bawah
If chcunderline.Value = 1 Then
lbltext.FontUnderline = True
Else
lbltext.FontUnderline = False
End If
End Sub

'membuat warna font
Private Sub optblue_Click()
'warna biru
lbltext.ForeColor = vbBlue
End Sub

Private Sub optgreen_Click()
'warna hijau
lbltext.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
'warna merah
lbltext.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
'warna kuning
lbltext.ForeColor = vbYellow
End Sub

Private Sub Text1_Change()
'untuk mengganti lbltext memlalui textbox
lbltext = Text1.Text
End Sub

Private Sub x_Click()
'tombol keluar "x" ditambah dengan tombol konfirmasi sebelum keluar dari program
a = MsgBox("Ciusss", vbYesNo, "Sandalsbodol.blogspot.com")
If a = vbYes Then
End
Else
End If
End Sub
------------------------------------------------------------------------------------------------
nah sampai disini program kita sudah jadi nih sob. untuk mencoba apakah pembuatan program berjalan dengan benar maka kita perlu cek program kita dengan klik F5 pada keyboard atau bisa juga tekan tombol play di aplikasi VB6

nah seperti gambar di atas
jika program buatan kita running dengan sempurna tanpa ada debug itu berarti kita talah berhasil membuat programnya. Setelah itu kita simpan hasil kerja kita dengan cara CTRL+S dan ikuti langkahnya.
Saran : Simpan hasil kerja didalam satu folder khusus untuk setiap project baru

 Download Contoh Program

Read more »