CARA MEMBUAT TULISAN ALAY

Membuat kalimat ALAY....
"kapan ya saya pinter foxpro" maka hasilnya "kApAn yA sAYa piNtEr fOXpRO"

Ok langsung saja buka foxpro kamu, jangan lupa pokoknya kalau kamu buka itu foxpro "CD?" nya ya...

1.lihat digambar (membuka command)

2. selanjutnya akan muncul seperti gambar dibawah ini, dan mengisi kodingnya.

koding ini masukin :

Clear
Do While .T.
    kata=SPACE (30)
    @10, 5 Say "CARA MEMBUAT TULISAN ALAY"
    @11, 5 Say "-----------------------------------"
    @12, 5 Say " MASUKAN KALIMAT= " Get KATA
    READ
    IF EMPTY(kata)
        EXIT
    ENDIF
    hasil="" 
    pjkata=LEN(Alltrim(kata))
    FOR n=1 TO pjkata
        IF MOD (INT(RAND()*100),2)=0
            hasil=hasil+UPPER(SUBSTR(kata,n,1))
        ELSE
            hasil=hasil+LOWER(SUBSTR(kata,n,1))
        ENDIF
    ENDFOR
    @15, 5 say "  Kata sudah terbalik  = "+hasil

ENDDO
WAIT WINDOW "program selesai" AT 15,80

3.setelah koding diatas selesai diketik, sekarang simpan dan jalankan....!!!

SELESAI.
Semoga bermanfaat.........
Salam Tafai....