PROGRAM SEDERHANA DELPHI
LISTING
PROGRAM
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure
TForm1.Button1Click(Sender: TObject);
begin
showmessage(
'Nama :'+edit1.Text+#13#10+
'NPM :'+edit2.Text+#13#10+
'Kelas :'+edit3.Text);
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
Form1.Color :=
clYellow;
end;
procedure
TForm1.Button4Click(Sender: TObject);
begin
Form1.Color := clBlue;
end;
procedure
TForm1.Button5Click(Sender: TObject);
begin
close;
end;
end.
|
LOGIKA
PROGRAM
Pada pemrograman kali ini akan
membahas mengenai input data mahasiswa yang berupa nama,npm,dan kelas dan
merubah warna form dengan menggunakan komponen edit dan button. Berikut adalah
listingnya:
Berikutnya adalah menampilkan hasil
data yang telah diinput, berikut adalah listingnya:
procedure
TForm1.Button1Click(Sender: TObject);
begin
showmessage(
'Nama :'+edit1.Text+#13#10+
'NPM :'+edit2.Text+#13#10+
'Kelas :'+edit3.Text);
end;
Listing program diatas mengartikan
bahwa semua data yang sudah di input di komponen edit lalu jika diklik button
“OK” akan muncul messagebox dengan data yang sudah kita input.
Berikutnya adalah membersihkan
coloums edit yang telah diinput, berikut adalah listingnya:
procedure
TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
end;
Pada pemrograman diatas berarti
kita harus klik tombol button2 dua kali dan listing program di atas digunakan
untuk membersihkan coloums atau membersihkan bagian edit1 sampai edit3 yang
berupa nama,npm dan kelas.
Berikutnya adalah listing program
untuk merubah warna form. Berikut adalah listing programnya:
procedure
TForm1.Button3Click(Sender: TObject);
begin
form1.Color:=clYellow;
end;
procedure
TForm1.Button4Click(Sender: TObject);
begin
form1.Color:=clBlue;
end;
Dari listing program di atas kita
harus mengklik setiap button3 dua kali untuk menuliskan listing. CLYELLOW
berarti kita merubah warna form menjadi kuning, CLBLUE berarti kita merubah
warna form menjadi biru.
Berikutnya adalah menutup aplikasi
yang telah diinput, berikut adalah listingnya:
procedure TForm1.Button5Click(Sender:
TObject);
begin
Close;
end;
Pada pemrograman diatas berarti
kita harus klik tombol button5 dua kali dan listing program di atas digunakan untuk
menutup aplikasi yang sedang berjalan.
OUTPUT PROGRAM
2.