تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] حساب المساحة
#1
Rainbow 
[attachment=1269]عندي مجموعة من المساحات اريد التحويل فيما بينها ولكن المشكلة ان هناك خطاء في الاكواد او صيغتها ارجوء التوضيح تحياتي للجميع .


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

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


حاولت اطبق الاكواد على الفورم الاخر وهو المساحة ولم ينفع وهذاء هو المشروع وايظاً قيم التحويل مرفقه
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفيه حساب العمر حسن الجلب 5 268 08-05-22, 11:37 AM
آخر رد: سعود
Smile [VB.NET] كود التأكد من أن رقم الهاتف به حساب واتساب أم لا (أو يملك حساب واتساب) عبد الجليل سراج 1 259 30-04-22, 06:11 PM
آخر رد: mrfenix93
  [VB.NET] ارجو المساعدة فرق بين تاريخين وعدم حساب يوم السبت والجمعة Mohamed.vbnet 2 542 23-04-22, 06:55 AM
آخر رد: Mohamed.vbnet
  حساب المدة بين الشروق والغروب saidhamed 4 333 20-04-22, 05:40 AM
آخر رد: saidhamed
  [سؤال] حساب عدد الساعات thabit 1 282 11-04-22, 01:41 AM
آخر رد: aljzazy
  سؤال عن طريق حساب السجلات المعبئة وغير المعبئة في قاعدة بيانات اكسيس برمجيا ب VB bilgacim 2 641 01-02-22, 11:24 AM
آخر رد: a7med saba
  سؤال : كيف يمكن حساب سعر التكلفة برمجيا mh66 2 816 19-10-21, 12:44 AM
آخر رد: mh66
  طريقه عمل كشف حساب لعميل خالد كامل1 10 1,050 15-10-21, 11:23 PM
آخر رد: خالد كامل1
  [VB.NET] حساب النسبة المئوية dubai.eig 3 1,092 13-09-21, 12:14 AM
آخر رد: اسلام الكبابى
  حساب و عرض فارق الوقت بين الصلوات aldery 2 744 21-07-21, 09:46 PM
آخر رد: aldery

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم