إضافة Menu ل Console

[husseint]

السلام عليكم

كيف يمكن إضافة قوائم و صناديق تحرير لبرنامج Console
لكم جزيل الشكر

[khiro.alg]

اسلا عليكم
لا يمكن فعل ذلك أخي
إن أردت برنامجا ذو واجهة رسومية فعلية فعليك إستخدام الـvcl فهي أسهل وأفضل بكثير

[kachwahed]

يمكن باستخدام Trubo Pascal بناء تطبيقات GUI 16 bit
أنظر في مجلد الأمثلة:
EXAMPLES\WIN
لا يزال متوفر للتحميل:
https://downloads.embarcadero.com/free/turbo

[Lam.Abdeldjalil]

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

هل تقصد إضافة قوائم لبرنامج Console مثل الذي في الصورة

http://www.prestwoodboards.com/data/ps_uploads_live/mprestwood_image_08108_24_Command_Window.png


:laugh: لا أظن أنه يمكن فعل ذلك .

[kachwahed]

واجهات DOS العتيقة تعرفونها:

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.
(ينفذ على TP أو BP فقط)
ألم ترى مثلها ؟

[Lam.Abdeldjalil]

بارك الله فيك أستاذ kachwahed على التوضيح

لكن أظن أن تساؤل الأخ husseint كما في الصورة وهو الذي قلت عنه '' لا أظن أنه يمكن فعل ذلك .''

http://img294.imageshack.us/img294/4036/mprestwoodimage0810824c.png

الصورة مركبة فلا تطمع :laugh:

ألم ترى مثلها ؟ بالطبع رأيت و أصبحت أكرهها :laugh:

لكن يمكن عمل تطبيقات Console بالدلفي

http://img814.imageshack.us/img814/9194/sanstitreso.jpg

والسلام عليكم

[husseint]

السلام عليكم

ما أطلبه ليس مستحيلا وأبسط مثال على ذلك هو برنامج التحرير الخاص بالنظام DOS عندما تكتب في سطر الأوامر الأمر Edit , تماماً مثل برنامج Turbo Pascal For Dos مثل الصورة


http://a.imageshack.us/img704/7163/turbon.png


شكراً على مساهمتك أخي kachwahed لكن المشكلة أن الرابط الذي وضعته لا يعمل معي ثانيا
أنا قمت بتجريب المثال الذي وضعته على Turbo for windows و turbo for dos ولم أستفد شيأً

[Lam.Abdeldjalil]

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

ما أطلبه ليس مستحيلاو لكنه ليس بالسهل !

أنا قلت '' لا أظن أنه يمكن فعل ذلك .'' فيما يخص مكونات Vcl

لكن المشكلة أن الرابط الذي وضعته لا يعمل معي ثانياالرابط يعمل بشكل جيد ، أسفل لصفحة تجد

Turbo Pascal 5.5
Turbo Pascal 3.02
Turbo Pascal 1.0

ثم ما فائدة المرجوة من إستعمال تطبيقات Console ؟

[B.M.AbdelAziZ]

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

أولا مرحبا بك معنا بدلفي للعرب
ليس مستحيلا وأبسط مثال على ذلك هو برنامج التحرير الخاص بالنظام 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 أو برمج واحدة بنفسك

[abdelmalek]

بارك الله فيك اخي B.M.AbdelAziZ على هاته التوضيحات
لكن لم افهم ماذا تقصد بـ :

ان استخدمت Turbo Pascal استخدم Turbo Vision أو برمج واحدة بنفسك

بارك الله فيك

بالتوفيق للجميع