Membuat Stored Procedure untuk mengubah angka menjadi bilangan terbilang di MySQL

Dalam rangka menyusun tugas mata kuliah Database Administrator sebagai tugas ujian akhir semester di universitas saya,

yang pada kali ini saya ditugaskan untuk membuat store procedure di MySQL dengan inputan parameter angka dan mengeluarkan hasil berupa bilangan.

Stored procedure angkabilangan

Jadi misalkan input

CALL angkabilangan(123456,@hasil);<br />
SELECT @hasil;

Maka akan menghasilkan

seratus dua puluh tiga ribu empat ratus lima puluh enam

Langsung saja akan saya sajikan listing progam untuk membuat store procedure angka menjadi bilangan.

Code SQL lengkap angkabilangan

<br />
-- [FILENAME] db07020065.sql<br />
-- [AUTHOR] Christian Chandra<br />
-- [WEBSITE] http://blog.christianchandra.com<br />
-- [HAL] Tugas Database Administrator<br />
-- [JUDUL] Store Procedure Angka Menjadi Bilangan</p>
<p>DROP DATABASE IF EXISTS db07020065;<br />
CREATE DATABASE db07020065;<br />
USE db07020065;</p>
<p>SET<br />
@hasil = '';</p>
<p>-- setting max recursive untuk store procedure (default: 0)<br />
SET @@global.max_sp_recursion_depth=255;<br />
SET @@session.max_sp_recursion_depth=255;</p>
<p>DELIMITER $$</p>
<p>DROP PROCEDURE IF EXISTS angkabilangan$$</p>
<p>CREATE PROCEDURE angkabilangan(IN i_angka BIGINT, OUT o_hasil TEXT)<br />
BEGIN<br />
DECLARE i BIGINT DEFAULT 0;<br />
DECLARE cetak TEXT default '';<br />
DECLARE tmp TEXT default '';<br />
DECLARE counts BIGINT DEFAULT 0;<br />
DECLARE lengthangka INT DEFAULT 0;</p>
<p>-- hitung banyak digit i_angka<br />
SET lengthangka := LENGTH(i_angka);</p>
<p>-- siapkan data yang dibutuhkan<br />
DROP TABLE IF EXISTS tbdasar;<br />
DROP TABLE IF EXISTS tbangka;<br />
DROP TABLE IF EXISTS tbsatuan;<br />
CREATE TEMPORARY TABLE tbdasar(indek INT,dasar VARCHAR(50));<br />
INSERT INTO tbdasar VALUES<br />
						(1,'satu'),<br />
						(2,'dua'),<br />
						(3,'tiga'),<br />
						(4,'empat'),<br />
						(5,'lima'),<br />
						(6,'enam'),<br />
						(7,'tujuh'),<br />
						(8,'delapan'),<br />
						(9,'sembilan');<br />
CREATE TEMPORARY TABLE tbangka(indek INT,angka INT);<br />
INSERT INTO tbangka VALUES<br />
						(0,1000000000),<br />
						(1,1000000),<br />
						(2,1000),<br />
						(3,100),<br />
						(4,10),<br />
						(5,1);<br />
CREATE TEMPORARY TABLE tbsatuan(indek INT,satuan VARCHAR(100));<br />
INSERT INTO tbsatuan VALUES<br />
						(0,'milyar'),<br />
						(1,'juta'),<br />
						(2,'ribu'),<br />
						(3,'ratus'),<br />
						(4,'puluh'),<br />
						(5,'');</p>
<p>IF i_angka = 0 THEN<br />
	SET cetak := 'nol';<br />
ELSEIF i_angka &lt; 1000000000000 THEN</p>
<p>		WHILE i_angka &lt;&gt; 0 DO<br />
			SET counts = FLOOR(i_angka / (SELECT angka FROM tbangka WHERE indek=i));<br />
			IF counts &gt; 9 THEN<br />
				CALL angkabilangan(counts,tmp);<br />
				SET cetak := CONCAT(cetak,'',tmp);<br />
				SET cetak := CONCAT(cetak,'',(SELECT satuan FROM tbsatuan WHERE indek=i));<br />
			ELSE<br />
				IF counts &gt; 0 AND counts &lt; 10 THEN<br />
					SET cetak := CONCAT(cetak,<br />
															' ',<br />
															(SELECT dasar FROM tbdasar WHERE indek=counts),<br />
															' ',<br />
															(SELECT satuan FROM tbsatuan WHERE indek=i));<br />
				END IF;<br />
			END IF;</p>
<p>			-- DEBUG counts ! xxx xxx xx x x x<br />
		  /* SET cetak = CONCAT(cetak,<br />
		  											' ',<br />
		  											counts,<br />
		  											'[',<br />
		  											i_angka,<br />
		  											'/',<br />
		  											(SELECT angka FROM tbangka WHERE indek=i),<br />
		  											']'<br />
		  											);*/</p>
<p>			SET i_angka = i_angka - ((SELECT angka FROM tbangka WHERE indek=i) * counts);<br />
			SET i = i + 1;</p>
