17 replies to this topic

[bestofel]

Buat je camni:

CODE

switch($nombor)
{
    case "1": teks="satu";break;
    case "2" : teks="dua";break;
    case "3" : teks="tiga";break;
//dan seterusnya...
    default: break;
}

Tapi utk 0 tu jadi puluh..ratus..etc tu..tak terfikir lagi. Hehe..sorri..

[k4ml]

mungkin boleh count digit nombor tu. kalau 3 sudah tentu ratus ... so suffix after first number must be ratus ... and so on. idea sepintas lalu ...

[bestofel]

'comma' tu rasanya boleh digunakan..explodekan selepas 'dot' = puluh², sebelum 1st 'comma', ratus², 2nd sebelum 'comma' pulak ribu², 3rd sebelum 'comma' lak juta².. Tah lerr..tak de idea melintang masuk lagi...

[kureng]

cube try test yg ni..

kalo nak la...

[aftersyok]

Yang ini aku punya version ( dalam PHP ).Sepanjang pagi nie aku buat. Aku rasa teringin pulak nak cuba buat sebab rasa macam mencabar jek. Rasanya macam working , tapi tak sempat pulak nak check bug. ok, selamat mencuba.

<?php

//masukkan baris di bawah ini jika anda ingin gunakan kod aturcara ini dalam aplikasi anda
// [ Number To Text Functions ][ author: adli@aftersyok.com  ] [ 22/06/04 ]

//NOTE : BERFUNGSI BILA ADA NOMBOR DIBERI ADA KOMA SAHAJA. MEMERIKSA HINGGA RATUS JUTA SAHAJA

//nombor untuk ujian (statik)
$num = "12,103,238.56";

//papar nombor yang diuji
echo "Nombor : " .$num ."<br>";

//asingkan nombor dalam perpuluhan. num1(nombor sebelum perpuluhan), num2(nombor lepas perpuluhan)
$number = explode(".",$num);
$num1 = $number[0];
$num2 = $number[1];

//pisahkan bahagisan nombor pertama kepada array
$num1Pieces = explode(",",$num1);
$juta = "";
$ribu = "" ;
$ratus = "";

//SWICTH PERTAMA UNTUK PAPAR NILAI SEBELUM PERPULUHAN
switch ( count($num1Pieces) ){
        //3 item dalam array terhasil jika nombor dalam juta
        case 3:
              $juta = stripEarlyZeroes($num1Pieces[0]);
              if ( $juta != "0" ){
                  $juta = getHundred($juta) ." juta ";
              }
              $ribu = stripEarlyZeroes($num1Pieces[1]);
              if ( $ribu != "0" ){
                  $ribu = getHundred($ribu) ." ribu ";
              }
              $ratus = stripEarlyZeroes($num1Pieces[2]);
              if ( $ratus != "0" ){
                  $ratus = getHundred($ratus);
              }
              //papar hasil penukaran
              echo $juta .$ribu .$ratus;
              break;
        case 2:
              $ribu = stripEarlyZeroes($num1Pieces[0]);
              if ( $ribu != "0" ){
                  $ribu = getHundred($ribu) ." ribu ";
              }
              $ratus = stripEarlyZeroes($num1Pieces[1]);
              if ( $ratus != "0" ){
                  $ratus = getHundred($ratus);
              }
              //papar hasil penukaran
              echo $ribu .$ratus;
              break;
        case 1:
              $ratus = stripEarlyZeroes($num1Pieces[0]);
              if ( $ratus != "0" ){
                  $ratus = getHundred($ratus);
              }
              //papar hasil penukaran
              echo $ratus;
              break;

}

//PAPAR NILAI UNTUK NOMBOR PERPULUHAN PULAK
$perpuluhan = stripEarlyZeroes($num2);
$perpuluhan = getHundred($perpuluhan);
//papar nilai
echo " dan " .$perpuluhan;

//#DEBUGGING FUNCTION CALL
//echo getHundred("0");
//toText(0);
//echo stripEarlyZeroes("000");


//#FUNGSI-FUNGSI PEMBANTU

//fungsi untuk buang nombor kosong yang muncul sebelum sebarang bukan-kosong
//001 will turn 1
//023 will turn 23
function stripEarlyZeroes($num){
        //echo "yeye";
        for ( $i=0;$i<strlen($num);$i++){
            if (  (substr($num,0,1) == 0) || (substr($num,0,1) == "0"  ) )  {
                $num = substr($num,1,3);
            }else{
                return $num;
            }
        }
        return $num;
}

