saya kan memberikan tutorial SEO ( shearc anggine optimization) angka mengunakan aplikasi Delphi 7.
Pertama kita tambakan komponen : label, edit, memo, dan button. Seperti pada gambar di bawah.
1. form awal
Untuk tulisan “label” dan “button”, dapat di ubah di bagian properties > caption.
2. Mengganti Caption
3. Setelah di ubah
Kemudian untuk memasukkan listing program, double click button..
4. Gambar 4
Lalu masukan listing pada bagian variable :
varangka:array[1..9] of string=('satu','dua','tiga','empat','lima','enam',
'tujuh','delpan','sembilan');
5. Penulisan Variabel
Lalu kita mulai dengan memasukkan listing 2 angka.
if length(edit1.Text)= 2 then
if Edit1.Text='10' then Memo1.Text:='sepuluh' else
if Edit1.Text='11' then Memo1.Text:='sebelas' else
if Copy(Edit1.Text,1,1)= '1' then
memo1.Text:=varangka[strtoint(copy(edit1.Text,2,1))] + ' belas '
else
memo1.Text:=varangka[strtoint(copy(edit1.Text,1,1))] + ' puluh ' +
varangka[strtoint(copy(edit1.Text,2,1))
(pada if Edit1.Text='10' then Memo1.Text:='sepuluh' else dan sebelas di ketik manual karena jika tidak, saat program di jalankan akan menjadi “satu puluh dan satu belas”
6. Listing 2 angka
7. Salah
8. Benar
Lalu kita lanjut ke listing 3 angka .
if length(edit1.Text)= 3 then
if Edit1.Text='110' then Memo1.Text:='seratus sepuluh' else
if Edit1.Text='111' then Memo1.Text:='seratus sebelas' else
if Edit1.Text='120' then Memo1.Text:='seratus dua puluh' else
if Edit1.Text='121' then Memo1.Text:='seratus dua puluh satu ' else
if Copy(Edit1.Text,1,1)= '1' then
memo1.Text:='seratus '+ varangka[strtoint(copy(edit1.Text,3,1))] + ' belas '
else
if Copy(Edit1.Text,1,1)= '1' then
memo1.Text:='seratus '+ varangka[strtoint(copy(edit1.Text,3,1))] + ' puluh '
+ varangka[strtoint(copy(edit1.Text,3,1))]
else
memo1.Text:=varangka[strtoint(copy(edit1.Text,1,1))] + ' ratus ' +
varangka[strtoint(copy(edit1.Text,2,1))] + ' puluh ' +
varangka[strtoint(copy(edit1.Text,3,1))]
9. Listing 3 angka
10. Program di jalankan
Nah .. kalian dapat mengembang kan listing tersebut menjadi 4 angka dan seterus nya.
Selamat mencoba…
