[dubai.eig]

(20-04-19, 04:15 AM)حريف برمجة كتب : وعليكم السلام ورحمة الله وبركاته ،،

كود :

       Dim str As String = TextBox1.Text.Substring(0, 3)
str = Val(str + 1).ToString("000")
TextBox1.Text = str & TextBox1.Text.Substring(3, 3)

ولكن احسب حسابك الرقم ما يزيد عن ثلاث خانات .

اهلا بك من جديد استاذي

ضبط معاي والحمدالله

انت فتحت عيني على طريقه ممتازه 

والحمدالله ضبطط

كود :

                       If sent_numberx.Length = "6" Then
                           str = sent_numberx.Substring(0, 3)
                           str = Format((Val(sent_numberx) + 1), "000")
                           Exchange_s.Text = str & "kkk"
                       ElseIf sent_numberx.Length = "7" Then
                           str = sent_numberx.Substring(0, 4)
                           str = Format((Val(sent_numberx) + 1), "000")
                           Exchange_s.Text = str & "kkk"
                       ElseIf sent_numberx.Length = "8" Then
                           str = sent_numberx.Substring(0, 5)
                           str = Format((Val(sent_numberx) + 1), "000")
                           Exchange_s.Text = str & "kkk"
                       End If

علشان الرقم يستمر اذا وصل 1000 او اكثر

عملت اول شي حساب عدد الحروف 
sent_numberx.Length

اذا كان 6  يعني
120kkk

اذا كان 7  يعني

1200kkk

اذا كان 8  يعني

12000kkk

وباقي العمل نفس الكود الخاص بك

احسنت وبارك الله فيك

---

(20-04-19, 08:57 AM)حريف برمجة كتب :

(20-04-19, 07:44 AM)dubai.eig كتب : شكرا استاذي ساجرب الكود

بس كيف اذا الرقم التسلسلي وصل إلى ١٠٠٠ 

لازم يمشي الى ١٠٠١.  ١٠٠٢. وهكذا


1003KKK

يوجد حلين :

الأول تعمل خانات الأرقام كأقصى عدد تتصورة مثلاً :

0000001kkk

وتعدل كود اقتصاص الارقام السابق .

الثاني نعمل معادلة تحسس الأرقام والحروف ونفصل بينهم ونزيد بمقدار واحد على الرقم ثم نظيف الحروف .

كود :

Dim num As Integer = Integer.Parse(System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "[^\d]", "")) + 1
       Dim str As String = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "(?:[0-9]+\.?[0-9]*|\.[0-9]+)", "")

       TextBox1.Text = num & str

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

---

هذا الكود اختصر لي المهمه

كود :

Dim num As Integer = Integer.Parse(System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "[^\d]", "")) + 1
      Dim str As String = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "(?:[0-9]+\.?[0-9]*|\.[0-9]+)", "")

      TextBox1.Text = num & str

شكرااااا لك استاذي