N
NeStLe
Ziyaretçi
Ziyaretçi
Açıklama : Öncelikle palindrom nedir ondan kısaca bahsedeyim. Baştan ve sondan yazılışı aynı olan kelimelerdir. Mesela "ata, ütü, ses .." gibi.
Bu uygulama da TextBox içine yazılan cümlede palindrom kelimeleri bulup butonun Click olayında ListBox'ta listeliyor.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim metin As String = TextBox1.Text & " "
Dim kelime, kelime_ters As String
Dim p As Integer = 1
ListBox1.Items.Clear()
For k = 0 To Len(metin) - 1
If metin(k) = " " Then
kelime = Trim(Strings.Mid(metin, p, k - p + 1))
kelime_ters = ""
For j = Len(kelime) - 1 To 0 Step -1
kelime_ters = kelime_ters & kelime(j)
Next
If kelime = kelime_ters Then ListBox1.Items.Add(kelime)
p = p + Len(kelime) + 1
End If
Next
End Sub
End Class
Bu uygulama da TextBox içine yazılan cümlede palindrom kelimeleri bulup butonun Click olayında ListBox'ta listeliyor.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim metin As String = TextBox1.Text & " "
Dim kelime, kelime_ters As String
Dim p As Integer = 1
ListBox1.Items.Clear()
For k = 0 To Len(metin) - 1
If metin(k) = " " Then
kelime = Trim(Strings.Mid(metin, p, k - p + 1))
kelime_ters = ""
For j = Len(kelime) - 1 To 0 Step -1
kelime_ters = kelime_ters & kelime(j)
Next
If kelime = kelime_ters Then ListBox1.Items.Add(kelime)
p = p + Len(kelime) + 1
End If
Next
End Sub
End Class
Hata gördüğünüz takdirde bildirirseniz sevinirim. Dönüp kodlara bakıp gerekli yerleri düzenleyebilirim...