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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : طلب سورس كود حسبه (/showthread.php?tid=8712)

طلب سورس كود حسبه - فـ ـيـ ـصـ ـل - 29-04-13

[COLOR="#FF0000"]السلام عليكم ورحمه الله وبركاته

اخبارك اخواني ان شاء الله بخير

انا جديد في المنتدى واتمنى ماتردوني خايب

اريد سوس كود بس ركزو معي

انا بفتح تكست 3 اثنين منهم ضع الاعداد وواحد الناتج

ابي مثلا اضع بالتكست الاول رقم 50 والتكس الثاني 90 ولما اضغط زر الناتج يقسم العدد الى بالتكست الاول على 100 والناتج يضربه بنفسه وبعدها يقسمه على العدد الى بالتكست الثاني وطلعلي الناتج في التكست الثالث تلقائي

يعني ماابي بالمشروع زر + ولا قسمه

ابي العمليه تتم بضغطه زر واحده تكفون محتاجها ضروري

اخوكم فيصل[/COLOR]

طلب سورس كود حسبه - 3booody - 29-04-13

عليكم السلام ورحمة الله وبركاته
اخي العزيز ضع هذا الكود

كود :
Dim num As Integer
        num = Val(Text1.Text)
Text3.Text = num / 100 * num / 100 / Val(Text2.Text)
ان شاء الله يعمل واذا صار خطأ اعتذر لان عملت الكود على vb.net وحولته الى 6
بالتوفيق

طلب سورس كود حسبه - فـ ـيـ ـصـ ـل - 29-04-13

الله يعطيك العافيه ماقصرت بس في خطأ مو بالكود بالحسبه

ابي اول شي يعمله الكود يقسم العدد الى بالتكست 1 على 100 وبعدها يضرب العدد بنفسه وبعدها يقسم الى بالتكست2 على الناتج من التيسك 1 ويطلع الناتج

انا بعطيك طول مع الوزن اول شي الطول هو التيكست 1 والوزن هو التيكست 2

طولي :179
وزني :104

الناتج يكون 34 وانا متأكد من الناتج وياليت يااخوي لو تساعدني راح ادعيلك وانا ساجد والله شاهد على

طلب سورس كود حسبه - المبرمج البسيط - 29-04-13

اتمنى ان يفيدك

لكن الاخ 3boood قد افادك بكود يفيدك وصغير
لكن حبيت ان اساعدك

http://vb4arb.com/vb/uploaded/76_01367264457.rar

طلب سورس كود حسبه - 3booody - 29-04-13

تدلل اخي الغالي

كود :
Dim num As Integer
        num = Val(Text1.Text) / 100 * Val(Text1.Text) / 100
        Text3.Text = Val(Text2.Text) / num


طلب سورس كود حسبه - فـ ـيـ ـصـ ـل - 29-04-13

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

طلب سورس كود حسبه - 3booody - 30-04-13

الله يعافيك ويوفق الجميع يارب

طلب سورس كود حسبه - اسلام الكبابى - 16-05-13

هذا مرفق بسيط
يعلمك أو [SIZE=3][b]يساعدك فى عملية التقريب التى كنت تسأل عنها
بشئ من التفصيل[/b][/SIZE]