Membalik kalimat dengan foxpro

Hallo kawan......... 

Gimana kabarnya... so pasti baek eo.....

          Ok sob..... Saya akan memposting  bagaimana cara membalik kalimat di Visual Foxpro. Wahh. ini pasti digemari ma anak Probolinggo atau malang, Biasanya ngomongnya pakek bahasa kebalik, yang belum tau bahasa seperti itu, saya akan mempermudah anda dalam berbahasa berbalik, dengan bantuan Foxpro.

Langsung saja.

                   1.Buka Foxpronya

                   2. Tulis "MODIFY COMMAND" Bagi yang menggunakan Command, yang biasa                                    menggunakan Form juga bisa, tergantung anda ingin model kayak apa....!!!!!

                   3. Tuilis koding dibawah ini.

Clear

Do While .T.

kata=SPACE (30)

@10, 5 Say "membalik kalimat"

@11, 5 Say "-----------------------------------"

@12, 5 Say " kALIMAT= " Get KATA 

READ

IF EMPTY(kata)

EXIT

ENDIF

hasil=""                                    && variabel penampung

pjkata=LEN(Alltrim(kata))     && mencatat panjang kalimat

FOR n=pjkata TO 1 STEP -1

hasil=hasil+SUBSTR(kata,n,1) &&mengambil satu persatu huruf dari

ENDFOR                                 && n=n-1

@15, 5 say "  Hasil  = "+hasil

ENDDO

WAIT WINDOW "program selesai" AT 15,80

                4.Terakhir Jalankan

Contoh :

Pertama kali dijalankan , dan masukan kalimatnya. dan "Enter"

Ketika di Enter  maka akan muncul seperti yang dibawah ini.

Terima Kasih telah berkunjung.

Semoga Bermanfaat ya...