WebBrowser Pada VB.net 2008


MAKALAH  VISUAL BASIC LANJUTAN

 “WEBBROWSER”


                        Disusun oleh


  Nama      : Tulus P Sihaloho
            NIM         : 1005030027









Program   Studi  Teknik Informatika
Sekolah Tinggi Ilmu Komputer ( STIKOM )
Medan  2012
MERANCANG WEBBROWSER PADA VB.NET 2008
Makalah ini mempelajari tentang pembuatan webbrowser dengan menggunakan Visual basic 2008. Berikut adalah langkah – langkah dalam pembuatan programnya:
  1. Membuka Aplikasi Visual Basic 2008, lalu buat project baru dan beri nama terserah apa saja, disini saya memberi nama “ Web Tulus “ dan ganti nama form1 terserah disini saya memberi nama “ Browser “
  2. Klik Toolbox  dan pilih objek – objek untuk ditampilkan di desain form, disini saya saya memilih objek – objek antara lain :
Langkah
Objek
 Propertis
Keterangan
1
Panel1
Dock = Top
Backcolor = Silver

2
TextBox1
Text = ( Kosong )
Arahkan kedalam Panel
3
TextBox2
Text = ( Kosong )
Arahkan kedalam Panel
4
Label1
Text = Url
Arahkan kedalam Panel
5
Button1
Text = ( kosong )
Image = Back
Arahkan kedalam Panel
6
Button2
Text = ( kosong )
Image = Forward
Arahkan kedalam Panel
7
Button3
Text = ( kosong )
Image = Home
Arahkan kedalam Panel
8
Button4
Text = ( kosong )
Image = Refresh
Arahkan kedalam Panel
9
Button5
Text = Go
Image = None
Arahkan kedalam Panel
10
Button6
Text = ( kosong )
Image = Google Search
Arahkan kedalam Panel
11
MenuStrip1
Backcolor = DarkGray
Automatis  Dock = Top
12
Statustrip1
Backcolor = Silver
Automatis  Dock = Bottom
13
Tabcontrol1
Dock = Fill
Remove Tab 1 dan Tab 2
  1. Klik Menustrip1 dan Ketikan di type here File, Tab dan Exit dan dibawa file ketikkan Page Propertis, Print preview dan Print lalu dibawa Tab ketikkan New Tab dan Remove Tab.
  2. Klik StatusStrip1 dan Pilih ProgressBar dan pilih StatusLabel

Berikut ini Tampilan Form Nya

  1. Pergi ke kode untuk Form_Load dan ketik perintah dibawah ini tepat diatas Form_Load (bukan di dalamnya, di atasnya)
Public Class Form1
    Dim int As Integer = 0
    Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
        ToolStripProgressBar1.Maximum = e.MaximumProgress
        ToolStripProgressBar1.Value = e.CurrentProgress
    End Sub
    Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).DocumentTitle
        ComboBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
    End Sub
  1. Double Klik Form1
Isikan code berikut
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Browser As New WebBrowser
        TabControl1.TabPages.Add("New Page")
        Browser.Name = "Web Browser"
        Browser.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browser)
        AddHandler Browser.ProgressChanged, AddressOf Loading
        AddHandler Browser.DocumentCompleted, AddressOf Done
        int = int + 1
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
End Sub

  1. Double Klik Button1 ( Back )
Isikan code berikut
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
End Sub
  1. Double Klik Button2 ( Forward )
Isikan code berikut
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
   End Sub
  1. Double Klik Button3 ( Home )
Isikan code berikut
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
End Sub
  1. Double Klik Button4 ( Refresh )
Isikan code berikut
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
End Sub
  1. Double Klik Button5 ( Go )
Isikan code berikut
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
End Sub

  1. Double Klik Button6 ( Google )
Isikan code berikut
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate("http://www.google.co.id/search?q=" & TextBox2.Text & "&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:en-US:unofficial&client=firefox-a")
End Sub
  1. Duble Klik Timer
Isikan code berikut
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText
End Sub
  1. Duble Klik PagePropertisToolStripMenuItem
Isikan code berikut
Private Sub PagePropertisToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PagePropertisToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()
End Sub
  1. Duble Klik PagePrintPreviewToolStripMenuItem
Isikan code berikut
Private Sub PagePrintPreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PagePrintPreToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPrintPreviewDialog()
End Sub
  1. Duble Klik PrintToolStripMenuItem
Isikan code berikut
Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPrintDialog()
End Sub
  1. Duble Klik NewTabToolStripMenuItem
Isikan code berikut
Private Sub NewTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewTabToolStripMenuItem.Click
        Dim Browser As New WebBrowser
        TabControl1.TabPages.Add("New Page")
        TabControl1.SelectTab(int)
        Browser.Name = "Web Browser"
        Browser.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browser)
        AddHandler Browser.ProgressChanged, AddressOf Loading
        AddHandler Browser.DocumentCompleted, AddressOf Done
        int = int + 1
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
End Sub
  1. Duble Klik RemoveTabToolStripMenuItem
Isikan code berikut
Private Sub RemoveTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveTabToolStripMenuItem.Click
   If Not TabControl1.TabPages.Count = 1 Then
      TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
      TabControl1.SelectTab(TabControl1.TabPages.Count - 1)
            int = int - 1
   End If
End Sub


  1. Duble Klik ExitToolStripMenuItem
Isikan code berikut
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
End Sub
  1. Setelah itu coba jalankan Program dengan cara klik tombol start debugging
           Berikut ini contoh Tampilan Ketika di Start ( http://id.yahoo.com/ )

     Dan contoh tampilan ketika pada NewTab ( http://www.tulussihaloho.co.cc/ )

       Contoh tampilan fungsi Button6 / Google Search ( Facebook )



            Selanjutnya uji semua fungsi Objek – objek yang lainnya, Seperti Back, Forward, Home, Refresh, Page Propertis, PagePrintPreview, PagePrint, RemoveTab dan Exit. 







Download Makalah  disini

Komentar

Posting Komentar

Postingan populer dari blog ini

Organisasi Komputer

Gambar
1. Perbedaan antara organisasi computer dengan arsitektur computer , dan contohnya : 1.  Jika organisasi komputer mempelajari bagian yang terkait dengan unit -unit operasional komputer dan hubungan antara komponen sistem computer,dan interkoneksinya yang merealisasikan spesifikasi arsitektural contoh: teknologi hardware, perangkat antarmuka (interface), teknologi memori, sistem memori, dan sinyal–sinyal kontrol 2.  Sedangkan arsitektur komputer mempelajari atribut - atribut sistem komputer yang terkait dengan seorang programmer, dan memiliki dampak langsung pada eksekusi logis sebuah program contoh: set instruksi, aritmetika yang digunakan, teknik pengalamatan, mekanisme I/0. 2. Struktur top level computer dan fungsi : Gambar Struktur Top Level Komputer Fungsi masing masingnya : 1.  Central Processing Unit (CPU) CPU berfungsi seperti kalkulator, hanya saja CPU jauh lebih kuat daya pemrosesannya. Fungsi utama dari CPU adalah melakukan operasi  ar...
Baca selengkapnya