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

نسخة كاملة : طلب تعديل في الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمه الله بوركاته

اخباركم عساكم بخير

يااخوان الموضوع هذا ابي نفس الكود بس تغيير بسيط

http://vb4arb.com/vb/showthread.php?...-سورس-كود-حسبه

نفس الحسبه يعني طولي 179 نقسمه على 100 يطلع الناتج 1.79 بعدها نضرب 1.79 في 1.79

يطلع الناتج 3.2041 بعدها نقسم وزني 104 على 3.2041 يطلع الناتج 32 يطلع بشكل هذا 32.458127

اذا تقدرون انه بس يطلع 32 من دون الارقام الى بعد الفاصله 458127 اكون ممنون واذا ماتقدر مو مشكله انت ماقصرتو معي الله يعطيك العافيه
يوجد مشكلة فى المرفق
وعليكم السلام ورحمة الله وبركاته

جرب التالي

PHP كود :
Private Sub Command1_Click()
Dim num As Integer
num 
Val(Text1.Text) / 100 Val(Text1.Text) / 100
Text3
.Text Int(Val(Text2.Text) / num)
End Sub 

بالتوفيق
الله يعطيك العافيه بس الناتج خطأ يطلع الناتج 34

طريقه الحسبه كالتالي : طولي 179 نقسمه على 100 يطلع الناتج 1.79 نضرب 1.79 في 1.79 يطلع الناتج 3.2041 بعدها نقسم الوزن على 3.2041

وزني 104 قسمه 3.2041 يطلع الناتج 32.458412658780936924565400580506

ماعلينا من رقم الى بعد الفاصله . اهم شي رقم البدايه الى هو 32
السلام عليكم

بما ان Integer متغير من متغيرات الاعداد الصحيحة

نقوم بتغييره بمتغير من متغيرات الأرقام العشرية

فقط قم بتغيير المتغير من Integer الي Double

ليكون الكود

PHP كود :
Private Sub Command1_Click()
Dim num  As Double
num 
Val((Text1.Text) / 100) * (Val(Text1.Text) / 100)
Text3.Text Int(Val(Text2.Text) / num)
End Sub 

بالتوفيق
[SIZE="4"]الله يعطيكم الف الف الف العافيه[/SIZE]