منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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

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

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

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

كود :

Dim num As Integer

        num = Val(Text1.Text)

 Text3.Text = num / 100 * num / 100 / Val(Text2.Text)

ان شاء الله يعمل واذا صار خطأ اعتذر لان عملت الكود على vb.net وحولته الى 6
بالتوفيق

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

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

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

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

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

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

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

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

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

كود :

Dim num As Integer

        num = Val(Text1.Text) / 100 * Val(Text1.Text) / 100

        Text3.Text = Val(Text2.Text) / num

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

فـ ـيـ ـصـ ـل

3booody

فـ ـيـ ـصـ ـل

المبرمج البسيط

3booody

فـ ـيـ ـصـ ـل

3booody

اسلام الكبابى