اهلا وسهلا بكم في سلسله الفجوال بيسك
في هذا الكتاب سوف يتم شرح بعض الاوامر التي سوف تقدمك الى المستوى المتوسط من البرمجه، وهو عباره عن عدة مستويات كالكتاب السابق
المستوى الاول
في هذا المستوى سوف نتعلم امر الطباعه في الفجوال بيسك print
Print
من الدوال او الاوامر المعروفه في الفجوال بيسك امر print ولذي سوف يساعد على طباعة الكتابه او الارقام الموجوده في صندوق النص او في اي اداه تريدها :
اولا ادرج زر امر كما في الصوره و صندق نص ثم قم بالضغط على زر الامر مرتين حتى تظهر شاشة الكود واكتب :
Print text1.text
Print: وهي عباره عن امر لطباعة ما داخل النص على الشاشه اما اذا كان الكود كتالي فانه يختلف فيصبح امر لطباعة ما داخل زر الامر على الشاشه:
Print command1.caption
المستوى الثاني
في هذا المستوى سوف ندخل الIf التي تعلمناها في الكتاب السابق مع ال print
كي نستطيع الطباعه حسب الاحتمال
If + Print
اولا يتوجب علينا ادراج زر امر و صندوق نص ثم نضغط على زر الامر حتى تظهر شاشة الكود ونكتب :
If text1.text = "ehab" then
Print "Mustafa"
Else
Msgbox "error"
End if
Else: وهي عبار عن داله تفيد ان يفعل الشرط الذي تحته مباشره ما لم ينفذ الشرط السابق If
Msgbox: وهي عباره عن صندوق حوار:
المستوى الثالث
في هذا المستوى سوف نتعلم الداله او الامر CLS وسوف نستخدم الامر If و المتغيرات التي شرحنها في الكتاب الاول
CLS
اولا يجب عليك ان تدرج زر امر وصندوق نص وثم يجب عليك ان تضغط على زر الامر حتى تظهر شاشة الكود وتمحي ما في داخلها ثم اكتب :
Dim x as string
Dim y as string
ثم اضغط على زر المر مره اخره حتى تظهر شاشة الكود واكتب :
X = "x"
Y = "y"
CLS
If text1.text = x then
Print x
Else
Print y
End if
وهو عبار عن امر يحذف الكتابه السابقه ويكتب الجديد مثال: لو ضغط على : Cls
زر الامر وكانت ال text1="x"سوف يطبع x ولو ضغط مره اخرى على زر الامر يحذف الكتابه ومن ثم يطبعها مجددا ولا يطبع تحتها
المستوى الرابع
في هذا المستوى سوف نتعلم كيفية انشاء form جديد
New Form
اولا افتح مشروع جديد ثم :
وبعد ذلك سوف يظهر صندوق حوار:
وبعد ان تقوم بالعمليه السابقه تكون قد انشات فورم جديد :
المستوى الخامس
في هذا المستوى سوف نتعلم دوال جديده وهي الHide و الShow
Hide AND Show
وهما عباره عن اوامر تفيد التنقل بين المشاريع او النوافذ او الForm
حيث ان Hide تعني اخفاء المشروع و show تعني اظهار المشروع
حيث انهما يستخدمان مع الفورم فقط
سوف نعمل مشروع صغير حيث اننا سوف نتعلم الانتقال من مشروع الى مشروع
اولا انشئ مشروع جديد ثم افعل كما فعل في المستوى السابق
وبعد ذلك ادرج زر امر وضغط عليه كي تظهر شاشة الكود وكتب :
Form1.hide
Form2.show
انظر التالي :
المستوى السادس
في هذا المستوى سوف نتعلم جمله اوداله شبيها في الجمله الشرطيه If الا وهي جملة select case وتفيد الاحتمال
Select case
وهي عباره عن داله تفيد الاحتمال تبدا في select case و تنتهي ب
: End select
Select case text1.text
Case "ehab": print "1"
Case "Mustafa": print "2"
Case "VB": print "3"
End select
حيث ان :
Select case text1.text: وهي تعني ان الاحتملات سوف تقوم على الtext
: Caseوهي عباره عن جملة الشرط حيث ان اذا ال text تساوي ehab اضبع 1
واذا الtext تساوي Mustafa اضبع 2 واذا الtext تساوي VB اطبع 3
End select: وهي تفيد انهاء الشرط
الثلاثاء يوليو 07, 2015 3:53 am من طرف *سالى على
موضوع: دورة " فيجيوال بيسك " الجزء الثاني " هدية من مركز برشلونه للكمبيوتر 