有關機率產生器的問題

(我把已經附上檔案..在最下面可下載)

我打程式為什麼一直有錯誤...不管修改還是一樣..

這個我打程式打完後.. 突然部分有錯誤...都是有關"Cas10"

1.有三個分別為"500","100","10"的按鈕,用來代表你所投入的金額
有倍率分別為2,5,7,15,20,50,100,200,500,1000
2.一個可顯示所投入總金額的標籤(Label)
3.做10個不同的花色,代表不同的位數
4.10個可押住的按鈕(Button),可對各個花色押注,每種花色押注範圍為0~50
5.10個可用來顯示各個花色押金的標籤(Label)
6.當押注按鈕(Button),對任一花色下注時,其所下金額由總金額處扣除,當總金額被扣除到零時,即不得再下注
7.一個清除鍵(Button),可以清除所押金額
8.一個開始鍵(Button),按下時可在10種花色中依序掃描,並變化顏色
9.一個停止鍵(Button),按下時,花色變化速度會變慢,並在五秒鐘後停止
10.一個可顯示彩金標籤(Label),可按應中的花色及所押倍數相乘,顯示只次隨機函數所中的彩金


剩下兩個如下 不知道要打什麼程式...

11.當花色停止變化時,即隨機(random)可按應中的花色,押中的用紅色,不中的用黃色
12.若所中彩金為0,在上行Label中,另外在顯示"你槓龜了",而若總彩金超過一萬,則另外在顯示"你發財了"
請問要什麼打程式呢?

如下我打程式
//---------------------------------------------------------------------------

#include <vcl.h>
#include <sys\timeb.h>
#pragma hdrstop

#include "Unit1.h"

#define Max 100


//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
byte Lcolor[]= { 255, 255, 255,
255, 255, 0,
255, 0, 0,
0, 255, 255,
255, 0, 255,
0, 255, 0,
0, 0, 255 } ;
int lab = 0 , TotalWin = 0 , money ;
int Citem = 0 , Tend ;
bool StopTimer = false ;
int Cash1, Cash2, Cash3, Cash4, Cash5, Cash6, Cash7, Cash8, Cash9, Cas10 ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Timer1->Enabled = false ;
Edit1->Text = "0" ;
}
//---------------------------------------------------------------------------
//void __fastcall ShowResult( long tt , short min )
void ShowResult( long tt , short min )
{
Form1->WinLab->Caption = IntToStr(tt) ;
if( ((tt/Citem) % 2) ==0 ){
Form1->Lab1->Color = RGB(0,255,0 ) ;
TotalWin += Cash1*2 ;
}
else Form1->Lab1->Color = RGB(255,0,255 ) ;
if( (tt % 5) ==0 ){
Form1->Lab2->Color = RGB(0,255,0 ) ;
TotalWin += Cash2*5 ;
}
else Form1->Lab2->Color = RGB(255,0,255 ) ;
if( ((tt/min) % 7)==0){
Form1->Lab3->Color = RGB(0,255,0 ) ;
TotalWin += Cash3*7 ;
}
else Form1->Lab3->Color = RGB(255,0,255 ) ;
if( ((tt/Citem)%15)==0){
Form1->Lab4->Color = RGB(0,255,0 ) ;
TotalWin += Cash4*15 ;
}
else Form1->Lab4->Color = RGB(255,0,255 ) ;
if( ((tt/7) % 20) ==0 ){
Form1->Lab5->Color = RGB(0,255,0 ) ;
TotalWin += Cash5*20 ;
}
else Form1->Lab5->Color = RGB(255,0,255 ) ;
if((((tt/Citem)/Citem)%50)==0 ){
Form1->Lab6->Color = RGB(0,255,0 ) ;
TotalWin += Cash6*50 ;
}
else Form1->Lab6->Color = RGB(255,0,255 ) ;
if((((tt/min)/min)%100)==0 ){
Form1->Lab7->Color = RGB(0,255,0 ) ;
TotalWin += Cash7*100 ;
}
else Form1->Lab7->Color = RGB(255,0,255 ) ;
if( ((tt/3) % 200) ==0 ){
Form1->Lab8->Color = RGB(0,255,0 ) ;
TotalWin += Cash8*200 ;
}
else Form1->Lab8->Color = RGB(255,0,255 ) ;
if( (((tt/min)/Citem)%500) ==0 ){
Form1->Lab9->Color = RGB(0,255,0 ) ;
TotalWin += Cash9*500 ;
}
else Form1->Lab9->Color = RGB(255,0,255 ) ;
//---------------------------------------- ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容