Dark-Space
یک شنبه 22 خرداد 1390, 09:52 صبح
سلام به همه خسته نباشید عضو جدید هستم .
ببخشید یه سوالی داشتم من کدی رو میزارم که کارش این هست که 16 کارا کتر در text box دریافت کره و سپس
با تیک زدن دو چک باکس که شامل اعداد و حروف میشن اعاد و حروفی رو از روی اون مقداری که ما در text box قرار دادیم میسازه
اما مشکل بنده اینجاس که به هیچ هنوان
تعداد خروجی اعداد که باید 8 کاراکتر و یا هر تعدادی که من مشخص کردم باشه نمیشه . نمیشه تغییر داد مقدارش رو
و فقط 3 کاراکتر تولید میکنه
Dim s, n As String
s = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWX YZ"
n = "0123456789"
If H1.Checked = False And H2.Checked = False Then
MsgBox("You Must Select One or More Optional Item(s)", vbCritical, "Error")
Else
Dim i, temp, sn, nn As Integer
Dim out_str As String ' is an output random character and numbers
out_str = ""
i = 1
Dim rnd_int As New Random
For i = 1 To Val(TextBox1.Text)
'MsgBox(Val(TextBox1.Text))
If H1.Checked = True And H2.Checked = True Then
temp = rnd_int.Next(1, 3) 'if 1 use string values, if 2 use numeric values
ElseIf H1.Checked = True And H2.Checked = False Then
temp = 1
ElseIf H1.Checked = False And H2.Checked = True Then
temp = 2
End If
If temp = 1 And H1.Checked = True Then
sn = rnd_int.Next(s.Length)
out_str = out_str & s(sn)
End If
If temp = 2 And H2.Checked = True Then
nn = rnd_int.Next(n.Length)
out_str = out_str & n(nn) '9 cause of length of n is 9 ==> thats numeric
End If
Next i
TextBox2.Text = out_str
End If
H1 , H2 چک باکس هستند
ببخشید یه سوالی داشتم من کدی رو میزارم که کارش این هست که 16 کارا کتر در text box دریافت کره و سپس
با تیک زدن دو چک باکس که شامل اعداد و حروف میشن اعاد و حروفی رو از روی اون مقداری که ما در text box قرار دادیم میسازه
اما مشکل بنده اینجاس که به هیچ هنوان
تعداد خروجی اعداد که باید 8 کاراکتر و یا هر تعدادی که من مشخص کردم باشه نمیشه . نمیشه تغییر داد مقدارش رو
و فقط 3 کاراکتر تولید میکنه
Dim s, n As String
s = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWX YZ"
n = "0123456789"
If H1.Checked = False And H2.Checked = False Then
MsgBox("You Must Select One or More Optional Item(s)", vbCritical, "Error")
Else
Dim i, temp, sn, nn As Integer
Dim out_str As String ' is an output random character and numbers
out_str = ""
i = 1
Dim rnd_int As New Random
For i = 1 To Val(TextBox1.Text)
'MsgBox(Val(TextBox1.Text))
If H1.Checked = True And H2.Checked = True Then
temp = rnd_int.Next(1, 3) 'if 1 use string values, if 2 use numeric values
ElseIf H1.Checked = True And H2.Checked = False Then
temp = 1
ElseIf H1.Checked = False And H2.Checked = True Then
temp = 2
End If
If temp = 1 And H1.Checked = True Then
sn = rnd_int.Next(s.Length)
out_str = out_str & s(sn)
End If
If temp = 2 And H2.Checked = True Then
nn = rnd_int.Next(n.Length)
out_str = out_str & n(nn) '9 cause of length of n is 9 ==> thats numeric
End If
Next i
TextBox2.Text = out_str
End If
H1 , H2 چک باکس هستند