Re: Proizvoljan odabir vrednosti i još par pitanja...
http://free-zg.t-com.hr/Passwd/
Skini igra.exe!
Sad mozda dobijes poticaj za turbo vision (tj. mozda shvatis o cem ti Srki_82 prica)!!!
Sad razmisli kolika je razlika izmedju tvoje dos igrice i ove win32
A usporedi i kodove
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure btnbrojeviclick(Sender: TObject);
end;
var
Form1: TForm1;
n:integer;
implementation
{$R *.dfm}
procedure TForm1.btnbrojeviclick(Sender: TObject);
var br1:integer;
begin
br1:=TButton(Sender).Tag;
if br1=n then showmessage('Bravo') else
if br1<n then showmessage('Treba veci broj')
else showmessage('Treba manji broj');
end;
procedure TForm1.FormCreate(Sender: TObject);
var btn:TButton;
x,y:integer;
begin
for x:=0 to 9 do
for y:=0 to 9 do
begin
btn:=Tbutton.Create(self);;
btn.Parent:=self;
btn.Top:=50+y*30;
btn.Left:=50+x*30;
btn.Width:=25;
btn.height:=25;
btn.Caption:=inttostr((X + 1) + (Y * 10));
btn.Tag := (X + 1) + (Y * 10);
btn.OnClick:=btnbrojeviclick;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=0;
randomize;
n:=random(101);
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure btnbrojeviclick(Sender: TObject);
end;
var
Form1: TForm1;
n:integer;
implementation
{$R *.dfm}
procedure TForm1.btnbrojeviclick(Sender: TObject);
var br1:integer;
begin
br1:=TButton(Sender).Tag;
if br1=n then showmessage('Bravo') else
if br1<n then showmessage('Treba veci broj')
else showmessage('Treba manji broj');
end;
procedure TForm1.FormCreate(Sender: TObject);
var btn:TButton;
x,y:integer;
begin
for x:=0 to 9 do
for y:=0 to 9 do
begin
btn:=Tbutton.Create(self);;
btn.Parent:=self;
btn.Top:=50+y*30;
btn.Left:=50+x*30;
btn.Width:=25;
btn.height:=25;
btn.Caption:=inttostr((X + 1) + (Y * 10));
btn.Tag := (X + 1) + (Y * 10);
btn.OnClick:=btnbrojeviclick;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=0;
randomize;
n:=random(101);
end;
end.
p.s:Prije pocetka igre stisni "nova igra"!!
