الباحر التعليمية


لمشاهدة بقية المنتديات والمشاركة والتفاعل الرجااااء التسجيل عزيزي الزائر وشكراً جزيلاً لحضورك Smile

bounce bounce bounce bounce

الباحر التعليمية

ملتقى تعليمي مهني تربوي شامل جميع المجالات والتخصصات
 
الرئيسيةالتسجيلدخول

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Admin
مدير المنتدى
مدير المنتدى
avatar

عدد المساهمات : 166
تاريخ التسجيل : 20/10/2012
الموقع : ba7er.7olm.org

مُساهمةموضوع: إلى طالبات الصف الثالث الثانوي تفضلي   الإثنين ديسمبر 10, 2012 2:17 am





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

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

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

أولاً : أوامر الإنتقال من 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 .





التوقيع _________________




الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://ba7er.7olm.org
Admin
مدير المنتدى
مدير المنتدى
avatar

عدد المساهمات : 166
تاريخ التسجيل : 20/10/2012
الموقع : ba7er.7olm.org

مُساهمةموضوع: رد: إلى طالبات الصف الثالث الثانوي تفضلي   الإثنين ديسمبر 10, 2012 3:01 am






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

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

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

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



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


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





التوقيع _________________




الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://ba7er.7olm.org
Admin
مدير المنتدى
مدير المنتدى
avatar

عدد المساهمات : 166
تاريخ التسجيل : 20/10/2012
الموقع : ba7er.7olm.org

مُساهمةموضوع: رد: إلى طالبات الصف الثالث الثانوي تفضلي   الإثنين ديسمبر 10, 2012 3:32 am





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



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

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

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



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


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



ملاحظة هامة :

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

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

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

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

تحياتي



التوقيع _________________




الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://ba7er.7olm.org
حكاية طفله
عضو جديد
عضو جديد


عدد المساهمات : 3
تاريخ التسجيل : 18/12/2012

مُساهمةموضوع: رد: إلى طالبات الصف الثالث الثانوي تفضلي   الثلاثاء ديسمبر 18, 2012 10:01 pm

I love you يسلموووو كثييير
الرجوع الى أعلى الصفحة اذهب الى الأسفل
محآل أحب
عضو ماسي
عضو ماسي
avatar

عدد المساهمات : 67
تاريخ التسجيل : 08/11/2012
العمر : 23
الموقع : https://twitter.com/Ry2mi_

مُساهمةموضوع: رد: إلى طالبات الصف الثالث الثانوي تفضلي   الأحد ديسمبر 23, 2012 10:09 pm

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

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

التوقيع _________________




الرجوع الى أعلى الصفحة اذهب الى الأسفل
Admin
مدير المنتدى
مدير المنتدى
avatar

عدد المساهمات : 166
تاريخ التسجيل : 20/10/2012
الموقع : ba7er.7olm.org

مُساهمةموضوع: رد: إلى طالبات الصف الثالث الثانوي تفضلي   الإثنين ديسمبر 24, 2012 5:28 am

Embarassed

التوقيع _________________




الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://ba7er.7olm.org
 
إلى طالبات الصف الثالث الثانوي تفضلي
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الباحر التعليمية :: منتديات إضافية :: ملتقى الطالبات-
انتقل الى: