لعبة حظ

#19 يونيو 2007 في 22:11 صاحب الموضوع

السلام عليكم :

هذا كود اللعبة ولكن ياريت تشاركونا في جعل مكان القنبلة متنقل في كل خيار ( لعبة جديد )

ملاحظة::((( آرائكم تهمنا وكذلك إنتقاداتكم )))))وجزاكم الله عنا كل خير اللهم آآآآآمين

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Button1: TButton;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel8: TPanel;

Panel9: TPanel;

Button2: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Panel1Click(Sender: TObject);

procedure Panel2Click(Sender: TObject);

procedure Panel3Click(Sender: TObject);

procedure Panel4Click(Sender: TObject);

procedure Panel5Click(Sender: TObject);

procedure Panel6Click(Sender: TObject);

procedure Panel7Click(Sender: TObject);

procedure Panel8Click(Sender: TObject);

procedure Panel9Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

var x:integer;

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Panel1Click(Sender: TObject);

begin

x:=x+1;

panel1.Color:=clSkyBlue;

panel1.Enabled:=false;

if panel6.Enabled=true then

if panel2.Enabled=false then

if panel3.Enabled=false then

if panel4.Enabled=false then

if panel5.Enabled=false then

if panel7.Enabled=false then

if panel8.Enabled=false then

if panel9.Enabled=false then

showmessage(inttostr(x)+'points');

end;

procedure TForm1.Panel2Click(Sender: TObject);

begin

x:=x+1;

panel2.Color:=clSkyBlue;

panel2.Enabled:=false;

if panel6.Enabled=true then

if panel1.Enabled=false then

if panel3.Enabled=false then

if panel4.Enabled=false then

if panel5.Enabled=false then

if panel7.Enabled=false then

if panel8.Enabled=false then

if panel9.Enabled=false then

showmessage(inttostr(x)+'points');

end;

procedure TForm1.Panel3Click(Sender: TObject);

begin

x:=x+1;

panel3.Color:=clSkyBlue;

panel3.Enabled:=false;

if panel6.Enabled=true then

if panel2.Enabled=false then

if panel1.Enabled=false then

if panel4.Enabled=false then

if panel5.Enabled=false then

if panel7.Enabled=false then

if panel8.Enabled=false then

if panel9.Enabled=false then

showmessage(inttostr(x)+'pionts');

end;

procedure TForm1.Panel4Click(Sender: TObject);

begin

x:=x+1;

panel4.Color:=clSkyBlue;

panel4.Enabled:=false;

if panel6.Enabled=true then

if panel2.Enabled=false then

if panel3.Enabled=false then

if panel1.Enabled=false then

if panel5.Enabled=false then

if panel7.Enabled=false then

if panel8.Enabled=false then

if panel9.Enabled=false then

showmessage(inttostr(x)+'points');

end;

procedure TForm1.Panel5Click(Sender: TObject);

begin

x:=x+1;

panel5.Color:=clSkyBlue;

panel5.Enabled:=false;

if panel6.Enabled=true then

if panel2.Enabled=false then

if panel3.Enabled=false then

if panel4.Enabled=false then

if panel1.Enabled=false then

if panel7.Enabled=false then

if panel8.Enabled=false then

if panel9.Enabled=false then

showmessage(inttostr(x)+'points');

end;

procedure TForm1.Panel6Click(Sender: TObject);

begin

panel6.Color:=clYellow;

panel6.Enabled:=true;

if panel6.Enabled=true then

begin

panel1.Enabled:=false;

panel2.Enabled:=false;

panel3.Enabled:=false;

panel4.Enabled:=false;

panel5.Enabled:=false ;

panel7.Enabled:=false ;

panel8.Enabled:=false ;

panel9.Enabled:=false ;

showmessage('** you lose **'+inttostr(x)+' point');

end;

procedure TForm1.Panel7Click(Sender: TObject);

begin

x:=x+1;

panel7.Color:=clSkyBlue;

panel7.Enabled:=false;

if panel6.Enabled=true then

if panel2.Enabled=false then

if panel3.Enabled=false then

if panel4.Enabled=false then

if panel5.Enabled=false then

if panel1.Enabled=false then

if panel8.Enabled=false then

if panel9.Enabled=false then

showmessage(inttostr(x)+'points');

end;

procedure TForm1.Panel8Click(Sender: TObject);

begin

x:=x+1;

panel8.Color:=clSkyBlue;

panel8.Enabled:=false;

if panel6.Enabled=true then

if panel2.Enabled=false then

if panel3.Enabled=false then

if panel4.Enabled=false then

if panel5.Enabled=false then

if panel7.Enabled=false then

if panel1.Enabled=false then

if panel9.Enabled=false then

showmessage(inttostr(x)+'points');

end;

procedure TForm1.Panel9Click(Sender: TObject);

begin

x:=x+1;

panel9.Color:=clSkyBlue;

panel9.Enabled:=false;

if panel6.Enabled=true then

if panel2.Enabled=false then

