هنا

[راهب]

وتم الحفظ
دمت بالحب مبدعا

[spyman]

شكرا لك اخي الغالي

منورنا

[راهب]

سباي مان كل الشكر لك اخي العزيز ....
اذا سمحت لي فهذه المعلومات تفتقد المنهج بمعنى السير خطوة خطوة بحيث ترتبط كل خطوة بما قبلها وما بعدها ، فانا لا اعرف تسلسل الدروس التي تقدمها ومدى الافادة منها في الانتقال من درس الى اخر اي ان كل درس يضيف الى الدرس السابق معلومة .
املي منك تجميع ما ابدعت فيه من دروس وتنظيمها على شكل منهج متسلسل حتى تصبح الافادة منه متحققة 100 % .
ودمت بالحب سالماً .............. وهذا برنامجي بس المشكلة من اضغط IF تطلع هاي العبارة بالكود ... الك الصور ....

[spyman]

انا وياك بهاي المسلة يجب ترتيب الدروس وان شاء الله اسوي هذا الشيء

بس يا اخي الاعضاء ما يسون واهس بس سوزان العقابي وياي بقسم البرمجة

حبي الغالي الكود مالك بيه اخطاء وهي :

1- انت جاي تنطي امر للبرنامج وتكله " اذا الرقم المدخل اقل من 50 اكتبلي راسب " وما منطي امر للبرنامج اذا كان الرقم المدخل اكبر من 50 يساوي ناجح

2- والشغلة الثانية : انت ما مستخدم كود التخلص من الخطأ ... بما معنى .. اذا تدوس على الزر if وماكو قيمة بال text box 1 يعني رح يحتار البرنامج ويظهر الك خطأ

ملخص كلامنا يكون الكود الصحيح كالتالي :

' عند حدوث خطأ يطلعك من البرنامج
        On Error Resume Next
        If TextBox1.Text = "" Then
            End
        End If
        '++++++++++++++++++++++++++++++++++++++++++++++++++
        ' if  جملة

        If TextBox1.Text < 50 Then
            TextBox2.Text = " راسب"
        End If
        If TextBox1.Text >= 50 Then
            TextBox2.Text = " ناجح"
            MessageBox.Show("  ناجح ", " النتيجة", MessageBoxButtons.OK, MessageBoxIcon.Question)
        End If 

اخي الغالي حمل هذا المشروع واصفن عل الكود شوية رح تلاحظ الاخطاء الي عندك

واي مشكلة انا موجود

[spyman]

هذا المشروع http://www.dorar-aliraq.net/showthread.php?t=17758

[spyman]

وهذا الكود يكون بداخل الزر المسمى if

صراحة بديت تبشر بخير محاولة جيدة ما شاء الله

[راهب]

بالمناسبة اني طالب حلو واعجبك بس انطيني مادة ممنهجةبالصور وشرح وافي لكل خطوة اقوم بها
دمت بالحب مبدعا

[spyman]

ههههه اكيد طالب جيد ...

اخي تراتيل الطين .. مجرد نسخ الكود ادناه الى الزر الامر المسمى IF

' عند حدوث خطأ يطلعك من البرنامج
        On Error Resume Next
        If TextBox1.Text = "" Then
            End
        End If
        '++++++++++++++++++++++++++++++++++++++++++++++++++
        ' if  جملة

        If TextBox1.Text < 50 Then
            TextBox2.Text = " راسب"
        End If
        If TextBox1.Text >= 50 Then
            TextBox2.Text = " ناجح"
            MessageBox.Show("  ناجح ", " النتيجة", MessageBoxButtons.OK, MessageBoxIcon.Question)
        End If 

ومثل ما عرفنا طريقة اضافة الكود لزر الامر عن طريق " النقر المزدوج على زر الامر المراد ادخال الكود فيه ,

[Midnight Poison]

شكرا جزيلا

كل الود

[spyman]

شكرا جزيلا

كل الود

منورتنا مد نايت