Arsip: Kelipatan waktu..

 
user image
more 12 years ago

anak_s0leh

Assalamu alaikum, para master delphi saya ada permasalahan kayak gini: jika tombol A diklik --> jam = jam + 10 menit, jika tombol A diklik lagi maka jumlah jam hasil dari proses pertama ditambah 10 menit lagi.. nah pada saat saya klik 1 jam kemudia, program saya malah nambahkan hasil pada proses ke dua, pengennya jam = jam_sekarang + 10 menit; mohon solusinya... kode yang sudah saya buat:

uses DateUtils;
.
public
  { Public declarations }
  jam: TTime;
.
procedure TForm1.Button1Click(Sender: TObject);
begin
  jam:= IncMinute(jam, 10);
  Edit1.Text:= TimeToStr(jam);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  jam := now;
end;
user image
more 12 years ago

DelphiExpert


procedure TForm1.Button1Click(Sender: TObject);
begin
  jam:= IncMinute(Now, 10); // --> modified here
  Edit1.Text:= TimeToStr(jam);
end;
user image
more 12 years ago

anak_s0leh

permasalahannya ini oms @De
@anak_s0leh: nah pada saat saya klik 1 jam kemudia, program saya malah nambahkan hasil pada proses ke dua, pengennya jam = jam_sekarang + 10 menit; mohon solusinya...
user image
more 12 years ago

DelphiExpert

lha iya... jam = jam_sekarang (now) + 10 menit ...
user image
more 12 years ago

imunk


uses DateUtils;
.
public
  { Public declarations }
  jam: TTime;
.
procedure TForm1.Button1Click(Sender: TObject);
begin
  if HoursBetween(jam, now) >= 1 then  jam:=now;
  jam:=IncMinute(jam, 10);
  Edit1.Text:= TimeToStr(jam);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  jam := now;
end;
mudah2an yang dimaksud.
user image
more 12 years ago

mat_koder

@anak_s0leh : keterangan anda ( dlm tulisan ) tdk trivial. ( Artinya mengandung kebingungan ). Ketika anda mengatakan "... meng-klik satu jam kemudian...." , "kemudian yg mana ?" , dari klik yg terakhir ? , dari klik yg pertama ? Untuk memudahkan anda, coba sebelon nulis kode, bentuk dulu logika-nya dlm bentuk flowchart. tetep semangat!.
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com