if panel3.Enabled=false then

if panel4.Enabled=false then

if panel5.Enabled=false then

if panel7.Enabled=false then

if panel8.Enabled=false then

if panel1.Enabled=false then

showmessage(inttostr(x)+'points');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

x:=0;

if x=0 then

begin

panel9.Enabled:=true;

panel9.Color:=clActiveCaption;

panel2.Enabled:=true;

panel2.Color:=clActiveCaption;

panel3.Enabled:=true;

panel3.Color:=clActiveCaption;

panel4.Enabled:=true;

panel4.Color:=clActiveCaption;

panel5.Enabled:=true;

panel5.Color:=clActiveCaption;

panel7.Enabled:=true;

panel7.Color:=clActiveCaption;

panel8.Enabled:=true;

panel8.Color:=clActiveCaption;

panel1.Enabled:=true;

panel1.Color:=clActiveCaption;

panel6.Color:=clActiveCaption;

end;

end.

اللهم إنك عفو تحب العفو فاعفو عنــــــــــــا

#29 يونيو 2007 في 23:27

من الاحسن ان تضع الكود كملف

استعمل التعليمة random لتعطيك رقم عشوائي

ولا تنسى التعليمة randomize لكي لا تتكرر الارقام في كل

تشغيل

#310 يونيو 2007 في 00:29

bachirk كتب:
من الاحسن ان تضع الكود كملف
استعمل التعليمة random لتعطيك رقم عشوائي
ولا تنسى التعليمة randomize لكي لا تتكرر الارقام في كل
تشغيل

السلام عليكم ورحمة الله وبركاته

شكرا أخي على المشاركة ولكن اليست التعليمة randomللأرقام العشوائية فقط ؟؟؟؟

ولا تصلح لأن تعطينا خيار عشوائي لمكان القنبلة في اللعبة !!!! :huh:

اللهم إنك عفو تحب العفو فاعفو عنــــــــــــا

#410 يونيو 2007 في 20:12

اذا من الممكن تضع ملف للعبة لنجربها ونشوفها

#511 يونيو 2007 في 01:01

في المرفقات تعديل لعبتك لتصبح عشوائية

لغير راغبين في التحميل هذا لب التغيير في اللعبة

procedure TForm1.FormCreate(Sender: TObject);
begin
scor  :=0;
Randomize;
x1:=Random(48);
Randomize;
x2:=Random(48);
Randomize;
x3:=Random(48);

end;

procedure TForm1.Panel2Click(Sender: TObject);
begin
  If Sender Is TPanel Then
  begin
	if (TPanel(Sender).TabOrder = x1) or (TPanel(Sender).TabOrder = x1) or (TPanel(Sender).TabOrder = x3)  then
	 begin
	  TPanel(Sender).Color:=clred;
	  ShowMessage('Finish Game Your Points Is = ' +IntToStr(scor));
	  Button2.Click;
	  TPanel(Sender).Color:=clActiveCaption;
	  end
	else
	  begin
	   TPanel(Sender).hide;
	   scor:= scor +1;
	   Label1.Caption:= 'Points : ' +IntToStr(scor);
	end;
  end;

end;

تنبيه :

يرجى إرسال ملفات المشروع كاملة في المرات القادمة حتى تسهل علينا مساعدتك

boom.rar

#611 يونيو 2007 في 02:22

decompiler كتب:
في المرفقات تعديل لعبتك لتصبح عشوائية
لغير راغبين في التحميل هذا لب التغيير في اللعبة
procedure TForm1.FormCreate(Sender: TObject);
begin
scor  :=0;
Randomize;
x1:=Random(48);
Randomize;
x2:=Random(48);
Randomize;
x3:=Random(48);

end;

procedure TForm1.Panel2Click(Sender: TObject);
begin
  If Sender Is TPanel Then
  begin
	if (TPanel(Sender).TabOrder = x1) or (TPanel(Sender).TabOrder = x1) or (TPanel(Sender).TabOrder = x3)  then
	 begin
	  TPanel(Sender).Color:=clred;
	  ShowMessage('Finish Game Your Points Is = ' +IntToStr(scor));
	  Button2.Click;
	  TPanel(Sender).Color:=clActiveCaption;
	  end
	else
	  begin
	   TPanel(Sender).hide;
	   scor:= scor +1;
	   Label1.Caption:= 'Points : ' +IntToStr(scor);
	end;
  end;

end;
تنبيه :
يرجى إرسال ملفات المشروع كاملة في المرات القادمة حتى تسهل علينا مساعدتك

بارك الله فيك أخي

سبب عدم إرفاق الملف هو أنني فشلت في إرفاقه

وتظهر لي رسالة تفيد بعدم إرفاق الملف

مشكور بارك الله فيك أخي ساجرب الكود إذن الله ونطلعكم على الاخبار

ودمتم لأخيكم :lol:

اللهم إنك عفو تحب العفو فاعفو عنــــــــــــا

لعبة حظ

مواضيع مشابهة