MENGINSTALL VISUAL BASIC 6.0 DI WINDOWS 7 ULTIMATE

1. Pada folder VB 6à Setup.exe nya di klik kanan pilih properties.. 

  

2.Kemudian pilih Compability..

 3.Setelah setingan berikut disesuaikan, klik OK..

4.Kemudian kembali ke Folder VB tadi pilih Sub Folder VB98 à kik kanan pilih properties .., dan ikuti seperti gambar di bawah..

5.Kemudian Lakukan penginstalan seperti biasa, dan jika peringatan berikut muncul pilih Run Program ya..

 

CARA MEMBUAT LOGIN SEDERHANA DENGAN MENGGUNAKAN VB 6.0 DAN MYSQL


Versi ke-1
Nah untuk pertama kita jalankan vb nya dan membuat form yang pertama.kalo udah tau kita langsung aja ke pokok bahasan yaitu membuat login sederhana dengan Vb.Tapi lebih baik anda paham dulu dengan Koneksinya database Mysqlnya.Pengen tau????kapan2 dech gue kasih tau...
1.Kita sediakan label(2 j),text(2),CommondButton(2 ato bisa--->>klo pengen keren).Tentunya di tata dengan rapi donk..
2.Nie yang bikin enak,COPAS ja alias copy-paste source code dibwah ini:
Private Sub Command1_Click()
On Error Resume Next
Dim isi As Boolean
Adodc1.RecordSource = "select count(*) from login where UserName='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.Fields(0) = 0 Then
isi = False
MsgBox "masih kosong", vbCritical, App.Title
End If
If Adodc1.Recordset.Fields(0) >= 1 Then
isi = True
End If
Dim nama As String
Dim Pwd As String
Adodc1.RecordSource = "select * from login where UserName='" & Text1.Text & "'"
Adodc1.Refresh
nama = Adodc1.Recordset.Fields!UserName
Pwd = Adodc1.Recordset.Fields!Password
If Text1.Text = nama And Text2 = Pwd And isi = True Then
Form1.Hide
Form2.Show
Else
MsgBox "Username dan Password tidak cocok", vbInformation, App.Title
End If
End Sub
 










Versi ke-2
Membuat Form Login Menggunakan VB6
Oke kali ini saya akan membahas trik bagaimana membuat Form Login menggunakan Visual Basic 6 dengan batasan tiga kali kesalahan inputan Username dan Password. Tentu saja trik ini ditujukan untuk pemula/nubie seperti saya, bagi para master tinggalkan wang dolar segepok buat saya… eehh maksudnya… tinggalkan jejak aja dikolom komen di bawah he… he…. he….

gak usah basa basi langsung aja buat Project Standar EXE dengan properti sebagai berikut:


 Object                                 Property
Form1                                 Name: frmLogin

                                           Caption: Login
Form2                                 Name: frmMain

                                           Caption: Menu Utama
Label1                                 Caption: User Name
Label2                                 Caption: Password
Text1                                  Name: txtUsername

Text:                                    [Kosongkan]
Text2                                  Name: txtPassword

Text:                                   [Kosongkan]
Command1                        Name: cmdLogin

                                          Caption: Login

Pada Form1 ketikan kode berikut ini (biar jangan salah, copy-paste aja kode dibawah ini):

Option Explicit
Dim hitung As Byte
Private Sub cmdLogin_Click()

If Trim(txtUsername.Text) = vbNullString And Trim(txtPassword.Text) = vbNullString Then

GoSub hitungLog
MsgBox “Username dan Password masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _
vbInformation, “Konfirmasi”
txtUsername.SetFocus

ElseIf Trim(txtUsername.Text) = vbNullString Then

GoSub hitungLog
MsgBox “Username Anda masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _
vbInformation, “Konfirmasi”
txtUsername.SetFocus

ElseIf Trim(txtPassword.Text) = vbNullString Then

GoSub hitungLog
MsgBox “Password Anda masih kosong !!!” + vbCrLf + “Harap diisi kembali!!!”, _
vbInformation, “Konfirmasi”
txtPassword.SetFocus

ElseIf Trim(txtUsername.Text) = “admin” And Trim(txtPassword.Text) = “admin” Then

frmMain.Show
Unload Me

Else

GoSub hitungLog
txtUsername = vbNullString
txtPassword = vbNullString
txtUsername.SetFocus
MsgBox “Username atau Password Anda salah!!!” + vbCrLf + “Harap diisi dengan benar!!!”, _
vbExclamation, “Informasi”

End If

Exit Sub

hitungLog:
hitung = hitung + 1
If hitung = 3 Then

MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _
vbExclamation, “Informasi”
Unload Me

Else

Return

End If

End Sub
Private Sub Form_Load()

hitung = 0

End Sub

Kunci untuk membuat batasan inputan kesalahan sebanyak tiga kali yaitu ada pada variable “hitung“.  dimana kita memberi batasan sebanyak 3 kali dengan menyimpanan perhitungan pada variable “hitung“…
Lihat potongan kode berikut:

Dim hitung As Byte
…..
…..

hitung = hitung + 1
If hitung = 3 Then

MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _
vbExclamation, “Informasi”
Unload Me

Else

Return

End If

Alternatif lain untuk meyimpan batasan input kesalahan yaitu dengan menggunakan Property “Tag” yang dimiliki oleh Object didalam Form, contohnya CommandButton, TextBox, dan Label. Cara penggunaannya yaitu mengganti tiap variable “hitung” pada kode di atas dengan variable cmdLogin.Tag atau txtUsername.Tag ataupun txtPassword.Tag sehingga potongan kode diatas menjadi:

…..
…..

cmdLogin.Tag = cmdLogin.Tag + 1
If cmdLogin.Tag = 3 Then

MsgBox “Sudah tiga kali Anda melakukan kesalahan.” + vbCrLf + “Program akan diakhiri!!!”, _
vbExclamation, “Informasi”
Unload Me

Else

Return

End If

Nie Hasil Programnya:

Posted in: Komputer,Pemrograman VB