منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] لتحويل من المتر لليارده والعكس ،، تعبت كي اج الطريقة الأكيده مههههم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أمثلة ومشاريع قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=77)
+--- الموضوع : [VB.NET] لتحويل من المتر لليارده والعكس ،، تعبت كي اج الطريقة الأكيده مههههم (/showthread.php?tid=1016)

لتحويل من المتر لليارده والعكس ،، تعبت كي اج الطريقة الأكيده مههههم - shado1796 - 21-11-13

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

اخواني هل تستطيعون ان تفيدوني بالشئ البسيط هذا Huh
اريد مشروع للتحويل من المتر لليارده والعكس كذلك الطريقة الصحيحه ارجوكم
لانه يتعلق البرنامج بالحساب فاريد معرفة الفكره الاكيده للأكد فيه البرنامج
مع العلم

1m = 1.0936 yd

1yd = 0.91440 m

RE: لتحويل من المتر لليارده والعكس ،، تعبت كي اج الطريقة الأكيده مههههم - shado1796 - 21-11-13

هذا الكود الذي وضعته لكن النتيجة غلط تظهر هناك مشكلة في المعادلة ماهي
والرجاء التجريب لاني اضع 1 متر يظهر صحيح اليارد لكن عندما اضع 2 متر واكثر تظهر النتيجة غلط

كود :
If String.IsNullOrEmpty(TextBox21.Text) Then
        Else
            Multiplier = "÷"
            TextBox87.Text = Val(TextBox21.Text) + Val("0.91440")
        End If

RE: لتحويل من المتر لليارده والعكس ،، تعبت كي اج الطريقة الأكيده مههههم - mamas1 - 21-11-13

جرب للتحويل من اليارد الى المتر
TextBox87.Text = Val(TextBox21.Text) * Val("0.91440")
للتحويل من المتر الى اليارد
TextBox87.Text = Val(TextBox21.Text) * Val("1.0936")