為何無法一張一張發牌 |
尚未結案
|
gwen1510
一般會員 ![]() ![]() 發表:2 回覆:3 積分:1 註冊:2004-11-22 發送簡訊給我 |
我利用bcb 寫了一個21點的程式
但是在發牌時,無法一張一張發牌, 每次按下開始
都是一次顯示四張牌
以下是程式碼,請問各位高手 我應該如何改成可以一張一張顯示圖片呢
另外,每當程式執行時,都必須等待一段時間,牌才會顯示出來,
不知是不是有什麼問題,應該要如何解決呢?? if(card_num1[8]>=14 && card_num1[8]<=26)
{
Image8->Visible=true;
ImageList1->Draw(Image8->Canvas,0,0,card_num1[8],true);
card_num[8]=card_num1[8]-13;
}
else if(card_num1[8]>=27 && card_num1[8]<=39)
{
Image8->Visible=true;
ImageList1->Draw(Image8->Canvas,0,0,card_num1[8],true);
card_num[8]=card_num1[8]-26;
}
else
{
Image8->Visible=true;
ImageList1->Draw(Image8->Canvas,0,0,card_num1[8],true);
card_num[8]=card_num1[8]-39;
} card_num1[1]=random_num();
while(card_num1[1]==card_num1[8])
{
card_num1[1]=random_num();
}
if(card_num1[1]>=1 && card_num1[1]<=13)
{
card_num[1]=card_num1[1];
card_style[1]="c";
Image1->Visible=true;
Image1->Picture->LoadFromFile("cardpic.bmp");
}
else if(card_num1[1]>=14 && card_num1[1]<=26)
{
card_num[1]=card_num1[1]-13;
card_style[1]="d";
Image1->Visible=true;
Image1->Picture->LoadFromFile("cardpic.bmp");
}
else if(card_num1[1]>=27 && card_num1[1]<=39)
{
card_num[1]=card_num1[1]-26;
card_style[1]="h";
Image1->Visible=true;
Image1->Picture->LoadFromFile("cardpic.bmp");
}
else
{
card_num[1]=card_num1[1]-39;
card_style[1]="s";
Image1->Visible=true;
Image1->Picture->LoadFromFile("cardpic.bmp");
} card_num1[9]=random_num();
while(card_num1[9]==card_num1[1] || card_num1[9]==card_num1[8])
{
card_num1[9]=random_num();
}
if(card_num1[9]>=1 && card_num1[9]<=13)
{
card_num[9]=card_num1[9];
Image9->Visible=true;
ImageList1->Draw(Image9->Canvas,0,0,card_num1[9],true);
}
else if(card_num1[9]>=14 && card_num1[9]<=26)
{
card_num[9]=card_num1[9]-13;
Image9->Visible=true;
ImageList1->Draw(Image9->Canvas,0,0,card_num1[9],true);
}
else if(card_num1[9]>=27 && card_num1[9]<=39)
{
card_num[9]=card_num1[9]-26;
Image9->Visible=true;
ImageList1->Draw(Image9->Canvas,0,0,card_num1[9],true);
}
else
{
card_num[9]=card_num1[9]-39;
Image9->Visible=true;
ImageList1->Draw(Image9->Canvas,0,0,card_num1[9],true);
} card_num1[2]=random_num();
while(card_num1[2]==card_num1[8] || card_num1[2]==card_num1[9]||card_num1[2]==card_num1[1])
{
card_num1[2]=random_num();
}
if(card_num1[2]>=1 && card_num1[2]<=13)
{
card_num[2]=card_num1[2];
Image2->Visible=true;
ImageList1->Draw(Image2->Canvas,0,0,card_num1[2],true);
}
else if(card_num1[2]>=14 && card_num1[2]<=26)
{
card_num[2]=card_num1[2]-13;
Image2->Visible=true;
ImageList1->Draw(Image2->Canvas,0,0,card_num1[2],true);
}
else if(card_num1[2]>=27 && card_num1[2]<=39)
{
card_num[2]=card_num1[2]-26;
Image2->Visible=true;
ImageList1->Draw(Image2->Canvas,0,0,card_num1[2],true);
}
else
{
card_num[2]=card_num1[2]-39;
Image2->Visible=true;
ImageList1->Draw(Image2->Canvas,0,0,card_num1[2],true);
}
|
GGL
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:104 回覆:600 積分:335 註冊:2006-11-05 發送簡訊給我 |
|
gwen1510
一般會員 ![]() ![]() 發表:2 回覆:3 積分:1 註冊:2004-11-22 發送簡訊給我 |
|
GGL
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:104 回覆:600 積分:335 註冊:2006-11-05 發送簡訊給我 |
|
gwen1510
一般會員 ![]() ![]() 發表:2 回覆:3 積分:1 註冊:2004-11-22 發送簡訊給我 |
|
st
一般會員 ![]() ![]() 發表:11 回覆:21 積分:11 註冊:2004-07-02 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |