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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [سؤال] كيفية عمل أسم مستخدم وكلمة مرور لبرنامج؟ refaat130 4 107 منذ 5 ساعة مضت
آخر رد: Crazy_Vb.NeT
  كيفية الاختصار bidaya 3 58 اليوم, 01:05 AM
آخر رد: مساعدة
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 73 21-02-17, 09:03 PM
آخر رد: noway
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 59 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 61 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية تنفيذ كود فى حدث معين على اى فورم فى المشروع ؟ الماجيك مسعد 5 138 19-02-17, 04:59 PM
آخر رد: الماجيك مسعد
  [VB.NET] كيفية الغاء شفافية زر (بوتون) ؟ + مرفق مشروع الماجيك مسعد 0 54 18-02-17, 03:32 PM
آخر رد: الماجيك مسعد
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 34 06-02-17, 05:03 PM
آخر رد: المتألق9
  كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2008 المتألق9 2 79 05-02-17, 01:43 AM
آخر رد: المتألق9
  [VB.NET] كيفية جلب برامج التنقيح من اى جهاز لو موجودة؟ الماجيك مسعد 4 111 02-02-17, 07:17 PM
آخر رد: الماجيك مسعد

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


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