met pagi....
assalamualaikum wr. wb.
kali ini saya mau bikin program konversi dari angka ke huruf menggunakan delphi...
sebagai contoh ketika saya memasukkan angka 1234 ketika diproses akan muncul output seribu dua ratus tiga puluh empat....
ok cukup buat prolog nya.hehehe.....cekidotttt.....
untuk tampilannya kurang lebih seperti berikut....para pembaca silahkan bisa memodifikasi bentuk tampilan sebagus dan semenarik mungkin....
dalam pembuatan desain seperti diatas yang dibutuhkan adalah ....
1. label (untuk penulisan identitas, angka dan bilangan)
2. edit1 (untuk tempat memasukkan inputan)
3. memo1 (untuk tempat menampilkan outputan)
4. botton1 ( untuk tombol proses)
5. botton2 ( untuk tombol tutup)
setelah pembuatan desain kali ini yaitu melakukan perubahan "name" label, edit, memo dan botton ......
1. edit1 = adi
2. memo1 = susanto
3. botton1 = terbilang
4. botton2 = tutup
oke jika sudah kali ini list program adalah sebagai berikut ........
1. double klik botton1 (terbilang) dan ketikan list program berikut ...
procedure TForm1.TerbilangClick(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
susanto.Text := Terbilang(StrToInt64(adi.Text));
end;
2. double klik botton1 (tutup) dan ketikan list program berikut ...
procedure TForm1.tutupClick(Sender: TObject);
begin
close;
end;
pembuatan program telah selesai....silahkan cek dengan klik tombol play pada delphi....jika masih ada kesalahan silahkan diteliti lagi list program yang telah diketik..... : )
ok demikian postingan kali ini...jika masih ada pertanyaan silahkan komentar di bawah atau fb atau hubungi saya langsung....
semoga bermanfaat.......
