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 
可以看到全部内容
