Membaca Angka Dasar dengan Visual Foxpro

Membaca Angka Dasar dengan Visual Foxpro

  10.34    Prometheus

---

&& FUNCTION AngkaDasar
&& PARAMETERS _AngkaDasar adalah angka yang akan dibaca
&& Fungsi Konversi angka dasar ke kata dalam bahasa Indonesia
&& Parameter _AngkaDasar adakah numerik 0,1,2,3,4,5,6,7,8 s/d 9

FUNCTION AngkaDasar
PARAMETERS _AngkaDasar
IF VARTYPE(_AngkaDasar)<>"N"
        _AngkaDasar=0
ENDIF
DO CASE
        CASE _AngkaDasar=0
                _balik="NOL"
        CASE _AngkaDasar=1
                _balik="SATU"
        CASE _AngkaDasar=2
                _balik="DUA"
        CASE _AngkaDasar=3
                _balik="TIGA"
        CASE _AngkaDasar=4
                _balik="EMPAT"
        CASE _AngkaDasar=5
                _balik="LIMA"
        CASE _AngkaDasar=6
                _balik="ENAM"
        CASE _AngkaDasar=7
                _balik="TUJUH"
        CASE _AngkaDasar=8
                _balik="DELAPAN"
        CASE _AngkaDasar=9
                _balik="SEMBILAN"
        OTHERWISE
                _balik=""
ENDCASE
RETURN _balik

Read More