منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تحويل من وحدة قياس المتر الى اليارد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
[COLOR="#696969"]السلام عليكم ورحمة الله وبركاته

اخواني اريد تحويل من وحدة قياس المتر الى اليارد
وطبعا المقياس هذا هو :

[SIZE=5]1 متر = 0.91440 يارد


حاولت اني اسويها بعملية الطرح ما ضبطت ...

شكرا،،[/COLOR]
[/SIZE]
[COLOR="#A52A2A"]السلام عليكم

للعلم فقط: التحويل من القياس الاكبر الى الاصغر نضرب الاكبر في الاصغر يعني اذا اردنا تحويل 2متر الى يارد نضرب ال2 في 0.91440=1.8288 يارد

اما من الاصغر الى الاكبر نقسم الناتج (1.8288) على اليارد (0.91440)=2متر

فليس للطرح علاقة بالموضوع

بالتوفيق ان شاءالله[/COLOR]
sajad كتب :[COLOR="#A52A2A"]السلام عليكم

للعلم فقط: التحويل من القياس الاكبر الى الاصغر نضرب الاكبر في الاصغر يعني اذا اردنا تحويل 2متر الى يارد نضرب ال2 في 0.91440=1.8288 يارد

اما من الاصغر الى الاكبر نقسم الناتج (1.8288) على اليارد (0.91440)=2متر

فليس للطرح علاقة بالموضوع

بالتوفيق ان شاءالله[/COLOR]
[COLOR="#FF0000"]

صحيح كلامك اخي ،، انا كنت احاول في كل واحد متر اطرح من القيمه قيمة اليارد من كل متر واحد لكن لم افكر صح ،،،، اشكرك ،،
الان بكلامك نقدر نقول اني اسوي اثنين Textbox وزر Button واعطيه امر بان يظرب القيمه في Textbox1 ضرب Textbox2 ،،
Textbox1 = متر
Textbox2 = يارد
وتضبط
؟[/COLOR]
الحمد لله انحلت المشكلة هذا حلها ،،

ضعوا هذا الكود في اوامر الكلاس Class
كود :
Dim Multiplier As String  
Dim Calc1, Calc2 As Integer

هذا الكود ضعوه في زر الحساب Button
كود :
Multiplier = "*"
  TextBox2.Text = Val(TextBox1.Text) * Val("0.91440")

Textbox1= المتر ( القيمة الاكبر من اليارد )
1 متر = 0.91440 يارد
Textbox2 = فراغ الناتج ( الي يعطينا ناتج التحويل فيه )

تحياتي للجميع ،،