Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu

Cara Mudah Membuat Browser Dengan Visual Basic

· · 4 comments
Assalamu’alaikum, wr.wb

Cara Membuat Browser Dengan Visual Basic – Selamat datang rekan-rekan di blog mungil ini. Web browser bisa dikatan sebagai pintu untuk berselancar didunia maya. Berbagai macam web browser hadir saat ini secara gratis. Mozilla Firefox dan Google chrome merupakan web browser yang paling banyak digunakan oleh pengguna windows. Proyek Firefox diprakarsai oleh Dave Hyatt, Joe Hewitt dan Blake Ross. Sementara chrome merupakan produk google.

Mungkin rekan-rekan bertanya darimana pendapatan mozilla firefox ? padahal kita mengunduhnya secara gratis. Hm.. ternyata firefox dibayar oleh google. Google membayar mozilla firefox setiap kali penggunanya mengklik iklan google dari firefox. Dan setiap entri query ada hitungan tersendiri yang membuat brangkas perusahaan firefox mendapatkan penghasilan. Ditahun 2009 saja mozilla firefox mendapatkan keuntungan $ 104.000.000.

Nah apakah rekan-rekan ingin mencontoh kesuksesan firefox dengan mengembangkan browser sendiri ? walau terdengar ngaco, tidak ada salahnya memulainya dari sekarang dengan membuat program browser sederhana menggunakan bahasa pemograman visual basic (VB).

1. Buka Visual Basic
Buat project baru misalnya web browser mungil

2. Aktifkan komponen berikut :

cara membuat web browser sederhana di VB

3. Desain tampilan web browsernnya seperti gambar dibawah ini. Rekan-rekan dapat merubah tata letak maupun warna supaya tampak lebih mengharukan 
langkah-langkah membuat web browser di visual basic

4. Masukan source code web browser VB dibawah ini dengan cara seksama dan dalam tepo yang sesingkat-singkatnya (ingat proklamasi lagi, hehe)

Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub

Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub

Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub

Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub

Private Sub Command5_Click()
On Error Resume Next
WebBrowser1.Navigate (Text1.Text)
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Form_Load()

End Sub

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 = "Loading Bar"
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



contoh program web browser sederhana di VB

Kita coba membuka google.com. Setelah dijalankan maka akan tampil seperti screenshot diatas. Untuk membuat program browsernya otomatis memenuhi layar, silahkan atur pada properti windows state2 maximized. Untuk membuat posisi form ditengah pakai mantera ini Move (Screen.Width - Width) / 2, (Screen.Height - Height) * 0.5  Moga bermanfaat. Begitulah.

Baca juga --> Cara mudah membuat query di Ms. Access

4 comments:

  1. oke deh bos nanti di coba deh browsernya ...

    ReplyDelete
  2. Replies
    1. Tingal kopy source kodenya aja kok om. command buttonnya masih standar tidak saya rubah captionnya. yang penting aktifkan dulu tiga komponen diatas

      Delete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan