1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ | المشاهدات : 214 | الردود : 2
حالة الموضوع:
مغلق
  1. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ Developer

    الأنتساب:
    ‏26 فبراير 2015
    المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:




    انا عملت برنامج للتحقق من وجود علامة @ فى TextBox1
    وعملت هذا الكود For m = 50 To 300
    عشان ة عوزها تبقا تساوى من 50 لحد 300
    و عملت شرط لو كان TextBox2 يساوى m يبقا تنقصلى من Label1 كد الى موجود فى TextBox2
    و تظهر Form13
    اذا كان TextBox2 لا تساوى m تظهر Form11
    بس بيقلى غلط و البرنامج بيقف
    بس فى مشكله ان Label1 بتساوى رقم و بعده . يعنى زى كده 100.1 او 100.2 ...... و ده لازم
    و بيظهر رسالت الخطء ان TextBox2 لا تساوى m ويظهر انها تسويها
    عاوز يظهر يسويها بس مش 2
    المطلوب
    حل المشكله
    الاكواد

    كود:
     If TextBox1.Text.Contains("@") Then
                For m = 50 To 300
                    If TextBox2.Text = m Then
                       Label1.Text =Label1.Text - TextBox2.Text
                       Form13.Show()
                    Else
                       Form11.Show()
                    End If
                Next
            Else
          Form11.Show()
            End If
    
    *=== تحديد كود ===*
     
  2. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ Developer

    الأنتساب:
    ‏26 فبراير 2015
    المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: اواجه مشكله

    ارجو ايجاد حل
     
  3. ᎷᎥᏁᎯ ᎷᎯᏃᎬᏁ Developer

    الأنتساب:
    ‏26 فبراير 2015
    المشاركات:
    58
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: اواجه مشكله

    تم ايجاد حل
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة