프로그램내에서 시간을 보여줄려면 타이머를 쓰셔야 하지만 ...

단순히 요금계산하기 위해서는... 시작 시간과 종료시간만 알면 되지 않을까요..

사용시간 := 종료시간 - 시작시간;

겜방은 날짜가 넘어갈 수도 있으니까 12시 넘는것 까지 계산하셔야 겠지만...



김선영 wrote:

> 안녕하세요 전 김선영이라고 합니다...

> 요번에 게임방 프로그램을 만들게 되었는데 잘 안돼네요...

> 버튼을 클릭하면 현재 시간을 입력받는거는 하겠는데요...

> 달리기할때처럼 1초 2초 3초... 이렇게 시간이 가다가 딱 멈추게하는건

> 어떻게 하는지 모르겠네요... 뭘사용해야하나요...

> 아주 자세한 설명 부탁 드립니다.

김선영 wrote:

> 안녕하세요 전 김선영이라고 합니다...

> 요번에 게임방 프로그램을 만들게 되었는데 잘 안돼네요...

> 버튼을 클릭하면 현재 시간을 입력받는거는 하겠는데요...

> 달리기할때처럼 1초 2초 3초... 이렇게 시간이 가다가 딱 멈추게하는건

> 어떻게 하는지 모르겠네요... 뭘사용해야하나요...

> 아주 자세한 설명 부탁 드립니다.



Timer 1개로두 되겠네요 ^^



var

Form1: TForm1;

i : Integer; // 시간의 진행을 나타내기 위한 전역변수



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

Timer1.Enabled := False;

Timer1.Interval := 1000;

i := 0; // 초의 초기화

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

Inc(i);

Label1.Caption := IntToStr(i) + '초 ';

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

Timer1.Enabled := True;

end;





수고하셔요

TIMER 를 2개 사용하시면 될 듯 합니다

현재 시간을 알려주는 타이머1과

시간 계산을 위한 타이머2 요

타이머2를 멈추는 건 enabled := false 하심 될듯 ..

요금 계산은 사용한 초를 계산 하시면 될 듯 ..

즐거운 하루하루 되세요



var

Form1: TForm1;

hh,mm,ss : integer;

implementation



{$R *.DFM}



procedure TForm1.Timer1Timer(Sender: TObject);

begin

label1.caption := FormatDateTime('YYYY-MM-DD hh:mm:ss',now);

end;



procedure TForm1.Timer2Timer(Sender: TObject);

begin

ss := ss + 1;



if ss > 59 then

begin

ss := 0;

mm := mm + 1;

end;



if mm > 59 then

begin

mm := 0;

hh := hh + 1;

end;



label4.caption := IntToStr(hh)+ ' 시간';

label3.caption := IntToStr(mm) + ' 분';

label2.caption := IntToStr(ss) + ' 초 사용중';



end;



procedure TForm1.Button1Click(Sender: TObject);

begin

ss := 0;

mm := 0;

hh := 0;

if timer2.Enabled = false then timer2.Enabled := true;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

timer2.enabled := false;

// 요금 계산

end;