깨구르 wrote:

> 게임을 만들고 있는데 시간 구하는 데에서 막혀서 이렇게 조언을 구합니다..

> 그러니까 버튼을 누르면 시간이 계산되고 게임을 끝냈을 경우 그 시간을 출력

> 해주는 겁니다...아주 쉬운 질문이라는 생각이 듭니다만 넓은 고수님들의

> 아량으로 꼭 좀 가르쳐 주시길 바랍니다....



종료시 시간에서 버튼을 눌렸을때 시간을 빼면 될것 같네요.

경과 시간이 나올것 같네요.



이만.

강민주님 답변 정말 감사드립니다...

그런데 전 그걸 말한게 아니구요...그러니까 버튼을 눌렀을때 부터 시간이

계산되고 게임을 끝냈을때 게임하는 시간을 출력시키는 겁니다...

그리구 시간이 어떻게 계산이 되는지도 모르구요...다시한번 답변 부탁드립니다..

소스 입니다. 한번 테스트 해보고 써보십시요!



컴포넌트 속성 값

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

timer1 enabled false

interval 10

----------------------------------

label1 <- 시간 표시하기...

----------------------------------

button1 <- 시간 제기 시작

--------------------------------

button2 <- 시간 제기 고만두기



이렇게 컴포넌트를 놓고

아래의 소스대로 한번 해보셔요!



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls;



type

TForm1 = class(TForm)

Label1: TLabel;

Button1: TButton;

Button2: TButton;

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

stime : Ttime;



implementation



{$R *.DFM}



procedure TForm1.Timer1Timer(Sender: TObject);

var

Present: TDateTime;

Hour, Min, Sec, MSec: Word;

begin

DecodeTime((now-stime), Hour, Min, Sec, MSec);

label1.Caption := inttostr(min)+'분 '+inttostr(sec)+'.'+inttostr(msec)+'초 경과';

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled := true;

stime := now;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

timer1.Enabled := false;

end;



end.