Minggu, 03 Mei 2015

DELPHI [ TUTORIAL V ] Procedure Bersih dan Message Box

Saya akan menjelaskan tentang procedure bersih ( karna kelebihan memakai procedure ialah dapat dipanggil atau dipakai berulang ulang ) J

Step 1 membuat procedure bersih

Step 2 membuat codingan procedure bersih



Step 3 Pemanggilan Procedure Bersih Pada Button1




Step 4 Membuat message Box pada Button 2 ( KELUAR )






Jika yes bearti prosedure bersih dipanggil, dan Jika no maka close



procedure TForm1.Button2Click(Sender: TObject);
begin
  if (application.messagebox('Anda Ingin Menginput Lagi?','Information',MB_YESNO)=IDYES) then
    begin
      bersih;
    end
  else
    begin
      close;
    end
end;

DELPHI [ TUTORIAL IV ] CheckBox


  1. Checkbox adalah opsi pilihan yang dapat dipilih semuanya atau 1 saja. ( isi codingan terdapat pada setiap checkbox, dengan isi codingan serupa )





Step 1 ( buat prosedure hitung  pada public declarations )


Step kedua (buat variabel sebelum implementation )



Step ketiga buat procedure hitung dibawah tulisan {$R *.dfm}


Step ke empat isi kodingan pada setiap checkbox


procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked = true then
  minum :=3000
  else
  minum :=0;
  hitung;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  if CheckBox2.Checked = true then
  makan :=8000
  else
  makan :=0;
  hitung;
end;
  
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
  if CheckBox3.Checked = true then
  snack :=1000
  else
  snack :=0;
  hitung;
end;

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


If checkbox1.checked = true
( ini dimaksudkan jika checkbox1 di centang ( true )

minum :=3000
( ini dimaksudkan jika “minum” adalah sebuah variabel yg kita buat tadi dan berisikan “3000” )

Else
Minum :=0;
(ini dimaksudkan jika checkbox tidak di centang maka variabel “minum” berisikan nilai “0” )

Hitung;
( ini dimaksudkan mulai dilakukan perhitungan setelah di centang ataupun tidak )



Create by : heeyriku



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






DELPHI [ TUTORIAL II ] Radio Button


  1. Radio button adalah sebuah objek multiple choice ( hanya dapat memilih 1 pilihan diantara banyak pilihan yang terdaftar )(memasukan codingannya pada tiap tiap radio button dengan codingan yg serupa )



Codingan :


procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  if radiobutton1.Checked = true then
  begin
     edit1.text :='5000';
  end
  else
  if radiobutton2.Checked = true then
  begin
     edit1.text :='8000';
  end
  else
  begin
     edit1.text :='10000';
  end;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if radiobutton1.Checked = true then
  begin
     edit1.text :='5000';
  end
  else
  if radiobutton2.Checked = true then
  begin
     edit1.text :='8000';
  end
  else
  begin
     edit1.text :='10000';
  end;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
if radiobutton1.Checked = true then
  begin
     edit1.text :='5000';
  end
  else
  if radiobutton2.Checked = true then
  begin
     edit1.text :='8000';
  end
  else
  begin
     edit1.text :='10000';
  end;
end;


Create by : heeyriku

DELPHI [ TUTORIAL I ] Editbox


  1. Ketentuan Jika jumlah beli di isi kemudian di tekan enter maka total harga akan tampil ( meletakan codingannya pada edit2.text klik sekali kemudian pilih event On keyPress pada properties ).


Codingan : 


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

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

2.     Ketentuan Jika Kode di isi kemudian di tekan enter maka nama dan jabatan akan tampil ( meletakan codingan pada edit1.text klik sekali kemudian pilih event On keyPress pada properties )




Codingan :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    if edit1.text ='AB' then
      begin
        edit2.Text :='Abu Bakar';
        edit3.Text :='Direktur';
      end
    else
    if edit1.text ='CD' then
      begin
        edit2.Text :='Cihuy Deh';
        edit3.Text :='Manager';
      end
    else
    if edit1.text ='EF' then
      begin
        edit2.Text :='Efendi Firdaus';
        edit3.Text :='Foreman';
      end
    else
      begin
        showmessage('Kode Tidak Ada');
      end
  end
end;

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

3.   Ketentuan Jika Uang Bayar di isi maka uang kembali OTOMATIS tampil ( meletakan codingan pada edit2.text klik sekali kemudian pilih event On change pada properties)


Codingan :

procedure TForm1.Edit2Change(Sender: TObject);
var
a,b,c:real;
begin
  a:=strtofloat(edit1.text);
  b:=strtofloat(edit2.Text);
  c:=b-a;
  edit3.Text:=floattostr(c);
end;

Create By : heeyriku