تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مساعده في ايجاد حل في باقي القسمة
#1
[attachment=8640]
يعطيكم العافيه : 
عندي مجموعة اسئله مو لاقية الها حل بالنسبه لي ، بمجرد ما تنزل الملف الموجود بالمرفقات رح تعرف عن شو بحكي : 
1. في التكست المخصص ل RL ، لما اضع هذا الرقم 9999999 بطلعلي خطأ في 
Do While cirmod8 Mod 8 <> 0
cirmod8 = cirmod8 - 1
Loop
هاي معناها اذا كانت القيمة المدخلة لا تقبل القسمة على 8 ، لازم تطرح واحد وتعيد العمليه من جديد وهكذا لحد ما يجي الرقم الي يقبل القسمه على 8 .. 

نفس الشي بواجهه ايضا في التكست المخصص ل kbps عندما اضع قيمه اكبر من 9 خانات .. 
فكيييف ممكن احل هاي المشكله ؟؟؟ طبعا بحتاج اني ادخل قيمة ب 15 خانه ..


2. في صندوق ال checkbox والي اسمه +20% 
عندما تضغط عليه حيزود تلقائيا 20 بالمئه على القيمة المدخله في تكست ال RL 
السؤال :اذا اردت انه اقدر اتحكم بهاي القيمه كيف ممكن اعملها ؟؟ 
يعني اذا اردت ان اجعلها متغيره ، يعني مره بدي اياها 10 بالميه ومره اخرى 50 بالميه وهكذا ! كيف ؟ 
خلينا نحكي انه القيم حتكون بين 1 بالمئه الى 100 بالمئة 

3. السؤال الثالث : كيف ممكن اجعل البرنامج يعطيني تاريخ اليوم وتكون بهاي الفورمات 
30NOV15

شكرا جزيلا
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم
التعديل في المرفقات
اختكم الاصيله
الرد }}}
تم الشكر بواسطة:
#3
شكرا على الرد اخت الاصيله ،
If cirmod8 <> 0 Then
cirmod8 = Val(cirmod8 - 1)
هاد الكومند ما رح يفيد ، لانه انا بدي لوووب
اعطيكي مثال : اذا حطيتي رقم 18 في خانة kbps ، وكما هو معلوم انه 18 لا تقبل القسمه على 8 ، اذا رح يطرح 1 ، حتصير القيمه 17 ونفس الشي 17 لا تقبل القسمه على 8 ، رح يطرح كمان 1 ، حتصير 16 ، وال 16 تقبل القسمه على 8 اذا حياخد القيمه 16 ويعتمدها ويبني عليها ، وحتكون قيمه التكست الي اسمه cirmod8 تساوي 16

انا مشكلتي انه اكبر من 9 خانات يعني 999999999 بعملي مشكله ، كيف اتجاوزها فقط ..

وبالنسبه للطلبات الاخرى الي طلبتها ما في اي فكره عنها ؟ Smile

شكرا جزيلا على ردك ومرورك وعلى وقتك الثمين ..
الرد }}}
تم الشكر بواسطة:
#4
اتمنى الرد ،
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم
انا ما فهمت السؤال بشكل واضح
اما بالنسبة لفورمات التاريخ
ممكن تستفيدي من هذا
Label1.Caption = Format$(Now, "d-mmm-yy")
الرد }}}
تم الشكر بواسطة:
#6
شو الي مو واضح ؟ شرحت بالامثله !
الرد }}}
تم الشكر بواسطة:
#7
الطلب بسيط :
بعد تحميل الملف الي موجود في المرفقات :
1. ضع الرقم 18 في خانة kbps
2. في خانة cirmod8 حتساوي 16 ..
وهذا بسبب الكومند يلي تحت
cirmod8 = Val(RL) * Val(1024)
cirmod8 = Int(cirmod8)
Do While cirmod8 Mod 8 <> 0
cirmod8 = cirmod8 - 1
Loop
شرح الكوماند انه : اذا كان الرقم لا يقبل القسمه على 8 ، حيصير يطرح واحد وهكذا الى ان يصبح باقي القسمه صفر ..

السؤال : لماذا عندما اضع قيمه من 10 خانات يعني فالنفرض 9999999999 حيعطيني خطأ ،، لاني احتاج ادخل قيمه من 15 خانه

