Bagi Ilmu

DELPHI  7

Pertama bukan Aplikasi Delphi 7.

Gambar: Tampilan Form Delphi 

masukan Label dengan icon A kedalam Form, ganti caption Label dengan "Angka" gunanya sebagai nama untuk label yang ada pada Form.

masukan Edit untuk menginput data, dengan icon abc.

masukan kembali label dengan caption "terbilang" dan masukan memo untuk menampilkan "terbilang"

masukan "button" dengan caption "Proses" gunanya sebagai tombol untuk memproses nilai yang telah dimasukan pada edit.

klik 2 kali pada "button proses" untuk memasukan coding

  -------------------------------------------------------------------------------------------------------------- 

var

varangka:array[1..9] of string=('satu','dua','tiga','empat','lima','enam',

                        'tujuh','delpan','sembilan');

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

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))]

else

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))]

else

memo1.Text:=varangka[strtoint(copy(edit1.Text,1,1))] + ' ribu '+

                varangka[strtoint(copy(edit1.Text,2,1))] + ' ratus '+

                varangka[strtoint(copy(edit1.Text,3,1))] + ' puluh ' +

                varangka[strtoint(copy(edit1.Text,4,1))];

end;

end.

---------------------------------------------------------------------------------------------------------------