لاتتعب نفسك بالخول تجربه000000000

[دوشاني]

<h1 align="center"><font face="Tahoma (Arabic)">المحول
المتري</font></h1>

<hr>

<p align="center" dir="rtl"><font size="3" face="Tahoma (Arabic)">ادخل
البعد بالإنش (البوصة) و القدم و انقر
&quot; مفتاح التحويل &quot; .لترى
النتيجة بالمتر</font></p>

<p align="center">&nbsp;</p>
<div align="center" dir="ltr"><center>

<pre><input type="text" size="10" name="txtFeet"> قدم
<input type="text" size="10" name="txtInches"> إنش )بوصة)</pre>
</center></div>

<p align="center"><input type="button" name="cmdConvert"
value="حول الأطوال الآن" style="font-family: Tahoma"> </p>

<p align="center"><input type="text" size="50" name="txtResult"> </p>

<hr>
<script language="VBScript">
Sub cmdConvert_OnClick()
Dim Inches, Feet, Meters
Inches = txtInches.Value
Feet = txtFeet.Value
Meters = ConvertToMeters(Inches, Feet)
txtResult.Value = "هناك " & Meters & " متر في " & Feet & " قدم و " & Inches & " بوصة"
End Sub
Function ConvertToMeters(ByVal Inches, Feet)
Inches = Feet * 12 + Inches
ConvertToMeters = Inches * 0.0254
End Function
</script>