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

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

اذهب الى الأسفل

[VB6] إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6 Empty [VB6] إنشاء التطبيقات غير الرسومية 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 لقراءة المدخلات من المستخدم .....و النتجية كما يلى :

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

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

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

الكود:

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

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



[VB6] إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6 524121832
المرفقات
[VB6] إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6 Attachment
com.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(18 Ko) عدد مرات التنزيل 19


عدل سابقا من قبل أحمد مناع في الخميس يناير 24, 2019 6:50 pm عدل 1 مرات

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

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

https://egy-tech.forumegypt.net

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

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

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

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

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

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

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

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

[VB6] إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6 1f64f  [VB6] إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6 1f64f  [VB6] إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6 1f64f  [VB6] إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6 1f64f
vbcoder
vbcoder
....
....

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

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

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

مُساهمة من طرف vbcoder الخميس يناير 24, 2019 2:13 pm

شكرا لكم  lol! lol!
vbcoder
vbcoder
....
....

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

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

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

ََ

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


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