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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال في الجمع (/showthread.php?tid=32193)

سؤال في الجمع - Hassan.syria - 20-11-19

اصدقائي لو تجاوبوا معي في هذا السؤال
لدي ٣ textbox اريد ان اجمع قيمة في textbox1 و textbox2  واظهارها في textbox3 
المشكلة هي أنني أريد أن اضع رقم كا لتالي (00050) واجمعه باضافة قيمة كالتالي (10) ويظهر الناتج ب (00060) لكن المشكلة ان الناتج يظهر (60)
هل تساعدوني في هذا الطلب
Me.textbox3.text=val(textbox1.text)+val(textbox2.text).
هذا الكود الذي استخدمه

RE: سؤال في الجمع - 3booody - 21-11-19

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

تفضل اخي هذا طلبك


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox3.Text = plus(TextBox1.Text, TextBox2.Text)
   End Sub

   Function plus(ByVal n1 As String, ByVal n2 As String) As String
       Dim ln As Integer = 0
       If n1.ToString.Length > n2.ToString.Length Then
           ln = n1.Length
       Else
           ln = n2.Length
       End If
       Dim f As String = CInt(n1) + CInt(n2)
       Dim P As Integer = f.ToString.Length
       If P < ln Then
           Dim s As New String("0"c, ln)
           Return Format(CInt(n1) + CInt(n2), s)
       End If
       Return CInt(n1) + CInt(n2)
   End Function


RE: سؤال في الجمع - Hassan.syria - 21-11-19

(21-11-19, 12:41 AM)3booody كتب : السلام عليكم ورحمة الله وبركاته

تفضل اخي هذا طلبك


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox3.Text = plus(TextBox1.Text, TextBox2.Text)
   End Sub

   Function plus(ByVal n1 As String, ByVal n2 As String) As String
       Dim ln As Integer = 0
       If n1.ToString.Length > n2.ToString.Length Then
           ln = n1.Length
       Else
           ln = n2.Length
       End If
       Dim f As String = CInt(n1) + CInt(n2)
       Dim P As Integer = f.ToString.Length
       If P < ln Then
           Dim s As New String("0"c, ln)
           Return Format(CInt(n1) + CInt(n2), s)
       End If
       Return CInt(n1) + CInt(n2)
   End Function

شكرا لكن صديقي على مساعدتك وفقك الله في امر تسعى اليه