You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Uygulama No: 30 – Palindrom<br />
VB.Net Örnek Uygulamalar<br />
2 Kasım 2011<br />
Açıklama : Girilen metnin palindrom (tersten de aynı şekilde okunan) olup olmadığının test<br />
edilmesi.<br />
Ekran Görüntüsü<br />
Açıklamalı Kodlar<br />
Public Class Form1<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles Button1.Click<br />
Dim metin As String = TextBox1.Text<br />
Dim metin_ters As String = ""<br />
For k = Len(metin) - 1 To 0 Step -1<br />
metin_ters = metin_ters & metin(k)<br />
Next<br />
If metin = metin_ters Then MsgBox("TAMAM")<br />
End Sub<br />
End Class<br />
Tolga GÜYER Sayfa 48
Change language