+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=34061)
كود توليد الارقام عشوائي - محمد ايمن - 30-03-20
السلام عليكم ورحمت الله وبركته
هيداء كود توليد ارقام عشواءيه
الادوات
2textbox
1bouton
الكود
PHP كود :
Public Class Form1
Dim rand As New Random
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = GetNum()
End Sub
Function GetNum() As String
Dim t As String = ""
Do Until t.Length = 9
t &= rand.Next(0, 10)
Loop
Return t
End Function
End Class
وهيدا كود صنع الipالعشؤيه
PHP كود :
Public Class Form1
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(ByVal sender As System.Object, ByVal 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
End Class
يرت لو حد معاه كود ارقام وحروف عشؤايه يفدنه بيه وشكران لحضرتكو لقرات الموضوع
RE: كود توليد الارقام عشوائي - سعود - 31-03-20
وعليكم السلام ورحمة الله وبركاته
PHP كود :
Public Class Form1
Dim str As String = "ءأاإآبتثجحخدذرزسشصضطظعغفقكلمنهويىؤئةـabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Private Function Getstring(ByVal count As Integer) As String
Dim i As Integer
Dim a As String = ""
For i = 0 To count
a &= str(Int(Rnd() * Len(str)))
Next
Return a
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = Getstring(15)
End Sub
End Class
أرجو ان يكون هو المطلوب.
تحياتي.
RE: كود توليد الارقام عشوائي - محمد ايمن - 31-03-20
(31-03-20, 02:02 AM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
توليد نص خليط من حروف عربية وانجليزية وارقام.PHP كود :
Public Class Form1
Dim str As String = "ءأاإآبتثجحخدذرزسشصضطظعغفقكلمنهويىؤئةـabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Private Function Getstring(ByVal count As Integer) As String
Dim i As Integer
Dim a As String = ""
For i = 0 To count
a &= str(Int(Rnd() * Len(str)))
Next
Return a
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = Getstring(15)
End Sub
End Class
أرجو ان يكون هو المطلوب.
تحياتي.
اقسم بلله اخي سعود انك تستهل 100مليون شكر
RE: كود توليد الارقام عشوائي - محمد صالح ابو صالح - 05-08-23
اخي العزيز الله يعطيك العافيه
معي برنامج يطلب سيريال تفعيل
لو اعطيك السيريال حق البرنامج
تعمل لي توليد تعطيني السيريال المطابق
ادخله يتفتح البرنامج