حساب قياسات الطول

السلام عليكم

جرب المثثال المرفق

Public Class Form

    Private Sub TextBox_TextChanged(sender As Object, e As EventArgs) Handles TextKiloMeter.KeyUp, TextMeter.KeyUp, _
TextCentemeter.KeyUp, TextMilimeter.KeyUp, TextMile.KeyUp, TextYard.KeyUp, TextFoot.KeyUp, TextInch.KeyUp
        If CType(sender, TextBox).Text.Length = 0 Or Not IsNumeric(CType(sender, TextBox).Text) Then
            Exit Sub
        End If
        Dim Val As List(Of Double)
        Val = Convert(CDbl(CType(sender, TextBox).Text), (CType(sender, TextBox).Name))
        TextKiloMeter.Text = Val.Item(0).ToString
        TextMeter.Text = Val.Item(1).ToString
        TextCentemeter.Text = Val.Item(2).ToString
        TextMilimeter.Text = Val.Item(3).ToString
        TextMile.Text = Val.Item(4).ToString
        TextYard.Text = Val.Item(5).ToString
        TextFoot.Text = Val.Item(6).ToString
        TextInch.Text = Val.Item(7).ToString
    End Sub
    Private Function Convert(ByVal val As Double, ByVal valType As String) As List(Of Double)
        Dim CValue As New List(Of Double)
        'The index 0 in the list for Kilometer value
        'The index 1 in the list for meter value
        'The index 2 in the list for Centemeter value
        'The index 3 in the list for Milimeter value
        'The index 4 in the list for Mile value
        'The index 5 in the list for Yard value
        'The index 6 in the list for Feet value
        'The index 7 in the list for Inch value
        Select Case valType
            Case "TextKiloMeter"
                CValue.Add(val)
                CValue.Add(val * 1000)
                CValue.Add(val * 100000)
                CValue.Add(val * 1000000)
                CValue.Add(val * 0.62137119224)
                CValue.Add(val * 1093.6132983)
                CValue.Add(val * 3280.839895)
                CValue.Add(val * 39370.07874)
                Exit Select
            Case "TextMeter"
                CValue.Add(val * 0.001)
                CValue.Add(val)
                CValue.Add(val * 100)
                CValue.Add(val * 1000)
                CValue.Add(val * 0.00062137119224)
                CValue.Add(val * 1.0936132983)
                CValue.Add(val * 3.280839895)
                CValue.Add(val * 39.37007874)
                Exit Select
            Case "TextCentemeter"
                CValue.Add(val * 0.00001)
                CValue.Add(val * 0.01)
                CValue.Add(val)
                CValue.Add(val * 10)
                CValue.Add(val * 0.0000062137119224)
                CValue.Add(val * 0.010936132983)
                CValue.Add(val * 0.03280839895)
                CValue.Add(val * 0.3937007874)
                Exit Select
            Case "TextMilimeter"
                CValue.Add(val * 0.000001)
                CValue.Add(val * 0.001)
                CValue.Add(val * 0.1)
                CValue.Add(val)
                CValue.Add(val * 0.00000062137119224)
                CValue.Add(val * 0.0010936132983)
                CValue.Add(val * 0.003280839895)
                CValue.Add(val * 0.03937007874)
                Exit Select
            Case "TextMile"
                CValue.Add(val * 1.609344)
                CValue.Add(val * 1609.344)
                CValue.Add(val * 160934.4)
                CValue.Add(val * 1609344)
                CValue.Add(val)
                CValue.Add(val * 1760)
                CValue.Add(val * 5280)
                CValue.Add(val * 63360)
                Exit Select
            Case "TextYard"
                CValue.Add(val * 0.0009144)
                CValue.Add(val * 0.9144)
                CValue.Add(val * 91.44)
                CValue.Add(val * 914.4)
                CValue.Add(val * 0.00056818181818)
                CValue.Add(val)
                CValue.Add(val * 3)
                CValue.Add(val * 36)
                Exit Select
                'TODO: Complete Code for foot and inch
            Case "TextFoot"
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                Exit Select
            Case "TextInch"
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                CValue.Add(val * 0)
                Exit Select
        End Select
        Return CValue
    End Function
End Class

WindowsApplicationConverter.rar

مشكور مشكور على المساعدة الجميلة وهل ممكن اخي العزيز ان احصل على بقية القياسات اذا كان بالامكان مثل : المساحة , الزمن , الحجم , السرعة , الوزن

استخدم جوجل للحصول عليها....

شكراً اخي

هذاء هو المشروع الذي فية حساب المساحة لا اعلم ماهي الاخطاء التى وقعت فيها ارجوء المساعدة وتحياتي لكم مع العلم ان المساحات موجودة

المساحة.rar

قيم التحويل مرفقة ارجوء الايضاح ولو بعملية واحدة لكي تتضح المسالة وشاكر ومقدر تعاونك , الموضوع مهم بالنسبة لي ولك دعوة خالصة من القلب لك ولوالديك شكراً.محول القياسات.rar

ارجوء المساعدة والتعاون ياشباب