رفتن به مطلب

آموزش کامل رندوم و تولید(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 که کاراکتر های اضافه رو تعریف میکنه.

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

موفق باشید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

باز هم سپاس

لینک ارسال
به اشتراک گذاری در سایت های دیگر

MID , LEFT , RIGHT:

http://answercenter.ir/thread49.html

http://answercenter.ir/thread278.html

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...