Membuat browser sederhana dengan visual basic

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Pada Artikel  ini membahas pembuatan Browser sederhana dengan visual basic dan cara mendesain form dan Penulisan Source code program membuat Web Seacrh. Bermanfaat untuk praktikum atau latihan serta pengembangan Web Seacrh, serta dapat di pelajari untuk yang masih belajar programming visual basic karena di sertakan dengan desain, Source code, dan Properties dalam membuatnya.

1.    Buatlah Desain Form Web Seacrh yang terdiri dari 1 form yaitu : form Menu utama. Dapat di jadikan referensi jika masih bingung dengan desainya.

2.    Aturlah properties Ke- tiga form tersebut seperti contoh di bawah

 

3. Penulisan kode program

yang berminat dengan source code nya silahkan ambil di group Tutorial Visual Basic Indonesia 

     Letakan pada bagian Declaration

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOMOVE As Long = &H2
Private Const SWP_NOSIZE As Long = &H1
Private Const HWND_TOPMOST As Long = -1

 Letakan pada Form_load (FrmMain)

Private Sub Form_Load()
    cmbWeb.ListIndex = 0
   
    'form selalu di depan
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

 Letakan pada Label3

Private Sub Label3_Click()
 ShellExecute 0, "open", "http://www.visualbasicku.com", "", "",    vbMaximizedFocus
End Sub

Letakan pada Tombol Search/cari ( btnSearch)

Private Sub btnSearch_Click()
        If Trim(txtText.Text) = "" Then Exit Sub

        On Error Resume Next

        Dim t As String
        t = txtText.Text
       
        Dim s As String

        Select Case cmbWeb.Text
        ' Daftar list (catatan : tidak bisa di rubah)
            Case "Tutorial "
                s = "http://www.visualbasicku.com/search?q=" & t
            Case "Google"
                s = "http://www.google.com/search?q=" & t
            Case "Yahoo"
                s = "http://id.search.yahoo.com/search?p=" & t
            Case "Bing"
                s = "http://www.bing.com/search?q=" & t
            Case "Facebook"
                s = "https://www.facebook.com/search/results.php?q" & t
            Case "Twitter"
                s = "https://twitter.com/search/" & t
            Case "Kaskus"
                s = "http://www.kaskus.co.id/search_result.php?q=" & t
            Case "YouTube"
                s = "http://www.youtube.com/results?search_query=" & t
            Case "Wikipedia"
                s = "http://id.wikipedia.org/w/index.php?search=" & t
            Case "4Shared"
                s = "http://search.4shared.com/q/1/" & t
        End Select
       
        ShellExecute 0, "open", s, "", "", vbMaximizedFocus
End Sub

4.  Untuk menjalankan Aplikasi Klik RUN / F5

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Membuat browser sederhana dengan visual basic, Diterbitkan oleh scodeaplikasi pada Rabu, 13 Februari 2013. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.