PDA

View Full Version : استرینگ رندم



voodoo
دوشنبه 09 آذر 1383, 22:31 عصر
اقا من یک کد میخوام که بتونه مثلا یک استرینگ رو به طور رندم بهم برگردونه (هم حروف بزرگ هم کوچیک) بعد شرط هم بتونم براش بزارم.

ممنون :sad2:

bashir_nashi
سه شنبه 10 آذر 1383, 08:22 صبح
ممکنه بیشتر توضیح بدی.
من متوجه نشدم می خواهی یک رشته رو ایجاد کنی یا اون رو به یه رشته دیگه تبدیل کنی .

linux
سه شنبه 10 آذر 1383, 09:27 صبح
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = createString(10)
End Sub
Function createString(ByVal len As Integer) As String

Dim i As Integer
Dim strCode As Integer
Dim str As String

For i = 0 To len
strCode = CInt(Int((122 - 65 + 1) * Rnd() + 65))

str &= Chr(strCode)
Next
Return str
End Function

یه همچین چیزی می خواهی؟

voodoo
سه شنبه 10 آذر 1383, 19:48 عصر