+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] Generate of Numbers (/showthread.php?tid=16960)
Generate of Numbers - mervandzz - 24-08-16
السلام عليكم ورحمة الله وبركاته
اريد من اخوتي الكرام كود لتوليد ارقام تسلسلية زي المثال الي في الصورة
واكون شاكر لكم علي افادتي
RE: Generate of Numbers - abulayth - 24-08-16
السلام عليكم
الموضوع اسهل مما تتخيل
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i As Integer
Dim j As Integer
Dim z As Integer
Int32.TryParse(TextBox1.Text, j)
Int32.TryParse(TextBox2.Text, z)
For i = j To j + z
ListBox1.Items.Add(i)
Next
End Sub
End Class
RE: Generate of Numbers - silverlight - 24-08-16
PHP كود :
Dim startNumber As Integer = CType(Nothing, Integer)
Dim sStart As String = TextBox1.Text
If Not String.IsNullOrEmpty(sStart) Then
startNumber = Integer.Parse(sStart)
End If
Dim totalnumer As Integer = CType(Nothing, Integer)
Dim sTotal As String = TextBox2.Text
If Not String.IsNullOrEmpty(totalnumer) Then
totalnumer = Integer.Parse(sTotal)
End If
For i As Integer = 0 To totalnumer - 1
ListBox1.Items.Add(i + startNumber)
Next
ولتضع في اعتبارك التالي
TextBox1 يستخدم في قراءة StartNumber
TextBox2 يستخدم في قراءة TotalNumber
RE: Generate of Numbers - mervandzz - 24-08-16
مشكورين علي الافادة و الله يعطيكم العافية
RE: Generate of Numbers - أبو عمر - 24-08-16
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
For i As Integer = 0 To Val(TextBox2.Text)
ListBox1.Items.Add(i + Val(TextBox1.Text))
Next
End Sub
RE: Generate of Numbers - سعود - 24-08-16
PHP كود :
Public Class Form1
Dim i As Integer = 0
Dim itm As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
itm = Val(txtstart.Text)
Do Until i = Val(txtcount.Text)
ListBox1.Items.Add(itm)
i += 1
itm += 1
Loop
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
MsgBox(ListBox1.Items.Count)
End Sub
End Class
RE: Generate of Numbers - Kian Tech - 24-08-16
اليك هذا افضل وابسط كود لتوليد الارقام ويمكن التحكم بحجم الخانات ومستحيل تشابه الارقام
PHP كود :
Dim number As Integer
Randomize()
number = Int(Rnd() * 9999999) + 1
MsgBox(number)