[VB.NET] การตรวจสอบคำ ประโยค วลีพาลินโดรม (Palindrome) ด้วย VB.NET

thongkorn

พาลินโดรม (Palindrome) คือคำ วลี จำนวน หรือลำดับที่สามารถอ่านจากหลังไปหน้าหรือหน้าไปหลังแล้วมีความหมายเหมือนกัน เช่น ยาย, นาน, กนก, นอน, รรรรรร (ระ รัน รอน), radar, madam หรือจำนวนตัวเลข เช่น 919 818 ... สำหรับโค้ดชุดนี้แอดมินได้เขียนให้เป็นตัวอย่างอยู่ 3 ชุด ประกอบไปด้วย ...

1. การใช้คำสั่งภายใน หรือฟังค์ชั่นที่ติดมาในตัวแปลภาษาในการเปรียบเทียบ
2. ใช้การทำซ้ำด้วย WHILE โดยทำการเปรียบเทียบจากตัวแรก กับตัวสุดท้าย จากนั้นก็เพิ่มค่าตำแหน่งชุดตัวอักษรต้นฉบับ และลดค่าตำแหน่งในส่วนที่นำมาเปรียบเทียบ เช่น radar โดยเอา r ตัวแรกกับตัวสุดท้ายมาเปรียบเทียบ จากนั้นก็เอาตัว a ตัวที่ 2 (เพิ่มตำแหน่ง) กับ a ตัวที่ 4 (ลดตำแหน่ง) มาเปรียบเทียบกัน
3. ใช้ลูป FOR โดยที่หารความยาวออกเป็น 2 ส่วน แล้วทำการเปรียบเทียบกัน เช่น ยาย โดยเอาตัวแรกและตัวสุดท้ายมาเปรียบเทียบกัน


อนึ่ง ... คุณต้องทำการ Debugger ทีละสเต็ป จึงจะเข้าใจกระบวนการขั้นตอนได้ชัดเจนขึ้นครับ


มาดูโค้ดกันเถอะ ...

1. Public Class frmPalindrome
   
2. 
   
3.     '// Use build in function.
   
4.     Private Function CheckPalindrome(ByVal strText As String) As Boolean
   
5.         Dim str As String
   
6.         '// Reverse characters and convert to Upper Case.
   
7.         str = StrReverse(UCase(strText))
   
8.         '// Compare Original VS Reverse.
   
9.         If str.Equals(UCase(strText)) Then
   
10.             Return True
    
11.         Else
    
12.             Return False
    
13.         End If
    
14.     End Function
    
15. 
    
16.     '// Make own function with WHILE.
    
17.     Private Function CheckPalindromeWhile(ByVal strText As String) As Boolean
    
18.         Dim iCurr As Integer = 0
    
19.         Dim iLength As Integer = strText.Length - 1
    
20.         strText = UCase(strText)
    
21.         '// Repetitive with WHILE.
    
22.         While iCurr < iLength
    
23.             '// Compare from front to back, then increase the position and decrease the position.
    
24.             If strText(iCurr) <> strText(iLength) Then Return False
    
25.             '//
    
26.             iCurr += 1
    
27.             iLength -= 1
    
28.         End While
    
29.         Return True
    
30.     End Function
    
31. 
    
32.     '// Make own function with FOR.
    
33.     Private Function CheckPalindromeFor(ByVal strText As String) As Boolean
    
34.         CheckPalindromeFor = True
    
35.         strText = UCase(strText)
    
36.         '// Separate words into two parts.
    
37.         For i As Integer = 0 To strText.Length \ 2
    
38.             '// Divided into two parts and compare.
    
39.             If strText(i) <> strText(strText.Length - i - 1) Then Return False
    
40.         Next
    
41.     End Function
    
42. 
    
43.     Private Sub frmPalindrome_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
44.         Label2.Text = ""
    
45.         txtWord.Text = "Sator Arepo Tenet Opera Rotas" '"radar"
    
46.     End Sub
    
47. 
    
48.     Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
    
49.         txtWord.Text = ""
    
50.         txtWord.Focus()
    
51.     End Sub
    
52. 
    
53.     Private Sub btnCheck_Click(sender As System.Object, e As System.EventArgs) Handles btnCheck.Click
    
54.         If Trim(txtWord.TextLength) = 0 Or txtWord.Text.Trim = "" Then Return
    
55.         '// 3 Methods.
    
56.         If CheckPalindrome(txtWord.Text) Then
    
57.             'If CheckPalindromeWhile(txtWord.Text) Then
    
58.             'If CheckPalindromeFor(txtWord.Text) Then
    
59.             Label2.Text = txtWord.Text + " is a Palindrome."
    
60.         Else
    
61.             Label2.Text = txtWord.Text + " is not a Palindrome."
    
62.         End If
    
63.         txtWord.Focus()
    
64.     End Sub
    
65. 
    
66. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...

g2gsoftuser

ขอบคุณครับ