Tugas Softskill Ke-4: Membuat aplikasi new media(Membuat web browser)

Pada postingan kali ini saya akan menjelaskan bagaimana cara untuk membuat suatu aplikasi new media. Disini saya akan membuat aplikasi web browser dengan menggunakan program Visual Basic 6.0 .

Pertama-tama, buka aplikasi Visual Basic 6.0 . Kemudian pilih Standard.EXE untuk merancang aplikasi baru. Setelah muncul form baru, kita terlebih dahulu membutuhkan komponen tambahan. Caranya, tekan Ctrl+T dan pilihlah komponen seperti dibawah ini:

- Microsoft HTML Library
- Microsoft Internet Control
- Microsoft Windows Common Control 6.0

Kemudian siapkan komponen-komponen yang diperlukan seperti dibawah ini:

- 1 Label
- 6 Command Button
- 1 Text Box
- 1 Web Browser
- 1 Progress Bar

Dan rancanglah form seperti gambar dibawah ini:

Kemudian ketikkan code berikut:

Tombol Go:

Private Sub Command1_Click()

On Error Resume Next

WebBrowser1.Navigate (Text1.Text)

End Sub

Tombol Home:

Private Sub Command2_Click()

On Error Resume Next

WebBrowser1.GoHome

End Sub

Tombol Refresh:

Private Sub Command3_Click()

On Error Resume Next

WebBrowser1.Refresh

End Sub

Tombol >:

Private Sub Command4_Click()

On Error Resume Next

WebBrowser1.GoBack

End Sub

Tombol <:

Private Sub Command5_Click()

On Error Resume Next

WebBrowser1.GoForward

End Sub

Tombol Exit:

Private Sub Command6_Click()

Unload Me

End Sub

Web Browser1:

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

Jika sudah, jalankan program tersebut dengan menekan F5 pada keyboard. 

Semoga Bermanfaat!!!

Time Published : 07.25 WIB.
Rating : 7/10.