String Palindrome Checker in Visual Foxpro

A very simple program that I wrote using Microsoft Visual Foxpro 9 that will ask the user to give a word and a string and then our program will check if the given word or string is a Palindrome or Not a Palindrome. I provided also a an error checking code if the textbox if empty.

I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.

Sample Program Output

Program Listing

Object:  Form1      Procedure: Init

 ===================================

thisform.text1.Value=""

Check Button

Object:  Command1      Procedure: Click

 ===================================

&& Palindrome Program in Visual Foxpro

&& Written By Mr. Jake R. Pomperada, MAED-IT

&& February 20, 2018    Tuesday  

LOCAL StrOriginal, StrReverse

StrOriginal=allTRIM(UPPER(thisform.text1.value))

StrReverse=""

FOR StrCount=LEN(StrOriginal) TO 1 STEP -1

 StrReverse=ALLTRIM(UPPER(StrReverse))+SUBSTR(StrOriginal,StrCount,1)

ENDFOR 

IF EMPTY(thisform.text1.Value) then

    MESSAGEBOX("Can't be empty.",64,"Reminder")

    thisform.text1.SetFocus

    RETURN .t.

    endif

IF (StrReverse == StrOriginal) then

   thisform.label1.Caption = "The given word " + ALLTRIM(UPPER(TRANSFORM(thisform.text1.Value))) + " is a Palindrome."

   ELSE

   thisform.label1.Caption = "The given word " + ALLTRIM(UPPER(TRANSFORM(thisform.text1.Value))) + " Not a Palindrome."

 ENDIF

 Clear Button

  Object:  Command2      Procedure: Click

 ===================================

WITH thisform

     .text1.value=""

     .label1.caption=""

     .text1.setfocus

endwith

Quit Button

 Object:  Command3      Procedure: Click

 ===================================

thisform.Release