سؤال دون جواب

007GB كتب:

هنالك طريقة عامة تحسب من خلالها النسبة المئوية لأي مقدار من أي مقدار

function CalculatePrecentage (FatherNum,SonNum:extended):extended;
begin
result:=(SonNum*100)/FatherNum
end;

و لكن ذلك لا يعني أنها الوحيدة فكما ذكرت هي طريقة عامة و تلاحظون أنها ثقيلة نوعاً ما على المعالج لأنها تقوم بعمليات حسابية على أعداد ضخمة و كبيرة من حيث نوع المتغيير

هي الطريقة المثالية على ما أظن, فليس المعالج من يقوم بحلها بل وحدة الحساب FPU.

من وجهة نظري

أقدم الحل الذي أوجدته

لا نرى الأخوة الخبراء و أفكارهم سواءً أسئلة أو أجوبة نرجو أن يكونو يحضرون ما هو ذو قيمة :cash:

فكل تأخيرة و فيها خيرة

procedure TForm1.Button1Click(Sender: TObject);

var num:real;

begin

num := strtofloat(edit2.text)/strtofloat(edit1.text) ;

edit3.Text := floattostr(strtofloat(formatfloat('0.####',num))*100) ;

end;

سؤال جديد :

لديك التابع التالي :

y=x^2

أو

ع=س^2

كيف ترسم المنحني البياني الممثل لهذا التابع ضمن PaintBox

علماً أن x,y من النوع integer

أو

س،ع أعداد صحيحة

ربنا يعينكم بس انا حاسس انة واجب ومطلوب حلة :hmm:

ربنا يساعدكم

يبدو أن الموضوع فتر و أن لا أحد يعيره اهتماماً

على كل حال هذا جواب السؤال الأخير

procedure TForm1.Button1Click(Sender: TObject);
 var Wdt,Hgt,X,Y:integer;
 begin
  PaintBox1.Repaint;
  Wdt:=PaintBox1.width div 2;
  Hgt:=PaintBox1.Height div 2;
  PaintBox1.Canvas.MoveTo(Wdt,0);
  PaintBox1.Canvas.LineTo(Wdt,Hgt*2);
  PaintBox1.Canvas.MoveTo(0,Hgt);
  PaintBox1.Canvas.LineTo(Wdt*2,Hgt);
  x:=0;Y:=0;
  for X:=-wdt to Wdt do 
   begin
	Y:=X*X;   
	if X=-Wdt then 
	 PaintBox1.Canvas.MoveTo(0,Hgt-Y)
	else
	 begin
	  PaintBox1.Canvas.Pen.Color:=ClRed;  
	  PaintBox1.Canvas.LineTo(Wdt+X,Hgt-Y);
	 end;
   end;
 end;

و إن شاء الله نرى أسئلة من مبرمجين أخرين

سنحاول اليوم إنعاش الموضوع

السؤال هو :

كيف تقوم بتأخير تنفيذ كود لفترة زمنية محددة

هيا إطرحوا إجاباتكم و لاتخجلوا

السلام عليكم

أخي الكريم تريد تأخير التنفيذ( لمدة معينة) =وقت أم = أمر معين ؟؟؟

السلام عليكم

اقترح استخدام Timer .

بحيث نصف الكود الأول يكون على الزر و من ثم نفعل Timer (من خلال الزر)

و يكون النصف الثاني على التايمر.

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

و السلام

نجم كتب:

For I := 1 to 200 do

..

..

أخي الكريم لاحظ أن الأمر سينفذ 200 مرة و لن يتم تأخيره فهو سينفذ مع أول قيمة لـ I

أنا مع الطريقة التي قدمها الأخ asrocks

asrocks كتب:

السلام عليكم

اقترح استخدام Timer .

بحيث نصف الكود الأول يكون على الزر و من ثم نفعل Timer (من خلال الزر)

و يكون النصف الثاني على التايمر.

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

و السلام

طريقة ثانية هي أستخدام الأمر (sleep)

