+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [مثال] مساعد بسيطه فا المثال (/showthread.php?tid=33691)
مساعد بسيطه فا المثال - محمد ايمن - 07-03-20
السلام عليكم ورحمت الله وبركته
الكود يستخدم في صنع بروكسيت عشوءيه اوipعشوءيه ون عيز اكتب في textpoxمثلن8080وضغط علي starفا البرنمج يولدلي ال ارقام عشواءيه + يكون جمب كل رقم الرقم الي ان حطو في ال textpox الي هو 8080
الكود
PHP كود :
Dim list As New List(Of String)
For i = 1 To 3
list.Add(Int((9 - 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(0, CharArray.Count)
RandomStrig &= CharArray(Result)
Next
ListBox1.Items.Add(RandomStrig & TextBox1.Text & vbNewLine)
النوتج بططلع فا الListBox1 ان عيز اخلي مثلن لو كتبت فا tixtpox1اي حاجه تكون جمب الارقام الي بططلع فل ListBox1
يعني مثلن لو كتبت فل tixtpox1 رقم8080 يكون جمب كل ال ارقام الي اتولدت فلب ListBox1يرت تكون وصلتكو الفكره وشكران مقدمن
RE: مساعد بسيطه فا المثال - معاند الحظ - 07-03-20
وعليك السلام ورحمة الله وبركاته
وجدت الجواب على موقع 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 SubRE: مساعد بسيطه فا المثال - محمد ايمن - 07-03-20
(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
شكران هو ده المطلوب بس هو انت متعرفش ازي احط الكود ده فا التايمر
RE: مساعد بسيطه فا المثال - معاند الحظ - 07-03-20
ضع الكود الموجود في حدث الضغط على الزر داخل التايمر
RE: مساعد بسيطه فا المثال - محمد ايمن - 07-03-20
(07-03-20, 05:53 AM)معاند الحظ كتب : ضع الكود الموجود في حدث الضغط على الزر داخل التايمر
اسف بس ولله مش فاهم ممكن حضرتك توضح اكتر
RE: مساعد بسيطه فا المثال - معاند الحظ - 07-03-20
هذا الكود ضعه داخل التايمر
كود :
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)
NextRE: مساعد بسيطه فا المثال - محمد ايمن - 07-03-20
(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
مشكور