Fungsi Terbilang di Visual FoxPro ( Angka to Text )


Beberapa hari utik - utik dengan Paman Google.. dan Si Musang Kuning. Terdahulu telah berhasil berbagi nilai terbilang ( Angka to Text ) Dengan Excel yang mengadopsi Macro atau Visual Basic. Berkembang punya cerita, kebetulan ada suatu poyek anak yang mengembangkan kegiatan ilmu programing komputer dengan hubungan akuntansi atau kwitansi. Langsung aja. Perhatikan scrip kode di bawah ini :


Download Berkas

Jika Anda paham atau paling tidak mengerti kode tersebut, pahami terus bisa langsung coba, banyak yang list kode di atas tapi bagi orang awan yang baru mainan Foxpro "Kepiben Donge Penerapan ne"
  1. Copy atau Download Scrip Di atas
  2. Paste di Notepad
  3. Simpan dengan nama n2c.prg ingat extensi file adalah .PRG
  4. Penyimpanan file n2c.prg harus satu folder dengan file form atau jika tidak mau repot atur terlebih dahulu Tool -> Options ->Default Directory

Untuk Penggunaan dapat saya jabarkan sebagai berikut
  1. Buat sebuah form dengan 2 textbox( Text1, Text2) dan 1 Command Button
  2. Untuk scrip kode Command Terbilang
  3. Tulis Angka di Text1 ( Numeric ) kemudian Klick tombol Terbilang
    Lihat Hasilnya








Semoga Sukses

5 komentar:

  1. mcuang = str(n2c,15,2)
    Ko error ya.

    BalasHapus
  2. Thanks berbagi ilmunya..... semoga menjadi kebaikan sebagai amal

    BalasHapus
  3. terima kasih banyak gan...moga berkah

    BalasHapus
  4. pas angka nya 100.000, terbilangnya seratus rupiah, ga ada ribu nya

    BalasHapus