تكوين كلمات عشوائيه ؟ كيف

اطلب ارقام عشوائيه من 97 إلى 122 ومن ثم اعد ترتيب الاسكي الخاص بها

ممكن مثال :lol:

تفضل

Dim LL(1 To 5)
Dim M As Integer
Dim Word As String 'الكلمة العشوائية

' انشاءمصفوفة بالحروف المكونة للكلمات العشوائية
LL(1) = "B"
LL(2) = "A"
LL(3) = "S"
LL(4) = "I"
LL(5) = "C"
Randomize
WordQty = Int(Rnd() * 5) + 1 'عدد الحروف المكونة للكلمة العشوائية
Do Until Len(Word) = WordQty
M = Int(Rnd() * 5) + 1
If Word Like "*" & LL(M) & "*" Then GoTo 5 ' استبعاد الحروف فى حالة التكرار
Word = Word & LL(M)
5:
Loop
MsgBox Word

الأخ الكريم ، إذا كنت ترغب في إيجاد رقم عشوائي ما بين رقمين إليك الكود التالي :

N = Int((100 - 10 + 1) * Rnd + 10)

حيث الكود السابق يرتجع قيمة عشوائية ما بين 10 و 100 ، ويمكننا إيجاد رقم عشوائي ما بين 1 و 5 كما يلي :

N = Int((5 - 1 + 1) * Rnd + 1)

وبعد ذلك أنشأ متغير مصفوفة يحمل الكلمات العشوائية كما وضحها لك الأخ ( عبد الفتاح حسن )

شكراً

شكرااااااااااا تمام هذا المطوب

الله يوفقكم

في مشكله

انا استعملت كود الاخ عبد الفاتح الله يوفقه

بس كيف احدد اقل عددل للحرف الناشيئه انا جربت حسب فهمي للكود

بس كا ضبط يعني مثلا اقل عدد ممكن للحرف يكو3 واكثر عدد لها 7 اكثر عدد ضبط واضح بس الاقل كيف ؟

تفضل :

Dim LL(1 To 5)
Dim M As Integer
Dim Word As String 
Dim MinQty As Integer
Dim MaxQty As Integer
Dim WordQty As Integer
MinQty = 2
MaxQty = 4
LL(1) = "B"
LL(2) = "A"
LL(3) = "S"
LL(4) = "I"
LL(5) = "C"
4:
Randomize
WordQty = Int(Rnd() * 5) + 1
If WordQty < MinQty Then GoTo 4
Do Until Len(Word) = WordQty
M = Int(Rnd() * MaxQty) + 1
If Word Like "*" & LL(M) & "*" Then GoTo 5 '
Word = Word & LL(M)
5:
Loop
MsgBox Word

:salam:

اقتباس

N = Int((5 - 1 + 1) * Rnd + 1)

:S

n = Int(5 * Rnd + 1)

:yes:

:bye:

بعد 3 ضغطات تقريبا يتوقف البرنامج !!! حتى بعد التعديل ؟!؟

Dim LL(1 To 25)
Dim M As Integer
Dim Word As String
Dim MinQty As Integer
Dim MaxQty As Integer
Dim WordQty As Integer

MinQty = 2
MaxQty = 4
LL(1) = "a"
LL(2) = "b"
LL(3) = "c"
LL(4) = "d"
LL(5) = "e"
LL(6) = "f"
LL(7) = "g"
LL(8) = "h"
LL(9) = "i"
LL(10) = "j"
LL(11) = "k"
LL(12) = "l"
LL(13) = "m"
LL(14) = "n"
LL(15) = "o"
LL(16) = "p"
LL(17) = "q"
LL(18) = "r"
LL(19) = "s"
LL(20) = "t"
LL(21) = "u"
LL(21) = "v"
LL(22) = "w"
LL(23) = "x"
LL(24) = "y"
LL(25) = "z"
4:
Randomize
WordQty = Int(5 - 1 + 1) * Rnd + 1
If WordQty < MinQty Then GoTo 4
Do Until Len(Word) = WordQty
M = Int(Rnd() * MaxQty) + 1
If Word Like "*" & LL(M) & "*" Then GoTo 5 '
Word = Word & LL(M)
5:
Loop
Label1.Caption = Word

شكرا لك اخي

اخي الكريم :

ضع هذا الكود في المكان المناسب ويمكنك ان تضيف اي نوع من الحروف او الرموز او capital أو small حسب المزاج

Dim S As String
S = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
Dim myPassword
myPassword = ""
For i = 1 To 5
 Randomize
  l = Rnd * Len(S)

  myPassword = myPassword & (Mid(S, l, 1))

Next i
MsgBox myPassword

تحياتي

والله أفدتونا يا إخوان فجزاكم الله خيراً

دا كود امتنى انه يفيدك

'*TWO FUNCTION CREATED BY: VITALY*'
'*ALL OTHER CODE, AND COMMENTING BY: Ðark §oldier*'


'Code Edited & Corrected By Muhammed Elsayed A.Elhamid
' khabalan@hotmail.com


'variables
Dim strName As String
Dim strTemp As String

'get random consonant
Function C() As String
	'make possibilities
	Const Consonants = "aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ"
	'self explanitory
	Randomize
	'grab a random consonant
	C = Mid(Consonants, Int(Rnd * 21) + 1, 1)
End Function

Function V() As String
	'make possibilities
	Const gem = "505678266810958763274"
	'self explanitory
	Randomize
	'grab a random vowel
	V = Mid(gem, Int(Rnd * 6) + 1, 1)
End Function

'to generate
Private Sub Command1_Click()
	'define the string
	strName = text1.Text
	'set maximum length of the textbox, also meaning the length of word, or name.
	text1.MaxLength = Int(Rnd * 14)
	'force the name to be greater than 4 chars - optional, and easy to change
	If text1.MaxLength < 9 Then
	   text1.MaxLength = text1.MaxLength + 9
	End If
	'add to the string consonant, vowel, consonant, vowel, etc.
	strName = C & V & C & V & C & V & C & V & C & V & C
	'easy way to add capitol to the word
	strTemp = Right$(strName, Len(strName) - 1)
	'part of adding the capital, and also completing the word or name
	text1.Text = UCase(Left(strName, 1)) & strTemp
End Sub

الكود محتاج زرار و صندوق نص