المستوى السادس
سوف نتعلم في هذا المستوى كيفية اعطاء المتغيرات القيم النصيه
و الرقمية
قيم المتغيرات
اولا نقوم بادراج نفس الكائنات التي ادرجناها في المستوى السابق
ونضيف اليها زر امر جديد ونجعله (=)
ثم نضغط على زر ال(=) مرتين لكي تفتح شاشة الكود
ومن ثم نحدد على الكتابه الموجوده في شاشه الكود ونحذفها ومن ثم نكتب التالي:
Dim x as Integer
: Dim وهي عبارة عن داله تقوم في اعطاء امر التعرف على المجهول
X: المتغير
As: عرفه على انه
Integer: قيمه نصيه
وبعد ذلك نقوم بضغط على زر ال(+) مره جديده لكي نفتح شاشه الكود ولكن لا نحذف شيء لاننا سوف نعرف المتغير x
ونقوم بكتابة التالي:
X=Val (text1.text) + Val (text2.text)
وهكذا نعطي المتغير قيمة عملية الجمع ولكنها لن تظهر لانه يحفظها في الذاكرة
و الان نضغط على زر ال(=) لكي تفتح شاشة الكود
ونكتب :
Text3.text = x
وعندها سوف يظهر الناتج في صندوق النص المخصص للناتج
واذا اردت ان تضع زر امر لل – و * و / تفعل كما فعلنا سابقا ولكن تغير الاشارة الموجده في الكود :
X = Val (text1.text) -Val (text2.text)
X=Val (text1.text) *Val (text2.text)
X = Val (text1.text) /Val (text2.text)
ملاحظة : يجب كتابة هذه الاكواد في زر الامر المخصص له .
وبعد ان تنتهي من كتابه الكود اضغط على F5 ثم سوف يعمل البرنامج الذي قمت بتصميمه :
لاحظ النتيجه عند الضغط على زر ال(=)
فانه قد اعطى النتيجه ولاكن اذا ضغطنا على زر ال(+) فانه يقوم في عملية الجمع ولكن لا يظهر النتيجه لانها قد خزنة في المتغير.
المستوى السابع
في هذا المستوى سوف نتعلم الجمله الشرطيه IF وهي تفيد في الحتمالات
وهي عباره عن داله
الجمله الشرطيه IF
ان مبدأ عمل الجمله الشرطيه في حياتنا الواقعيه هي كتالي:
اذهب الى المخبز اذا وجدت خبز طازج احضر بدينار.
اما في لغة البرمجه:
If text1.text = "ehab" then
End
Elseif text1.text = "hi" then
Text1.text = "1"
End if
حيث ان:
: IFبداية جملة الشرط
: Thenنفذ
: End ifانتهاء جملة الشرط
: Endانهاء عمل البرنامج
: Elseifاذا لم يتم شرط ال if نفذ شرطي
حيث ان في المثال السابق :
اذا كانت قيمة ال text = ehab اقفل البرنامج
المستوى الثامن
في هذا المستوى سوف نقوم بعمل آله حاسبه مثل التي في الوندز
وسوف يتم استخدام كل ما تعلمناه في المستويات السابقه
آله حاسبه متطوره
اولا نحتاج الى ادراج 16 زر امر و صندوق نص :
يجب اعطاء الازرار القيم الموجوده في الصوره باستخدام خاصيه الcaption
اولا نضغط على زر امر "1" لتظهر شاشة الكود ونحذف ما بداخله لكي نعرف المتغيرات:
Dim x as integer
Dim z as string
ثم نضغط مره اخره على زر ال"1" لتظهر شاشة الكود ونكتب :
Text1.text = text1.text + "1"
حيث ان قيمة ال text تزيد مره اخره وبرقم 1
ثم نضغط على زر ال"2" لتظهر شاشه الكود ونكتب :
Text1.text = text1.text + "2"
ثم نضغط على زر ال"3" لتظهر شاشه الكود ونكتب :
Text1.text = text1.text + "3"
ثم نضغط على زر ال"4" لتظهر شاشه الكود ونكتب :
Text1.text = text1.text + "4"
ثم نضغط على زر ال"5" لتظهر شاشه الكود ونكتب :
Text1.text = text1.text + "5"
ثم نضغط على زر ال"6" لتظهر شاشه الكود ونكتب :
Text1.text = text1.text + "6"
ثم نضغط على زر ال"7" لتظهر شاشه الكود ونكتب :
Text1.text = text1.text + "7"
ثم نضغط على زر ال"8" لتظهر شاشه الكود ونكتب :
Text1.text = text1.text + "8"
ثم نضغط على زر ال"9" لتظهر شاشه الكود ونكتب :
Text1.text = text1.text + "9"
ثم نضغط على زر ال"00" لتظهر شاشه الكود ونكتب :
Text1.text = text1.text + "00"
ثم نضغط على زر ال"0" لتظهر شاشه الكود ونكتب :
Text1.text = text1.text + "0"
و الان قد انتهينا من ازرار الارقام وحان دور ازرار الاشارات
حيث نضغط على زر ال"+" لتظهر شاشة الكود ونكتب :
z = "+"
X = Val (text1.text)
Text1.text = ""
حيث اننا اعطينا المتغيرz قيمة الاشار "+"
واعطينا المتغير x قيمة الارقام الموجوده في صندوق النص
وبعد ذلك قمنا بأفراغ صندوق النص text
ثم نضغط على زر ال "-" لتظهر شاشة الكود ونكتب :
z = "-"
X = Val (text1.text)
Text1.text = ""
ثم نضغط على زر ال "*" لتظهر شاشة الكود ونكتب :
z = "*"
X = Val (text1.text)
Text1.text = ""
ثم نضغط على زر ال "/" لتظهر شاشة الكود ونكتب :
z = "/"
X = Val (text1.text)
Text1.text = ""
واخر خطوه يجب القيام بها وهي اشارة المساواه :
If z = "+" then
Text1.text = x + Val (text1.text)
Elseif z = "-" then
Text1.text = x - Val (text1.text)
Elseif z = "*" then
Text1.text = x * Val (text1.text)
Elseif z = "/" then
Text1.text = x / Val (text1.text)
End if
وبنهايه مبروك عليك الآله حاسبه
تم الجزء الاول من السلسه
بحمد الله
مؤلف الكتاب : إيهاب"محمد هاني" موسى مصطفى –
محمد ابراهيم ابو ميسرة
الثلاثاء يوليو 07, 2015 3:53 am من طرف *سالى على
موضوع: دورة " فيجيوال بيسك " هدية من مركز برشلونة 