membuat browser sederhana dengan vb6

Nah tutorial kali ini membahas tentang visual basic ato VB, gw mo ngasih tutorial buat pemula aja coz kalo yang udah mahir mah gak perlu lagi yang kek gini. hehehe

Disini kita bakalan bikin web browser sederhana pake program VB, biarpun sederhana tapi buatan sendiri kan.,, OK tanpa panjang lebar lagi langsung aja kita mulai tutorialnya…

langkah pertama

Kamu buka program VBnya, Terus pilih project standard exe.

Tekan tombol CTRL + T pada keyboard, pada kotak dialog yang muncul cari komponen Microsoft Internet Controls , dan beri ceklist. Kemudian klik OK.

Langkah Kedua

Buat 4 Command Button dan beri nama command button tersebut dengan.

cmdBack

cmdForward

cmdStop

cmdHome

.

Buat 1 label control dan beri nama dengan : lbCaption

1 combobox control dan beri nama dengan : cboURL

masukan komponen webbrowser control pada form dengan cara double klik pada icon webbrowser control, dan beri nama dengan: wWeb

.

Atur posisi dari masing2 komponen sesuai keinginan kamu.

Langkah tiga

Masukan kode dibawah ini pada tombol cmdBack. Dengan cara double klik pada tombol tersebut.
wweb.GoBack

Masukan kode dibawah ini pada tombol cmdForward. Dengan cara double klik pada tombol tersebut.
wWeb.GoForward

Masukan kode dibawah ini pada tombol cmdStop. Dengan cara double klik pada tombol tersebut.
wWeb.Stop

Masukan kode dibawah ini pada tombol cmdHome. Dengan cara double klik pada tombol tersebut.
wWeb.GoHome

Masukan kode dibawah ini pada Combo Box. Dengan cara double klik pada Combo Box tersebut.
If KeyCode = vbKeyReturn Then
wWeb.Navigate cboURL.Text
End If

Langkah Keempat

mulai menjalankan program browser kita.

Cara Membuat Kakulator Sederhana

-Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
-masing-masing objek disesuaikan dengan gambar diatas.
-Textbox 1:
-(Name) : txtDisplay
-Alignment: 1-Right Justify
-Text : (kosongkan)
-Maxlength : 12
-Command Button 1:
-(Name) : cmdAngka
-Index : 1
-Caption : 1
-Command Button 2:
-(Name) : cmdAngka
-Index : 2
-Caption : 2
-Command Button 3:
-(Name) : cmdAngka
-Index : 3
-Caption : 3
-Command Button 4:
-(Name) : cmdAngka
-Index : 4
-Caption : 4
-Command Button 5:
-(Name) : cmdAngka
-Index : 5
-Caption : 5
-Command Button 6:
-(Name) : cmdAngka
-Index : 6
-Caption : 6
-Command Button 7:
-(Name) : cmdAngka
-Index : 7
-Caption : 7
-Command Button 8:
-(Name) : cmdAngka
-Index : 8
-Caption : 8
-Command Button 9:
-(Name) : cmdAngka
-Index : 9
-Caption : 9
-Command Button 10:
-(Name) : cmdAngka
-Index : 0
-Caption : 0
-Command Button 11:
-(Name) : cmdPlusMinus
-Caption : +/-
-Command Button 12:
-(Name) : cmdKoma
-Caption : .
-Command Button 13:
-(Name) : cmdOperator
-Index : 1
-Caption : +
-Command Button 14:
-(Name) : cmdOperator
-Index : 2
-Caption : –
-Command Button 15:
-(Name) : cmdOperator
-Index : 3
-Caption : x
-Command Button 16:
-(Name) : cmdOperator
-Index : 4
-Caption : /
-Command Button 17:
-(Name) : cmdClearEntry
-Caption : CE
-Command Button 18:
-(Name) : cmdClear
-Caption : C
-Command Button 19:
-(Name) : cmdSamaDengan
-Caption : =
-Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
-setting properties seperti diatas, maka codingnya saya contohkan seperti ini:
-Option Explicit
-Private Hasil As Double
-Private Const opNol = 0
-Private Const opTambah = 1
-Private Const opKurang = 2
-Private Const opKali = 3
-Private Const opBagi = 4
-Private Operator As Integer
-Private NilaiBaru As Boolean
-‘ untuk menghapus karakter terakhir
-Private Sub Hapus()
-Dim txt As String
-Dim min_len As Integer
-txt = txtDisplay.Text
-If Left$(txt, 1) = “-” Then
-min_len = 2
-Else
-min_len = 1
-End If
-If Len(txt) > min_len Then
-txtDisplay.Text = Left$(txt, Len(txt) – 1)
-Else
-txtDisplay.Text = “0”
-End If
-End Sub
-‘ hapus angka, hasil terakhir dan operator
-Private Sub cmdClear_Click()
-cmdClearEntry_Click
-Hasil = 0
-Operator = opNol
-End Sub
-‘ hapus angka
-Private Sub cmdClearEntry_Click()
-txtDisplay.Text = “”
-End Sub
-‘ menambahkan koma (desimal)
-Private Sub cmdKoma_Click()
-If InStr(txtDisplay.Text, “.”) Then
-Beep
-Else
-If NilaiBaru Then
-txtDisplay.Text = “.”
-NilaiBaru = False
-Else
-txtDisplay.Text = txtDisplay.Text & “.”
-End If
-End If
-End Sub
-‘ Menghitung
-Private Sub cmdSamaDengan_Click()
-Dim HasilBaru As Double
-If txtDisplay.Text = “” Then
-HasilBaru = 0
-Else
-HasilBaru = CDbl(txtDisplay.Text)
-End If
-Select Case Operator
-Case opNol
-Hasil = HasilBaru
-Case opTambah
-Hasil = Hasil + HasilBaru
-Case opKurang
-Hasil = Hasil – HasilBaru
-Case opKali
-Hasil = Hasil * HasilBaru
-Case opBagi
-‘Tidak bisa dibagi nol
-If HasilBaru = 0 Then
-MsgBox “Tidak bisa dibagi 0”, vbOKOnly + vbCritical, “Kalku ERROR”
-Call cmdClear_Click
-Else
-Hasil = Hasil / HasilBaru
-End If
-End Select
-Operator = opNol
-NilaiBaru = True
-txtDisplay.Text = Format$(Hasil)
-End Sub
-‘ menuliskan angka
-Private Sub cmdAngka_Click(Index As Integer)
-If NilaiBaru Then
-txtDisplay.Text = Format$(Index)
-NilaiBaru = False
-Else
-txtDisplay.Text = _
-txtDisplay.Text & Format$(Index)
-End If
-End Sub
-‘ tombol tambah/kurang/bagi/kali
-Private Sub cmdOperator_Click(Index As Integer)
-cmdSamaDengan_Click
-Operator = Index
-NilaiBaru = True
-End Sub
-‘ merubah tanda +/-
-Private Sub cmdPlusMinus_Click()
-If NilaiBaru Then
-txtDisplay.Text = “-”
-ElseIf Left$(txtDisplay.Text, 1) = “-” Then
-txtDisplay.Text = Right$(txtDisplay.Text, 2)
-Else
-txtDisplay.Text = “-” & txtDisplay.Text
-End If
-End Sub
-‘ filter untuk angka saja yg dapat diketikkan
-Private Sub Form_KeyPress(KeyAscii As Integer)
-txtDisplay_KeyPress KeyAscii
-End Sub
-Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
-txtDisplay_KeyUp KeyCode, Shift
-End Sub
-‘ supaya kursor tetap di kanan
-Private Sub txtDisplay_Change()
-txtDisplay.SelStart = Len(txtDisplay.Text)
-End Sub
-Private Sub txtDisplay_GotFocus()
-txtDisplay_Change
-End Sub
-‘ untuk mengetikkan angka di keyboard
-Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
-Dim ch As String
-ch = Chr$(KeyAscii)
-Select Case ch
-Case “0”
-cmdAngka_Click 0
-Case “1”
-cmdAngka_Click 1
-Case “2”
-cmdAngka_Click 2
-Case “3”
-cmdAngka_Click 3
-Case “4”
-cmdAngka_Click 4
-Case “5”
-cmdAngka_Click 5
-Case “6”
-cmdAngka_Click 6
-Case “7”
-cmdAngka_Click 7
-Case “8”
-cmdAngka_Click 8
-Case “9”
-cmdAngka_Click 9
-Case “*”, “x”, “X”
-cmdOperator_Click opKali
-Case “+”
-cmdOperator_Click opTambah
-Case vbCrLf, vbCr, “=”
-cmdSamaDengan_Click
-Case “-”
-cmdOperator_Click opKurang
-Case “.”
-cmdKoma_Click
-Case “/”
-cmdOperator_Click opBagi
-Case “C”, “c”
-cmdClearEntry_Click
-End Select
-KeyAscii = 0
-End Sub
-‘ untuk ketikan angka di numpad
-Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
-Select Case KeyCode
-Case vbKeyNumpad0
-cmdAngka_Click 0
-Case vbKeyNumpad1
-cmdAngka_Click 1
-Case vbKeyNumpad2
-cmdAngka_Click 2
-Case vbKeyNumpad3
-cmdAngka_Click 3
-Case vbKeyNumpad4
-cmdAngka_Click 4
-Case vbKeyNumpad5
-cmdAngka_Click 5
-Case vbKeyNumpad6
-cmdAngka_Click 6
-Case vbKeyNumpad7
-cmdAngka_Click 7
-Case vbKeyNumpad8
-cmdAngka_Click 8
-Case vbKeyNumpad9
-cmdAngka_Click 9
-Case vbKeyMultiply
-cmdOperator_Click opKali
-Case vbKeyAdd
-cmdOperator_Click opTambah
-Case vbKeySeparator
-cmdSamaDengan_Click
-Case vbKeySubtract
-cmdOperator_Click opKurang
-Case vbKeyDivide
-cmdOperator_Click opBagi
-Case vbKeyDecimal
-cmdKoma_Click
-Case vbKeyBack, vbKeyDelete
-Hapus
-End Select
-KeyCode = 0
-End Sub

