31-03-20, 04:39 AM
(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مليون شكر
قل لن يصيبنا الا ماكتب الله لنا
