إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6

مُساهمة من طرف أحمد مناع في الإثنين يوليو 29, 2013 12:03 pm

 بسم الله الرحمن الرحيم

إخوانى الكرام أهلا وسهلا بكم .....هل ترغب فى إنشاء تطبيق Console Application من خلال الفجوال بيسك 6 ...فى هذا الدرس التعليمى سنتعلم سويا كيفية عمل ذلك على النحو التالى :

1_ قم بإنشاء مشروع جديد ثم بعد ذلك بقم بحذف النافذة الافتراضية التى تم إنشائها مع المشروع

2_ من مرفقات تلك المشاركة قم بتحميل الموديل MConsole ثم قم بادراجة الى المشروع

3_ قم باراج موديل جديد للمشروع وذلك من خلال Project->add module

4_ قم بفتح الموديل الجديد وسنقوم بإنشاء إجراء رئيسى داخل الموديل و ذلك بإستخدام الكود التالى :

الرمز:
Public Sub Main()
  
End Sub

5_ فى داخل هذا الاجراء سنقوم بكتابة بعض الشفرات لكتابة تطبيق Console Application و ذلك على النحو التالى :

مثال : لعرض رسالة ترحيب باستخدام الكود التالى :

الرمز:
Public Sub Main()
Con.Initialize
Con.WriteLine "Hello world!"

End Sub

_ فى السطر الاول قمنا بتهيئة نافذة Console .......
_ فى السطر الثانى قمنا باستخدام الاسلوب WriteLine لكتابة جملة "Hello world!"

مثال : فى المثال السابق تعرفنا على  كيفية إنشاء أبسط برنامج Console لكتابة بعض العبارات تعالوا الان نتعلم كيفية  إدخال البيانات .....فى المثال التالى سنقوم بكتابة التعليمات البرمجية التي تطلب من المستخدمين - اسم وسنة  وسوف يجد المستخدم تحيته وحساب عمرة ....بإستخدام الكود التالى :

الرمز:
Public Sub Main()
Dim Data1 As String, Data2 As Integer
Con.Initialize
        
    Con.WriteLine "What is your name?"
    Data1 = Con.ReadLine
    
    Con.WriteLine "On which year where you born?"
    Data2 = Con.ReadLine
    
    Con.WriteLine "Hello " & Data1 & " i am CPU. You are " & _
                  IIf(2007 - Data2 < 19, "a kid.", "eligable to drink vodka.")
End Sub

وكما ترون فى الكود أعلاه قمنا بالاعلان عن متغيرين الاول Data1 لتخزين أسم المستخدم و الثانى Data2 لتخزين عمر المستخدم .....و أستخدمنا الطريقة WriteLine لعرض رسائل للمستخدم .....أما الطريقة ReadLine لقراءة المدخلات من المستخدم .....و النتجية كما يلى :




ليس هذا فحسب بل يمكننا تنسيق التطبيق بأستخدام الالوان ....وهذا مثال أخر لكيفية كتابة و قراءة البيانات من المستخدمين مع التنسيق ...

الرمز:

Public Sub Main()
   Dim sName As String
   Dim fColor As Long, bColor As Long
   Dim sCaption As String

   ' Required in all MConsole.bas supported apps!
   Con.Initialize

   ' Stash value(s) we'll later reset.
   bColor = Con.BackColor
   fColor = Con.ForeColor
   sCaption = Con.Title

   ' Read and write a simple response:
   If Con.Height < 50 Then Con.Height = 50
   Con.ForeColor = conGreenHi
   Con.WriteLine "What's your name? ", False
   Con.ForeColor = fColor
   sName = Con.ReadLine()
   Con.ForeColor = conGreenHi
   Con.WriteLine "Hello " & sName, False
   Con.Title = "Console Demo for " & sName

   ' Restore original console colors and caption.
   Con.BackColor = bColor
   Con.ForeColor = fColor
   Con.Title = sCaption
End Sub

و النتيجة كما يلى :



المرفقات
com.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(18 Ko) عدد مرات التنزيل 12

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 810
النقاط : 1479
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6

مُساهمة من طرف مدونة وليدوف التطويرية في الثلاثاء يوليو 30, 2013 11:31 am

اشكرك اخى الكريم على تلك الدروس القيمة

مدونة وليدوف التطويرية
...
...

تاريخ التسجيل : 22/11/2011
المساهمات : 32
النقاط : 47
التقيم : 3
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى