Program Konversi Angka Menjadi Huruf Pada Delph

Selamat malam para shobat pecinta pemrograman delphi khususnya dan para penikmat artikel ini. saya kali ini akan berbagi tips dan koding tentang bagaimana saya mengkonversi angka menjadi huruf dengan pecahan rupiah. Nah bagaimana langkah-langkahnya.
1. Pertama buka aplikasi borland delphi 7 . Karena saya membuatnya pake borland delphi 7 dan anda dapat menggunakan delphi dengan versi yang anda punyai.
2. Nah setelah itu buatlah form seperti gambar dibawah ini.

3. Di form diatas tambahkan komponen seperti dibawah ini.

• 2 label
• 1 edit
• 2 button
• 1 memo
• 1 xp manifes

4. Kemudian dalam button1 klik 2 kali dan ketikkan koding seperti gambar dibawah ini. Kalau susah mengetiknya tinggal kopas aja koding dibawah ini.

procedure TForm1.Button1Click(Sender: TObject);
Function Terbilang(Uang:int64):String;
Begin
If (Uang = 1) Then Terbilang:=’Satu ‘
Else If (Uang = 2) Then Terbilang:=’Dua ‘
Else If (Uang = 3) Then Terbilang:=’Tiga ‘
Else If (Uang = 4) Then Terbilang:=’Empat ‘
Else If (Uang = 5) Then Terbilang:=’Lima ‘
Else If (Uang = 6) Then Terbilang:=’Enam ‘
Else If (Uang = 7) Then Terbilang:=’Tujuh ‘
Else If (Uang = 8) Then Terbilang:=’Delapan ‘
Else If (Uang = 9) Then Terbilang:=’Sembilan ‘
Else If (Uang = 0) Then Terbilang := ‘ ‘
Else If (Uang = 10) Then Terbilang := ‘Sepuluh ‘
Else If (Uang = 11) Then Terbilang := ‘Sebelas ‘
Else If (Uang >= 12) And (Uang <= 19) Then Terbilang:=Terbilang(Uang Mod 10) + ‘Belas ‘
Else If (Uang >= 20) And (Uang <= 99) Then Terbilang := Terbilang(Uang div 10) + ‘Puluh ‘ + Terbilang(Uang Mod 10)
Else If (Uang >= 100) And (Uang <= 199) Then Terbilang := ‘Seratus ‘ + Terbilang(Uang – 100)
Else If (Uang >= 200) And (Uang <= 999) Then Terbilang := Terbilang(Uang div 100) + ‘Ratus ‘ + Terbilang(Uang Mod 100)
Else If (Uang >= 1000) And (Uang <= 1999) Then Terbilang := ‘Seribu ‘ + Terbilang(Uang – 1000)
Else If (Uang >= 2000) And (Uang <= 999999) Then Terbilang := Terbilang(Uang div 1000) + ‘Ribu ‘ + Terbilang(Uang Mod 1000)
Else If (Uang >= 1000000) And (Uang <= 999999999) Then Terbilang := Terbilang(Uang div 1000000) + ‘Juta ‘ + Terbilang(Uang Mod 1000000)
Else If (Uang >= 1000000000) And (Uang <= 999999999999) Then Terbilang :=Terbilang(Uang div 1000000000) + ‘Milyar ‘ + Terbilang(Uang Mod 1000000000)
Else If (Uang >= 1000000000000) Then Terbilang :=Terbilang(Uang div 1000000000000) + ‘Triliun ‘ + Terbilang(Uang mod 1000000000000);
end;
begin
Memo1.Clear;
Memo1.Lines.Add(”+Terbilang(StrToInt64(Edit2.Text)));
end;

5. Kemudian untuk button2 klik 2 kali. Button2 untuk keluar dan ketikkan koding dibawah ini.

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

end.

6. Dan akhirnya selesaai. Kemudian run programnya dan hasilnya seperti gambar dibawah ini.

Demikianlah sedikit penjelasan dari saya . semoga dapat membantu kalian semua yang sedang belajar pemrograman delphi. jika ada yang kurang tentang artikel ini. bisa tinggalkan komentarnya di kotak bawah artikel ini.. terima kasih dan selamat mencoba