تقييم الموضوع :
  • 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] = {""......
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تخفيض مستوي الامان في الاكسل atefkhalf2004 7 81 28-11-16, 06:48 PM
آخر رد: atefkhalf2004
Question [VB.NET] كيفية ربط أى حقل IFieldObject بعمود بجدول برمجياً Crystal Reports newvbdev 4 111 23-11-16, 08:51 PM
آخر رد: newvbdev
  كيفية تغير رسائل الخطأ؟ noway 3 71 11-11-16, 05:37 PM
آخر رد: ممدوح
  [VB.NET] كيفية طباعة شهادات بصيغة PDF Programmer_2017 9 249 10-11-16, 10:02 PM
آخر رد: Programmer_2017
  [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 نوريس 2 109 09-11-16, 12:32 PM
آخر رد: نوريس
  [VB.NET] كيفية التعامل مع العلاقات برمجياً ؟؟؟؟ thevirus 4 142 06-11-16, 08:22 PM
آخر رد: thevirus
  [VB.NET] كيفية عمل كود ب vb.net يعمل على تحديث جميع السجلات في الداتا بيز بشرط معين thevirus 2 125 24-10-16, 06:45 AM
آخر رد: thevirus
  مساعدة في كيفية عرض بيانات جدوال SQL Relationshipفي نفس تقرير VB أحمد محمد جمعة 1 64 23-10-16, 10:45 PM
آخر رد: Adrees
  كيفية إضافة فورم داخل بانل في الفورم الرئيسي bidaya 4 128 21-10-16, 04:40 AM
آخر رد: silverlight
Information المساعدة في كيفية : التحديد في الداتاقريد ... Arabia 4 152 18-10-16, 10:50 AM
آخر رد: Arabia

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


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