hicham716

تقصد المسطرة المبحوث عنها مكونة اما من 5 او 6 او 7 تدريجات لا غير ؟؟؟؟؟؟؟؟ او تقصد المسطرة المبحوث عدد تدريجاتها اكثر من 22؟؟؟؟؟؟؟؟

اه الزر الاخير يحسب مجموع a1 و a2 حياك الله

المطلوب هو تعداد كل الحالات ل P عنصر من من بين N عدد و التي مجموعها S ملاحظة دائما لتحديد الأعداد N نأخذ من (0 إلى N ) وبالتالي نحصل على (N+1) عدد مثلا إذا كانت N=4 فإن المجموعة N هي (0,1,2,3,4 ) مثال 1 إذا كانت S=6 N=10 P=3 إذن الأعداد الثلاثة من بين (0,1,2,3…

شكرا على التعديلات والاضافات انما فيه اخطاء بسيطة جرب القيم الاتية : t1=0.5 t2=1 A1=1/2 A2=1/2 سوف تجد : A3=1.5 t3=1/1 text2=1 text2 خاطئة من المفروض text2=3/2 او 1.5 اما t3 فهي صحيحة و لكن الافضل تاخذ 1 بدلا من 1/1

لماذا كل هذا يكفي فقط Private Sub Command1_Click() j = 20 k = 30 For i = 3 To Val(Text1) r = k k = j + k j = r Next i Text2 = k End Sub

فكرة رائعة رائعة وجدة الحل لاستخراج كل التوافيق المكونة من k عدد

وضح قليلا يا اخي

واخيرا الحل. بارك الله فيك يا عبد العزيز فقط اذا كان العدد صحيح طبيعي الكود السابق يقسمه على 0 مثلا 7 يضعها هكذا 7/0 ؟؟؟؟؟ لذالك نجعل الكود يشتغل فقط اذا لم يكن العدد صحيح طبيعي type int If Val(Text1) <> Int(Val(Text1)) Then الكود السابق end if شكراااااااااااا…

ان يكون 2/3 او 4/6 كما قلت او 8/12 او 80000000 /120000000 ليس مهما يا 'عبد العزيز المهم ان يكون كسرا و ليس 0.66666666666666666666666666666666666666666

لا ياخي سؤالي كان واضح انا كنت اضطر لاكتب 0.3333333333333333 بذلا من 1/3 و الاخ "Eng. Usama El-Mokadem" فهم سؤالي جيدا. وقدم الحل بارك الله فيه. مع ذالك النواتج لا زال فيها المشكل قائم في البذاية كانت العملية كالاتي 1/3+1/3=2 وهذا غير صحيح بفضل "Eng. Usama El-…

(Eng. Usama El-Mokadem) يعطيك الصحة و العافية الكود هذا يشتغل جزاك الله خيرا Private Function GetNumber(NumberStr As String) As Double Dim P As Double Dim B As Double Dim i As Long B = 1 P = Val(Trim(NumberStr)) i = InStr(1, NumberStr, "/") If i Then P = Val(T…

شكرا اخي mehamedalisalim على اهتمامك بالموضوع سؤالي هو انا اريد كتابة عدد كسري (1/2) مثلا داخل text1 الموجودة ب from و رغم اني اخذ type double وغيره و اضع val ولا نتيجة لعل البرنامج يعتبر 1/2 المكتوبة في text1 قيمة غير عددية لانها تحتوي على "/" ارجو ممن له حل …

بسم الله الرحمن الرحيم في البداية لا يسعني الا ان انوه بهذا المنتدى الرائع على ما يقدمه من خدمة للطلاب. كما اتوجه بالشكر الى المشرفين على المنتدى و كذالك لجميع الاعضاء الشكر الجزيل . سؤال بسيط من فضلكم لدي برنامج vb يعمل بشكل جيد فقط اذا لم تكون هناك اعداد كسر…