مرحبااااااااااا

شرايكم نكشخ .. ونسويلنا برنامج مسابقات على قدنا ..

ونترزز فيه عند أهلنا

مستعدييييييييييييييييين ؟

أختنا خيول البحر .. الله يجزاها خير ..
عطتنا نبذة عن الفيجوال بيسك ..

وامتدادا لها ..
خلونا نسوي هذا البرنامج ..

نبدأ .. بسم الله

أولا .. نفتح برنامج الفيجوال بيسك ..
start ---> programs ----> microsoft visual studio 6.0 ---> microsoft visual basic 6.0

ثم نختار ..
Standard EXE .. ونفتحه
راح يطلع لنا هذا الشكل



الآن سنعمل على Properties الموضح في الصورة بالرقم 1 ..
1- نغير Name بمسح form1 وكتابة MainForm
2-نغير BackColor .. لما نضغط على اللون بيطلع لنا سهم .. نضغط عليه
ثم نختار Pallete ونختار لون للخلفية
3- نغير Caption .. بمسح form1 ونكتب (النموذج الرئيسي)
4- نغير Height .. 5610
5- نغير Left .. 3300
6- نغير RightToLeft .. إلى True
7- نغير Top .. 1680
8- نغير Width .. 5805
وهذي النتيجه



الآن .. نريد كتابة عنوان )label ( في النموذج الرئيسي
وذلك بواسطة الأداة
فنضغط عليها مرة واحدة .. ونذهب للفورم ونعين مكان الكتابة



ثم نذهب لـ Properties .. ((ونتأكد أنها خاصة بالـ label ((
ونغير :
1- Alignment >> 2-Center
2- BackStyle >> 0-Transparent
3-Caption >> برنامج المسابقات يرحب بكم
4- Font >> اختاري أي خط يعجبك ..وحجمه.. أو خليه نفسه
5- ForeColor >> اختاري لون كما في BackColor^^^
وهذا موضح في الصورة ..

الآن نريد وضع command
بالضغط على الأداة
ونذهب للفورم .. ونحدد مكانه كما فعلنا في label
والآن نذهب لخصائصه ونغير :
1- BackColor >> للون اللي تحبين
2-Caption >> بدء
3-Style >> 1- Graphical
(( ماراح يطلع لون الخلفية إلا لما أغير style))
كما يتضح من خلال هذه الصورة ..



والآن سنضع command آخر .. بنفس الخطوات السابقة
ونضعه تحت السابق
ونغير فقط في Caption >> خروج
والنتيجة كالتالي :



هاه .. ودكم نكمل ولا حامت كبودكم

تراني قاعده على هالدرس 4 ساعات

أكمل ولا ؟؟؟؟؟؟؟

كملللللللي طبعاً
تسلمين يا توتي عالمجهود الرائع
ولو بغيتي أي مساعدة من هنودة تراها جاهزة <---- يقولون أفهم بالبرنامج

فكرة حلوة ياتوتي ومجهود رائع 00 ولو إني ميح في هالبرنامج وما أدري عنه شيء00 ههههههه
بس حلو خلينا نتفرج عالإبداعات اللي راح تطلع منه يمكن يشتهر ويصير مثل الفوتوشوب 00
أما السويش يا حسرة عليه ما أحد بيفتكره 00

ومشكوووورة عالدرس يا توتي 00 إن شاء الله نتعلم منك00

السلام عليكم ورحمة الله وبركاته
مشكورة اختي العزيزة توتي على الدرس الرائع
اني من زمان خاطري اتعلم فيجوال بيسك بس ماعندي البرنامج ياريت اختي العزيزة تحطين البرنامج علشان نتعلم معاكم
تحياتي
*منار *

ينبوع الإبداع ... شئ جميل ومميز

بارك الله فيك وفي مجهوك الطيب

هنوده .. تسلمييييييييين ياعمري ..
انتبهيلي بس لاأخبط .. خليك معي


هلا ومسهلا بـروائع ..
هذا البرنامج .. أساس الإبداعات .. بس محد يحبه .. لأن الكل يفضل الجاهز
تابعي معنا .. وإن شاء الله يعجبك


*~* منار *~*
وعليكم السلام ورحمة الله وبركاته .. هلا فيك أختي ..
ولايهمك عيوني ..
راجعي هذي الوصلات .. وتابعي معنا ..
تعريف بالفيجوال بيسك
تعالوا نبحر سويا في عالم البرمجة


شموووووووووووووسه
ياهلا والله ومسهلا .. الله يبارك فيك ويسلمك .. وماننحرم منك

<<<<<<<< نكمل

بعد ذلك نذهب للقائمة view
ونفتح code
ستظهر لنا هذه النافذة


ثم نفتح قائمة General
ونختار command1
سيظهر لنا


ونكتب
RejestForm.Show
بين Private Sub و End Sub

ثم نفتح القائمة من جديد
ونختار command2
ونكتب End
كما يتضح في الصورة


انتهينا الآن من الفورم الأول ..

===========

الآن .. نفتح فورم آخر بالطريقة التالية
نذهب للقائمة
Project >>>Add Form
ستظهر لنا نافذه .. نضغط open
الآن سنغير في خصائص هذا الفورم
سنعمل نفس الخطوات التي عملناها في الفورم الأول ( اللي سميناه النموذج الرئيسي )
فقط نغير :
Name>>> RejestForm
Caption >>> نموذج التسجيل
والنتيجة



الآن نريد وضع 3 command
كما عملنا سابقا
ونضعها تحت بعضها
ونغير في خصائصها .. كما فعلنا سابقا
بتغيير بسيط في الـ Caption و Name
ففي الكوماند 1 :
Name >>> CmdRejest
Caption >>> تسجيل
وفي الكوماند 2 :
Name >>> CmdStart
Caption >>> المسابقة
وفي الكوماند 3 :
Name >>> CmdBack
Caption >>> عودة
والنتيجة



الآن نريد كتابة الكود
view >>> code
نكتب في أول الصفحة
Public Na As String
Public mark, x, i As Integer

ثم نفتح القائمة ونختار :
1- CmdBack
ونكتب
MainForm.Show
RejestForm.Hide
---------
2- CmdRejest
ونكتب
Na = InputBox("الرجاء ادخال اسم المتسابق", "تسجيل")
If Na = "" Then
MsgBox "يجب ادخال اسم", vbCritical, "خطأ"
Else
CmdStart.Enabled = True
End If
----------
3- CmdStart
ونكتب
Q1form.Show
RejestForm.Hide
----------
4- Form
ونكتب
CmdStart.Enabled = False
----------
كما هو موضح بالصورة ..



الحمد لله .. انتهينا من الفورم الثاني


<<<<<< يتبع

بارك الله فيك يا توتي..

طيب كان هرجتي من زماااااااااااااااااااااااااااان


متابعتك للنهاية

السلام عليكم ورحمة الله وبركاته
مشكورة اختي العزيزة توتي
الله يعطيكِ الف عافية
وان شاء الله نتابع معاكم الدرس
تحياتي
*منار*