إضافة Menu ل Console

[husseint]

السلام عليكم

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

[khiro.alg]

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

[kachwahed]

يمكن باستخدام Trubo Pascal بناء تطبيقات GUI 16 bit
أنظر في مجلد الأمثلة:

كود :

EXAMPLES\WIN

لا يزال متوفر للتحميل:

كود :

https://downloads.embarcadero.com/free/turbo

[Lam.Abdeldjalil]

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

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




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

[kachwahed]

واجهات 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. 


(ينفذ على TP أو BP فقط)
ألم ترى مثلها ؟

[Lam.Abdeldjalil]

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

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



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

ألم ترى مثلها ؟

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

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



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

[husseint]

السلام عليكم

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





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

[Lam.Abdeldjalil]

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

ما أطلبه ليس مستحيلا

و لكنه ليس بالسهل !

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

لكن المشكلة أن الرابط الذي وضعته لا يعمل معي ثانيا

الرابط يعمل بشكل جيد ، أسفل لصفحة تجد

Turbo Pascal 5.5
Turbo Pascal 3.02
Turbo Pascal 1.0

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

[محمد عبد العزيز]

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

أولا مرحبا بك معنا بدلفي للعرب

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

بارك الله فيك

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