(23-02-17, 03:57 PM)abulayth كتب : السلام عليكم
اخي الكريم انا عن نفسي لم افهم المطلوب ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
يعطيك العافية
اولا شكرا على ردك وردة
اخي انا اريد اعمل برنامج صنع يوزرات
مثلا اختار احرف abcd
تظهر جميع اليوزرات بالاحرف هذا مثل
مثل هذا يعني
PHP كود :
aaaa
aaab
aaac
aaad
aaba
aabb
aabc
aabd
aaca
aacb
aacc
aacd
aada
aadb
aadc
aadd
abaa
abab
abac
abad
abba
abbb
abbc
abbd
abca
abcb
abcc
abcd
abda
abdb
abdc
abdd
acaa
acab
acac
acad
acba
acbb
acbc
acbd
acca
accb
accc
accd
acda
acdb
acdc
acdd
adaa
adab
adac
adad
adba
adbb
adbc
adbd
adca
adcb
adcc
adcd
adda
addb
addc
addd
baaa
baab
baac
baad
baba
babb
babc
babd
baca
bacb
bacc
bacd
bada
badb
badc
badd
bbaa
bbab
bbac
bbad
bbba
bbbb
bbbc
bbbd
bbca
bbcb
bbcc
bbcd
bbda
bbdb
bbdc
bbdd
bcaa
bcab
bcac
bcad
bcba
bcbb
bcbc
bcbd
bcca
bccb
bccc
bccd
bcda
bcdb
bcdc
bcdd
bdaa
bdab
bdac
bdad
bdba
bdbb
bdbc
bdbd
bdca
bdcb
bdcc
bdcd
bdda
bddb
bddc
bddd
caaa
caab
caac
caad
caba
cabb
cabc
cabd
caca
cacb
cacc
cacd
cada
cadb
cadc
cadd
cbaa
cbab
cbac
cbad
cbba
cbbb
cbbc
cbbd
cbca
cbcb
cbcc
cbcd
cbda
cbdb
cbdc
cbdd
ccaa
ccab
ccac
ccad
ccba
ccbb
ccbc
ccbd
ccca
cccb
cccc
cccd
ccda
ccdb
ccdc
ccdd
cdaa
cdab
cdac
cdad
cdba
cdbb
cdbc
cdbd
cdca
cdcb
cdcc
cdcd
cdda
cddb
cddc
cddd
daaa
daab
daac
daad
daba
dabb
dabc
dabd
daca
dacb
dacc
dacd
dada
dadb
dadc
dadd
dbaa
dbab
dbac
dbad
dbba
dbbb
dbbc
dbbd
dbca
dbcb
dbcc
dbcd
dbda
dbdb
dbdc
dbdd
dcaa
dcab
dcac
dcad
dcba
dcbb
dcbc
dcbd
dcca
dccb
dccc
dccd
dcda
dcdb
dcdc
dcdd
ddaa
ddab
ddac
ddad
ddba
ddbb
ddbc
ddbd
ddca
ddcb
ddcc
ddcd
ddda
dddb
dddc
dddd
(23-02-17, 04:07 PM)sendbad100 كتب : وعليكم السلام
اذا كان المطلوب تعديل على الفاكنشن اعمل مشروع صغير يحيوي الفاكنشن ووضح المطلوب
وربك يسهل
وضحت الطلب فوق
و هذا المشروع
بس هذا يظهر يوزر واحد فقط
تقدر تجرب و تشوف و انا بدي تظهر جميع اليوزرات او من عدد من اختياري
كود :
Public Class Form1
Public Function rada(ByVal iasa As Integer) As String
Dim asa As New System.Text.StringBuilder
Dim chars() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "g", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "v", "w", "x", "y", "z", "1", ".", "2", "3", "4", "5", "6", "7", "8", "9", "_", "."}
Dim ubberbound As Integer = UBound(chars)
For x As Integer = 1 To iasa
asa.Append(chars(Int(Rnd() * ubberbound)))
Next
Return asa.ToString
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim reasasa As String
reasasa = rada(TextBox2.Text)
TextBox1.Text = reasasa
End Sub
End Class