BSI_TOUR_And_TRAVEL
klik
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
Label3: TLabel;
Label4: TLabel;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
GroupBox2: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Edit3: TEdit;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
Label6: TLabel;
Edit6: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
Messagedlg('Yakin Anda Akan keluar',mtInformation,[mbYes,mbNo],0);
Application.Terminate;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
combobox1.Text:='Pilihan Pesawat';
checkbox1.Checked:=False;
checkbox2.checked:=False;
edit1.setfocus;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if radiobutton1.Checked=true then edit6.Text:='0'
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkBox1.checked=true then edit3.Text:='50000'
else edit3.Text:='0'
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if radiobutton2.Checked=true then edit6.Text:='5000'
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkBox2.checked=true then edit4.Text:='100000'
else edit4.Text:='0'
end;
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
if combobox1.Text='GARUDA' then edit2.Text:='700000'
Else if combobox1.Text='MANDALA' then edit2.Text:='600000'
Else if combobox1.Text='SRIWIJAYA' then edit2.Text:='500000'
Else edit2.Text:='50000';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit5.Text:=inttostr(strtoint(Edit2.Text)+strtoint(edit3.Text)+strtoint(edit6.Text));
end;
Sabtu, 10 Desember 2011
Rabu, 07 Desember 2011
Khalifah Umar
Aku mengamati semua sahabat, dan tidak menemukan sahabat yang lebih baik daripada menjaga lidah. Saya memikirkan tentang semua pakaian, tetapi tidak menemukan pakaian yang lebih baik daripada takwa. Aku merenungkan tentang segala jenis amal baik, namun tidak mendapatkan yang lebih baik daripada memberi nasihat baik. Aku mencari segala bentuk rezki, tapi tidak menemukan rezki yang lebih baik daripada sabar. Khalifah Umar
Senin, 03 Oktober 2011
Langganan:
Postingan (Atom)