mehdirayaneh
شنبه 08 تیر 1387, 16:25 عصر
من می خواستم یک برنامه درست کنم که دو تا Button روی فرمم بزارم یکی شروع و دومی ایست که وقتی استارت می کنم شروع کنه به تایم رفتن و بعداز اینکه ایست را زدم این تایم را به عدد تبدیل کنه بعدش ضرب عدد مبلغ مورد نظر بکنه عدد تایم*عدد مبلغ=مبلغ پرداختی من این کد را برای تایمر نوشتم
var
Form1: TForm1;
TheTime: Integer;
implementation
{$R *.dfm}
function GetCounter(Second: Integer): string;
var
Minute, NewSecond, Hour: Currency;
begin
Hour := Int(Second / 3600);
Minute := Int((Second - (Hour * 3600)) / 60);
NewSecond := Second - int(Hour * 3600 + Minute * 60);
GetCounter := CurrToStr(Hour) + ':' + CurrToStr(Minute) + ':' + CurrToStr(NewSecond);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TheTime := GetTickCount;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := GetCounter(GetTickCount div 1000 - TheTime div 1000);
end;
اما این کد نمی تونستم استفاده کنم چون وقتی تایمرمو false می کنم باز تایم میر اگر می تونه نمونه کدی برای این کار بدید یا یک راهنمایی کنید متشکر می شوم .....بگم می خوام به تعداد سیستم های که دارم تایمر بزارم هرکدوم مجازاه باشه
var
Form1: TForm1;
TheTime: Integer;
implementation
{$R *.dfm}
function GetCounter(Second: Integer): string;
var
Minute, NewSecond, Hour: Currency;
begin
Hour := Int(Second / 3600);
Minute := Int((Second - (Hour * 3600)) / 60);
NewSecond := Second - int(Hour * 3600 + Minute * 60);
GetCounter := CurrToStr(Hour) + ':' + CurrToStr(Minute) + ':' + CurrToStr(NewSecond);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TheTime := GetTickCount;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := GetCounter(GetTickCount div 1000 - TheTime div 1000);
end;
اما این کد نمی تونستم استفاده کنم چون وقتی تایمرمو false می کنم باز تایم میر اگر می تونه نمونه کدی برای این کار بدید یا یک راهنمایی کنید متشکر می شوم .....بگم می خوام به تعداد سیستم های که دارم تایمر بزارم هرکدوم مجازاه باشه