Q&A

  • 도와주세요..


타자연습 프로그램을 델파이로 만들고 있는데...



평균속도(타수)를 나타나게 할려고 합니다.



평균속도=(60000*입력 문자개수) / 경과한 시간



이와 같은 공식은 구했는 데여....



경과한 시간을 잡을려면 어떻게 해야 하는지 도저히 모르겠습니다.

어떻게 해야 합니까?



도와 주세요...

1  COMMENTS
  • Profile
    류종택 2001.04.19 00:02
    아래 소스를 참고하세요.



    꿈꾸는 바보 류..



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





    procedure TForm1.Button1Click(Sender: TObject);

    Const

    CLOCK_TICK : Double = 1000;

    Var

    i: LongInt;

    StartTime, EndTime : Double;

    Begin

    i:= 0;



    // 시작 시간을 저장

    StartTime:= GetTickCount;



    // 아무거나 원하는 작업

    While (i < 10000000) do i:= i+1;



    // 끝난 시간에서 시작 시간을 뺀다

    EndTime:= GetTickCount - StartTime;

    ShowMessage(Format('Elapsed Time: %0.2f Seconds', [EndTime/CLOCK_TICK]));

    End;





    장웅철 wrote:

    >

    > 타자연습 프로그램을 델파이로 만들고 있는데...

    >

    > 평균속도(타수)를 나타나게 할려고 합니다.

    >

    > 평균속도=(60000*입력 문자개수) / 경과한 시간

    >

    > 이와 같은 공식은 구했는 데여....

    >

    > 경과한 시간을 잡을려면 어떻게 해야 하는지 도저히 모르겠습니다.

    > 어떻게 해야 합니까?

    >

    > 도와 주세요...