这个范例是小弟这学期的期末考考题
在这边post出来让各位大大们参考
也希望如果有任何bug或问题的话能请各位大大多多指教
----------------------------------说明如何使用本程式:-----------------------------------------------------------------
第一个选项是 <1>.一般的选号
<2>.自选中奖号码
<3>.电脑乱数选号
使用者可于这个选项内选择你想选择的号码 然后输入你的中奖号码 去比对看中了几个号码.
亦可输入自选中奖号码后 采用电脑乱数选号 去比对看中了几个号码.
第二个选项是 <1>.自选包牌
<2>.自选中奖号码
<3>.电脑乱数产生中奖号码
使用者可于这个选项内选择你想选择的包牌 然后输入你的中奖号码 去比对看中了几个号码.
比对成功后会显示你总共选择了几组号码 并花费了多少金额
亦可输入你想选择的包牌后 采用电脑乱数产生中奖号码 去比对看中了
几个号码,并会显示你总共选择了几组号码 并花费了多少金额
第三个选项是使用说明
第四个选项是离开
另外要额外提醒的一点是 小弟所有的讯息均以messagebox产生 故可能会有许多人感到不习惯
均可自行修改成您想要的显示方式^^
-----------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------程式写作说明---------------------------------------------------------
<一.> 一般的玩法
(1.)首先先做出13个文字框 7个是中奖号码 6个是自选的号码 以供输入
并以阵列方式用for回圈去取出你所输入的值 并且去比较
文字框的阵列方式请参照小弟之前所post的文章
(2.)电脑乱数 则是采用random随机变数产生6个号码 然后去跟中奖号码比较
<二.>包牌的玩法
(1.)首先作出49个checkbox是作来核取选择号码用 以及7个文字框用来输入中奖号码用
并以阵列方式用for回圈分别去取出你所输入的值 并且去比较
当你核取方块后 会将checkbox的值传出来并且存到变数里面去
(2.)电脑乱数 则是采用random随机变数产生7个号码 然后去跟您所核取的方块去比较
-----------------------------------------------------------------------------------------------------------------------------------------
-----------------------------------------------------------程式码-----------------------------------------------------------
以下是第一个选项的程式码
unit loto2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label62: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Bevel1: TBevel;
GroupBox3: TGroupBox;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
memo1: TMemo;
Button3: TButton;
Button4: TButton;
Memo2: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
checkbox:array of TCheckbox; //设定核取方块的阵列//
ball :array of integer; //设定中奖号码的阵列//
i,j,k,m,n,abc,def,x :integer;
aedit: Tedit; //设定aedit等于Tedit//
Pball:array of integer; //设定自选号码的阵列//
Cball:array of integer; //设定电脑乱数的阵列//
aball:array of integer; //设定核取方块的阵列
acheckbox: Tcheckbox; //设定achecbox等于Tcheckbox//
y:integer;
implementation
uses loto1;
{$R *.dfm}
//电脑乱数的比较
procedure ctoc;
var c , b:integer;
begin
ABC := 0;
for b := 1 to 7 do
for c := 1 to 6 do
if Cball = ball then Inc(ABC);
end;
//自选号码的比较
procedure ptoc;
var p , b :integer;
begin
ABC := 0;
for b := 1 to 7 do
for p := 1 to 6 do
if Pball = ball then Inc(ABC);
end;
procedure TForm2.Button1Click(Sender: TObject); //回主选单//
begin
form2.Hide;
form1.s ..
访客只能看到部份内容，免费 加入会员 或由脸书 Google 
可以看到全部内容
