تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مثال] مساعد بسيطه فا المثال
#1
السلام عليكم ورحمت الله وبركته
الكود يستخدم في صنع بروكسيت عشوءيه اوipعشوءيه ون عيز اكتب في textpoxمثلن8080وضغط علي starفا البرنمج يولدلي ال ارقام عشواءيه + يكون جمب كل رقم الرقم الي ان حطو في ال textpox الي هو 8080
الكود
PHP كود :
Dim list As New List(Of String)
 
       For i 1 To 3
            list
.Add(Int((111 1) * Rnd() + 111))
 
       Next
        Dim r 
As String String.Join(".", list)
 
       TextBox1.Text r
        Dim Hussaien 
As New Random
        Dim RandomStrig 
As String ""
 
       Dim Result As Integer
        Dim CharArray
() As Char TextBox1.Text.ToCharArray
        For i 
As Integer 1 To NumericUpDown1.Value
            Result 
Hussaien.Next(0CharArray.Count)
 
           RandomStrig &= CharArray(Result)
 
       Next
        ListBox1
.Items.Add(RandomStrig TextBox1.Text vbNewLine

النوتج بططلع فا الListBox1 ان عيز اخلي مثلن لو كتبت فا tixtpox1اي حاجه تكون جمب الارقام الي بططلع فل ListBox1
يعني مثلن لو كتبت فل tixtpox1 رقم8080 يكون جمب كل ال ارقام الي اتولدت فلب ListBox1يرت تكون وصلتكو الفكره وشكران مقدمن
الرد
تم الشكر بواسطة:
#2
وعليك السلام ورحمة الله وبركاته

وجدت الجواب على موقع msdn هنا : social.msdn.microsoft

تفضل جرب الكود التالي  

كود :
 Private _random As Random = New Random()

   Public Function GetRandomIp() As String
       Return String.Format("{0}.{1}.{2}.{3}", _random.Next(0, 255), _random.Next(0, 255), _random.Next(0, 255), _random.Next(0, 255))
   End Function

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

       Dim ips = New List(Of String)()

       For i As Integer = 0 To 10 - 1
           ips.Add(GetRandomIp())
       Next

       For Each ip In ips
           ListBox1.Items.Add(ip & ":" & TextBox1.Text)
       Next

   End Sub

الرد
تم الشكر بواسطة: محمد ايمن
#3
(07-03-20, 03:42 AM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته

وجدت الجواب على موقع msdn هنا : social.msdn.microsoft

تفضل جرب الكود التالي  

كود :
 Private _random As Random = New Random()

   Public Function GetRandomIp() As String
       Return String.Format("{0}.{1}.{2}.{3}", _random.Next(0, 255), _random.Next(0, 255), _random.Next(0, 255), _random.Next(0, 255))
   End Function

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

       Dim ips = New List(Of String)()

       For i As Integer = 0 To 10 - 1
           ips.Add(GetRandomIp())
       Next

       For Each ip In ips
           ListBox1.Items.Add(ip & ":" & TextBox1.Text)
       Next

   End Sub

شكران هو ده المطلوب بس هو انت متعرفش ازي احط الكود ده فا التايمر
الرد
تم الشكر بواسطة:
#4
ضع الكود الموجود في حدث الضغط على الزر داخل التايمر

الرد
تم الشكر بواسطة: محمد ايمن
#5
(07-03-20, 05:53 AM)معاند الحظ كتب : ضع الكود الموجود في حدث الضغط على الزر داخل التايمر

اسف بس ولله مش فاهم ممكن حضرتك توضح اكتر
الرد
تم الشكر بواسطة:
#6
هذا الكود ضعه داخل التايمر

كود :
Dim ips = New List(Of String)()

      For i As Integer = 0 To 10 - 1
          ips.Add(GetRandomIp())
      Next

      For Each ip In ips
          ListBox1.Items.Add(ip & ":" & TextBox1.Text)
      Next

الرد
تم الشكر بواسطة: محمد ايمن
#7
(07-03-20, 06:18 AM)معاند الحظ كتب : هذا الكود ضعه داخل التايمر

كود :
Dim ips = New List(Of String)()

      For i As Integer = 0 To 10 - 1
          ips.Add(GetRandomIp())
      Next

      For Each ip In ips
          ListBox1.Items.Add(ip & ":" & TextBox1.Text)
      Next

مشكور
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ممكن مساعد بعد ازنكم محمد ايمن 7 784 03-03-20, 03:46 AM
آخر رد: alsalamoni
  [VB.NET] أحتاج مساعد في تصميم برنامج و أدخل الأكواد بونور 2 1,740 21-12-15, 09:43 PM
آخر رد: بونور

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


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