angka >> $angka <<"; $bil=array( nol, satu, dua, tiga, empat, lima, enam, tujuh, delapan, sembilan ); $s=substr($angka,-1,1); $s="$bil[$s] "; $p=substr($angka,-2,1); $p="$bil[$p] puluh"; $r=substr($angka,-3,1); $r="$bil[$r] ratus"; $rb=substr($angka,-4,1); $rb="$bil[$rb] ribu"; $prb=substr($angka,-5,1); $prb="$bil[$prb] puluh"; $rrb=substr($angka,-6,1); $rrb="$bil[$rrb] ratus"; $j=substr($angka,-7,1); $j="$bil[$j] juta"; $jp=substr($angka,-8,1); $jp="$bil[$jp] puluh"; $jr=substr($angka,-9,1); $jr="$bil[$jr] ratus"; $m=substr($angka,-10,1); $m="$bil[$m] milyar"; $mp=substr($angka,-11,1); $mp="$bil[$mp] puluh"; $mr=substr($angka,-12,1); $mr="$bil[$mr] ratus"; ##### if (strlen($angka)==1){ $tb="$s"; print "". "

Angka =

$angka

". "Terbilang =
". "

$tb

". ""; $index=file("index.html"); while (list($e,$r)=each($index)){ print "$r"; } exit; } ##### if (strlen($angka)==2){ $tb="$p $s"; } ##### if (strlen($angka)==3){ $tb="$r $p $s"; } ##### if (strlen($angka)==4){ $tb="$rb $r $p $s"; } ##### if (strlen($angka)==5){ $tb="$prb $rb $r $p $s"; } ##### if (strlen($angka)==6){ $tb="$rrb $prb $rb $r $p $s"; } ##### if (strlen($angka)==7){ $tb="$j $rrb $prb $rb $r $p $s"; } ##### if (strlen($angka)==8){ $tb="$jp $j $rrb $prb $rb $r $p $s"; } ##### if (strlen($angka)==9){ $tb="$jr $jp $j $rrb $prb $rb $r $p $s"; } ##### if (strlen($angka)==10){ $tb="$m $jr $jp $j $rrb $prb $rb $r $p $s"; } ##### if (strlen($angka)==11){ $tb="$mp $m $jr $jp $j $rrb $prb $rb $r $p $s"; } ##### if (strlen($angka)==12){ $tb="$mr $mp $m $jr $jp $j $rrb $prb $rb $r $p $s"; } ##### $tb=preg_replace("/nol puluh /","",$tb); $tb=preg_replace("/nol ratus /","",$tb); $tb=preg_replace("/nol /","",$tb); $tb=preg_replace("/satu puluh/","sepuluh",$tb); $tb=preg_replace("/satu ratus/","seratus",$tb); $tb=preg_replace("/sepuluh satu /","sebelas ",$tb); $tb=preg_replace("/sepuluh dua /","dua belas ",$tb); $tb=preg_replace("/sepuluh tiga /","tiga belas ",$tb); $tb=preg_replace("/sepuluh empat /","empat belas ",$tb); $tb=preg_replace("/sepuluh lima /","lima belas ",$tb); $tb=preg_replace("/sepuluh enam /","enam belas ",$tb); $tb=preg_replace("/sepuluh tujuh /","tujuh belas ",$tb); $tb=preg_replace("/sepuluh delapan /","delapan belas ",$tb); $tb=preg_replace("/sepuluh sembilan /","sembilan belas ",$tb); $tb=preg_replace("/sepuluh seribu /","sebelas ribu ",$tb); ########################################## print "

"; if (strlen($angka)<=3){ print "$angka"; } if (strlen($angka)==4){ print substr($angka,0,1); print " . "; print substr($angka,1,3); } if (strlen($angka)==5){ print substr($angka,0,2); print " . "; print substr($angka,-3,3); } if (strlen($angka)==6){ print substr($angka,0,3); print " . "; print substr($angka,-3,3); } if (strlen($angka)==7){ print substr($angka,-7,1); print " . "; print substr($angka,-6,3); print " . "; print substr($angka,-3,3); } if (strlen($angka)==8){ print substr($angka,-8,2); print " . "; print substr($angka,-6,3); print " . "; print substr($angka,-3,3); } if (strlen($angka)==9){ print substr($angka,-9,3); print " . "; print substr($angka,-6,3); print " . "; print substr($angka,-3,3); } if (strlen($angka)==10){ print substr($angka,-10,1); print " . "; print substr($angka,-9,3); print " . "; print substr($angka,-6,3); print " . "; print substr($angka,-3,3); } if (strlen($angka)==11){ print substr($angka,-11,2); print " . "; print substr($angka,-9,3); print " . "; print substr($angka,-6,3); print " . "; print substr($angka,-3,3); } if (strlen($angka)==12){ print substr($angka,-12,3); print " . "; print substr($angka,-9,3); print " . "; print substr($angka,-6,3); print " . "; print substr($angka,-3,3); } print "

"; ########################################## $tb=preg_replace("/juta ribu/","juta ",$tb); $tb=preg_replace("/milyar juta/","milyar ",$tb); print "". #"

$angka

". "

terbilang,
". "

$tb

". "

". ""; $index=file("index.html"); while (list($e,$r)=each($index)){ print "$r"; } ?>