+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إضافة Menu ل Console (/showthread.php?tid=2304)
إضافة Menu ل Console - husseint - 15-08-2010
السلام عليكم
كيف يمكن إضافة قوائم و صناديق تحرير لبرنامج Console
لكم جزيل الشكر
إضافة Menu ل Console - khiro.alg - 15-08-2010
اسلا عليكم
لا يمكن فعل ذلك أخي
إن أردت برنامجا ذو واجهة رسومية فعلية فعليك إستخدام الـvcl فهي أسهل وأفضل بكثير
إضافة Menu ل Console - kachwahed - 15-08-2010
يمكن باستخدام Trubo Pascal بناء تطبيقات GUI 16 bit
أنظر في مجلد الأمثلة:
كود :
EXAMPLES\WINكود :
https://downloads.embarcadero.com/free/turboإضافة Menu ل Console - Lam.Abdeldjalil - 18-08-2010
و عليكم السلام ورحمة الله
هل تقصد إضافة قوائم لبرنامج Console مثل الذي في الصورة
![[صورة: mprestwood_image_08108_24_Command_Window.png]](http://www.prestwoodboards.com/data/ps_uploads_live/mprestwood_image_08108_24_Command_Window.png)
:laugh: لا أظن أنه يمكن فعل ذلك .
إضافة Menu ل Console - kachwahed - 18-08-2010
واجهات DOS العتيقة تعرفونها:
PHP كود :
Uses
Crt;
Var
I, J: Integer;
X: Real;
Check: Boolean;
Procedure Menu(I: Integer; Check: Boolean);
Begin
WriteLn(' ----------------------------------------------------------------');
WriteLn(' I SuperCalculator 2.5 I');
WriteLn(' ----------------------------------------------------------------');
If Check Then
WriteLn('Faire afficher le menu principal...')
Else
Begin
WriteLn
(' ----------------------------------------------------------------');
WriteLn(' I Module : CALCUL DE FONCTION I Page : ', I, ' I');
WriteLn
(' ----------------------------------------------------------------');
WriteLn(' I Valeur de X I Valeur de Y=f(X) I');
WriteLn(' I I I');
End;
End;
Function f(X: Real): Real;
Begin
f := Sqr(X);
End;
BEGIN
ClrScr;
I := 0;
J := 1;
Check := False;
Menu(J, Check);
X := 0;
Repeat
Inc(I);
X := X + 50;
WriteLn(' I', Round(X): 12, ' I', Round(f(X)): 15, ' I');
Check := X > 1700;
If ((I Mod 14) = 0) Or Check Then
Begin
WriteLn(' --------------------------------');
WriteLn(' I Appuyez sur <ENTREE> pour continuer... I');
Write(' --------------------------------');
ReadLn;
ClrScr;
Inc(J);
Menu(J, Check);
End;
Until Check;
ReadLn;
END.
ألم ترى مثلها ؟
إضافة Menu ل Console - Lam.Abdeldjalil - 18-08-2010
بارك الله فيك أستاذ kachwahed على التوضيح
لكن أظن أن تساؤل الأخ husseint كما في الصورة وهو الذي قلت عنه '' لا أظن أنه يمكن فعل ذلك .''
![[صورة: mprestwoodimage0810824c.png]](http://img294.imageshack.us/img294/4036/mprestwoodimage0810824c.png)
الصورة مركبة فلا تطمع :laugh:
إقتباس : ألم ترى مثلها ؟بالطبع رأيت و أصبحت أكرهها :laugh:
لكن يمكن عمل تطبيقات Console بالدلفي
![[صورة: sanstitreso.jpg]](http://img814.imageshack.us/img814/9194/sanstitreso.jpg)
والسلام عليكم
إضافة Menu ل Console - husseint - 18-08-2010
السلام عليكم
ما أطلبه ليس مستحيلا وأبسط مثال على ذلك هو برنامج التحرير الخاص بالنظام DOS عندما تكتب في سطر الأوامر الأمر Edit , تماماً مثل برنامج Turbo Pascal For Dos مثل الصورة
![[صورة: turbon.png]](http://a.imageshack.us/img704/7163/turbon.png)
شكراً على مساهمتك أخي kachwahed لكن المشكلة أن الرابط الذي وضعته لا يعمل معي ثانيا
أنا قمت بتجريب المثال الذي وضعته على Turbo for windows و turbo for dos ولم أستفد شيأً
إضافة Menu ل Console - Lam.Abdeldjalil - 18-08-2010
و عليكم السلام ورحمة الله
إقتباس :ما أطلبه ليس مستحيلاو لكنه ليس بالسهل !
أنا قلت '' لا أظن أنه يمكن فعل ذلك .'' فيما يخص مكونات Vcl
إقتباس : لكن المشكلة أن الرابط الذي وضعته لا يعمل معي ثانياالرابط يعمل بشكل جيد ، أسفل لصفحة تجد
Turbo Pascal 5.5
Turbo Pascal 3.02
Turbo Pascal 1.0
ثم ما فائدة المرجوة من إستعمال تطبيقات Console ؟
إضافة Menu ل Console - محمد عبد العزيز - 19-08-2010
السلام عليكم ورحمة الله
أولا مرحبا بك معنا بدلفي للعرب
إقتباس :ليس مستحيلا وأبسط مثال على ذلك هو برنامج التحرير الخاص بالنظام DOS عندما تكتب في سطر الأوامر الأمر Editثانيا يجب ان تفهم جيدا ماذا تريد
وتفرق بين DOS و WIN وبين 16bits و32bits وبين CLI و GUI
دلفي ينتج ملفات تنفيذية 32Bits فقط سواء بواجهة GUI او بدون واجهة CLI ما يسمى Console
Turbo Pascal بالصورة السابقة هو برنامج 16bits يعمل في DOS ويستخدم مكتبة Turbo Vision المتاحة لبرمجة واجهة نصية مرئية Text User Interface اختصارا TUI كما بالصورة
ان استخدمت Turbo Pascal استخدم Turbo Vision أو برمج واحدة بنفسك
إضافة Menu ل Console - abdelmalek - 20-08-2010
بارك الله فيك اخي B.M.AbdelAziZ على هاته التوضيحات
لكن لم افهم ماذا تقصد بـ :
إقتباس :ان استخدمت Turbo Pascal استخدم Turbo Vision أو برمج واحدة بنفسك
بارك الله فيك
بالتوفيق للجميع