//fungsi yang mengembalikan nombor ratus yang diberi kepada teks
//return text for up to 3 digit number. ( boleh di"optimizekan lagi". )
function getHundred($num){
        //below is debug purpose
        //echo "<br>nombor:" .$num ."<br>";

        //initiate blank values
        $ratus = "";
        $puluh = "";
        $sa = "";

        //jika nombor 3 digit
        if (strlen($num) == 3){

            //tukarkan kepada teks
            $ratus = toText( substr($num,0,1 ) );
            $puluh = toText( substr($num,1,1) );
            $sa = toText( substr($num,2,1) );

            //khas untuk nombor belasan dan sepuluh
            //number end checking
            if ( $puluh == "satu" ){
                  if ( $sa == "satu"  ){
                        return $ratus ." ratus " ."sebelas";
                  }
                  if ( $sa == ""  ){
                        return $ratus ." ratus " ."sepuluh";
                  }
                  return $ratus ." ratus " .$sa ." belas" ;
            }

            //jika nombor pertengahan adalah kosong papar ratus dan sa jek
            //zero middle number checking
            if ( $puluh == "" ){
                  return $ratus ." ratus " .$sa;
            }

            return $ratus ." ratus " .$puluh ." puluh " .$sa;
        }

        if (strlen($num) == 2){
            $puluh = toText( substr($num,0,1) );
            $sa = toText( substr($num,1,1) );
            //number end checking
            if ( $puluh == "satu" ){
                  if ( $sa == "satu"  ){
                        return "sebelas";
                  }
                  if ( $sa == ""  ){
                        return "sepuluh";
                  }
                  return $sa ." belas" ;
            }
            return $puluh ." puluh " .$sa;
        }

        if (strlen($num) == 1){
            $sa = toText( substr($num,0,1) );
            return $sa;
        }

}

//fungsi untuk penterjemahan terus nombor ke teks
//return teks of number supplied
function toText($num){
        $teks = ",satu,dua,tiga,empat,lima,enam,tujuh,lapan,sembilan";
        $teksArray = explode(",",$teks);
        return $teksArray[$num];
}

?>

[aftersyok]

mekasih. aku dah lama tak buat programming nie. dah lama tak rasa adrenalin aku mengalir membuak-buak cam nie. anyway, azhar, kau punya validating script kat form tu, kira gempak jugak la. yea... idup php!

[mbek]

go coder go.....

[aftersyok]

habis tu, kalau 999 999 999.99 ...???

[aftersyok]

i see. kalau macam tu, i have no more comments.

[efaisal]

Ni aku punya PHP version, tested guna PHP 4.3.3. Cara nak guna ada dalam comment. Just to show different approach to same problem Kedua-dua function return false kalau ada problem, jadi boleh buat error handling sendiri.

CODE

<?php

error_reporting(E_ALL);

/**
* Dapatkan teks gandaan, fungsi pembantu
*
*                                  | belas/ |       |      |      |         |
*                               sa | puluh  | ratus | ribu | juta | billion | trillion
*                              --------------------------------------------------------
* 2^0  =    1 0000000000001 <=  x  |        |       |      |      |         |
* 2^1  =    2 0000000000010 <=     |   x    |       |      |      |         |
* 2^2  =    4 0000000000100 <=     |        |   x   |      |      |         |
* 2^3  =    8 0000000001000 <=     |        |       |   x  |      |         |
* 2^4  =   16 0000000010000 <=     |   x    |       |   x  |      |         |
* 2^5  =   32 0000000100000 <=     |        |   x   |   x  |      |         |
* 2^6  =   64 0000001000000 <=     |        |       |      |   x  |         |
* 2^7  =  128 0000010000000 <=     |   x    |       |      |   x  |         |
* 2^8  =  256 0000100000000 <=     |        |   x   |      |   x  |         |
* 2^9  =  512 0001000000000 <=     |        |       |      |      |    x    |
* 2^10 = 1024 0010000000000 <=     |   x    |       |      |      |    x    |
* 2^11 = 2048 0100000000000 <=     |        |   x   |      |      |    x    |
* 2^12 = 4086 1000000000000 <=     |        |       |      |      |         |     x
* Di sini kita boleh buat 'mapping' menggunakan 'bitwise operation'.
*
* @param integer $ganda    Input integer dari 0 hingga 12.
* @return mixed            Perkataan gandaan (string) atau false jika operasi
*                          gagal.
* @access public
*/
function gandaan($ganda) {
   /* Masukkan matriks diatas kedalam tatasusunan */
   $gandaan = array(
                    'sa' => 1,
                    'puluh' => 2 | 16 | 128 | 1024,
                    'ratus' => 4 | 32 | 256 | 2048,
                    'ribu' => 8 | 16 | 32,
                    'juta' => 64 | 128 | 256,
                    'billion' => 512 | 1024 | 2048,
                    'trillion' => 4096
                   );
   if (is_integer($ganda)) {
       foreach ($gandaan as $key => $val) {
           if (pow(2, $ganda) & $val) {
               return $key;
           }
       }
   }

   return false;
}

