منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية عمل رقم تسلسلى - نسخة قابلة للطباعة

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

كيفية عمل رقم تسلسلى - matrixmas - 09-08-13

السلام عليكم إخوانى
عيد مبارك إن شاء الله

كيف يمكن عمل رقم تسلسلى بحيث إذا كبر الرقم مثلا عن 999 يقوم بوضع حرف a مثلا وهكذا
مثلا
998
999
a1
a2
a999
b1
وهكذا

كيفية عمل رقم تسلسلى - 3booody - 09-08-13

هل تقصد
كود :
If Val(TextBox1.Text) > 999 Then
            Dim str As String = TextBox1.Text
            TextBox1.Text = "a" & str
        End If


كيفية عمل رقم تسلسلى - VB6DAO - 09-08-13

كود :
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


كيفية عمل رقم تسلسلى - matrixmas - 10-08-13

مشكور أخى الكريم هذا ما اريدة
ولكن هناك خطأ
أنظر لهذا الكود
[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
فما الخطأ ؟؟

كيفية عمل رقم تسلسلى - VB6DAO - 10-08-13

كود :
Dim c() As [color=#FF0000]String[/color] = {""......