• 0
maayah

عمل دائرة تكرارية من 0 الى 9999999 دون أن يعلق الكمبيوتر

سؤال

السلام عليكم ورحمة الله وبركاته

 

عندي سؤال أريد التعديل على هذا الكود المرفق بحيث يعمل دائرة تكرارية من 0 الى 9999999 

بسرعة نوعا ما ودون أن يعلق الكمبيوتر اثناء عمل الدائرة 

 

Public Class Form1    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim x As Integer        For x = 0 To 9999999            If x.ToString.Length = 1 Then                TextBox1.Text = TextBox1.Text & "079" & "000000" & x & vbNewLine            ElseIf x.ToString.Length = 2 Then                TextBox1.Text = TextBox1.Text & "079" & "00000" & x & vbNewLine            ElseIf x.ToString.Length = 3 Then                TextBox1.Text = TextBox1.Text & "079" & "0000" & x & vbNewLine            ElseIf x.ToString.Length = 4 Then                TextBox1.Text = TextBox1.Text & "079" & "000" & x & vbNewLine            ElseIf x.ToString.Length = 5 Then                TextBox1.Text = TextBox1.Text & "079" & "00" & x & vbNewLine            ElseIf x.ToString.Length = 6 Then                TextBox1.Text = TextBox1.Text & "079" & "0" & x & vbNewLine            ElseIf x.ToString.Length = 7 Then                TextBox1.Text = TextBox1.Text & "079" & x & vbNewLine            End If        Next    End SubEnd Class

الهدف من هذا الكود توليد جميع أرقام موبايل من 10 أرقام 

 

مع شكري

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

قد يفيد هذا الكود ولا افضل ان تستخدم قاعد بيانات

انظر هذا

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim str As String = ""        Dim ooo As New Threading.Thread(AddressOf aa)        ooo.Start(str)        TextBox1.Text = str    End Sub    Public Sub aa(ByRef str As String)        Dim x As Integer        For x = 790000000 To 799999999            str = str & "0" & x & vbNewLine        Next            End Sub
تم تعديل بواسطه KARIMSOFT
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x As Integer

For x = 0 To 9999999

If x.ToString.Length = 1 Then

TextBox1.Text = TextBox1.Text & "079" & "000000" & x & vbNewLine

ElseIf x.ToString.Length = 2 Then

TextBox1.Text = TextBox1.Text & "079" & "00000" & x & vbNewLine

ElseIf x.ToString.Length = 3 Then

TextBox1.Text = TextBox1.Text & "079" & "0000" & x & vbNewLine

ElseIf x.ToString.Length = 4 Then

TextBox1.Text = TextBox1.Text & "079" & "000" & x & vbNewLine

ElseIf x.ToString.Length = 5 Then

TextBox1.Text = TextBox1.Text & "079" & "00" & x & vbNewLine

ElseIf x.ToString.Length = 6 Then

TextBox1.Text = TextBox1.Text & "079" & "0" & x & vbNewLine

ElseIf x.ToString.Length = 7 Then

TextBox1.Text = TextBox1.Text & "079" & x & vbNewLine

End If

Application.DoEvents()

Next

End Sub

End Class

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

عذرا لقد تم رفع الملف مرتين سهوا يمكنك الاستفادة منها

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .