LISTING PROGRAM DELPHI

sebenarnya pemprograman itu tergantung dari user sendiri bagaimana ia bisa membuat suatu perintah untuk menjalankan komputer dalam mengerjakan sesuatu tugas sesuai dengan keinginanya. listing suatu program bisa sesuaikan dengan keinginan user, ada user yang menginkan listing program yang simlpe dan ada juga user yang menginginkan listing program yang agak panjang tetapi itu semua sama saja asalkan tujuan utama dari program itu tercapai.

1. PERUBAHAN CAPTION PADA FORM


Listing program :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
if form1.Caption = 'perubahanpertama'
then
form1.Caption := 'perubahankedua'
else
if form1.Caption = 'perubahankedua'
then
form1.Caption := 'perubahanketiga'
else
if form1.Caption = 'perubahanketiga'
then
form1.Caption := 'perubahanpertama';
end;
end.

2. KOMPONEN TCheckBox.

unit Unit2;



interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
CheckBox1: TCheckBox;
Button1: TButton;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
ygdisukai : STRING;
implementation
uses radio;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
if checkbox1.Checked = true then
ygdisukai := ygdisukai +'FERRARI'+',';
if checkbox1.Checked = true then
ygdisukai := ygdisukai +'MARCEDES-BENZ'+',';
if checkbox1.Checked = true then
ygdisukai := ygdisukai +'AUDI'+',';
if checkbox1.Checked = true then
ygdisukai := ygdisukai +'VOLVO'+',';
if checkbox1.Checked = true then
ygdisukai := ygdisukai +'VOLKSWAGON'+',';
form2.caption :='SAYA MENYUKAI :'+ygdisukai ;
ygdisukai :='';
end;
end.
Listing program :
Procedure Tform1.Biru1Click(sender : TObject);
Begin
Form1.color :=clblue;
Mainmenu1.Items[0].Items[0].Checked :=true;
Mainmenu1.Items[0].Items[1].Checked :=false;
end;
Procedure Tform1.Merah1Click(sender : TObject);
Begin
Form1.color :=clblue;
Mainmenu1.Items[0].Items[0].Checked :=false;
Mainmenu1.Items[0].Items[1].Checked :=true;
end;
Jika items [0] “biru” pada mainmenu1 di klik maka warna pada form1 akan berubah biru dan items[0] pada main menu diberi tanda true artinya aktif dan items [1] diberi tanda false yang artinya tidak aktif.
Jika items [1] “merah” pada mainmenu1 di klik maka warna pada form1 akan berubah merah dan items[1] pada main menu diberi tanda true artinya aktif dan items [0] diberi tanda false yang artinya tidak aktif.

3. MENGHITUNG LUAS DAN VOLUME BOLA :

listing program :

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit1: TEdit;
Edit3: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
jari,luas,volume : real;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
jari := StrToFloat (edit1.Text);
luas := 4*3.14*jari;
edit2.Text := FloatToStr(luas);
volume := (3/4)*3.14*jari*jari;
edit3.Text := FloatToStr (volume);
end;
end.