pert.5 looping delphi

Looping atau perulangan yang digunakan sama seperti looping yang digunakan dalam pascal, untuk lebih jelas silakan anda baca artikel pascal looping.
Buat Tampilan seperti ini :

Listing Program :procedure TForm6.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 5 do
ehasil.SelText:=inttostr(i);
end;

procedure TForm6.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=5 downto 1 do
ehasil.SelText:=inttostr(i);
end;

procedure TForm6.Button3Click(Sender: TObject);
var
i:integer;
begin
i:=0;
while i=15;
end;

procedure TForm6.Button5Click(Sender: TObject);
begin
close;
end;

procedure TForm6.Button6Click(Sender: TObject);
begin
ehasil.Text:=”;
end;

Iklan

Pert.4 Percabangan Delphi 7.0

Percabangan, combobox, optionbuton Dalam Delphi

Percabangan dalam delphi terdiri dari :If tunggal, If majemuk, dan If bercabang, dalam contoh berikut kita akan membahas If majemuk dan beberapa object yang ada didelphi.

Bentuk tampilan Hasil :

Listing Program (catatan Edit dalam delphi bertipe data string jadi setiap ingin melakukan perubahan nilai tipe data maka harus dirumah ketipe data yang diinginkan).

procedure TForm2.FormCreate(Sender: TObject);
begin
combobox1.Items.Add (‘ads’);
combobox1.Items.Add (‘rbk’);
combobox1.Items.Add (‘spt’);
end;

procedure TForm2.ComboBox1Click(Sender: TObject);
begin
if combobox1.Text=’ads’ then
  begin
  enama.Text :=’Adidas’;
  eharga.Text:=’250000′;
  end
else
if combobox1.Text=’rbk’ then
  begin
  enama.Text :=’Reebok’;
  eharga.Text:=’200000′;
  end
else
  begin
  enama.Text :=’Spotec’;
  eharga.Text:=’150000′;
  end;
end;

procedure TForm2.rb1Click(Sender: TObject);
var c,a,d:real;
begin
if rb1.Checked =true then
  c:=strtofloat(eharga.Text);——->Tipe data String dirubah menjadi tipe data real/float
  a:=c*5/100;
  d:=a+c;
  etotbay.Text:=floattostr(d);
  ebayar.SetFocus
end;

procedure TForm2.rb2Click(Sender: TObject);
var c,a,d:real;
begin
if rb2.Checked =true then
  c:=strtofloat(eharga.Text);
  a:=c*10/100;
  d:=a+c;
  etotbay.Text:=floattostr(d);
  ebayar.SetFocus
end;

procedure TForm2.ebayarChange(Sender: TObject);
var a:real;
begin
a:=strtofloat(ebayar.Text)- strtofloat(etotbay.Text);
ekembali.Text:=floattostr(a);
end;

procedure TForm2.bbersihClick(Sender: TObject);
begin
combobox1.Text:=’Pilih Kode’;
enama.Text:=”;
eharga.Text:=’0′;
etotbay.Text:=’0′;
ebayar.Text:=’0′;
ekembali.Text :=’0′;
end; 

Untuk Pesan Kita bisa buat tampilan seperti ini : 

procedure TForm2.bkeluarClick(Sender: TObject);
begin
if messagedlg(‘Anda ingin keluar ?’,mtconfirmation,[mbyes,mbno],0)=mryes then
close;
end;

Selamat Mencoba….

Ketikan Listing kode berikut ini :

procedure Tfrmoperator.btntambahClick(Sender: TObject);var tambah:real;
begin
n1:=strtofloat(enilai1.Text);
n2:=strtofloat(enilai2.Text);
tambah:=n1+n2;
etambah.Text:=floattostr(tambah);
end;

procedure Tfrmoperator.btnkaliClick(Sender: TObject);
var kali:real;
begin
n1:=strtofloat(enilai1.Text);
n2:=strtofloat(enilai2.Text);
kali:=n1*n2;
ekali.Text:=floattostr(kali);
end;

procedure Tfrmoperator.btnbagiClick(Sender: TObject);
var bagi:real;
begin
n1:=strtofloat(enilai1.Text);
n2:=strtofloat(enilai2.Text);
bagi:=n1/n2;
ebagi.Text:=floattostr(bagi);
ebagi.Text:=formatfloat(‘#.##’,bagi)
end;

procedure Tfrmoperator.btnkurangClick(Sender: TObject);
var kurang:real;
begin
n1:=strtofloat(enilai1.Text);
n2:=strtofloat(enilai2.Text);
kurang:=n1-n2;
ekurang.Text:=floattostr(kurang)
end;

procedure Tfrmoperator.btnkeluarClick(Sender: TObject);
begin
if MessageDlg(‘Yakin Mo Keluar’,mtConfirmation,[mbYes,mbNo],0)=mrYES then
close;
end;

procedure Tfrmoperator.btnbersihClick(Sender: TObject);
begin
enilai1.Text:=”;
enilai2.Text:=”;
etambah.Text:=”;
ekurang.text:=”;
ebagi.Text:=”;
ekali.Text:=”;
enilai1.SetFocus
end;