Palindromes on visual basic 5.0

Expand Post »

Hiya
I am trying to make a program on visual basic 5.0 to determine weather a
word or phrase is a palindrome or not. I need my program to be able to
tell if the word or phrase is a palindrome and it not being case
sensitive. The code below words to a certin point then brings up an
error but i have no clue why it wont work any help will be appreciated.
Thanks

I know some things that need to be inculued : arrays and fixed loops and it also needs to take out white spaces.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub cmdStart_Click()
   Dim inputWord As String
   Dim testWord As String
   Dim reverseWord As String
   Dim testChar As String
   Dim i as Integer 
   Dim maxIndex as Integer 
 
 
   'Get input from the user.
   inputWord = InputBox("Please enter your word")
 
   'Record the input in lower case and remove spaces (you can
   'add checks for tabs, linefeeds, etc).
   maxIndex = Len(inputWord) - 1
   For i = 0 To maxIndex
      testChar = Mid(inputWord, i, 1)
      If testChar <> " " Then
         testWord = testWord & LCase(testChar)
      End If
   Next
 
   'Reverse testWord.
   maxIndex = Len(testWord) - 1
   For i = maxIndex To 0 Step -1
      reverseWord = reverseWord & Mid(testWord, i, 1)
   Next
 
   'Compare reverseWord to testWord and output the results.
   If testWord = reverseWord Then
      MsgBox "Yes, it's a palindrome"
   Else
      MsgBox "No, it's not a palindrome"
   End If
 
 
   'Get input from the user.
   inputWord = InputBox("Please enter your word")
 
   'Record the input in lower case and remove spaces (you can
   'add checks for tabs, linefeeds, etc).
   maxIndex = Len(inputWord) - 1
   For i = 0 To maxIndex
      testChar = Mid(inputWord, i, 1)
      If testChar <> " " Then
         testWord = testWord & LCase(testChar)
      End If
   Next
 
   'Reverse testWord.
   maxIndex = Len(testWord) - 1
   For i = maxIndex To 0 Step -1
      reverseWord = reverseWord & Mid(testWord, i, 1)
   Next
 
   'Compare reverseWord to testWord and output the results.
   If testWord = reverseWord Then
      MsgBox "Yes, it's a palindrome"
   Else
      MsgBox "No, it's not a palindrome"
   End If
End Sub
Private Sub cmdStart_Click()
   Dim inputWord As String
   Dim testWord As String
   Dim reverseWord As String
   Dim testChar As String
   Dim i as Integer 
   Dim maxIndex as Integer 

 
   'Get input from the user.
   inputWord = InputBox("Please enter your word")

   'Record the input in lower case and remove spaces (you can
   'add checks for tabs, linefeeds, etc).
   maxIndex = Len(inputWord) - 1
   For i = 0 To maxIndex
      testChar = Mid(inputWord, i, 1)
      If testChar <> " " Then
         testWord = testWord & LCase(testChar)
      End If
   Next

   'Reverse testWord.
   maxIndex = Len(testWord) - 1
   For i = maxIndex To 0 Step -1
      reverseWord = reverseWord & Mid(testWord, i, 1)
   Next

   'Compare reverseWord to testWord and output the results.
   If testWord = reverseWord Then
      MsgBox "Yes, it's a palindrome"
   Else
      MsgBox "No, it's not a palindrome"
   End If


   'Get input from the user.
   inputWord = InputBox("Please enter your word")

   'Record the input in lower case and remove spaces (you can
   'add checks for tabs, linefeeds, etc).
   maxIndex = Len(inputWord) - 1
   For i = 0 To maxIndex
      testChar = Mid(inputWord, i, 1)
      If testChar <> " " Then
         testWord = testWord & LCase(testChar)
      End If
   Next

   'Reverse testWord.
   maxIndex = Len(testWord) - 1
   For i = maxIndex To 0 Step -1
      reverseWord = reverseWord & Mid(testWord, i, 1)
   Next

   'Compare reverseWord to testWord and output the results.
   If testWord = reverseWord Then
      MsgBox "Yes, it's a palindrome"
   Else
      MsgBox "No, it's not a palindrome"
   End If
End Sub

Similar Threads

Playing .Wav/MIDI files in a Visual Basic Program in Visual Basic 4 / 5 / 6
Creating an OS in visual basic 6.0 in Visual Basic 4 / 5 / 6
The Move.....Visual Basic 6, Visual Basic .NET ? in VB.NET
Encrypting a Visual Basic application in Visual Basic 4 / 5 / 6
passing arrays in visual basic in Visual Basic 4 / 5 / 6

xlilxmexerex

Reputation Points: 10

Solved Threads: 0

Unverified User

Offline

1 posts
since Jul 2007

Permalink

Aug 1st, 2007

Re: Palindromes on visual basic 5.0

Hi,

u can simply use the "Reverse" function. I'am not sure if Reverse function is available in VB5 or not, but we have it in VB6. Check this :

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim sSQL As String
sSQL=InputBox("Please enter your word")
If Trim(sSQL) <> "" Then
  If sSQL = Reverse(sSQL) Then
      Msgbox "Palindrome True"
  Else
     Msgbox "Not A Palindrome"
  End If
End If
 
 
REgards
Veena
Dim sSQL As String
sSQL=InputBox("Please enter your word")
If Trim(sSQL) <> "" Then
  If sSQL = Reverse(sSQL) Then
      Msgbox "Palindrome True"
  Else
     Msgbox "Not A Palindrome"
  End If
End If

 
REgards
Veena

QVeen72

Reputation Points: 84

Solved Threads: 140

Posting Shark

Offline

923 posts
since Nov 2006

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

This thread is currently closed and is not accepting any new replies.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: how to import a background music?

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: precison in double variable

DaniWeb Message

Cancel Changes

User Name
Password