老虎机程序疑难求助

江上客-无类

首先感谢 clb929 的分享

原文地址http://bbs.fishc.com/forum.php?mod=viewthread&tid=34808

通过他的实例 基本了解了一下 老虎机的基本构架和实现方法

代码比较简练 大多能看的懂
但对于 temp 这个值的用法存在疑虑 现将源码（考虑太长有适当删减） 贴在下方 求过路大神指点迷津

1. 
   
2. 
   
3. unit tiger;
   
4. 
   
5. interface
   
6. 
   
7. uses
   
8.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
9.   Dialogs, StdCtrls, ExtCtrls;
   
10. 
    
11. type
    
12.   TForm1 = class(TForm)
    
13.     Label1: TLabel;
    
14.    ...
    
15.     procedure Timer1Timer(Sender: TObject);
    
16.   private
    
17.     { Private declarations }
    
18.   public
    
19.     { Public declarations }
    
20.   end;
    
21. 
    
22. var                                //变量基础值和声明
    
23.   Form1: TForm1;
    
24.   Jifen: Integer = 100;
    
25.   Shu: Integer = 0;
    
26.   Niu: Integer = 0;
    
27.   Hu: Integer = 0;
    
28.   Tu: Integer = 0;
    
29.   Long: Integer = 0;
    
30.   She: Integer = 0;
    
31.   Ma: Integer = 0;
    
32.   Yang: Integer = 0;
    
33.   Hou: Integer = 0;
    
34.   Gou: Integer = 0;
    
35.   Ji: Integer = 0;
    
36.   Zhu: Integer = 0;                //以上为十二个候选位置
    
37.   Sign: Integer = 0;                //确定是否在进行中
    
38.   Result: Integer = 0;        //确定结果
    
39. [b][color=Red][size=5]  Temp: Integer =0;                //不明白是干什么的[/size][/color][/b]
    
40.   Time: Integer = 2;
    
41. 
    
42. implementation
    
43. 
    
44. {$R *.dfm}
    
45. 
    
46. 
    
47. procedure TForm1.FormCreate(Sender: TObject);                 //窗口初始化积分
    
48. begin
    
49.   Label17.Caption:= IntToStr( Jifen );
    
50. end;
    
51. 
    
52. procedure TForm1.Button2Click(Sender: TObject);         //按下相关按钮开始加注 //共计12个按钮
    
53. begin
    
54.   if ( Sign = 0 ) and ( Jifen > 0 )
    
55.   then
    
56.     begin
    
57.       Shu:= Shu + 10;
    
58.       Jifen:= Jifen - 10;
    
59.       Label31.Caption:= IntToStr( Shu );
    
60.       Label17.Caption:= IntToStr( Jifen );
    
61.     end;
    
62. end;
    
63. ...
    
64. 
    
65. procedure TForm1.Button1Click(Sender: TObject);        //按下开始摇奖按钮
    
66. begin
    
67.   if ( Sign = 0 ) and ( ( Shu + Niu + Hu + Tu + Long + She + Ma + Yang + Hou + Gou + Ji + Zhu ) <> 0 )
    
68.   then
    
69.     begin
    
70.       Randomize;                       
    
71.       Sign:= 1;                                //进入摇奖模式
    
72.       Result:= Random( 16 );        //在十二个候选和2个特2个空总计16 个选项中计算出结果
    
73.       Timer1.Enabled:= True;        //打开时间控件
    
74.     end;
    
75. end;
    
76. 
    
77. procedure TForm1.Timer1Timer(Sender: TObject);
    
78. begin
    
79. if ( Temp <= (Result + 16) )   //此处为疑问点，temp并未赋值 初始仅为0 Result的随机值为0～15 加16以后一定是大于Temp 这个判断究竟判断了什么？
    
80.   then
    
81.     begin
    
82.          case ( Temp ) of         //这里就更迷糊了Temp只是0 如何进行case？ 并没有随机赋值之类他的0以上的值从那来的呢？
    
83.         0,16:  //形成转动效果
    
84.           begin
    
85.             Label16.Color:= clAqua;
    
86.             Label1.Color:= clRed;
    
87.           end;
    
88. ...
    
89.         15,31:
    
90. ..
    
91.       end;
    
92.    Temp:= Temp + 1;  //这个也是一样不知道是计算了个什么？
    
93.     end
    
94.   else
    
95.     begin
    
96.       Timer1.Enabled:= False;
    
97.       case ( Result ) of
    
98.         0: Jifen:= Jifen + Shu * 2 * Time;  //根据结果计算出中奖积分  *Time 是相当于四倍么？比如押了10 中了得40？
    
99. ..
    
100.         15: Jifen:= Jifen + Zhu * 2 * Time;
     
101.       end;
     
102.       Label17.Caption:= IntToStr( Jifen ); //获得中奖积分
     
103.       Shu:= 0;
     
104.   ..
     
105.       Zhu:= 0;  
     
106.       Sign:= 0;
     
107.       Result:= 0; //清零
     
108.       Temp:=0; //temp又变成0了。。。
     
109.       Label31.Caption:= IntToStr( Shu );
     
110.       Label32.Caption:= IntToStr( Niu );
     
111.       Label33.Caption:= IntToStr( Hu );
     
112.       Label34.Caption:= IntToStr( Tu );
     
113.       Label35.Caption:= IntToStr( Long );
     
114.       Label36.Caption:= IntToStr( She );
     
115.       Label37.Caption:= IntToStr( Ma );
     
116.       Label38.Caption:= IntToStr( Yang );
     
117.       Label39.Caption:= IntToStr( Hou );
     
118.       Label40.Caption:= IntToStr( Gou );
     
119.       Label41.Caption:= IntToStr( Ji );
     
120.       Label42.Caption:= IntToStr( Zhu );
     
121.     end;
     
122. end;
     
123. 
     
124. end.
     
125. 
     

复制代码

游客，如果您要查看本帖隐藏内容请回复

江上客-无类

感谢各位大神的回复和帮助～！

江上客-无类

超级玛丽 顶～～

winter10

即墨丰禾

mark

大海来了哈

看看

江上客-无类

顶顶求关注

谦虚求学

谦虚求学

temp这个变量一般在C语言里只用于中介   你看过指针吗  你看过C语言吗  你应该好好看下C语言 那是一本好书