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 :
3. Desain tampilan web browsernnya seperti gambar dibawah ini. Rekan-rekan dapat merubah tata letak maupun warna supaya tampak lebih mengharukan
4. Masukan source code web browser VB dibawah ini dengan cara seksama dan dalam tepo yang sesingkat-singkatnya (ingat proklamasi lagi, hehe)
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
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 :
3. Desain tampilan web browsernnya seperti gambar dibawah ini. Rekan-rekan dapat merubah tata letak maupun warna supaya tampak lebih mengharukan
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
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
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
oke deh bos nanti di coba deh browsernya ...
ReplyDeleteSilahkan mas..
DeleteBikin tutorial bisa gak please .....
ReplyDeleteTingal kopy source kodenya aja kok om. command buttonnya masih standar tidak saya rubah captionnya. yang penting aktifkan dulu tiga komponen diatas
Delete