利用Timer 控制 亂數產生速度 並顯示到 form的Label之上
希望可以做到像是吃角子老虎一樣，拉下拉桿之後數字會一直跑，
目前數字會一直變 但是變的速度似乎一秒才變一次
把timer的interval 設成100 速度也差不多 label上的數字也差不多
是一秒改變一次，即使interval設成1，也差不多這速度，
但是把interval 設成 2000，label改變的速度確實會變慢
請問這樣該怎麼辦?

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
int x = StrToInt(Edit1->Text) ;
if (x>100 || x<0)
{
ShowMessage("數值超出範圍");
Edit1->Text = "";
return;
}
BitBtn1->Enabled = false;
Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ProcessLabel()
{
randomize();
Label3->Caption = random(101);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
BitBtn1->Enabled = true;
Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
ProcessLabel();
}
//---------------------------------------------------------------------------

使用WINAPI的精準計時吧～可以計算到毫秒。
QueryPerformanceCounter
QueryPerformanceFrequency
看看下面這篇DELPHI範例，很容易改成BCB。
http://www.pconline.com.cn/pcedu/empolder/gj/delphi/0412/508779.html

我剛剛去看了
但是那程式似乎僅是計算
程式執行所需的時間而已
沒有timer觸發的功能

有了精準計時的方法，自己寫個Thread把計時方法以及要作的工作放在Thread裡面不就解決了嘛！

喔 了解 那我試試看 謝謝喔

你的作業系統是不是 NT ?

試著把 Label 改成 Panel 再試看看，還不行請把你整個 project 上傳.


Stallion 所提的應該是需要更精準的時間系統時才需要



HoboLin