Membuat Program Aplikasi Teorema Pythagoras Dengan Delphi

    Program Aplikasi Teorema Pythagoras

Langkah-langkah Kerja:

1. Letakkan 3 komponen Label, 3 komponen Edit, dan 3 komponen Button pada sebuah Form. Kemudian ubahlah property komponen – komponen di atas seperti pada tabel berikut ini:

Tabel 2.1 Daftar Komponen Program Aplikasi Teorema Pythagoras

Komponen	Tab	Nomor	Properti	Nama
Form	-	-	Caption	Aplikasi Teorema Pythagoras
Label	Standard	1	Caption	Panjang AB
		2	Caption	Panjang BC
		3	Caption	Panjang AC
Edit		1	Text	Kosongkan
		2	Text	Kosongkan
		3	Text	Kosongkan
Button		1	Caption	&Proses
		2	Caption	&New
		3	Caption	&Exit

2. Aturlah letak komponen – komponen tersebut pada form seperti gambar di bawah ini :

Gambar 2.3 Desain Program Aplikasi Teorema Pythagoras

3. Klik ganda pada tombol “Proses” dan ketikkan sintak berikut ini:

procedure TForm1.Button1Click(Sender: TObject);

Var

AB,BC,AC:real;//Mendefinisikan variabel

begin

AB:=StrtoFloat(Edit1.Text);//Nilai AB ditulis di Edit1,      akan dibaca sebagai String(Str)dan akan diproses sebagai  bilangan Real(Float)

BC:=Strtofloat(Edit2.Text);

AC:=sqrt(AB*AB+BC*BC);//sqrt artinya akar

Edit3.Text:=Floattostr(AC);//AC hasil eksekusi akan diletakkan di Edit3

end;

4. Klik ganda pada tombol “New” dan ketikkan sintak berikut ini:

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';//Edit1 dikosongkan

Edit2.Text:='';//Edit2 dikosongkan

Edit3.Text:='';//Edit3 dikosongkan

Edit1.SetFocus;//Kursor langsung ke Edit1

end;

5. Klik ganda pada tombol “Exit” dan ketikkan sintak berikut ini:

procedure TForm1.Button3Click(Sender: TObject);

begin

Showmessage('SYAHARUDDIN:151074002:III/A');//Menampilkan pesan

Application.Terminate;//Aplikasi ditutup

end;

6. Terakhir silahkan eksekusi program aplikasi anda dengan meng-klik komponen Run pada Toolbar atau tekan tombol F9 pada keyboard. Maka akan tampil jendela seperti di bawah ini:

Gambar 2.4 Hasil Eksekusi Program Aplikasi Teorema Pythagoras

7. Simpanlah Program Aplikasi anda melalui: File à Save All, tempatkan di (D:). Simpan dengan nama folder “Praktikum Delphi II-a”, klik OK.