16-05-13, 04:14 PM
16-05-13, 04:49 PM
يوجد مشكلة فى المرفق
16-05-13, 09:01 PM
16-05-13, 11:14 PM
وعليكم السلام ورحمة الله وبركاته
جرب التالي
بالتوفيق
جرب التالي
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, 02:17 PM
الله يعطيك العافيه بس الناتج خطأ يطلع الناتج 34
طريقه الحسبه كالتالي : طولي 179 نقسمه على 100 يطلع الناتج 1.79 نضرب 1.79 في 1.79 يطلع الناتج 3.2041 بعدها نقسم الوزن على 3.2041
وزني 104 قسمه 3.2041 يطلع الناتج 32.458412658780936924565400580506
ماعلينا من رقم الى بعد الفاصله . اهم شي رقم البدايه الى هو 32
طريقه الحسبه كالتالي : طولي 179 نقسمه على 100 يطلع الناتج 1.79 نضرب 1.79 في 1.79 يطلع الناتج 3.2041 بعدها نقسم الوزن على 3.2041
وزني 104 قسمه 3.2041 يطلع الناتج 32.458412658780936924565400580506
ماعلينا من رقم الى بعد الفاصله . اهم شي رقم البدايه الى هو 32
17-05-13, 04:56 PM
السلام عليكم
بما ان Integer متغير من متغيرات الاعداد الصحيحة
نقوم بتغييره بمتغير من متغيرات الأرقام العشرية
فقط قم بتغيير المتغير من Integer الي Double
ليكون الكود
بالتوفيق
بما ان 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, 03:01 AM
[SIZE="4"]الله يعطيكم الف الف الف العافيه[/SIZE]