Printable View
در يك رويه همه ي مختصات ارايه روFALSE كردم و[7,20] رو TRUE كردم.کد:
implementation
کد:
من در برنامه ام يه ارايه اي از ركورد تعريف كردم.
type
snackrec=record
snack:boolean;
green:boolean;
end;
TYPE s=array[1..15,1..40] of snackrec;
var
snackdata:s;
در رويه اي ديگر
اين دو رويه رو در رويه ديگر خواندم.کد:
for i:=1 to 15 do
for j:=1 to 40 do
begin
if(SnackData[i,j].Snack)then
begin
form12.canvas.pixels[i,j]:=clblue;
وقتي اجراش مي كنم فرم باز مي شه اما هيچي نشون نمي ده
چرا؟
چه عجب يه نفر يه سوال گرافيكي پرسيد.
دوست عزيز. امتحان كردم جواب داد. مي توني بگي دقيقا مي خواي چي كار كني؟
من دارم يه بازي SNACK مي سازم كه چند تا فرم داره .اين فرمي كه مي بينيد فرمي هست كه بازي توش انجام مي شه .چون مي خوام ببينم دستورام درسته يا نه كم كم فرممو كامل مي كنم.فعلا مي خوام در مختصات كه بطور تصادفي تععيين مي شه غذا به رنگ سبز و در[7,20] مار به رنگ ابي ظاهر شه.اما با اين دستورها فقط فرم ظاهر مي شه.
کد:unit Unit12;
کد:
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
snackrec=record
snack:boolean;
green:boolean;
end;
TYPE s=array[1..15,1..40] of snackrec;
type
TForm12 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
var
snackdata:s;
i,j,x_start,y_start,x_end,y_end:integer;
ch,arow:widechar;
win:boolean;
{$R *.dfm}
procedure setrandomdata;
var
xi,yi:integer;
begin
for i:=1 to 15 do
for j:=1 to 40 do
begin
SnackData[i,j].Snack:=false;
SnackData[i,j].Green:=false;
end;
randomize();
xi:=random(14)+1;
yi:=random(39)+1;
snackData[xi,yi].green:=true;
end;
procedure TForm12.FormCreate(Sender: TObject);
begin
x_start:=7;
Y_Start:=20;
X_End:=7;
Y_End:=20;
SnackData[X_Start,Y_Start].green:=False;
SnackData[X_Start,Y_Start].Snack:=True;
end;
procedure SetGame;
begin
Win:=True;
for i:=1 to 15 do
for j:=1 to 40 do
begin
if(SnackData[i,j].Snack)then
begin
form12.canvas.pixels[i,j]:=clblue;
enD;
if(SnackData[i,j].Green)then
begin
form12.Canvas.pixels[i,j]:=clgreen;
end;
end;
end;
procedure snack;
BEGIN
SetRandomData;
SETGAME;
END;
END.
سلام
برنامت مشكلي نداره. اين كار رو امتحان كن ببين جواب مي گيري يا نه. خبرم كن.
دستوراتي كه در رويداد Oncreate فرمت نوشتي رو كات كن و در رويداد Onpaint فرمت كپي كن ببين درست مي شه يا نه؟
موفق باشي
درست نشد.اينكه مختصات يك پيكسل رو خواستم ابي شه يك پيكسل خودشو نشون مي ده؟
درست نشد . يعني يك پيكسل خودشو نشون مي ده؟
ببين دوست عزيز من يه برنامه ساده نوشتم كه قسمتي از برنامه شما رو شامل مي شد. ابتدا دستورات رو در قسمت Oncreat فرم قرار دادم ولي چيزي نشون نداد. ولي وقتي در قسمت Onpaint گذاشتم نشون داد.نقل قول:
ببين بهتره يه امتحان خارج برنامت انجام بدي. يه Application جديد بساز و دستورات زير رو توي Onpaint فرم كپي كن ببين چيزي مي بيني يا نه؟ بايد خطوطي رو به رنگ آبي ببيني.
بهتره پله پله بري جلو تا اشكال كار رو بفهميکد:Type
ac=record
b:Bool;
end;
var
i,j:integer;
ar:Array [1..100,1..200] of ac;
begin
for i:=1 to 100 do
for j:=1 to 200 do
if (i mod j)=0 then
ar[i,j].b:=true
else
ar[i,j].b:=false;
//----------------------
for i:=1 to 100 do
for j:=1 to 200 do
if ar[i,j].b then
Form1.Canvas.Pixels[i,j]:=CLBlue;
درست شد. برنامه ام رو اصلاح كردم. از شما خيلي ممنونم.:11:
بجاي پيكسل مي خوام يه مار رسم شه كه بعدا بادستوراتي حركتش بدم چطور اين كارو كنم؟
کد:
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
snackrec=record
snack:boolean;
green:boolean;
end;
TYPE s=array[1..15,1..40] of snackrec;
type
TForm12 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form12: TForm12;
implementation
var
snackdata:s;
i,j,x_start,y_start,x_end,y_end:integer;
ch,arow:widechar;
win:boolean;
{$R *.dfm}
procedure setrandomdata;
begin
for i:=1 to 15 do
for j:=1 to 40 do
begin
SnackData[i,j].Snack:=false;
SnackData[i,j].Green:=false;
end;
end;
procedure TForm12.FormCreate(Sender: TObject);
VAR
xi,yi:integer;
begin
setrandomdata;
x_start:=7;
Y_Start:=20;
X_End:=7;
Y_End:=20;
SnackData[X_Start,Y_Start].green:=False;
SnackData[X_Start,Y_Start].Snack:=True;
randomize();
xi:=random(14)+1;
yi:=random(39)+1;
snackData[xi,yi].green:=true;
end;
procedure TForm12.FormPaint(Sender: TObject);
begin
Win:=True;
for i:=1 to 15 do
for j:=1 to 40 do
begin
if(SnackData[i,j].Snack)then
begin
form12.canvas.pixels[i,j]:=clblue;
end;
if(SnackData[i,j].Green)then
begin
form12.Canvas.pixels[i,j]:=clgreen;
end;
end;
end;
END.
من تا حالا فكر مي كردم شما فقط مشكلتون نشون ندادن پيكسلاست.نقل قول:
من دقيقا نمي دونم برنامتونو چجوري نوشتين ولي اگه مي خواين ماري رسم بشه كافيه به تعداد دلخواه پيكسلهاي كنار هم رو رنگ آبي كنيد. خوب تشكيل يه مار ميده ديگه.
در ضمن بايد بگم برنامه بازي Snake براي حركت مار از يه سري فرمول استفاده مي شه كه توي تمام زبانهاي برنامه نويسي يكين. در واقع الگوريتمش يكيه. پيشنهاد مي كنم يه سرچ از گوگل بگيرين.