منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مساعده في ايجاد حل في باقي القسمة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] مساعده في ايجاد حل في باقي القسمة (/showthread.php?tid=13980)

الصفحات: 1 2

مساعده في ايجاد حل في باقي القسمة - mera - 01-12-15

[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

شكرا جزيلا

RE: مساعده في ايجاد حل في باقي القسمة - الاصيله - 01-12-15

السلام عليكم
التعديل في المرفقات

RE: مساعده في ايجاد حل في باقي القسمة - mera - 01-12-15

شكرا على الرد اخت الاصيله ،
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

شكرا جزيلا على ردك ومرورك وعلى وقتك الثمين ..

RE: مساعده في ايجاد حل في باقي القسمة - mera - 01-12-15

اتمنى الرد ،

RE: مساعده في ايجاد حل في باقي القسمة - Rahf Azezi - 01-12-15

السلام عليكم
انا ما فهمت السؤال بشكل واضح
اما بالنسبة لفورمات التاريخ
ممكن تستفيدي من هذا
Label1.Caption = Format$(Now, "d-mmm-yy")

RE: مساعده في ايجاد حل في باقي القسمة - mera - 02-12-15

شو الي مو واضح ؟ شرحت بالامثله !

RE: مساعده في ايجاد حل في باقي القسمة - mera - 03-12-15

الطلب بسيط :
بعد تحميل الملف الي موجود في المرفقات :
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 خانه

ي ريت طبقوا لحتى تفهوا

RE: مساعده في ايجاد حل في باقي القسمة - Ahmed_Mansoor - 05-12-15

أهلا أختي الكريمة , لابد أن تقومي بتعريف المتغيرات التي تريدين أن تستخدميها لأرقام كبيرة إما من نوع 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")


RE: مساعده في ايجاد حل في باقي القسمة - mera - 06-12-15

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

RE: مساعده في ايجاد حل في باقي القسمة - Ahmed_Mansoor - 06-12-15

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

كود :
Dim Frm As Form

For Each Frm in Forms
        Unload Frm
Next

End