Program Delphi Daily Problem "PEMBELIAN TANAH"

procedure TTanah.Button1Click(Sender: TObject);
var

  m,o,n,s,l:real;
begin
  l:=strtofloat(edit1.Text);
  s:=500000;
  n:=2000000;
  o:=(l*n) + s;
  m:=(200*n) +s+((l-200)*s);
  if l<80 then edit2.Text:='Pembelian Minimal 80 Meter Persegi';
  if l>=80 then edit2.Text:=floattostr(o);
  if l>200 then edit2.Text:=floattostr(m);



end;

procedure TTanah.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.text:=' ';
end;

procedure TTanah.Button3Click(Sender: TObject);
begin
DailyProblems.Show;
Tanah.Hide;
end;

end.

Read More

Program Delphi Daily Problem "PARKIR"

procedure TParkir.Button1Click(Sender: TObject);
var
  l,b,p,by:integer;
begin
  l:=strtoint(edit1.text);
  b:=1000;
  p:=500;
  by:= (l*b)+p;
  if l<2 then edit2.Text:='Error';
  if (l>=2) and (l<=6) then edit2.Text:=inttostr(by);
  if (l>6) and (l<=10) then edit2.Text:=inttostr(by+250*(l-6));
  if (l>10) then edit2.Text:=inttostr(by+500*(l-10));



end;

procedure TParkir.Button2Click(Sender: TObject);
begin
Edit1.Text:=' ';
edit2.Text:=' ';
end;

procedure TParkir.Timer1Timer(Sender: TObject);
begin
label9.Left:=label9.Left-30;
 if  label9.Left<=-100 then
 label9.Left := 750;
end;

procedure TParkir.Button3Click(Sender: TObject);
begin
DailyProblems.Show;
Parkir.Hide;
end;

end.

Read More

Program Delphi Daily Problem "BONUS"

procedure TBonus.Button1Click(Sender: TObject);
Var
  p:real;
begin
  p:=strtofloat(edit1.Text);
  if p>= 500000 then edit2.Text:='Tiket Ke Swiss' else
  if (p>=400000) and (p<500000) then edit2.Text:='Jam Tangan Rolex' else
  if (p>=300000) and (p<400000) then edit2. text:='Tiket Ke Bali' else
  if (p>=200000) and (p<300000) then edit2.Text:='Tiket Ke Yogya' else
  if (p>=100000) and (p<200000) then edit2.Text:='Discount 5%' else
  edit2.Text:='Error';

end;

procedure TBonus.Button3Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.text:=' ';
end;

procedure TBonus.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-300 then
 label1.Left := 750;
end;

procedure TBonus.Button2Click(Sender: TObject);
begin
DailyProblems.Show;
Bonus.Hide;
end;

Read More

Program Delphi Daily Problem "UTANG PIUTANG"

procedure TUang.Button1Click(Sender: TObject);
var
  w,i:integer;
  b,p:real;
begin
  p:=strtofloat(edit1.Text);
  b:=strtofloat(edit2.text);
  w:=strtoint(edit3.Text);
  for i:= 1 to w do
  begin
  p:=p+(p*(b/100));
  listbox1.Items.add('Bulan ke-' + inttostr(i) +'=' + floattostr(p));
  end;

end;

procedure TUang.Button2Click(Sender: TObject);
begin
edit1.text:=' ';
edit2.text:=' ';
edit3.text:=' ';
listbox1.items.Clear;
end;

procedure TUang.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-300 then
 label1.Left := 750;
end;

procedure TUang.Button3Click(Sender: TObject);
begin
DailyProblems.Show;
Uang.Hide;
end;

end.

Read More