یک حرف انتخابی

[sinashahab]

سلام
چگونه میشه که مانند : int(rnd * 20) + 1 بشه یک حرف رو انتخاب کنه ؟
یعنی بجای عدد حروف انتخاب بشه .
:تشویق::تشویق:

[saeid12]

میتونی از select case استفاده کنی . میدونم راه دیگری هم هست ولی من همینو بلدم.

[xxxxx_xxxxx]

میدونم راه دیگری هم هست
درسته يه راه ديگه هم هست::چشمک:


a = Chr(Int(Rnd * 26) + 65)

[sinashahab]

شاید منظورمو بد گفتم .
من میخواهم که یک حرف انتخاب بشه مثلا : a

[3dboy1]

با سلام
من يك سورس براي حفظ قرآن گذاشتم
يه سر بزن داخل برنامه امكان انتخاب يك يا چند حرف و كلمه هست
http://barnamenevis.org/forum/showthread.php?t=129046
موفق باشي

[xxxxx_xxxxx]

شاید منظورمو بد گفتم .
من میخواهم که یک حرف انتخاب بشه مثلا : a

دوست عزيز الان اون دستوري كه من نوشتم مشكل داره؟!!!

اون هم به طور random يه حرف انتخاب مي كنه البته از بين حروف بزرگ انگليسي.
اگه مي خواين حروف كوچيك باشند بجاي عدد 65 بنويسيد 97.
خروجي هم تو a قرار ميگيره ديگه. پس...!!!

[sinashahab]

Private Sub Form_Load()
Randomize Timer
Me.Caption = ""
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Me.Caption & Int(Rnd * 9) + 1
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Me.Caption & " - "
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Me.Caption & Int(Rnd * 9) + 1
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Me.Caption & " - "
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Me.Caption & Int(Rnd * 9) + 1
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Me.Caption & " - "
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Me.Caption & Int(Rnd * 9) + 1
Me.Caption = Me.Caption & " - "
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Me.Caption & Int(Rnd * 9) + 1
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
Me.Caption = Caption & Chr(Int(Rnd * 26) + 65)
End Sub

با استفاده از این کد می توانید سریال نامبر به شخص داده شود و با ساخت یک کیگن برای خود ان را اینکد کنید و به شما زنگ بزنند و کد اکتیو رو بگیرن .
هر کی می خواد می تونم براش بنویسم .
info@makrosoft.ir

[ƒxmahdi]

ولی این کد شما هر بار یه چیز تولید می کنه ! خوب پس یه راه می مونه که اونو یه جا ذخیره کنه .
اگه یه جا ذخیره بشه چه در ریجستری و چه در یه فایل به راحتی توسط نرم افزار های مربوطه می شه کد را پیدا کرد. پس بعد از اینکه یه نفر اکتیو را گرفت بعد کرک میشه.

[xxxxx_xxxxx]

عنوان تاپيك : یک حرف انتخابي

موضوع تاپيك بعد از انحراف: سريال نامبر