有关机率产生器的问题

(我把已经附上档案..在最下面可下载)

我打程式为什么一直有错误...不管修改还是一样..

这个我打程式打完后.. 突然部分有错误...都是有关"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 可以看到全部内容