تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب تعديل في الكود
#1
السلام عليكم ورحمه الله بوركاته

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

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

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

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

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

اذا تقدرون انه بس يطلع 32 من دون الارقام الى بعد الفاصله 458127 اكون ممنون واذا ماتقدر مو مشكله انت ماقصرتو معي الله يعطيك العافيه
الرد }}}
تم الشكر بواسطة:
#2
يوجد مشكلة فى المرفق
الرد }}}
تم الشكر بواسطة:
#3
هذا الرابط
http://vb4arb.com/vb/showthread.php?5152...س-كود-حسبه
الرد }}}
تم الشكر بواسطة:
#4
وعليكم السلام ورحمة الله وبركاته

جرب التالي

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 

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#5
الله يعطيك العافيه بس الناتج خطأ يطلع الناتج 34

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

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

ماعلينا من رقم الى بعد الفاصله . اهم شي رقم البدايه الى هو 32
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم

بما ان 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 

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#7
[SIZE="4"]الله يعطيكم الف الف الف العافيه[/SIZE]
الرد }}}
تم الشكر بواسطة:



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


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