Cara Membuat Web Browser Dengan Menggunakan Visual Basic 6.0

Hallo Sobat Blogger... karna kesibukan di sekolah... Saya jadi jarang posting. Kali ini saya mau share Cara membuat Web Browser Sederhana dengan VB6.

Syarat membuat Web Browser :

1. Sediakan Makanan Ringan
2. Kopi dan Rokok
3. Dengerin Musik... klo bisa Iwan Fals :)
4. Harus punya VB6 , Full maupun Portable. Kalo belum punya Visual Basic 6, bisa Cari di Indowebster.


Langkah2 membuat Web Browser ala Yudhistira Mawardi :

1. Buka Visual Basic 6 nya. Trus pilih Standard EXE.
2. Klik Kanan Pada ToolBox, Kemudian pilih Components atau tekan  key Ctrl + T .
3. Kemudian Centang Microsoft html object library, Microsoft internet controls, Microsoft Windows common Controls 5.0 atau 6.0 sama saja.
4. Buat 5 Command Buton, 1 Text Box , 1Label, 1 Webbrowser , 1 Proggress Bar. Saran saya tata Seperti Gambar di bawah.

CommandButton Captionnya saya ganti dengan Back, Forward, Refresh, Stop dan Go.

Label Captionnya saya ganti Done

TextBox Text kalau bisa Kosong aja.








5. Sekarang Masukkan kode kode berikut, caranya doble klik pada tool / tombol yang sudah kita buat.

1. Back
On Error Resume Next
WebBrowser1.GoBack

2. Forward
On Error Resume Next
WebBrowser1.GoForward

3.Refresh
On Error Resume Next
WebBrowser1.Refresh

4.Stop
On Error Resume Next
WebBrowser1.Stop

5.GO
On Error Resume Next
WebBrowser1.Navigate Text1.Text

6. Progress Bar. Langsung Copy dan Paste Code ini pada Form Code

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
Image1.Visible = False
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = "Loading " & Int(Progress * 100 / ProgressMax) & "%"

End If
Exit Sub
End Sub

8.Resize Form. Langsung Copy dan Paste Code ini pada Form Code

Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
End Sub


6. Coba Jalankan Programnya Run > Start atau F5. Bila anda menemui error Silahkah komen, pasti ane jawab :)

7. Kalau sudah tak tampak error. Langsung pilih File > Make Project1.exe.

8. Finish ^^

Kalau Program sudah jadi akan terlihat seperti ini :

<sumber: http://brontoc.blogspot.com>

Baiklah kali ini saya akan share ilmu yang saya dapatkan di bangku perkuliahan, yang menurut saya penting untuk saya bagikan kepada semua sobat, meskipun sederhana tapi pasti cukup bermanfaat buat sobat, hehehehe...
Hem... sobat biasa menggunakan kalkulator untuk menghitung khan ??? Entah itu untuk mengerjakan tugas hitung-menghitung atau sekedar untuk menghitung jumlah tunggakan kita (hutang) hehehehe... Apa sobat pernah berpikir bagaimana cara membuat software Kalkulator ??? Nah,,, kali ini saya akan memaparkan cara Membuat Kalkulator Sederhana Menggunakan Visual Basic, yang cukup mudah untuk dipraktekkan. Ok dech kalau begitu sob, kita langsung saja belajarnya, cekidot...

Tampilan Kalkulator :

Step By Step membuat Kalkulator sederhana :

Step 1 :
Jalan aplikasi Visual Basic 6.0 Buat Form baru dan tambahkan 1 objek TextBox dan 22 objek CommanndButton. Untuk lebih jelasnya, perhatikan gambar dibawah ini.

Step 2 :
Atur dan sesuaikan Properties dari masing-masing objek tersebut.

Form
Caption = Kalkulator www.tanahkaro-tutorial.blogspot.com  

Text1.Text
Name = Text1.Text

Command1
Name    = Cmd_0
Caption = 1

Command2
Name    = Cmd_Sama_Dengan
Caption = =

Command3
Name    = Cmd_1
Caption = 1

Command4
Name    = Cmd_2
Caption = 2

Command5
Name    = Cmd_3
Caption = 3

Command6
Name    = Cmd_4
Caption = 4

Command7
Name    = Cmd_5
Caption = 5

Command8
Name    = Cmd_6
Caption = 6

Command9
Name    = Cmd_7
Caption = 7

Command10
Name    = Cmd_8
Caption = 8

Command11
Name    = Cmd_9
Caption = 9

Command12
Name    = Cmd_Bagi
Caption = /

Command13
Name    = Cmd_Kali
Caption = *

Command14
Name    = Cmd_Kurang
Caption = -

Command15
Name    = Cmd_Tambah
Caption = +

Command16
Name    = Cmd_Pangkat
Caption = ^

Command17
Name    = Cmd_sin
Caption = sin