ي ريت طبقوا لحتى تفهوا
الرد }}}
تم الشكر بواسطة:
#8
أهلا أختي الكريمة , لابد أن تقومي بتعريف المتغيرات التي تريدين أن تستخدميها لأرقام كبيرة إما من نوع Double أو Currency , بالنسبة للتشيك بوكس إستخدمي صندوق الإدخال لجعل المستخدم هو من يدخل رقم النسبة ثم قومي بإجراء حساب وإضافة مقدار النسبة في التكستات الأخرى , كما يلي :

كود :
Private Sub Check1_Click()

If Check1.Value = 1 Then

   Dim PercentValue As String

   PercentValue = InputBox("أدخل رقم النسبة المئوية التي تريد", "النسبة المئوية")

End If

End Sub

وبالنسبة تنسيق التاريخ فكما ذكرت الأخت رهف :

كود :
Text1.Text = Format$(Now, "dmmmyy")
الرد }}}
تم الشكر بواسطة: mera , mera
#9
شككرا اخ احمد منصور ، ححاول اطبقها واشوف ، وي ريت اذا عندك وقت تسويها لو سمحت

لو سمحت احمد ممكن تعطيني كود لما اغلق البرنامج يُغلق من ادارة المهام ايضا
الرد }}}
تم الشكر بواسطة:
#10
أهلا أختي الكريمه ميرا ، أكتب ردي هذا من هاتفي المحمول ، كل ماعليك فعله هو تعريف كل متغير موجود في المثال في أعلى كود الفورم في مكان التعريفات العامه والمتغيرات التي تستخدميها لإجراء العمليات الحسابيه عرفيها من نوع Double والمتغير النصي الخاص برقم النسبه المئويه عندما تستخدمينه في العمليات الحسابيه لابد أن تضعيه داخل أقواس الداله Val() , بالنسبه لإنهاء البرنامج من إداة المهام المفترض أن البرنامج يختفي منها بمجرد إنهائه ولكن يبدو أن بعض الفورمات عندك لم يتم إلغاء تحميلها لذلك في زر إنهاء البرنامج لابد من التأكد من إلغاء تحميل جميع فورمات البرنامج قبل كتابة كلمة End ، وكود الإنهاء في حالتك لابد أن يكون كالتالي :

كود :
Dim Frm As Form

For Each Frm in Forms
        Unload Frm
Next

End
الرد }}}
تم الشكر بواسطة: mera , mera , الاصيله


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده في الترقيم التلقائي foad8920 2 286 13-10-23, 08:11 PM
آخر رد: جلال اليمني
  طلب مساعده نهى علي 18 2,601 06-07-22, 11:26 AM
آخر رد: نهى علي
Heart [سؤال] مساعده كيفية اضافة محتوى ملف نصي txt على المشروع؟ eapda 2 1,608 22-06-20, 03:52 PM
آخر رد: eapda
  مساعدة في ايجاد سورس كود خاص ببرنامج الاوزان والطول حسب هذه المعطيات ضياء الدين 1 1,164 02-06-20, 12:46 AM
آخر رد: AL_BRNS
  [vb6.0] مساعدة في ايجاد سورس كود خاص ببرنامج الاوزان والطول ضياء الدين 0 940 20-04-20, 04:34 PM
آخر رد: ضياء الدين
  [سؤال] ايجاد اجمالي ماقبله بداية كل صفحة aymnypc 2 2,482 26-11-19, 09:36 PM
آخر رد: aymnypc
  طلب مساعده في تسجيل الاداه adel_3812 7 3,049 27-08-19, 01:06 PM
آخر رد: nasser82
  مساعده في فهم طريقة عمل منظومة حسابات amal_ly 2 1,601 21-08-19, 06:13 PM
آخر رد: viv
  سؤال: تعديل على كود ايجاد العدد الأصغر haider kh 5 2,244 05-07-19, 02:22 AM
آخر رد: مصمم هاوي
  سؤال ايجاد اصغر قيمه من مجموعة قيم ؟؟ haider kh 5 2,173 03-07-19, 02:15 PM
آخر رد: haider kh

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم