DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

vb6 palindrome

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Feb 2008

Posts: 5

Reputation: sofian786 is an unknown quantity at this point

Solved Threads: 0

sofian786

Offline

Newbie Poster

vb6 palindrome

Mar 3rd, 2008

hey
I am trying to make a program on visual basic 6 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.

•

Join Date: Nov 2007

Posts: 2,641

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: vb6 palindrome

Mar 3rd, 2008

see this palindrome program :

Palindrome.zip

don't forget to give feedback.

Never tried = Never Know
So, Please do something before post your thread.
* PM Asking will be ignored *

•

Join Date: Apr 2009

Posts: 7

Reputation: stevebush is an unknown quantity at this point

Solved Threads: 0

stevebush

Offline

Newbie Poster

Re: vb6 palindrome

-1

Apr 5th, 2009

Thanks a lot !

•

Join Date: Sep 2008

Posts: 34

Reputation: crackerjacker is an unknown quantity at this point

Solved Threads: 2

crackerjacker crackerjacker is offline

Offline

Light Poster

Re: vb6 palindrome

-1

Apr 5th, 2009

Dim le
Dim mide
Dim i
Private Sub Command1_Click()
i = 0
Dim yes As Boolean

le = Len(Text1.Text) + 1

Do While i < Len(Text1.Text) - 1
i = i + 1
mide = mid(Text1.Text, i, 1) 'take the next 1 letter in text1.text from position i

If Not mide = mid(Text1.Text, le - i, 1) Then 'if its not the same as the leter i positon from the back then
yes = True
End If
Loop

If yes = False Then
MsgBox "Pal"
Else
MsgBox "Not"
End If

End Sub

•

Join Date: Nov 2007

Posts: 140

Reputation: jonifen is an unknown quantity at this point

Solved Threads: 15

jonifen

Offline

Junior Poster

Re: vb6 palindrome

Apr 6th, 2009

Or... use the strReverse command

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub PalindromeTest(ByVal sWord As String)
    Dim sReversedWord As String
 
    sReversedWord = StrReverse(sWord)
 
    If StrComp(sWord, sReversedWord, vbTextCompare) = 0 Then
        MsgBox "Palindrome!"
    Else
        MsgBox "Not a Palindrome!"
    End If
End Sub
Private Sub PalindromeTest(ByVal sWord As String)
    Dim sReversedWord As String

    sReversedWord = StrReverse(sWord)
    
    If StrComp(sWord, sReversedWord, vbTextCompare) = 0 Then
        MsgBox "Palindrome!"
    Else
        MsgBox "Not a Palindrome!"
    End If
End Sub

You could change that to a function and return a boolean value instead of message boxes if you preferred.

Note: Just read the OP again and saw he needs it to use arrays and fixed loops which my example doesn't use. Oh well, I'll post it anyway for reference

Edit: sucked into an old thread again... fail