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;