[محمد ايمن]

السلام عليكم ورحمت الله وبركته 
هيداء كود توليد ارقام عشواءيه
الادوات
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 


يرت لو حد معاه كود ارقام وحروف عشؤايه يفدنه بيه وشكران لحضرتكو لقرات الموضوع

[سعود]

وعليكم السلام ورحمة الله وبركاته

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 


توليد نص خليط من حروف عربية وانجليزية وارقام.
أرجو  ان يكون هو المطلوب.
تحياتي.

[محمد ايمن]

(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مليون شكر

[محمد صالح ابو صالح]

اخي العزيز الله يعطيك العافيه
معي برنامج يطلب سيريال تفعيل
لو اعطيك السيريال حق البرنامج
تعمل لي توليد تعطيني السيريال المطابق
ادخله يتفتح البرنامج