無法分類 麻煩幫我看一下程式碼 我找不到原因 感謝(bcb6.0寫的) |
|
尚未結案
|
|
雞排
一般會員   發表：16 回覆：40 積分：11 註冊：2004-03-10 發送簡訊給我 |
1 2 3
8 9 4 <= x[]
7 6 5 1 6 9
2 4 3 <= 假設裡面的值
8 7 5
這是左旋轉的一部分 如上例 9會 跑成
1 6 3
9 4 5
2 8 7
我TEST() 是把x[1~9]列印出來 會每隔一秒列一次 總共五次
可是為什麼SHOWPIC() 只會再最後一次列出來 應該也要跟著動五次才對阿
把用到的副程式都po上來好了 拜託幫一下 T_T int i=0,j=0;
for(i=1;i<9;i )
{
if(x[i]==9)
{
for(j=i;j<8;j )
{
swap(x[j],x[j 1]);
// SHOWPIC();
TEST();
sleep(1);
}
}
} void SHOWPIC()
{
Form1->Image1->Picture->LoadFromFile(NumberPic[x[1]]);
Form1->Image2->Picture->LoadFromFile(NumberPic[x[2]]);
Form1->Image3->Picture->LoadFromFile(NumberPic[x[3]]);
Form1->Image4->Picture->LoadFromFile(NumberPic[x[4]]);
Form1->Image5->Picture->LoadFromFile(NumberPic[x[5]]);
Form1->Image6->Picture->LoadFromFile(NumberPic[x[6]]);
Form1->Image7->Picture->LoadFromFile(NumberPic[x[7]]);
Form1->Image8->Picture->LoadFromFile(NumberPic[x[8]]);
Form1->Image9->Picture->LoadFromFile(NumberPic[x[9]]);
} void TEST()
{
int i=0;
for(i=1;i<10;i )
Form1->Memo1->SelText=x[i]; }
//---------------------------
void swap(int *ta,int *tb)
{
int temp;
temp=*ta;
*ta=*tb;
*tb=temp;
}
|
|
雞排
一般會員 發表：16 回覆：40 積分：11 註冊：2004-03-10 發送簡訊給我 |
|
|
a8960905
一般會員 發表：30 回覆：47 積分：20 註冊：2003-09-19 發送簡訊給我 |
|
|
雞排
一般會員 發表：16 回覆：40 積分：11 註冊：2004-03-10 發送簡訊給我 |
引言: 雞排 您好 請試試看 Sleep(千分之一秒); eg. Sleep(1000); //表示停1秒 希望是您要的解答感謝您的回答 終於有人理我了 T_T 不過結果一樣 我最大的問題是 用函式之後 Form1->Memo1->SelText=x[i]; 會每隔一秒秀出來 Form1->Image9->Picture->LoadFromFile(NumberPic[x[9]]); 這個卻不會 假設[i]總共9個 會每秒秀一個array的值出來 不過picture會等到全部執行完才開始變換 不會間隔一秒動一次 (不知道是只執行最後一步還是依序執行 太快了) |
|
JerryKuo
版主  發表：42 回覆：571 積分：322 註冊：2003-03-10 發送簡訊給我 |
|
|
anpino
版主 發表：31 回覆：477 積分：231 註冊：2003-01-02 發送簡訊給我 |
|
|
雞排
一般會員 發表：16 回覆：40 積分：11 註冊：2004-03-10 發送簡訊給我 |
發表時間：2004-04-16 00:58:48
IP:210.68.xxx.xxx 未訂閱
系統時間：2024-05-12 19:44:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |