Salam
Saya punya permasalahan
Misalnya diberikan dua teks berupa kata, misal kata(1) dan kata(2), dengan
panjang kata(1) > panjang kata(1).
Bagaimana algoritma untuk dimana jika kata(1) termuat dalam kata(2) maka fungsi akan return true dan jika tidak termuat maka akan return false.
Misalnya:
Function Termuat(kata1,kata2) as boolean
....
end function

maka
f(membajak,bajak)=true
f(memukul,pukul)=false
f(tertawa,erta)=true
....dst

Trims

Edit : tambahan
Bisa tulis algoritmanya
Gimana algoritmanya
Kalau bisa codenya dalam visual basic

kayaknya pake VB ya?

@Insan
coba deh liat atasnya..!
ya kan pke VB?

hehehe... iya ya.... saya yang kurang jeli atau Izna yang memang cerdas...
hihi.. jadi maluuu....!! Makasih Iz...!!

Kalo pake VB, tidak terlalu susah, soalnya sudah ada command-nya juga, yaitu : instr

Kalau dalam bentuk contoh program, kira2 sperti ini :

Dim sText As String
Dim lFind As Long

sText = "Insan Sains"
lFind = InStr(sText, "Sains")

IFind akan mereturn angka 7
yaitu karakter pertama yang ditemukan dari sText

kalau mau dijadikan tipe boolean, gak susah juga.

Dim sText As String

sText = "Insan Sains"
If InStr(sText, "Sains") Then
   MsgBox "Found the word 'Sains'"
   
Else
   MsgBox "Did not find the word 'Sains'"
End If


Kalau mau dijadikan function, bisa kan?? hehehe...
Cuman tinggal ganti MsgBox menjadi di-return-kan ke nama function-nya.

Nah... usul dari Eky bagus juga tuh...
Itu bisa dipakai untuk mencari kata tertentu dalam sebuah dokumen.

Ini script kalau mau nyobain dengan Visual Basic. Dimana kita punya sebuah form yang telah ditambahkan sebuah richtextbox bernama txtDocument yang diisi dengan tulisan yang ingin dicari, kemudian regular textbox bernama txtFinf yang merupakan kata yang akan dicari, serta sebuah tombol bernama cmdFind untuk memulai pencarian.

sumber : http://en.allexperts.com/q/Visual-Basic-1048/Creating-find-word-document.htm

-------------------------------------------------------------------

Option Explicit

Private Sub cmdFind_Click()
   ExecuteSearch
End Sub

Private Sub ExecuteSearch()
   Dim sFind As String
   Dim nFindIndex As Integer
   Dim nStartIndex As Integer
   
   sFind = txtFind.Text
   
   nStartIndex = txtDocument.SelStart + txtDocument.SelLength
   
   If nStartIndex = 0 Then
       nStartIndex = 1
   ElseIf nStartIndex >= Len(txtDocument.Text) Then
       If PromptForSearchFromBeginning Then
           txtDocument.SelStart = 1
           txtDocument.SelLength = 0
           nStartIndex = 1
       End If
   End If
   
   nFindIndex = InStr(nStartIndex, txtDocument.Text, txtFind.Text, vbBinaryCompare)
   
   If nFindIndex > 0 Then
       txtDocument.SelStart = nFindIndex - 1
       txtDocument.SelLength = Len(txtFind.Text)
       txtDocument.SetFocus
   Else
       If InStr(1, txtDocument.Text, txtFind.Text, vbBinaryCompare) Then
           If PromptForSearchFromBeginning Then
               txtDocument.SelStart = 1
               txtDocument.SelLength = 0
               'Make recursive call
               ExecuteSearch
           End If
       End If
   End If
End Sub

Private Function PromptForSearchFromBeginning() As Boolean
   Dim eMsgBxRslt As VbMsgBoxResult
   Dim bRetVal As Boolean
   
   eMsgBxRslt = MsgBox("End of Document reached" & vbNewLine & "Would you like to start from the beginning?", vbYesNo, "End of Document")
   bRetVal = (eMsgBxRslt = vbYes)
       
   PromptForSearchFromBeginning = bRetVal
End Function 


-------------------------------------------------------------------

Kalau mau bacaan lebih jelas tentang command instr, bisa lihat help-nya atau tinggal klik link berikut ini

kekeke.... kayak ayam aja.... ("jago") 

sekarang sih udah gak pegang VB lagi...! tinggal sisa-sisanya doang.. Dah berapa tahun yach gak megang lagi nih bahasa pemprograman?

Btw.. eky biasa pake bahasa pemprograman apa?

Terima kasih saudara Ihsan,
saya sudah mencoba kode njenengan dengan visual basic pada macro di excel dengan obyek2 :
Commandbutton1, Textbox1,Textbox2, dan Label1
Dan hasilnya cocok...sbb :

Private Sub CommandButton1_Click()
Dim sText, cText As String
sText = TextBox1.Text
cText = TextBox2.Text
If sText = "" Then
    MsgBox "Kata pertama belum ditulis."
    Exit Sub
ElseIf sText = "" Then
    MsgBox "Kata kedua belum ditulis."
    Exit Sub
End If
If InStr(sText, cText) Then
     Label1.Caption = "tersisip"
Else
     Label1.Caption = "tidak tersisip"
End If
End Sub

Terima kasih amat.

^_^ Wah.. syukurlah...

Coba dong dikembangin lebih jauh, seperti :
- gimana membedakan case-sensitive dan yang tidak case-sensitive
- dalam sebuah kalimat ditemukan berapa kata yang dicari
- gimana caranya mengganti sebuah kata yang dicari dengan kata penggantinya

Tools-tools kayak gini bisa dijual loh...!! kekeke.. sapa tahu ada yg mata duitan.....

ayo.. ayo... dilanjutkan....

Thank you,
Sebenarnya ini sedang menyempurnakan program saya berupa mesin pencarian, termasuk komputasinya. Sebelumnya saya menggunakan algoritma sendiri untuk kasus yg saya tanyakan tsb,yaitu :

Function Termuat(Kal1 As String, Kal2 As String) As Integer
Dim Pjg1, Pjg2, I, j, k, L, bERKURANG(), jbERKURANG As Integer
Dim Hf1(), Hf2(), Kata1, Kata2 As String
Dim Cocok, H, hIT(), sELhIT(), jsELhIT As Integer
On Error Resume Next
Pjg1 = Len(Trim(Kal1))
Pjg2 = Len(Trim(Kal2))
ReDim Hf1(Pjg1)
ReDim Hf2(Pjg2)
ReDim hIT(Pjg1)
ReDim sELhIT(Pjg1)
ReDim bERKURANG(Pjg1)
If Pjg2 <= Val(Text3.Text) Then
If Pjg1 <= Pjg2 Then
    Kata1 = Trim(Kal1)
    Kata2 = Trim(Kal2)
    For I = 1 To Pjg1
         Hf1(I) = Left(Right(Trim(Kata1), Pjg1 - I + 1), 1)
    Next I
    For I = 1 To Pjg2
         Hf2(I) = Left(Right(Trim(Kata2), Pjg2 - I + 1), 1)
    Next I
    Cocok = 0
    L = 0
    bERKURANG(0) = 0
    Do While Pjg1 >= 0
        k = 0
        L = L + 1
        For j = 1 To Pjg2
            If Hf1(1) = Hf2(j) Then
                hIT(L) = jbERKURANG + j
                k = k + 1
                H = j
                Exit For
            End If
        Next j
        If k = 0 And Not Trim(Kata1 = "") Then
            Termuat = 0
            Exit Do
        ElseIf Not Trim(Kata1) = "" Then
            Kata1 = Right(Trim(Kata1), Pjg1 - 1)
            Kata2 = Right(Trim(Kata2), Pjg2 - H)
            Pjg1 = Len(Kata1)
            Pjg2 = Len(Kata2)
            bERKURANG(L) = bERKURANG(L - 1) + H
            jbERKURANG = bERKURANG(L)
            For I = 1 To Pjg1
                Hf1(I) = Left(Right(Trim(Kata1), Pjg1 - I + 1), 1)
            Next I
            For I = 1 To Pjg2
                Hf2(I) = Left(Right(Trim(Kata2), Pjg2 - I + 1), 1)
            Next I
            Cocok = Cocok + k
        Else
            Exit Do
        End If
    Loop
    If Cocok = Len(Kal1) Then
        jsELhIT = 0
        For I = 1 To Len(Kal1) - 1
            sELhIT(I) = hIT(I + 1) - hIT(I)
            jsELhIT = jsELhIT + sELhIT(I)
        Next I
        If jsELhIT = Len(Kal1) - 1 Then
            Termuat = 1
        Else
            Termuat = 0
        End If
    End If
Else
    Termuat = 0
End If
Else
    Termuat = 0
End If
End Function

   Dan ternyata kode ini belum mencakup semua komposisi yang mungkin, ehh ternyata hanya pakai fungsi Instr dari saudara Insan dan lebih ngirit. Saya dalam fasilitas di visual basic memang masih kurang.

yang dimaksud sekejap di sini bukan berarti google ngesearch ke setiap database web di seluruh dunia pada saat kita mengetikkan keyword pada google. Google kan sebenarnya punya semacam spider (lupa nama lengkap spidernya apa) yang menjaring semua web yang ada di dunia ke dalam database google untuk disimpan. nah pada saat kita mengetikkan keyword pada google, google mencari pada databasenya dia, bukan ke seluruh dunia dalam sekejap ..