تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية عمل رقم تسلسلى
#1
السلام عليكم إخوانى
عيد مبارك إن شاء الله

كيف يمكن عمل رقم تسلسلى بحيث إذا كبر الرقم مثلا عن 999 يقوم بوضع حرف a مثلا وهكذا
مثلا
998
999
a1
a2
a999
b1
وهكذا
الرد }}}}
تم الشكر بواسطة:
#2
هل تقصد
كود :
If Val(TextBox1.Text) > 999 Then
            Dim str As String = TextBox1.Text
            TextBox1.Text = "a" & str
        End If
الرد }}}}
تم الشكر بواسطة:
#3
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For i = 0 To 2999
        Me.ListBox1.Items.Add(SpecialNumber(i))
    Next
End Sub

Public Function SpecialNumber(ByVal n As Integer) As String
    Dim c() As Char = {"", "a", "b", "c", "d", "e", "f", "g", "h", "i"} '.....
    If n > 999 Then
        Return (c(n \ 1000) & If((n Mod 1000) > 0, (n Mod 1000).ToString, ""))
    Else
        Return ((n Mod 1000).ToString)
    End If
End Function
الرد }}}}
تم الشكر بواسطة:
#4
مشكور أخى الكريم هذا ما اريدة
ولكن هناك خطأ
أنظر لهذا الكود
[HTML] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To 10000
Me.ListBox1.Items.Add(SpecialNumber(i))
Next
End Sub
Public Function SpecialNumber(ByVal n As Integer) As String
Dim c() As Char = {"", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", _
"AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ", _
"BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BK", "BL", "BM", "BN", "BO", "BP", "BQ", "BR", "BS", "BT", "BU", "BV", "BW", "BX", "BY", "BZ", _
"CA", "CB", "CC", "CD", "CE", "CF", "CG", "CH", "CI", "CJ", "CK", "CL", "CM", "CN", "CO", "CP", "CQ", "CR", "CS", "CT", "CU", "CV", "CW", "CX", "CY", "CZ"} '.....
If n >= 100 Then
Return (c(n \ 100) & If((n Mod 100) > 0, (n Mod 100).ToString, ""))
Else
Return ((n Mod 100).ToString)
End If
End Function[/HTML]

عند الوصول إلى z99
يعيد الرقم إلى A من جديد ومن المفترض أن يكون AA , AA1, AA2
فما الخطأ ؟؟
الرد }}}}
تم الشكر بواسطة:
#5
كود :
Dim c() As [color=#FF0000]String[/color] = {""......
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية طباعة فاتورة مبيعات باستخدام الطابعات الصغيرة noway 0 42 19-05-17, 09:55 AM
آخر رد: noway
  كيفية انشاء الباركود المتألق9 2 40 18-05-17, 10:33 PM
آخر رد: المتألق9
Exclamation [سؤال] كيفية التعامل مع الdataset في الوضع المنفصل في الفيجوال البيسك 2010 moh_g 4 107 16-05-17, 06:50 PM
آخر رد: moh_g
  كيفية غلق هذا الفورم ان نفذ جملة شرط soper 4 70 13-05-17, 09:41 PM
آخر رد: العواد الصغير
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 238 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  [VB.NET] إستفسار عن كيفية تغيير كلمة مرور مستخدم في vb.net 2013 limia 1 51 13-05-17, 11:01 AM
آخر رد: khalid475
  كيفية الحفظ إلى صيغة txt ahmedfa71 1 71 07-05-17, 07:16 PM
آخر رد: mansoor
  [VB.NET] كيفية فتح البرنامج اكتر من مرة بشروط معينة الماجيك مسعد 6 125 07-05-17, 04:15 AM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية قراءة ملفات bin وتثبيتها 0theghost0 3 77 04-05-17, 02:02 PM
آخر رد: 0theghost0
  كيفية الربط مع جوجل ايرث khaled12345 2 94 04-05-17, 10:15 AM
آخر رد: khaled12345

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


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