unit DELPHIPESAWAT; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; ComboBox1: TComboBox; ComboBox2: TComboBox; Edit4: TEdit; Button1: TButton; Edit5: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; procedure ComboBox1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure ComboBox2Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var hasil:integer; total1,total2:real; begin if edit1.Text='GMks-Srb' then begin hasil:=700000; edit4.Text:=inttostr(hasil); total1:=hasil*0.1; total2:=hasil-total1; edit5.Text:=floattostr(total2); end else if edit1.Text='MMks-Srb' then begin hasil:=650000; edit4.Text:=inttostr(hasil); total1:=hasil*0.2; total2:=hasil-total1; edit5.Text:=floattostr(total2); end else if edit1.Text='LMks-Srb' then begin hasil:=600000; edit4.Text:=inttostr(hasil); total1:=hasil*0.1; total2:=hasil-total1; edit5.Text:=floattostr(total2); end else; if edit1.Text='GMks-Btm' then begin hasil:=750000; edit4.Text:=inttostr(hasil); total1:=hasil*0.1; total2:=hasil-total1; edit5.Text:=floattostr(total2); end else if edit1.Text='MMks-Btm' then begin hasil:=700000; edit4.Text:=inttostr(hasil); total1:=hasil*0.2; total2:=hasil-total1; edit5.Text:=floattostr(total2); end else if edit1.Text='LMks-Btm' then begin hasil:=650000; edit4.Text:=inttostr(hasil); total1:=hasil*0.1; total2:=hasil-total1; edit5.Text:=floattostr(total2); end else if edit1.Text='GMks-Mnd' then begin hasil:=720000; edit4.Text:=inttostr(hasil); total1:=hasil*0.1; total2:=hasil-total1; edit5.Text:=floattostr(total2); end else if edit1.Text='MMks-Mnd' then begin hasil:=670000; edit4.Text:=inttostr(hasil); total1:=hasil*0.2; total2:=hasil-total1; edit5.Text:=floattostr(total2); end else if edit1.Text='LMks-Mnd' then begin hasil:=620000; edit4.Text:=inttostr(hasil); total1:=hasil*0.1; total2:=hasil-total1; edit5.Text:=floattostr(total2); end; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin if combobox1.ItemIndex=0 then begin edit1.Text:=combobox1.Text; edit2.Text:='Garuda'; end else if combobox1.ItemIndex=1 then begin edit1.Text:=combobox1.Text; edit2.Text:='Merpati'; end else if combobox1.ItemIndex=2 then begin edit1.Text:=combobox1.Text; edit2.Text:='Lion Air'; end; end; procedure TForm1.ComboBox2Change(Sender: TObject); begin if combobox2.ItemIndex=0 then begin edit1.Text:=combobox1.Text+combobox2.Text; edit3.Text:='Makassar ke Surabaya'; end else if combobox2.ItemIndex=1 then begin edit1.Text:=combobox1.Text+combobox2.Text; edit3.Text:='Makassar ke Jakarta'; end else if combobox2.ItemIndex=2 then begin edit1.Text:=combobox1.Text+combobox2.Text; edit3.Text:='Makassar ke Batam'; end; end; end.
0 komentar:
Posting Komentar