Lalu klik 2 x ComboBox1 lalu ketik listing berikut : procedure TForm1.ComboBox1Change(Sender: TObject); begin if combobox1.ItemIndex = 0 then begin edit1.Text := combobox1.Text; edit2.Text := 'Garuda'; end; end; Klik 2 x ComboBox2 lalu ketik listing berikut : procedure TForm1.ComboBox2Change(Sender: TObject); begin if combobox2.ItemIndex = 0 then begin edit1.Text := combobox1.Text + combobox2.Text; edit3.Text := 'Makassar ke Surabaya'; end; end; Klik 2x Button1 (Hitung) lalu ketik listing berikut: procedure TForm1.Button1Click(Sender: TObject); var harga : integer; begin if edit1.Text = 'GMks-Srb' Then begin harga := 700000 ; edit4.Text := inttostr (harga); end; end;
0 komentar:
Posting Komentar