Bagi Ilmu

SIMPLE DELPHI  7

      Buat agan - agan yang baru belajar delphi pasti di buat pening sama code - code nya, hahahaha sama aja gan saya juga gitu. Nah karena disini kita sama - sama belajar mimin yang kece ini mau bagi sedikit pengetahuan yang ane dapet dari Dosen Favorit ane hehehe, gak pake lama - lama kita langsung aja yuk.
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.

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

Sekian dulu ya gan, Selamat mencoba dan Semoga bermanfaat ^_^