[VB6] إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6
صفحة 1 من اصل 1 • شاطر
[VB6] إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6
بسم الله الرحمن الرحيم
إخوانى الكرام أهلا وسهلا بكم .....هل ترغب فى إنشاء تطبيق 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
و النتيجة كما يلى :
- المرفقات
عدل سابقا من قبل أحمد مناع في الخميس يناير 24, 2019 6:50 pm عدل 1 مرات
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: [VB6] إنشاء التطبيقات غير الرسومية Console Application من خلال الفجوال بيسك 6
اشكرك اخى الكريم على تلك الدروس القيمة
مدونة وليدوف التطويرية- ...
- تاريخ التسجيل : 22/11/2011
المساهمات : 32
النقاط : 48
التقيم : 4
الدولة :
الجنس :
vbcoder- ....
- تاريخ التسجيل : 18/11/2018
المساهمات : 51
النقاط : 81
التقيم : 4
الدولة :
الجنس :
vbcoder- ....
- تاريخ التسجيل : 18/11/2018
المساهمات : 51
النقاط : 81
التقيم : 4
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد مارس 17, 2024 12:25 pm من طرف رانيا حماد
» افضل شركة تنظيف اثاث بالرياض تنظيف كنب واجهات حجر بخصم 40%
الأحد مارس 17, 2024 11:52 am من طرف رانيا حماد
» افضل شركة تنظيف فلل بالرياض | الانوار
الأحد مارس 17, 2024 11:22 am من طرف رانيا حماد
» افضل شركة تنظيف واجهات زجاج بالرياض 30% خصم
الأحد مارس 17, 2024 10:38 am من طرف رانيا حماد
» افضل شركة نقل عفش بالكويت بخصم 20%
الخميس مارس 14, 2024 1:36 pm من طرف رانيا حماد