تولید رشته های منحصر به فرد

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

به نام خدا

در ابتدا این روز مبارک یعنی عید قربان رو به دوستان عزیز تبریک میگم

و همچنین تولد دوست خوبم مهران رو هم تبریک میگم انشاالله تو تمام مراحل زندگیش موفق و موید باشه

خب بنده طی وقت بیکاری در روز عید به سرم خورد که بیام تولید رشته های منحصر به فرد رو بنویسم

یه خوبی که داره اینه که تعداد کاراکتر محدود نیست و کاربر میتونه به اختیار تعداد کاراکتر رو مشخص کنه

2 مدلشو نوشتم:

1-تولید کاراکترهای نا مشابه

2-تولید کاراکتر ها مشابه

برای اینکار بنده 2تا متد برای راحتی کار نوشتم.

تولید رشته های نا مشابه:

Sub SpString(i As Int,Text1 As EditText)
Dim ch(i) As Char
Dim str As String
For j=0 To i
Dim char1 As Char=Chr(Rnd(33,127))
ch= Array As Char(char1)
   For k=0 To ch.Length -1
       str= str & ch(k)
       Text1.Text=str
   Next
Next
End Sub

تولید رشته های مشابه:

Sub SpString2(i As Int,Text1 As EditText)
Dim str(i) As String
Dim ch(1) As Char : ch(0)=Chr(Rnd(33,127))
For Each InputStr In ch
str=Array As String(InputStr)
   Do While (i>=0)
   i=i-1
       For k=0 To str.Length -1
           Text1.Text= str(k)
       Next
   Loop
Next
End Sub

نحوه استفاده:

2تا Button و 2تا EditText به اکتیویتی اضافه کنید:

Sub Button1_Click
SpString(10,EditText1)
End Sub

Sub Button2_Click
SpString2(10,EditText2)
End Sub

شاید بگید آیا کاربرد خاصی هم داره؟

کاربرد خاص که ن ولی میتونین با اینجور کدها کد رجیستری تولید کنید

کلا خوبه که یاد بگیرید و ازش نکته یاد بگیرید و جاهای دیگه استفاده کنید

هرجای کد رو مشکل داشتید بگید تا توضیح مختصری بدم

آموزش اختصاصی از Basic4Android.Org

به امید پیشرفتمون