إلى طالبات الصف الثالث الثانوي تفضلي

السلام عليكم ورحمة الله وبركاته

إليكم أعزائي بعض الأكواد المهمة والخفيفة في برنامج الفيجوال بيسك

وطرق سريعة لكتابتها

أولاً : أوامر الإنتقال من Form1 إلى Form2 أو Form3 ــــ

عن طريق اختيار زر الـ Option1 أو Option2

كما في الشكل :

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

بالنقر المزدوج على زر الأمر ( موافق ) سنكتب السطرين التاليين :

If Option1.value=true then form2.show

If Option2.value=true then form3.show

ونستطيع اختصار الأوامر بكتابة السطر الأول ثم تظليله ونسخه عن طريق Ctrl+C

ثم النزول إلى سطر جديد ولصقه عن طريق Ctrl+V وتغيير رقم الأوبشن إلى 2 والفورم إلى 3 .

ثانياً : أوامر الحسابات

هذه أوامر تجمع العمليات الحسابية ( الجمع ، الطرح ، الضرب ، القسمة ) في فورمة واحدة

وتكون كالشكل التالي :

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

وعن طريق النقر المزدوج على زر حساب سنكتب الأسطر التالية بالترتيب :

Dim a, b As Single
a = Text1
b = Text2
If Check1.Value = 1 Then Text3 = a + b
If Check2.Value = 1 Then Text4 = a - b
If Check3.Value = 1 Then Text5 = a * b
If Check4.Value = 1 Then Text6 = a / b

ولاختصار الأوامر نستطيع كتابتها من السطر الأول إلى السطر الرابع

ثم نستطيع نسخ السطر الرابع

If Check1.Value = 1 Then Text3 = a + b

عن طريق Ctrl+C ثم لصقه ثلاث مرات

أي ثلاث أسطر تحت بعض عن طريق Ctrl+V

كالتالي :

If Check1.Value = 1 Then Text3 = a + b
If Check1.Value = 1 Then Text3 = a + b
If Check1.Value = 1 Then Text3 = a + b

ثم تغيير أرقام الـ Check

وأرقام الـ Text

والعلامات الحسابية فقط

لتصبح في النهاية

If Check2.Value = 1 Then Text4 = a - b
If Check3.Value = 1 Then Text5 = a * b
If Check4.Value = 1 Then Text6 = a / b

ثالثاً : أوامر مساحة المستطيل

الفورم ستكون بها ثلاث صناديق نص ( TEXT ) وزر أمر ( Command )

كما في الشكل التالي :

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

وبالنقر المزدوج على زر احسب سنكتب الأسطر التالية :

Dim a,b as integer
a=text1
b=text2
text3=a*b

ملاحظة هامة :

من أسهل أوامر لغة الفيجوال بيسك هي التي تحتوي على قانون مثل أوامر المساحات هذه

حيث لو فرضنا أن المطلوب مساحة مثلث وكان قانونه القاعدة × الارتفاع ÷ 2

فسنكتب نفس الأوامر ماعدا السطر الأخير سيتغير من a*b إلى a*b/2

أتمنى أن تكون الإضافة مفيدة

تحياتي

يسلموووو كثييير

تسسسسسسسسسسللللللمي الاختبار يهبللل الله يقويك يارب

لبى لبى لبى مدرستنا الحاااااااااسب Wink

» حل أسئلة الكتاب للصف الأول الثانوي حاسب
» حل أسئلة الكتاب للصف الثالث الثانوي حاسب
» فنانات جازان يتفاعلن مع إبداع طالبات
» ملزمة الحاسب للصف الأول الثانوي
» ملزمة الحاسب للصف الثاني الثانوي