Cara Membuat Kotak Pencarian Google dan Yahoo di VB 6 - Siapa yang tidak kenal Google dan Yahoo sebuah perusahaan raksasa internet yang menyediakan barbagai macam fasilitas di Websitenya mulai dari A-Z termasuk yang akan Saya bahas di tip kali ini yaitu mebuat kotak pencarian Search Engine Google dan Yahoo. Mesin pencari ini sudah tidak asing lagi buat kita yang suka berselancar di internet untuk mencari sesuatu mulai dari vidio, tutorial, website dll.
Sebelum kita mengulas tip mari kita simak dulu fungsi dan pengertian dari Search Engine (mesin pencari). Search Engine aau mesin pencari adalah adalah program komputer yang dirancang untuk melakukan pencarian atas berkas-berkas yang tersimpan didalam suatu website sarch engine merupakan perangkat pencari informasi dari dokumen-dokumen yang tersedia.Hasil pencariannya akan di tampilkan dalam bentuk daftar terurut sesuai tingkat ke-hits-annya, baik berupa halaman website, gambar atau lainnya.Itulah sekilas tentang pengertian Searc Engine.
Tahukah Anda di VB6 pun kita bisa membuat sebuah kotak pencarian yang agak mirip dengan Search Engine Google dan Yahoo, bagaimana caranya?simak tip berikut ini dibawah ini :
Cara Membuat Kotak Pencarian Google dan Yahoo :
1. Buka Form Visual Basic Standar Anda
2. Tanamkan 1 buah TextBox, 1 CommandButton, 1 buah Label dan 1 optionButton (copy paste OptionButton sebayak 1x)
3. Desainlah seperti gambar dibawah ini
 |
| Desain Form |
4. Setelah desain selesai ketik kode dibawah ini :
'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_Activate()
Text1.SetFocus
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
5.Simpan hasil pekerjaan Anda dan jalankan program
Catatan :
Koneksi internet di perlukan untuk menjalankan mesin pencari.
Pilih option pencarian dari mesin pencari dari Yahoo atau Google
Ketikan kata yang akan di cari di kolom textbox, kemudian tekan Search
Demikian tip cara Cara Membuat Kotak Pencarian Google dan Yahoo di VB 6. Selamat mencoba semoga bermanfaat.
No comments:
Post a Comment