MENU UTAMA


Warning: Parameter 1 to modMainMenuHelper::buildXML() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/cache/handler/callback.php on line 100

Tips dan Trik


Warning: Parameter 1 to modMainMenuHelper::buildXML() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/cache/handler/callback.php on line 100

Tutorial


Warning: Parameter 1 to modMainMenuHelper::buildXML() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/cache/handler/callback.php on line 100

Warning: Parameter 2 to plgContentEmailCloak() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/event/dispatcher.php on line 136

Warning: Parameter 2 to plgContentLoadModule() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/event/dispatcher.php on line 136

Warning: Parameter 2 to plgContentPagebreak() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/event/dispatcher.php on line 136

Teknologi


Warning: Parameter 1 to modMainMenuHelper::buildXML() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/cache/handler/callback.php on line 100

Download


Warning: Parameter 1 to modMainMenuHelper::buildXML() expected to be a reference, value given in /home/amin/public_html/libraries/joomla/cache/handler/callback.php on line 100

PENGUNJUNG

mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHari ini23
mod_vvisit_counterKemarin124
mod_vvisit_counterMinggu ini261
mod_vvisit_counterBulan ini261
mod_vvisit_counterTotal236091
Fungsi untuk merubah angka menjadi huruf argumen angka berupa string PDF Print E-mail
User Rating: / 0
PoorBest 
Powerbuilder - Tips dan Trik Powerbuilder

//fungsi untuk merubah angka menjadi huruf argumen angka berupa string

 

integer N,TEMP,i

string KARAK,CANGKA,KOS,SATUAN,BELASAN,PULUHAN,KATA

 

KATA=""

TEMP=0

SATUAN  ="        Satu    Dua     Tiga    Empat   Lima    Enam    Tujuh   Delapan Sembilan"

BELASAN ="Sepuluh       Sebelas       Dua Belas     Tiga Belas    Empat Belas   Lima Belas    Enam Belas    Tujuh Belas   Delapan Belas Sembilan Belas"

PULUHAN ="Dua Puluh     Tiga Puluh    Empat Puluh   Lima Puluh    Enam Puluh    Tujuh Puluh   Delapan Puluh Sembilan Puluh"

KARAK   =String(bilangan);

 

 if mid(karak,(len(karak)-1),1) = '.' then

      karak = karak +'0';

   elseif mid(karak,(len(karak)-2),1) <> '.' then

      karak = karak +'.00';

   end if;

   N=len(karak);

 

   IF N <15  THEN

       TEMP=15 - N

       KOS=' ';

       FOR I = 1 to TEMP - 1

            KOS=KOS+' '

                                Next

       CANGKA=mid((KOS+KARAK),1,15);

   ELSE

       CANGKA=mid(KARAK,1,15);

   END IF;

 

//  RatusAN Milyar

 

  IF mid(CANGKA,1,1)='1' THEN

       KATA='Seratus ';

 

  ELSEIF mid(CANGKA,1,1)>'1'  THEN

       KATA=trim(mid(SATUAN,Integer(mid(CANGKA,1,1))*8+1,8))+' Ratus ';

  END IF;

 

//  PULUHAN DAN SATUAN Milyar

   IF mid(CANGKA,2,1)>'1'  THEN

       KATA=KATA+trim(mid(PULUHAN,Integer(mid(CANGKA,2,1))*14-27,14));

       IF mid(CANGKA,3,1)>'0' THEN

           KATA=KATA+trim(mid(SATUAN,Integer(mid(CANGKA,3,1))*8+1,8));

       END IF;

       KATA=KATA+' Milyar ';

   

                ELSEIF mid(CANGKA,2,1)='1' THEN

     KATA=KATA+trim(mid(BELASAN,Integer(mid(CANGKA,3,1))*14+1,14))+' Milyar ';

  

                ELSEIF mid(CANGKA,2,2)='00' THEN

      KATA=KATA+' Milyar ';

 

                ELSEIF mid(CANGKA,3,1)>' ' THEN

      KATA=KATA+trim(mid(SATUAN,Integer(mid(CANGKA,3,1))*8+1,8))+' Milyar ';

   END IF;

 

// RatusAN Juta //

   IF mid(CANGKA,4,3)='100'  THEN

       KATA =KATA+' Seratus Juta ';

   ELSEIF mid(CANGKA,4,1)='1' THEN

       KATA =KATA+' Seratus ';

  

                ELSEIF mid(CANGKA,4,1)>'1' THEN

       KATA=KATA+trim(mid(SATUAN,Integer(mid(CANGKA,4,1))*8+1,8))+' Ratus ';

   END IF;

 

