آموزش کامل رندوم و تولید(generate) کردن

[کسری نعمتی مهمان]

سلام.شما با این آموزش میتونید تولید کردن رشته متنی و عددی رو یاد بگیرین که کاربرد های زیادی داره .حتا میشه یه برنامه نوشت که پسورد های سختی رو بسازه مثلا

خب دیگه به انتخاب خودتون مثلا یه sub button یا هر چیز دیگه ای بزارین و بعدش ...

Sub RandomString(Length As Int, LowerCase As Boolean, UpperCase As Boolean, Numbers As Boolean, AdditionalChars As String) As String
   Dim source As String
   If LowerCase = True Then
       source = source &"abcdefghijklmnopqrstuvwxyz"
   End If
   If UpperCase = True Then
       source = source &"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   End If
   If Numbers = True Then
       source = source &"0123456789"
   End If
   If AdditionalChars.Length > 0 Then
       source = source&AdditionalChars
   End If

   Dim ka3ra As StringBuilder
 ka3ra.Initialize
 For i = 1 To Length
   Dim r As Int = Rnd(0,source.Length-1)
       ka3ra.Append(source.SubString2(r,r+1))
 Next
 Return ka3ra.ToString
End Sub

خب اون lowerCase که تعرف کردیم برای معرفی حروف کوچیکه و upperCase حروف بزرگ و numbers هم که برای اعداد

برای اینکه که بخوایم همه رو باهم مخلوط کنیم باید یه String تعریف کنیم که اینجا اسمش Source هست. و قسمت AdditionalChars که کاراکتر های اضافه رو تعریف میکنه.

اگه جایی سوال داشتین بپرسین

موفق باشید

[mohammad-alone 564]

سپس فراوان برای آموزش خوبتون !

در مورد String ها هم اگر ممکنه آموزش بزارید چونکه کاملاً با ویژوال فرق میکنه !

مانند Left , Right , Mid , ... که خودتون بهتر واردید

باز هم سپاس

[مجید آرتا 5,874]

MID , LEFT , RIGHT:

http://answercenter.ir/thread49.html

http://answercenter.ir/thread278.html

یک خسته نباشید به کسری عزیز