94/01/05 已補檔上傳 (抱歉哩@@")
另外不曉得需要上傳什麼檔案 故只上傳執行檔
如果尚需程式碼的檔案 請再回訊息給我^^
這個是這學期老師要我們做的一個小程式 相信大家都會玩21點吧~
我們的目的就是要做出一個可以玩的21點遊戲~
不過要事先聲明的是 這目前還是未完全版~ 因為我還沒做不重複的比對~
因為小弟的程式也寫的不是很好 漏洞,想法,不成熟的地方還是很多
還請大家不要見笑^^
先說明 : 一開始先拉取 四個文字框(Edit) 以及兩個按鈕(button) 基本需要的
這邊是圖片 (如果還有需要其他的 我再放~)
起始畫面
電腦贏的畫面
玩家過五關的畫面
玩家贏的畫面
接下來是以下的Code
unit C21;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
Bevel1: TBevel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
GroupBox3: TGroupBox;
Button1: TButton;
Button2: TButton;
Image1: TImage;
Image2: TImage;
procedure N3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ComputerX,cadd ,PeopleX,x,i,j,s,padd,k,l,o,ss,Ppass:integer;
z,d,e,y,m,n: string;
implementation
{$R *.dfm}
//玩家的累加變數//
function Ptotal(n:integer):integer ;
var
score : integer;
begin
score:=n mod 13;
case score of
0:score:=10;
11:score:=10;
12:s ..
訪客只能看到部份內容，免費 加入會員 或由臉書 Google 
可以看到全部內容
