Berikut ini contoh desainnya:
Gambar 1. Contoh Tampilan Desain Form.
Jika langkah yang anda lakukan sudah tepat maka form anda akan terlihat seperti dibawah ini:
Gambar 2. Tampilan Form Ketika dijalankan
Untuk cara sederhana ini, kita hanya menyeleksi setiap angka pertama yang dimasukan dengan seleksi Case Of.
Sebenarnya kita bisa juga menyeleksi dengan IF Then, namun akan membutuhkan lebih banyak pengkodean.
Aktifkan Tombol Cek, dari Object Inspector di tab Events pada event OnClick() anda ketik kode berikut ini:
procedure TForm1.BitBtn1Click(Sender: TObject);
Var Digit1 : Char;
begin
Digit1 := Edit1.Text[1];
Case Digit1 Of
'0' : Panel1.caption := 'Nol';
'1' : Panel1.caption := 'Satu';
'2' : Panel1.caption := 'Dua';
'3' : Panel1.caption := 'Tiga';
'4' : Panel1.caption := 'Empat';
'5' : Panel1.caption := 'Lima';
'6' : Panel1.caption := 'Enam';
'7' : Panel1.caption := 'Tujuh';
'8' : Panel1.caption := 'Delapan';
'9' : Panel1.caption := 'Sembilan';
End;
end;
Untuk memeriksa apakah program kita bisa berjalan dengan baik atau tidak, sekarang coba anda jalankan program tersebut dengan menekan tombol F9. Kemudian anda isikan angka pada kotak isian dan klik tombol Cek.
kalau sudah OK, maka lanjut ketahap selanjutnya ya..
adapun cara yang lebih efektif, untuk menerjemahkan banyak angka adalah dengan membuat sebuah fungsi. Fungsi ini harus anda letakkan dibagian bawah dari Implementation.
Function TERBILANG( n : longint) : String;
Const
Bil : Array[0..11] Of String[15] =
('','Satu','Dua','Tiga','Empat','Lima',
'Enam','Tujuh','Delapan','Sembilan','Sepuluh','Sebelas');
Begin
Case n Of
0..11 : Result := Bil[n];
12..19 : Result := Terbilang(n-10) + ' Belas';
20..99 : Result := Terbilang(n div 10) + ' Puluh ' + Terbilang(n mod 10);
100..199 : Result := 'Seratus ' + Terbilang(n-100);
200..999 : Result := Terbilang(n div 100) + ' Ratus ' + Terbilang(n mod 100);
1000..1999: Result := 'Seribu ' + Terbilang(n-1000);
2000..9999: Result := Terbilang(n div 1000) + ' Ribu ' + Terbilang(n mod 1000);
End;
//form1.caption := inttostr(n)
End;
Sekarang anda hapus dan ganti kode yang ada ditombol check sehingga menjadi sebagai berikut:
procedure TForm1.BitBtn1Click(Sender: TObject);
Var Digit1 : Char;
begin
If Edit1.text<>'' Then
Begin
If Edit1.text='0' Then Panel1.Caption:='Nol'
Else Panel1.Caption:= TERBILANG(STRtoINT(Edit1.text));
End
Else
Panel1.Caption:='Kosong';
end;
Nahhhh,, ini hasilnya kalau sedang di RUN (F9)
