ini adalah kode program dari "Mencari Kata dengan VB"
Private Sub cmd_clear_Click()
txt_cari.Text = ""
End Sub
Private Sub cmd_hasil_Click()
Dim hasil As Long
If txt_cari.Text <> "" Then
hasil = InStr(1, txt_kalimat.Text, txt_cari.Text, 1)
If hasil >= 1 Then
lbl_hasil.Caption = "Kata " + txt_cari.Text + _
"mulai ditemukan pertama kali pada karakter ke " _
+ Str(hasil)
Else
lbl_hasil.Caption = "Maaf, Kata yang anda cari tidak ditemukan"
End If
Else
txt_cari.SetFocus
End If
End Sub
Private Sub Form_Activate()
txt_kalimat.Text = txt_kalimat.Text + _
"Buku Seri Pemrograman Komputer: Visual Basic 6.0," + _
"adalah buku yang lebih dikhususkan bagi pemula," + _
"atau orang yang baru belajar pemrograman, Buku ini" + _
"adalah buku yang bagus sekali." + _
"Di dalam buku ini disertai ilustrasi gambar untuk" + _
"mempermudah pemahaman. Selain itu, disediakan," + _
"pula beberapa contoh dan soal latihan," + _
"agar pembaca lebih cepat menguasai materi " + _
"yang disajikan"
txt_kalimat.Locked = True
End Sub
NB
1. txt_kalimat = textbox buat untuk menulis kalimat atau yang kita inginkan
2. txt_cari = textbox untuk mencari kata
3. cmd_hasil = commandbutton untuk mencari kata
4. cmd_clear = commandbutton untuk "Clear" atau menghapus kata
Selamat Mencoba,
Ridon-Na70
