Senin, 22 Juni 2015

DELPHI LATIHAN I


Nama
Caption
Combobox1
Combobox1
Edit1
Edit1
Edit2
Edit2
Edit3
Edit3
Edit4
Edit4
Edit5
Edit5
Edit6
Edit6
Edit7
Edit7
Edit8
Edit8
Edit9
Edit9
Edit10
Edit10
Edit11
Edit11
Listbox1

Radiobutton1
Es Jeruk         5000
Radiobutton2
Es Teh            3000
Radiobutton3
Coca Cola      4000
Checkbox1
Ice Cream                  10000
Checkbox2
Kentang Goreng        8000
Checkbox3
Burger                        12000
Button1
Hitung
Button2
Tambah Baru
Button3
Keluar


Combobox1
PKT1
Ayam Bakar
12000

PKT2
Bebek Kaleyo
15000

PKT3
Sate Ayam
20000
ListBox1
KD1
Bisnis
50000

KD2
Premium
35000

KD3
Ekonomi
20000


Ketentuan :
1.       Jika memilih isi combobox , maka nama paket + harga paket tampil, lalu saat jumlah di isi kemudian di enter maka total harga (edit4) tampil
2.       Jika memilih isi Lisbox, maka jenis meja dan harga tampil
3.       Jika radiobutton di pilih salah satu maka harga (edit7) akan tampil
4.       Jika Chekbox di pilih salah satu atau beberapa di pilih maka harga (edit8) akan tampil
5.       Kemudian jika Hitung (button1) di klik maka total bayar (edit9) tampil
-ketentuan total bayar (edit9)= (edit4)+(edit6)+(edit7)+(edit8)

6.       Saat uang bayar di ketik, uang kembali tampil otomatis
7.       Tambah baru / bisa di sebut procedure bersih
8.       Ketika tombol keluar (button3) di klik maka akan muncul pesan.




unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ListBox1: TListBox;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Label7: TLabel;
    Label8: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure ListBox1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure Edit10Change(Sender: TObject);
  private
    { Private declarations }
  public
  procedure bersih;
  procedure hitung;
    { Public declarations }
  end;

var
  Form1: TForm1;
  ice,kentang,burger,harga:real;
implementation

{$R *.dfm}

procedure TForm1.hitung;
begin
harga:=ice+kentang+burger;
edit8.text:=floattostr(harga);
end;

procedure TForm1.bersih;
begin
combobox1.text :='-Pilih';
radiobutton1.Checked := false;
radiobutton2.Checked := false;
radiobutton3.Checked := false;
checkbox1.checked := false;
checkbox2.checked := false;
checkbox3.checked := false;
edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
edit4.Text := '0';
edit5.Text := '';
edit6.Text := '0';
edit7.Text := '0';
edit8.Text := '0';
edit9.Text := '0';
edit10.Text := '0';
edit11.Text := '0';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  if (application.MessageBox('Anda ingin Tambah Paket Lagi?','Information',MB_YESNO)=IDYES) then
  begin
  bersih;
  end
  else
  begin
  close;
  end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
bersih;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e:real;
begin
a:=strtoint(edit4.text);
b:=strtoint(edit6.text);
c:=strtoint(edit7.text);
d:=strtoint(edit8.Text);
e:=a+b+c+d;
edit9.text:=floattostr(e);
edit10.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Items.add('PKT1');
combobox1.Items.add('PKT2');
combobox1.Items.add('PKT3');
listbox1.Items.add('KD1');
listbox1.Items.add('KD2');
listbox1.Items.add('KD3');
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text = 'PKT1' then
  begin
  edit1.Text :='Ayam Bakar';
  edit2.Text :='12000';
  end
else
if combobox1.Text = 'PKT2' then
  begin
  edit1.Text :='Bebek Kaleyo';
  edit2.Text :='15000';
  end
else
  begin
  edit1.Text :='Sate Ayam';
  edit2.Text :='20000';
  end;
  edit3.setfocus;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
var
a,b,c:real;
begin
  if key=#13 then
  begin
     a:=strtoint(edit2.Text);
     b:=strtoint(edit3.Text);
c:=a*b;
     edit4.text :=floattostr(c);
  end
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if listbox1.ItemIndex = 0 then
  begin
  edit5.Text :='Bisnis';
  edit6.Text :='50000';
  end
else
if listbox1.ItemIndex = 1 then
  begin
  edit5.Text :='Premium';
  edit6.Text :='35000';
  end
else
  begin
  edit5.Text :='Ekonomi';
  edit6.Text :='20000';
  end;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  if radiobutton1.Checked = true then
  begin
  edit7.Text:='5000';
  end
  else
  if radiobutton2.Checked = true then
  begin
  edit7.Text:='3000';
  end
  else
  begin
  edit7.Text:='4000';
  end
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if radiobutton1.Checked = true then
  begin
  edit7.Text:='5000';
  end
  else
  if radiobutton2.Checked = true then
  begin
  edit7.Text:='3000';
  end
  else
  begin
  edit7.Text:='4000';
  end
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
if radiobutton1.Checked = true then
  begin
  edit7.Text:='5000';
  end
  else
  if radiobutton2.Checked = true then
  begin
  edit7.Text:='3000';
  end
  else
  begin
  edit7.Text:='4000';
  end
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked= true then
ice:=10000
else
ice:=0;
hitung;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked= true then
kentang:=8000
else
kentang:=0;
hitung;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked= true then
burger:=10000
else
burger:=0;
hitung;
end;

procedure TForm1.Edit10Change(Sender: TObject);
var
a,b,c:real;
begin
a:=strtoint(edit9.Text);
b:=strtoint(edit10.Text);
c:=b-a;
edit11.Text:=floattostr(c);
end;

end.



Create By : Heey Riku