+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال حول التكرار (/showthread.php?tid=34875)
سؤال حول التكرار - farfour - 21-05-20
السلام عليكم
كيف حالكم
انا اقوم بتوليد ارقام هاتف عشوائية
اريد اضافة تكرار لهذا الكود ليجلب لي 20 نتيجة في textbox
كود :
Dim XArray() As Char = "0123456789".ToCharArray
Dim xGenerator As System.Random = New System.Random()
Dim xStr As String = String.Empty
While xStr.Length < 8
If xGenerator.Next(0, 2) = 0 Then
xStr &= XArray(xGenerator.Next(0, XArray.Length))
End If
End WhileRE: سؤال حول التكرار - سعود - 21-05-20
تفضل المثال البسيط
PHP كود :
Public Class Form1
Dim ax, ay As Integer
Dim dr As Boolean
Dim p As String = "0123456789"
Private Function gen()
Dim t As String = ""
Dim i As Integer
For i = 0 To (p.Length - 1)
t &= p(Int(Rnd() * (p.Length - 1)))
Next
Return t
End Function
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown
If e.Button = MouseButtons.Left Then
dr = True
ax = MousePosition.X - Me.Left
ay = MousePosition.Y - Me.Top
End If
End Sub
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove, Label1.MouseMove
If dr Then
Me.Left = MousePosition.X - ax
Me.Top = MousePosition.Y - ay
End If
End Sub
Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp, Label1.MouseUp
dr = False
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Hide()
Me.Close()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Location = My.Settings.mloc
Randomize()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim m As Integer
For m = 1 To 20
TextBox1.AppendText(gen() & vbNewLine)
Next
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
My.Settings.mloc = Me.Location
My.Settings.Save()
End Sub
End Class
انت ركز على الاكواد التالية:
PHP كود :
Dim p As String = "0123456789"
Private Function gen()
Dim t As String = ""
Dim i As Integer
For i = 0 To (p.Length - 1)
t &= p(Int(Rnd() * (p.Length - 1)))
Next
Return t
End Function
Dim m As Integer
For m = 1 To 20
TextBox1.AppendText(gen() & vbNewLine)
Next
RE: سؤال حول التكرار - farfour - 23-05-20
(21-05-20, 11:57 PM)سعود كتب : تفضل المثال البسيط
PHP كود :
Public Class Form1
Dim ax, ay As Integer
Dim dr As Boolean
Dim p As String = "0123456789"
Private Function gen()
Dim t As String = ""
Dim i As Integer
For i = 0 To (p.Length - 1)
t &= p(Int(Rnd() * (p.Length - 1)))
Next
Return t
End Function
Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown
If e.Button = MouseButtons.Left Then
dr = True
ax = MousePosition.X - Me.Left
ay = MousePosition.Y - Me.Top
End If
End Sub
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove, Label1.MouseMove
If dr Then
Me.Left = MousePosition.X - ax
Me.Top = MousePosition.Y - ay
End If
End Sub
Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp, Label1.MouseUp
dr = False
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Hide()
Me.Close()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Location = My.Settings.mloc
Randomize()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim m As Integer
For m = 1 To 20
TextBox1.AppendText(gen() & vbNewLine)
Next
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
My.Settings.mloc = Me.Location
My.Settings.Save()
End Sub
End Class
انت ركز على الاكواد التالية:
PHP كود :
Dim p As String = "0123456789"
Private Function gen()
Dim t As String = ""
Dim i As Integer
For i = 0 To (p.Length - 1)
t &= p(Int(Rnd() * (p.Length - 1)))
Next
Return t
End Function
Dim m As Integer
For m = 1 To 20
TextBox1.AppendText(gen() & vbNewLine)
Next
شكراا اخي سعود و ان شاء الله عيدك مبارك و على جميع المسلمين