(sleep(100

هنالك طريقة أخرى لا تحتاج إلى الأمر sleep فالسيئة الرئيسية لهذا الأمر أنه يوقف عمل البرنامج كلياً للمدة التي تدخلها أما الكود الذي سأدخله فهو يأخر التنفيذ فقط دون أن يؤثر على عمل البرنامج

procedure Delay(DelayTime:TTime);
 var StartTime,CrtTime:TTime;
 begin
  StartTime:=Time;
  while CrtTime < DelayTime do
   begin
	CrtTime:=Time-StartTime;
	Application.ProcessMessages;
   end;
 end;

مثال

procedure TForm1.Button1Click(Sender:TObject);
begin
showmessage('Wait 5 seconds');
delay(encodeTime(0,0,5,0));
showmessage('You Have Waited for 5 seconds')
end;

ممكن تنفيذ الكود كثريد منفصل عن طريق الدالة CreateThread ثم استخدام الدالة WaitForSingleObject حيث المقبض هو للثريد الذي تم انشاؤه مع تحديد الوقت المناسب .

منتدى طويل عريض و لا يوجد مبرمج لديه أفكار يطرحها على الآخرين على شكل سؤال و جواب

لقد ذكرت عدة مرات أن الطرح ليس لي وحدي بل هو للمبرمجين جميعاً

أم أن المنتدى قد أقفر من المبرمجين و أقتصر الأمر على الزوار

مادفعني لي هذا الإنتقاد الحاد هو التفاعل مع السؤال الأول التفرقة بين العدد الزوجي و الفردي و خبوت التفاعل بعد ذلك و بشكل كبير جداً^n

مع العمل أن n تسعى إلى + الانهاية

007GB

كتابة كل سؤال بموضوع منفصل وباختيار عنوان مناسب احسن

انظر لهذا الموضوع: 4 صفحات حتى الان، كيف للمتصفح ان يعرف ماهي الاسئلة وماهي الاجابات دون ان يتصفح كل الصفحات!

-

حول اخر سؤال:

يمكن استخدام Timer وبه عداد، وعندما يثل العدداد عدد معين يكمل البرنامج التنفيذ

-

وهذا سؤال يحتاج جواب:

كيف تجعل برنامج ينفذ ينفذ 10 مرات فقط ؟

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

B.M.AbdelAziZ كتب:

كيف تجعل برنامج ينفذ ينفذ 10 مرات فقط ؟

ممكن for

procedure TForm1.Button1Click(Sender: TObject);

var i:integer ;

begin

for i:= 1 to 10 do

showmessage('this is try num ' + inttostr(i)) ;

end;

كما أن while تقوم بنفس المهمة

procedure TForm1.Button1Click(Sender: TObject);

var i:integer ;

begin

i:= 1 ;

while i < 11 do

begin

showmessage ('this is try num ' + inttostr(i)) ;

i:=i+1 ;

end ;

end;

بالتأكيد يمكن التلاعب بشرط الـ while

اعتقد انه يقصد بينفّذ ان "يعمل" ,, يعني لا تستطيع فتح البرنامج اكثر من عشر مرات ,, ويكون ذلك عن طريق كتابة قيمة للعداد في مكان آمن مثل الرجستري مثلا او ملف خارجي ,, طبعاً لن نتكلم هنا عن امكانية الكسر :lol:

B.M.AbdelAziZ كتب:

كيف تجعل برنامج ينفذ ينفذ 10 مرات فقط ؟

أخي الكريم GamingMasteR لاحظ كلمة ( ينفذ )

يمكن وجهة نظري خاطئة لكن هذا ما فهمته من كلمة ( ينفذ )

بالنسبة للكسر مافي غيرك لها :cash:

ٌrober المقصود ان البرنامج يعمل 10 مرات فقط

السلام عليكم

شكرا أخي للتوضيح

أنا أستخدمت أحد الطرق التي أشار إليها الأخ GamingMasteR و هي وضع مفتاح في الريجستري

كما يمكن جعل البرنامج يعمل 10 أيام فقط

procedure TForm1.FormCreate(Sender: TObject);

var reg : tregistry ;

tim : integer ;

begin

reg := tregistry.Create ;

reg.RootKey := HKEY_CURRENT_USER ;

if not reg.OpenKey ('\Software\test',false) then

begin

reg.OpenKey('\Software\test',true) ;

reg.WriteString('time','0') ;

end ;

tim := strtoint(reg.ReadString('time')) ;

if tim = 10 then

begin

showmessage('time is up') ;

application.Terminate ;

end

else

reg.WriteString('time',inttostr(tim+1)) ;

end;

lock.zip