這個範例是小弟這學期的期末考考題
在這邊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 
可以看到全部內容
