TUGAS VISUAL BASIC II MI-4B

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;

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