Command18
Name    = Cmd_CE
Caption = CE

Command19
Name    = Cmd_Tan
Caption = tan

Command20
Name    = Cmd_Cos
Caption = cos

Command21
Name    = Cmd_C
Caption = C

Command22
Name    = Cmd_Off
Caption = Off/Keluar

Step 3 :
Double klik pada area Form dan ketikkan Listing berikut ini :
Dim Angka, Hasil As Double
Dim Operator As String

Step 4 :

Double klik pada tombol 0, kemudian ketikkan Listing berikut ini :
Private Sub Cmd_0_Click()
If Text1.Text = "0" Then
Text1.Text = "0"
Else
Text1.Text = Text1.Text & "0"
End If
End Sub

Step 5 :

Double klik pada tombol 1, kemudian ketikkan Listing berikut ini :
Private Sub Cmd_1_Click()
If Text1.Text = "0" Then
Text1.Text = "1"
Else
Text1.Text = Text1.Text & "1"
End If
End Sub

Step 6 :

Double klik pada tombol 2, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_2_Click()
If Text1.Text = "0" Then
Text1.Text = "2"
Else
Text1.Text = Text1.Text & "2"
End If
End Sub

Step 7 :

Double klik pada tombol 3, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_3_Click()
If Text1.Text = "0" Then
Text1.Text = "3"
Else
Text1.Text = Text1.Text & "3"
End If
End Sub

Step 8 :

Double klik pada tombol 4, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_4_Click()
If Text1.Text = "0" Then
Text1.Text = "4"
Else
Text1.Text = Text1.Text & "4"
End If
End Sub

Step 9 :

Double klik pada tombol 5, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_5_Click()
If Text1.Text = "0" Then
Text1.Text = "5"
Else
Text1.Text = Text1.Text & "5"
End If
End Sub

Step 10 :

Double klik pada tombol 6, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_6_Click()
If Text1.Text = "0" Then
Text1.Text = "6"
Else
Text1.Text = Text1.Text & "6"
End If
End Sub

Step 11 :

Double klik pada tombol 7, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_7_Click()
If Text1.Text = "0" Then
Text1.Text = "7"
Else
Text1.Text = Text1.Text & "7"
End If
End Sub

Step 12 :

Double klik pada tombol 8, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_8_Click()
If Text1.Text = "0" Then
Text1.Text = "8"
Else
Text1.Text = Text1.Text & "8"
End If
End Sub

Step 13 :

Double klik pada tombol 9, kemudian ketikkan Listing berikut ini :


Private Sub Cmd_9_Click()
If Text1.Text = "0" Then
Text1.Text = "9"
Else
Text1.Text = Text1.Text & "9"
End If
End Sub

Step 14 :

Double klik pada tombol Bagi (/), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Bagi_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka / Val(Text1.Text)
End If
Operator = "/"
Text1.Text = 0
End Sub

Step 15 :

Double klik pada tombol Hapus (C), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_C_Click()
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

Step 16 :

Double klik pada tombol Hapus (CE), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_CE_Click()
Text1.Text = "0"
Angka = 0
Hasil = 0
Operator = ""
End Sub

Step 17 :

Double klik pada tombol Kali (*), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Kali_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka * Val(Text1.Text)
End If
Operator = "*"
Text1.Text = 0
End Sub

Step 18 :

Double klik pada tombol Kurang (-), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Kurang_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka - Val(Text1.Text)
End If
Operator = "-"
Text1.Text = 0
End Sub

Step 19 :

Double klik pada tombol Tambah (+), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Tambah_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka + Val(Text1.Text)
End If
Operator = "+"
Text1.Text = 0
End Sub

Step 20 :

Double klik pada tombol Pangkat (^), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Pangkat_Click()
If Angka = 0 Then
Angka = Val(Text1.Text)
Else
Angka = Angka ^ Val(Text1.Text)
End If
Operator = "^"
Text1.Text = 0
End Sub

Step 21 :

Double klik pada tombol Sama Dengan (=), kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Sama_Dengan_Click()
If Operator = "+" Then
    Hasil = Angka + Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "-" Then
    Hasil = Angka - Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "*" Then
    Hasil = Angka * Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "/" Then
    Hasil = Angka / Val(Text1.Text)
    Text1.Text = Hasil
ElseIf Operator = "^" Then
    Hasil = Angka ^ Val(Text1.Text)
    Text1.Text = Hasil
End If
End Sub

Step 22 :

Double klik pada tombol Off/Keluar, kemudian ketikkan Listing berikut ini :

Private Sub Cmd_Off_Click()
End
End Sub


Gimana sob, cukup mudahkan membuat Kalkulator menggunakan Visual Basic ??? Jika sobat mengukuti prosedure yang saya terapkan di atas, Insyallah akan berjalan lancar tanpa ada masalah.

Semoga bermanfaat