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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=8900)

طلب تعديل في الكود - فـ ـيـ ـصـ ـل - 16-05-13

السلام عليكم ورحمه الله بوركاته

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

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

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

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

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

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

طلب تعديل في الكود - mmali127 - 16-05-13

يوجد مشكلة فى المرفق

طلب تعديل في الكود - فـ ـيـ ـصـ ـل - 16-05-13

هذا الرابط
http://vb4arb.com/vb/showthread.php?5152-طلب-سورس-كود-حسبه

طلب تعديل في الكود - ALBRNS - 16-05-13

وعليكم السلام ورحمة الله وبركاته

جرب التالي

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 

بالتوفيق

طلب تعديل في الكود - فـ ـيـ ـصـ ـل - 17-05-13

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

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

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

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

طلب تعديل في الكود - ALBRNS - 17-05-13

السلام عليكم

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

بالتوفيق

طلب تعديل في الكود - فـ ـيـ ـصـ ـل - 18-05-13

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