+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اضافة للدرس الرابع (/showthread.php?tid=399)
اضافة للدرس الرابع - musvc - 07-01-2009
بسم الله الرحمن الرحيم
انا من متابعي الدورة بشدة ..
كل يوم افتح الموقع و ارى هل قمتم بأضافة درس جديد ام لا ..
بالمناسبة هل تسمحول لي ان انشر موقعكم في المواقع الأخرى لكي يستفيدو من الدروس الرائعة
اضافتي هي في الدرس الرابع
لماذا لم تشرحو الأمران
Label
و
goto
و
goto
يستعمل هذان الأمران لأعادة تنفيذ امر لمرات غير محدودة و لا يستجيب لأمر if
مثال :
كود :
program Water;
[color=DarkGreen]{$APPTYPE CONSOLE}[/color]
uses
Windows;
Label Loop;
begin
SetConsoleTitle('Water !');
[color=Blue]Loop[/color][color=Red]:[/color]
Writeln(' 010 010 010 010 010 010 010 010 010 010 010');
Writeln(' 101 101 010 010 010 010 010 010 01 0100 010');
Writeln(' 010 010 010 010 010 010 01 010 010 0100 01 0');
Writeln(' 101 101 010 010 010 010 010 010 010 010 010');
Writeln(' 010 010 010 01 0100 010 010 010 010 010 01 0');
[color=Blue]goto[/color] Loop;
end.والسلام عليكم
اضافة للدرس الرابع - محمد عبد العزيز - 08-01-2009
إقتباس :لماذا لم تشرحو الأمران Label و goto
1- الدورة ليست لشرح اوامر باسكال
2- استخدام goto تعد طريقة سيئة وتفكير منطقي ركيك
اضافة للدرس الرابع - kachwahed - 08-01-2009
شكرا على التنبيه
أنا أيضا أتفاد استعمالها
حتى أستسلم أحيانا فأضيفها
لكن...
لماذا تعد تفكير منطقي ركيك؟
وما هو البديل لها؟
ممكن تفيدنا بشرح؟
اضافة للدرس الرابع - STRELiTZIA - 08-01-2009
السلام عليكم و رحمة الله
إقتباس :اضافتي هي في الدرس الرابع
لماذا لم تشرحو الأمران
تعريف Declaration و استعمال Label ليس له علاقة بالحلقات و الشروط الأساسية في دلفي التي يجب تعلمها، لانه عبارة على استدعاء اول الأوامر في آخرها... و يعتبر Call على طريقة البرمجة بالأسمبلي و للخروج منها يجب اضافة Counter ثم شرط يقفز خارج الــ Label
و الــ Label يمكن ان نسميه اي شئ Loop في المثال او Test.
إقتباس :لماذا تعد تفكير منطقي ركيك؟اخي العزيز كاش واحد
معرف جميل تطورت اوامر الباسكال و اظنك تعلم ذلك جيدا لتفادي البرمجة باسلوب بدائي يعني مثل الذي يشير بيده اليمنى ليظهر لك اذنه اليسرى...
إقتباس :وما هو البديل لها؟اظن انك قد كسبت معلومات جيدة في مشوار تعلمك لدلفي و طريقة طرح اسئلتك منطقية و تعليمية بناء على مشاركاتك في هذا المنتدى، و تعرف جيد ان الطريقة الذكية للبرمجة هي محاولة كتابة اسطر اوامر Optimized اكثر، يعني سطر اوامر مدروس خير الف مرة من عشرة عشوائية حتى لو يعطون نفس النتيجة.
تحياتي
اضافة للدرس الرابع - محمد عبد العزيز - 08-01-2009
اضافة الى ما قاله اخي STRELiTZIA
المثال فوق يمكن ان يكتب
PHP كود :
program Water;
{$APPTYPE CONSOLE}
uses
Windows;
Label Loop;
begin
SetConsoleTitle('Water !');
Repeat
Writeln(' 010 010 010 010 010 010 010 010 010 010 010');
Writeln(' 101 101 010 010 010 010 010 010 01 0100 010');
Writeln(' 010 010 010 010 010 010 01 010 010 0100 01 0');
Writeln(' 101 101 010 010 010 010 010 010 010 010 010');
Writeln(' 010 010 010 01 0100 010 010 010 010 010 01 0');
Until False;
end.
والسلام عليكم
اضافة للدرس الرابع - musvc - 08-01-2009
انا ايضا ً اعتقد استعمالها ليس ضروريا ً
فقط استعملها حين انشيئ فايروس
لأجعله يعيد تخريب الــ Registry ..
سلام
اضافة للدرس الرابع - musvc - 08-01-2009
بالمناسبة وضعت الكود فقط للأفادة فهناك مبرمجين مبتدئين لا يعرفون مثل هذه الأوامر ( اصلا ً انا اعرف مبرمجين جيدين لا يعرفون هذه الأوامر )
يجب معرفة جميع الأوامر ( مضارها و منافعها ) لكي نصبح ان شاء الله مبرمجين محترفين في المستقبل
[ اعتقد يجب شرح جميع الأشياء في الدورة و لا يغفل شيئ عن احد ]
و السلام عليكم