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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيفية برمجه serail port engmedomed@gmail.com 2 75 12-01-17, 03:50 AM
آخر رد: Basil Abdallah
  كيفية تغير رسائل الخطأ؟ noway 4 148 12-01-17, 02:05 AM
آخر رد: يسرى7
  كيفية استخراج ربح من المبيعات عندما تكون سعر شراء المادة مختلة في كل مرة max_1978 3 107 05-01-17, 12:40 AM
آخر رد: أبو عمر
  [VB.NET] كيفية رفع صوره مع السؤال في المنتدي engmedomed@gmail.com 3 106 02-01-17, 08:24 PM
آخر رد: Basil Abdallah
  كيفية التعديل على كود HTML ومن ثم عرضه في WebBrowser bidaya 5 134 24-12-16, 03:47 PM
آخر رد: ابو ليلى
  كيفية نقل بيانات من داتاجريد في فورم الى داتاجريد في فورم اخر قناص المدينة 0 82 22-12-16, 06:52 PM
آخر رد: قناص المدينة
  [VB.NET] كيفية استخدام مكتبة TLSharp الماجيك مسعد 5 161 13-12-16, 03:55 AM
آخر رد: الماجيك مسعد
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 109 06-12-16, 04:34 PM
آخر رد: Ayman97
  كيفية تخفيض مستوي الامان في الاكسل atefkhalf2004 7 182 28-11-16, 06:48 PM
آخر رد: atefkhalf2004
Question [VB.NET] كيفية ربط أى حقل IFieldObject بعمود بجدول برمجياً Crystal Reports newvbdev 4 183 23-11-16, 08:51 PM
آخر رد: newvbdev

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


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