Huruf Besar Dari Suatu Kalimat dengan Visual Foxpro

Huruf Besar Dari Suatu Kalimat dengan Visual Foxpro

  19.34    Prometheus

---

&& FUNCTION HurufBesar
&& PARAMETERS _kalimat , dimana _kalimat adalah kalimat yang diberikan
&& Fungsi untuk mengambil huruf besar dari suatu kalimat
&& HurufBesar("SAhaYa Mau Pergi")
&& Hasil "SAYMP"
&& Untuk kalimat acak, gunakan proper() sebelum menggunakan function huruf besar
&& Contoh : HurufBesar("paulus prometheus kalkulus")
&& Hasil ""
&& Jika pakai xproper :
&& HurufBesar(proper("paulus prometheus kalkulus"))
&& Hasil PPK

FUNCTION HurufBesar
PARAMETERS _kalimat
_balik=""
FOR _kei=1 TO LEN(ALLTRIM(_kalimat))
        _huruf=SUBSTR(_kalimat,_kei,1)
        IF ISUPPER(_huruf)
                _balik=_balik+_huruf
        ENDIF
NEXT
RETURN _balik