/**
* Terjemah nombor kepada teks
*
* Teori:
* Mengenang kembali Bahasa Melayu dan Ilmu Hisab yang yang dipelajari semasa
* SRP atau SPM.
* - Struktur ayat (Bahasa Melayu):
*   -> Nombor dari kosong sehingga sembilan: letak dalam array $nom
*   -> Gandaan, contohnya puluh, ratus, ribu, puluh ribu, ratus ribu: dapat dari
*      fungsi pembantu gandaan()
*   -> Tetapi nombor 10 hingga 19 adalah unik sebab 10 ialah sepuluh dan yang
*      lain ada perkataan belas - sebelas, dua belas dan sebagainya
*
* - Struktur nombor (Ilmu Hisab):
*   -> Nombor 12345.67 boleh diuraikan kepada:
*      (1*10^4)+(2*10^3)+(3*10^2)+(4*10^1)+(5*10^0)+(6*10^-1)+(7*10^-2)
*
* @param string $nombor         Nombor yang hendak diterjemah kepada teks.
*                               Terima input string tetapi mesti nombor. Jika
*                               ada perpuluhan mesti 2 angka perpuluhan.
* @return mixed                 Teks yang diterjemah (string), atau false jika
*                               operasi gagal.
* @access public
*/
function nomborKeTeks($nombor) {
   if (is_numeric($nombor) && preg_match("/^\d*(\.\d{2})?$/", $nombor)) {
       $nom = array(
                    0 => "",
                    1 => "satu",
                    2 => "dua",
                    3 => "tiga",
                    4 => "empat",
                    5 => "lima",
                    6 => "enam",
                    7 => "tujuh",
                    8 => "lapan",
                    9 => "sembilan"
                   );

       $nomarr = array();
       $teks = '';
       if (preg_match("/\./", $nombor)) {
           $nomarr = explode('.', $nombor);
       } else {
           $nomarr[] = $nombor;
       }
       

       foreach ($nomarr as $key => $val) {
           if ($key > 0) { $teks .= " dan"; }
           $nombor = (int) $val;
           $ganda = floor(log10($nombor));
           if (is_finite($ganda) && ($tmp = gandaan((int) $ganda))) {
               if ($tmp === 'sa') { $tmp = ''; }
               $angka = (int) floor($nombor / pow(10, $ganda));
               /* Proses khas untuk 10 - 19 */
               if (($tmp === 'puluh') && ($angka === 1)) {
                   $nombor = (int) ($nombor - ($angka * pow(10, $ganda)));
                   $tmpganda = floor(log10($nombor));
                   if (($ganda  - $tmpganda) > 1) { /* Untuk 10 */
                       $tmp = gandaan((int) $ganda - 1);
                       if ($tmp === 'sa') { $tmp = ''; }
                       $teks .= " sepuluh $tmp";
                       $angka = (int) floor($nombor / pow(10, $ganda));
                   } else {                         /* Untuk 11 -19 */
                       $ganda = &$tmpganda;
                       $angka = (int) floor($nombor / pow(10, $ganda));
                       $tmp = gandaan((int) $ganda);
                       if ($tmp === 'sa') { $tmp = ''; }
                       if ($angka === 1) {
                           $teks .= " sebelas $tmp";
                       } else {
                           $teks .= " {$nom[$angka]} belas $tmp";
                       }
                   }
                   // $teks = trim($teks);
                   $tmp = nomborKeTeks($nombor - ($angka * pow(10, $ganda)));
                   if ($tmp) {
                       if ($tmp === 'sa') { $tmp = ''; }
                       $teks .= " $tmp";
                       // $teks = trim($teks);
                   }
               } else {
               /* Nombor lain boleh diproses secara biasa */
                   $teks .= ($angka === 1) ? " se$tmp" : " {$nom[$angka]} $tmp";
                   // $teks = trim($teks);
                   $tmp = nomborKeTeks($nombor - ($angka * pow(10, $ganda)));
                   if ($tmp) {
                       $teks .= " $tmp";
                       // $teks = trim($teks);
                   }
               }
           }
       }

       /* Buang space dan " dan" di hujung ayat */
       $pattern = array("/\ {2,}/", "/\ dan$/");
       $replace = array(" ", "");
       $teks = preg_replace($pattern, $replace, $teks);
       return $teks;
   } else {
       return false;
   }
}


/**
* Test
*/

/* Mari kita cuba fungsi diatas dengan pelbagai nombor */
$noyangdicuba = array('salah', '10000.00', '11909.23', '10456.23', '12345.67',
                     '12112312', '10003240', '34259.05', '83930', '51.3',
                     '843023');

foreach ($noyangdicuba as $key => $val) {
   if ($jawapan = nomborKeTeks($val)) {
       echo "$val => $jawapan\n";
   } else {
       echo "Nombor \"$val\" bukan nombor yang sah.\n";
   }
}

?>

Output test:

CODE

Nombor "salah" bukan nombor yang sah.
10000.00 =>  sepuluh ribu
11909.23 =>  sebelas ribu sembilan ratus sembilan dan dua puluh tiga
10456.23 =>  sepuluh ribu empat ratus lima puluh enam dan dua puluh tiga
12345.67 =>  dua belas ribu tiga ratus empat puluh lima dan enam puluh tujuh
12112312 =>  dua belas juta seratus dua belas ribu tiga ratus dua belas
10003240 =>  sepuluh juta tiga ribu dua ratus empat puluh
34259.05 =>  tiga puluh empat ribu dua ratus lima puluh sembilan dan lima
83930 =>  lapan puluh tiga ribu sembilan ratus tiga puluh
Nombor "51.3" bukan nombor yang sah.
843023 =>  lapan ratus empat puluh tiga ribu dua puluh tiga