PEMROGRAMAN DELPHI UNTUK PEMULA PART 1

Membuat program sederhana untuk menghitung luas segitiga


Dasar teori:

Untuk dapat menghitung luas segitiga maka setidaknya kita harus mempunyai 2 buah variabel masukan, yakni panjang alas dan juga tinggi, agar dapat menghitung luas segitiga dengan formula :



"LUAS= 1/2 * (ALAS*TINGGI)"


Berikit ini adalah langkah kerja dalam menyusun program sederhana tersebut:

1.Buka modul borland delphi

2.Buat new application

3.Masukan komponen 3 buah komponen edit,beri nama komponen-komponen edit tersebut dengan nama,E1,E2,E3.

4.Masukan 4 buah komponen albel, dan ubah caption keempat komponen tersebut dengan text sebagai berikut :

    * LABEL1  : PROGRAM SEDERHANA UNTUK MENGHITUNG LUAS SEGITIGA.
    * LABEL2 : PANJANG ALAS.
    * LABEL3 : TINGGI SEGITIGA.
    * LABEL4 : LUAS SEGITIGA.

5.Masukan 3 buah komponen ''BUTTON'' dan setiap komponen tersebut dirubah captionya menjadi berikut:

    * BUTTON1 : HITUNG.
    * BUTTON2 : HAPUS.
    * BUTTON3 : KELUAR

6.Klik pada komponen ''BUTTON2'' dan masukan listing program berikut :

       Procedure TForm1.Button2.Click(Sander:Object);

       Begin
        E1.CLEAR;
        E2.CLEAR;
        E3.CLEAR;
       end; 



7. Klik pada komponen ''BUTTON3'' dan masukan listing program berikut :


       Procedure TForm1.Button3.Click(Sander:Object);

       Begin

        Application.Terminate;

       end;



8. Klik pada komponen ''BUTTON1'' dan masukan listing program berikut :

       Procedure TForm1.Button1.Click(Sander:Object);

       Var A,B,C:REAL;

       Begin

       A:= STRTOFLOAT(E1.TEXT)

       B:=STRTOFLOAT(E2.TEXT)

       C:= 0.5 * A * B;

       E3.TEXT:=FLOATTOSTR(C)

       end;



9.Runninglah program tersebut dengan mengesave dan meng-compile nya terlebih dahulu.Semoga bermanfaat