إنشاء التطبيقات غير الرسومية 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) عدد مرات التنزيل 13

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

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

http://egy-tech.forumegypt.net

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

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

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

اشكرك اخى الكريم على تلك الدروس القيمة
avatar
مدونة وليدوف التطويرية
...
...

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

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

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

مُساهمة من طرف vbcoder في الخميس نوفمبر 29, 2018 9:43 pm

      
avatar
vbcoder
..
..

تاريخ التسجيل : 18/11/2018
المساهمات : 11
النقاط : 16
التقيم : 1
الدولة : مصر
الجنس : ذكر

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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