Palindrome App

The loop while was working but then if i did a Loop while: 1 to Len(string), it would just exit the loop and not hold anything that i needed.

The loop while was working but then if i did a Loop while: 1 to Len(string), it would just exit the loop and not hold anything that i needed.

I think your problem is with using "while" in the place of "until"

ok my posted code will work well isn't ?

yes thats true...this is what i have

Private Sub cmdCheck_Click()

Dim i As Integer
Dim strWord As String

lblOutput.Caption = ""
strWord = txtWord.Text

For i = 1 To Len(Text)
lblOutput.Caption = Mid(txtWord.Text, i, 1) & lblOutput.Caption
Next

End Sub

--The label box does not show any thing. so how what what the code look like if the label said:

strWord & "is a palindrome"

Or if its not one i would be:
strWord & "is not a palindrome"

How would the if condition fit and look like?

yes thats true...this is what i have
For i = 1 To Len(Text)
lblOutput.Caption = Mid(txtWord.Text, i, 1) & labelbox.Caption
Next

You may also got compile error coz "labelbox" is not defined u must change it to your label control name ... "lblOutput"

do u have problems understanding the code ?

i edited a few things above.

right now im getting "strWord is Plain" for every word i type in

lol...7/& :) ..haha

strWord= txtWord wont work because:

if the user inputs: jimmy

strWord = jimmy
txtWord =jimmy

Therefore every word that is inputted says it is a palindrome. :)

Omg, i am an idiot, i didn't even think of that..Ahh im sry..Ok the code is done. Thanks alot for your help!

Amahdy, I dont know any of the case commands you mentioned earlier. The Ucase() im guessing is allowing the first letter to be capatilized.

radar = palindrome
Radar <> palindrome

So in my code where would the Ucase function go? is it like: UCase(strWord,1) ?

CODE:

'checking to see if the word is a palindrome
Private Sub cmdCheck_Click()
'vars
Dim intX As Integer
Dim strWord As String

lblOutput.Caption = "" 'clearing the label
strWord = txtWord.Text 'variable equaling the txtbox

'looping structure:
For intX = 1 To Len(strWord) 'Will check every letter until the end of string 'checks if the letter correspond with the intial input (strWord)
lblOutput.Caption = Mid(txtWord.Text, intX, 1) & lblOutput.Caption
Next

'the word spelled backwards for the USER's proof
lblBackwards.Caption = lblOutput.Caption

'If condition showing the user if palindrome = true/false
If lblOutput.Caption = txtWord Then
lblOutput.Caption = strWord & " is a palindrome"
Else
lblOutput.Caption = strWord & " is plain word"
End If
End Sub

Ok so your making the whole word UpperCase, then making the second letter and on Lower Case. That makes sense. Does this replace:

'the word spelled backwards for the USER's proof
lblBackwards.Caption = lblOutput.Caption
lblBackwards.Caption = Ucase(Left(lblBackwards.Caption, 1)) & Mid(lblBackwards.Caption, 2)

of course it is possible to detect if the string is palindrome comparing only half string, instead of building a new one. this is my solution (that is just another solution, I do not want to say that there is anything wrong with yours!)

Public Function IsPalindrome(ByVal s As String) As Boolean
IsPalindrome = True
Dim k As Long
For k = 1 To Len(s) \ 2
If StrComp(Mid$(s, k, 1), Mid$(s, Len(s) - k + 1, 1), vbTextCompare) <> 0 Then
IsPalindrome = False
Exit For
End If
Next
End Function

Ok, umm..i kinda want to stick to what i have got so far. Unless you want to code the whole thing for me doing it the 'easy' way? Then i could compare them?

i have the same command buttons and txtboxes/variables

Yes the code i had before works great. This code u shown me above also works good. Thnx.

what does the strComp and vbTextCompare functions do?

search in the MSDN for "strComp" u will find good explaination .

**It exist directly in the index search ..