Minggu, 03 Mei 2015

DELPHI [ TUTORIAL III ] ComboBox dan ListBox

COMBOBOX

  1.      Jika kode bis di pilih, maka nama bis dan harga tiket akan tampil ( bearti isi kodingannya terletak pada combobox1, tapi sebelum itu buat isi combobox dahulu dengan mengklik 2x pada form ) 



  
  Codingan :
   "Pertama isi combobox dahulu dengan mengklik 2x pada form" manual
   

     procedure TForm1.FormCreate(Sender: TObject);

begin
combobox1.Items.Add('DMR');
combobox1.Items.add('SNJ');
combobox1.Items.Add('SNA');
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if combobox1.text ='DMR' then
  begin
    edit1.Text:='DAMRI';
    edit2.Text:='40000';
  end
  else
  if combobox1.text ='SNJ' then
  begin
    edit1.Text:='SINAR JAYA';
    edit2.Text:='50000';
  end
  else
  begin
    edit1.Text:='SINAR ALAM';
    edit2.Text:='60000';
  end
end;

===========================================

LISTBOX

  1. Jika kode bis di pilih, maka nama bis dan harga tiket akan tampil ( bearti isi kodingannya terletak pada listbox1, tapi sebelum itu buat isi listbox dahulu dengan mengklik 2x pada form )


Codingan :
"Pertama isi listbox dahulu dengan mengklik 2x pada form" manual

procedure TForm1.FormCreate(Sender: TObject);

begin
Listbox1.items.add('DMR');
Listbox1.items.add('SNJ');
Listbox1.items.add('SNA');
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if listbox1.ItemIndex=0 then
  begin
    edit1.Text:='DAMRI';
    edit2.Text:='40000';
  end
  else
  if listbox1.ItemIndex =1 then
  begin
    edit1.Text:='SINAR JAYA';
    edit2.Text:='50000';
  end
  else
  begin
    edit1.Text:='SINAR ALAM';
    edit2.Text:='60000';
  end
end;

===========================================

perbedaan Combo box dengan list box terletak pada tulisan yg di garis bawah

combo box ( menggunakan .Text )

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if combobox1.text ='DMR' then
  begin
    edit1.Text:='DAMRI';
    edit2.Text:='40000';
  end
  else
  if combobox1.text ='SNJ' then
  begin
    edit1.Text:='SINAR JAYA';
    edit2.Text:='50000';
  end
  else
  begin
    edit1.Text:='SINAR ALAM';
    edit2.Text:='60000';
  end
end;


LIST BOX ( menggunakan .ItemIndex "yang dimana index dimulai dari "0" )

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if listbox1.ItemIndex=0 then
  begin
    edit1.Text:='DAMRI';
    edit2.Text:='40000';
  end
  else
  if listbox1.ItemIndex =1 then
  begin
    edit1.Text:='SINAR JAYA';
    edit2.Text:='50000';
  end
  else
  begin
    edit1.Text:='SINAR ALAM';
    edit2.Text:='60000';
  end
end;




Create By  :  heeyriku






0 komentar:

Posting Komentar