//  PULUHAN DAN SATUAN Juta

 

   IF mid(CANGKA,5,1)>'1' THEN

      KATA=KATA+trim(mid(PULUHAN,Integer(mid(CANGKA,5,1))*14-27,14));

      IF mid(CANGKA,6,1)>'0' THEN

        KATA=KATA+' '+trim(mid(SATUAN,Integer(mid(CANGKA,6,1))*8+1,8));

      END IF;

       KATA=KATA+' Juta ';

   

                ELSEIF mid(CANGKA,5,1)='1' THEN

     KATA=KATA+trim(mid(BELASAN,Integer(mid(CANGKA,6,1))*14+1,14))+' Juta ';

 

                ELSEIF mid(CANGKA,5,2)='00' THEN

      KATA=KATA+'Juta ';

 

                ELSEIF mid(CANGKA,6,1)>' ' THEN

    KATA=KATA+trim(mid(SATUAN,Integer(mid(CANGKA,6,1))*8+1,8))+' Juta ';

END IF;

 

 

 

// RatusAN Ribu

 

   IF mid(CANGKA,7,3)='100'  THEN

      KATA=KATA+'Seratus Ribu';

 

                ELSEIF mid(CANGKA,7,1)='1' THEN

      KATA=KATA+'Seratus ';

 

                ELSEIF mid(CANGKA,7,1)>'1' THEN

      KATA=KATA+trim(mid(SATUAN,Integer(mid(CANGKA,7,1))*8+1,8))+' Ratus ';

   END IF;

 

 

// PULUHAN DAN SATUAN Ribu

 

   IF mid(CANGKA,8,1)>'1' THEN

      KATA=KATA+trim(mid(PULUHAN,Integer(mid(CANGKA,8,1))*14-27,14));

      IF mid(CANGKA,9,1)>'0' THEN

         KATA=KATA+' '+trim(mid(SATUAN,Integer(mid(CANGKA,9,1))*8+1,8));

      END IF;

      KATA=KATA+' Ribu ';

 

                ELSEIF mid(CANGKA,8,1)='1' THEN

     KATA=KATA+trim(mid(BELASAN,Integer(mid(CANGKA,9,1))*14+1,14))+' Ribu ';

 

                ELSEIF mid(CANGKA,8,2)='00' THEN

     IF mid(CANGKA,7,1)>'1' THEN

          KATA=KATA+'Ribu ';

     END IF;

 

                ELSEIF mid(CANGKA,9,1)>' ' THEN

    IF mid(CANGKA,9,1)='1' THEN

         IF mid(CANGKA,8,1)>' ' THEN

               KATA=KATA+'Satu Ribu';

         ELSE

               KATA=KATA+'Seribu ';

          END IF;

    

                ELSEIF mid(CANGKA,9,1)>'1' THEN

          KATA=KATA+trim(mid(SATUAN,Integer(mid(CANGKA,9,1))*8+1,8))+' Ribu ';

 

    END IF;

 END IF;

 

 

// RatusAN

 

  IF mid(CANGKA,10,1)='1' THEN

       KATA=KATA+'Seratus '; 

  ELSEIF mid(CANGKA,10,1)>'1' THEN

       KATA=KATA+trim(mid(SATUAN,Integer(mid(CANGKA,10,1))*8+1,8))+' Ratus ';

  END IF;

 

 

// TEST PULUHAN DAN SATUAN

 

  IF mid(CANGKA,11,1)>'1' THEN

    KATA=KATA+trim(mid(PULUHAN,Integer(mid(CANGKA,11,1))*14-27,14));

        IF mid(CANGKA,12,1)>'0' THEN

            KATA=KATA+' '+trim(mid(SATUAN,Integer(mid(CANGKA,12,1))*8+1,8));

        END IF;

 

                ELSEIF mid(CANGKA,11,1)='1' THEN

    KATA=KATA+trim(mid(BELASAN,Integer(mid(CANGKA,12,1))*14+1,14));

 

   ELSEIF mid(CANGKA,11,2)=' 0' THEN

    KATA='NOL ';

    ELSE

    KATA=KATA+trim(mid(SATUAN,Integer(mid(CANGKA,12,1))*8+1,8));

    END IF;

 

// TEST DESIMAL

 

  IF mid(CANGKA,14,1)>'1'  THEN

    KATA=KATA+' '+trim(mid(PULUHAN,Integer(mid(CANGKA,14,1))*14-27,14));

        IF mid(CANGKA,15,1)>'0' THEN

            KATA=KATA+' '+trim(mid(SATUAN,Integer(mid(CANGKA,15,1))*8+1,8))+' Sen';

        ELSE

            KATA = KATA+' Sen';

        END IF;

 

                ELSEIF mid(CANGKA,14,1)='1'  THEN

    KATA=KATA+' '+trim(mid(BELASAN,Integer(mid(CANGKA,15,1))*14+1,14))+' Sen';

 

                ELSEIF mid(CANGKA,14,2)='00' THEN

    KATA=KATA+'';

  ELSE

    KATA=KATA+' '+trim(mid(SATUAN,Integer(mid(CANGKA,15,1))*8+1,8))+' Sen';

  END IF;

 

//  KATA= trim(KATA)+' RUPIAH';

 

//  st_1.text=KATA

 

  return KATA