<p>		END WHILE;</p>
<p>		-- ubah satu ratus dsb menjadi seratus<br />
		SET cetak = REPLACE(cetak,&quot;satu belas&quot;,&quot;sebelas&quot;);<br />
		SET cetak = REPLACE(cetak,&quot;satu puluh&quot;,&quot;sepuluh&quot;);<br />
		SET cetak = REPLACE(cetak,&quot;satu ratus&quot;,&quot;seratus&quot;);<br />
		IF lengthangka = 4 THEN<br />
			SET cetak = REPLACE(cetak,&quot;satu ribu&quot;,&quot;seribu&quot;);<br />
		END IF;<br />
		-- ubah belasan<br />
		SET cetak = REPLACE(cetak,&quot;sepuluh satu&quot;,&quot;sebelas&quot;);<br />
		SET cetak = REPLACE(cetak,&quot;sepuluh dua&quot;,&quot;dua belas&quot;);<br />
		SET cetak = REPLACE(cetak,&quot;sepuluh tiga&quot;,&quot;tiga belas&quot;);<br />
		SET cetak = REPLACE(cetak,&quot;sepuluh empat&quot;,&quot;empat belas&quot;);<br />
		SET cetak = REPLACE(cetak,&quot;sepuluh lima&quot;,&quot;lima belas&quot;);<br />
		SET cetak = REPLACE(cetak,&quot;sepuluh enam&quot;,&quot;enam belas&quot;);<br />
		SET cetak = REPLACE(cetak,&quot;sepuluh tujuh&quot;,&quot;tujuh belas&quot;);<br />
		SET cetak = REPLACE(cetak,&quot;sepuluh delapan&quot;,&quot;delapan belas&quot;);<br />
		SET cetak = REPLACE(cetak,&quot;sepuluh sembilan&quot;,&quot;sembilan belas&quot;);</p>
<p>		-- SET cetak = 'angka bisa dihitung';<br />
ELSE<br />
		SET cetak := 'Inputan terlalu besar';<br />
END IF;</p>
<p>-- return value ke o_hasil<br />
SET o_hasil = cetak;</p>
<p>END;<br />
$$</p>
<p>DELIMITER ;</p>
<p>

Download SQL angkabilangan

Apabila anda ingin langsung mendownload file .SQL nya bisa melalui link ini

Terima Kasih.

Have fun with coding :-D

if you think this article is useful (Y) , please leave a comment.. ;-)

© 2010 – 2018, Christian Chandra. All rights reserved. Find out more at https://blog.christianchandra.com

14 Comments

Join the discussion and tell us your opinion.

Bennyreply
17 Apr 2010 at 12:00 am

eh chan.. ki do podo comment`e neng fb u kabeh yo??
rak ono sing comment da sini?? haha

Christian Chandra
17 Apr 2010 at 12:10 am
– In reply to: Benny

hehe.. ndapapa ben.. teman kita yang ngeblog kan sedikit, jadi juga nda bisa kasi backlink ma trackback.. 😉 ayo makane ndang cepet blog mu di benahi =)

ucokreply
17 Apr 2010 at 1:47 am

terima kasih brader…

Christian Chandra
17 Apr 2010 at 7:25 am
– In reply to: ucok

sama-sama brader 😉

wiralodrareply
9 Jan 2011 at 3:01 pm

mas.ane masih cupu nih ma sql, mnt pendapatnya.ni syntak error mulu,uda ngubek manualnya msh gk ngeh juga:D
mysql> create procedure ShStatus(IN nomorNIP int(3))
-> begin
-> declare keterangan varchar(2);
-> declare tampil varhar(12);
-> select status as tampil from pegawai where nip=nomorNIP;
-> if ( status=’aktif’ ) then
-> set keterangan=’Y’;
-> else
-> set keterangan=’T’;
-> end if
-> end//
erronya bilangnya di line4,tp dicoba langsung command selectnya,normal
matur nuwun 🙂

Ridwan Tahirreply
11 Apr 2011 at 1:19 pm

Ini gimana cara penggunaan untuk menampilkan store procedure nya ya? saya sudah ubeg-ubeg ga dapat ….. Please need you help

Christian Chandra
11 Apr 2011 at 2:17 pm
– In reply to: Ridwan Tahir

Untuk penggunaannya:
1. code diatas silahkan disimpan di dalam .sql lalu di running melalui mySQL.
2. panggil procedure angkabilangan dengan inputan parameter berupa angka
3. simpan dalam variable hasilnya dan di tampilkan melalui select 😀

doclines
23 Jun 2011 at 10:00 am
– In reply to: Christian Chandra

kalo untuk pemanggilan sudah bisa mas. trims. tapi kalo manggilnya di dalam SELECT gimana? maksutnya, kalo mo nerbilangin salah satu field gitu, ya apa caranya? maklum pemula. mohon pencerahannya.

afif mudrikreply
28 Okt 2011 at 10:53 am

waah.. briliant sekali.. tutorialnya jelas, makasih 😀

Agunreply
7 Nov 2011 at 2:40 pm

Mantappp gan…. (Y) :o)

Boleh minta tutorial lengkap untuk membuat stored procedure di mysql ga???

agnireply
5 Des 2011 at 4:38 pm

gan, ane udah nyoba ni pake procedurenya tapi ada masalah ya ketika ada angka 10000000, hrsnya “sepuluh juta “kok jadi ” satu puluh juta “..mohon pencerahannya gan????

Akuuureply
14 Des 2011 at 11:43 pm

Hmmm… Mantab… tambah lg referensi terbilang, selain pake javascript…. tengkyu gan… (Y)

adireply
19 Feb 2012 at 4:40 pm

thanks bro 😎

@Khaaliifaahreply
27 Jan 2013 at 3:24 pm

Kalau kode script pada Java Netbeans ada yang tau nggak???
Tapi yang pake Web Apllication bukan Java Application
Kirim email [email protected]

Leave a reply