Membuat form login

Membuat Form Login

Pengantar

Form login adalah sebuah form yang dirancang untuk melakukan autentikasi atau pengecekan terhadap user yang bisa masuk kedalam sebuah system. Proses ini diawali dengan pembuatan tabel login untuk menyimpan username dan password setiap user yang terdaftar dalam program tersebut.

Membuat Tabel Login

Atur dan rancang tabel seperti berikut

Field	Type	Value
User	Text	25
Pass	Text	25

Merancang Form Login

Atur objek properti seperti gambar di bawah ini.

Atur property seperti berikut:

Komponen	Property
Label	Name : Label1 Caption : USER
Label	Name : Label1 Caption : PASSWORD
TextBox	Name : Txtuser Text : (dikosongkan)
TextBox	Name : TxtPass Text : (dikosongkan) PasswordChar : *
CommandButton	Name : cmdLogin Caption : LOGIN
CommandButton	Name : cmdKeluar Caption : Keluar
Frame	Name : Frame1 Caption : LOGIN

Ketikkan kode program berikut

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset

Private Sub cmdLogin_Click()

If conn.State = 1 Then conn.Close
conn.Open “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “\login.mdb”

If RS.State = 1 Then RS.Close

RS.Open “select * from login where user= ‘” & txtuser.Text & “‘ And pass = ‘” & txtpass.Text & “‘”, conn, 3, 3
If Not RS.EOF Then
MsgBox “BERHASIL”
Else
MsgBox “Data Salah”, vbCritical, “L O G I N”
Txtuser.Text = “”
Txtpass.Text = “”
Txtuser.SetFocus
End If
End Sub

Private Sub cmdKeluar_Click()
end
End Sub

Penjelasan Kode Program

Kode Program	Penjelasan
Public conn As New ADODB.Connection Public RS As New ADODB.Recordset	Merupakan kode untuk mengkoneksikan form ke database
If conn.State = 1 Then conn.Close conn.Open “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “\login.mdb”	Jika koneksi yang dilakukan sedang terbuka maka tutup dahulu agar tidak terjadi kesalahan. Conn.open digunakan untuk membuka database yang ingin digunakan. Sebagai catatan anda bisa menggunakan bantuan komponen ADODC. Caranya adalah dengan men-copy use connection string-nya. Untuk mempersingkat path (atau alamat) database, anda bisa menggunakan perintah app.path. Maksud dari perintah ini adalah program akan mencari di alamat tempat projek disimpan.
If RS.State = 1 Then RS.Close RS.Open “select * from login where user= ‘” & txtuser.Text & “‘ And pass = ‘” & txtpass.Text & “‘”, conn, 3, 3	Jika recordsetnya terbuka maka tutup Rs.open adalah perintah untuk membuka tabel yang di inginkan dengan menggunakan perintah SQL.
If Not RS.EOF Then frmUtama.show Else MsgBox”Data Salah”,vbCritical,”LOGIN”	Jika data tidak end of file maka tampilkan form utama. Maksud dari EOF adalah data yang dimaksud ada pada tabel. Selain itu maka tampilkan pesan kesalahan