TRIK MEMBUAT MULTI SEARCH ENGINE VISUAL BASIC

Trik membuat multi Search Engine Visual Basic

Assalamualaikum wr, wb..

Kali ini saya akan membahas trik untuk membuat Search Engine yang bisa mencari sesuatu pada internet dari beberapa Search Engine. Baiklah kita langsung ke TKP ya..

Langkah-langkah membuat Multi Search Engine

1. Buka rogram Visual Basic, dan mulai dengan form baru.

2. Masukan 3 komponen pada form : OptionButton, Text dan CommandButton

• Properties untuk ketiga komponennya seperti dibawah ini.
• CommandButton
• Name = Command1
• Caption = Cari
• TextBox
• Name = Text1
• Text = ""
• OptionButton (buat 2 OptionButton dengan nama yang sama, dngan cara control array, untuk membuat control array baca disini)
• Name = Option1
• Option1(0).Caption = Yahoo
• Option1(1).Caption = Google
• Label
• Name = Label1
• Masukan kode dibawah ini pada bagian declaration dan selanjutnya untuk setiap objek.

'Deklarasikan Function API
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

'Variable hasil pilihan pada caption1
Private hasil As Integer

Private Sub Command1_Click()
    Dim S As String
'Cari sesuai text1.text berdasarkan pilihan search engine yang dipilih
    Select Case hasil
    Case 0
        S = "http://search.yahoo.com/bin/search?p=" & Label1.Caption
    Case 1
        S = "http://www.google.com/search?q=" & Label1.Caption
    End Select
'buka web browser default berdasarkan masukan pada text1
    ShellExecute Me.hwnd, "open", S, "", "", 1
End Sub

Private Sub Form_Load()

End Sub

Private Sub Option1_Click(Index As Integer)
    If Selected <> Index Then
'yang dipilih hurupnya menjadi tebal
'dan yang tidak dipilih menjadi normal
        Option1(Selected).FontBold = False
        Option1(Index).FontBold = True
'masukan pilihan yang dipilih pada variabel hasil
        hasil = Index
    End If
End Sub

Private Sub Text1_Change()
    Dim I As Integer, cari As String, hasilcari As String
'masukan dari text1 ke var cari
    cari = Text1.Text
'cek apabila text1 kosong
    If cari = "" Then
'jika text1 kosong nonaktifkan tombol cari
        Command1.Enabled = False
    Else
'jika tidak aktifkan tombol cari
        Command1.Enabled = True
    End If
'Seleksi pada setiap karakter pada text1
    For I = 1 To Len(cari)
'cek nilai ASCII
        Select Case Asc(Mid(cari, I, 1))
'Hurup yang bukan karakter spesial hurupnya tetap
        Case 42, 43, 45 To 57, 64 To 90, 95, 97 To 122
            hasilcari = hasilcari + Mid(cari, I, 1)
'Hurup yang merupakan karakter spesial, beri kode
        Case Else
            hasilcari = hasilcari + "%" & Hex(Asc(Mid(cari, I, 1)))
        End Select
    Next I
'Tampilkan var hasilcari pada label1
    Label1.Caption = hasilcari
End Sub

Jalankan dengan menekan F5 pada keyboard anda dan coba ketik apa saja yang ingin anda cari di Google atau Yahoo lalu klik tombol Cari, lihat hasilnya...

Wassalam.. n smoga bermamfaat...