PDA

View Full Version : تولید رشته به صورت Random ؟؟؟



omidreza812
چهارشنبه 10 مرداد 1386, 16:42 عصر
سلام دوستان
آیاتابعی هست که تعداد کاراکترها رو بگیره،
و به صورت Random رشته تولید کنه؟؟
تشکر
:لبخندساده:

Danial_Yousefi
چهارشنبه 10 مرداد 1386, 17:49 عصر
درست نفهمیدم منظورتون چیه ولی این طور که پیداست کاری نداره

Text1.Text = ""
Randomize Timer
tool = InputBox("toole reshte?")
For i = 1 To tool
1
a = Fix(Rnd * 90)
If a < 65 Or a > 90 Then GoTo 1
Text1.Text = Text1.Text & Chr(a)
Next i

senator_aka
چهارشنبه 10 مرداد 1386, 23:52 عصر
من هم تا حالا از این روشی که دوستمان گفته خیلی استفاده کردم و جواب هم گرفتم.
اما با استفاده از goto کاملا مخالفم.باید یاد بگیریم که از کد هایی که باعث دردسر می شن دیگه استفاده نکنی(باور کنید که اینطوری خیلی بهتر هست)

bad_boy_2007
پنج شنبه 11 مرداد 1386, 00:02 صبح
senator_aka درست میگه ، از شکل ساخت یافته تابع Danial_Yousefi عزیز بصورت زیر استفاده کنید :


Text1.Text = ""
Randomize(Timer)
tool = InputBox("toole reshte?")
For i = 1 To tool
Do
a = Fix(Rnd() * 90)
Loop a < 65 Or a > 90
Text1.Text = Text1.Text & Chr(a)
Next i

Danial_Yousefi
جمعه 12 مرداد 1386, 13:10 عصر
منم نظرم با شما یکی ولی برنامه هول هولکی نوشته شده:خجالت: