"Ilmu yang bermanfaat" adalah salah satu kunci naungan Allah kepada kita di padang Masyar.

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
  1. Aturlah letak komponen – komponen tersebut pada form seperti gambar di bawah ini :
Gambar 2.3 Desain Program Aplikasi Teorema Pythagoras

  1. 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;
  1. 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;
  1. 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;
  1. 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

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

No comments:

Post a Comment