[فـ ـيـ ـصـ ـل]

[mmali127]

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

[فـ ـيـ ـصـ ـل]

[ALBRNS]

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

جرب التالي

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

[ALBRNS]

السلام عليكم

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