المشاركات : 166
المواضيع 1
الإنتساب : Apr 2013
السمعة :
0
الشكر: 6
تم شكره 51 مرات في 12 مشاركات
السلام عليكم ورحمة الله وبركاته
اخواني في الله اولا وحب ان اشكر كل العاميلين على هاذا المنتدى الذي صطع نوره واضاء ليلة وبرقة شمسه
ان تخدموني في كود لتوليد ارقام وحروف ورموز وان يكون بتسلسل
مثال على توليد الحروف اثناء تشغيل البرنامج
aa
ab
ac
ad
ae
الى
az
a1
a2
a3
a4
a5
a6
a7
a8
a9
a9
a0
a/
a+
a-
a*
a@
a#
a%
a&
a(
a-
a_
Aa
Ab
Ac
Ad
الى
Az
A1
A2
A3
A4
A5
A6
A7
A8
A9
A0
A+
A-
A*
A/
A@
A#
A$
%
الا اخر الحروف الابجديه
فارجو منكم المساعدة والتوجيه
وللعلم رايت هاذا الكود في برنامج مصمم بلفجوال بيسك 6
المشاركات : 166
المواضيع 1
الإنتساب : Apr 2013
السمعة :
0
الشكر: 6
تم شكره 51 مرات في 12 مشاركات
المشاركات : 166
المواضيع 1
الإنتساب : Apr 2013
السمعة :
0
الشكر: 6
تم شكره 51 مرات في 12 مشاركات
المشاركات : 166
المواضيع 1
الإنتساب : Apr 2013
السمعة :
0
الشكر: 6
تم شكره 51 مرات في 12 مشاركات
يا اخوان انا لقيت برنامج مفتوح المصدر وفيه الكود الي بدي ياه
ويا ريت لو واحد يستخرجلي الكود ويحطه في مشروع جديد ويشبكه مع التايمر عشان يعد عداد التوليد في التكست بوكس
الملفات المرفقة
NullAddFrontend.zip (الحجم : 15.19 ك ب / التحميلات : 40)
المشاركات : 513
المواضيع 2
الإنتساب : Sep 2013
السمعة :
16
الشكر: 245
تم شكره 445 مرات في 172 مشاركات
السلام عليكم
- أدرج تكست بوكس1 وزر1 . ثم ضع هذا كود الزر :
كود :
Private Sub Command1_Click()
Dim SmallChars As String
Dim CapitalChars As String
Dim Numbers As String
Dim Symbols As String
Dim I,N As Integer
SmallChars = "abcdefghijklmnopqrstuvwxyz"
CapitalChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Numbers = "1234567890"
Symbols = "/+-*@#%&)_"
Text1.Text = ""
For I = 1 To Len(SmallChars)
For N = 1 To Len(SmallChars)
Text1.Text = Text1.Text & Mid$(SmallChars,I,1) & Mid$(SmallChars,N,1)
Next
For N = 1 To Len(Numbers)
Text1.Text = Text1.Text & Mid$(SmallChars,I,1) & Mid$(Numbers,N,1)
Next
For N = 1 To Len(Symbols)
Text1.Text = Text1.Text & Mid$(SmallChars,I,1) & Mid$(Symbols,N,1)
Next
Next
For I = 1 To Len(CapitalChars)
For N = 1 To Len(SmallChars)
Text1.Text = Text1.Text & Mid$(CapitalChars,I,1) & Mid$(SmallChars,N,1)
Next
For N = 1 To Len(Numbers)
Text1.Text = Text1.Text & Mid$(CapitalChars,I,1) & Mid$(Numbers,N,1)
Next
For N = 1 To Len(Symbols)
Text1.Text = Text1.Text & Mid$(CapitalChars,I,1) & Mid$(Symbols,N,1)
Next
Next
End Sub
المشاركات : 166
المواضيع 1
الإنتساب : Apr 2013
السمعة :
0
الشكر: 6
تم شكره 51 مرات في 12 مشاركات
06-05-13, 12:43 PM
(آخر تعديل لهذه المشاركة : 06-05-13, 03:36 PM {2} بواسطة moh_saed35 .)
وعليك السلام ورحمة الله وبركاته
مشكور اخي الكريم وبارك الله فيك وعلى مساعدتك لي
اتمنى ان لا اكون ازعجتك معي
بس الكود الذي اعطيتني ياه مش راضي يزبط معي
وانا سوف ارفق لك المشروع لتعديل عليه
وجزاك الله الف خير
الملفات المرفقة
تعديل.rar (الحجم : 1.34 ك ب / التحميلات : 41)
المشاركات : 513
المواضيع 2
الإنتساب : Sep 2013
السمعة :
16
الشكر: 245
تم شكره 445 مرات في 172 مشاركات
السلام عليكم
- الكود يعمل كما طلبت ماهي المشكلة .
المشاركات : 166
المواضيع 1
الإنتساب : Apr 2013
السمعة :
0
الشكر: 6
تم شكره 51 مرات في 12 مشاركات
06-05-13, 05:39 PM
(آخر تعديل لهذه المشاركة : 06-05-13, 05:41 PM {2} بواسطة moh_saed35 .)
وعليك السلام
مشكووووووووووور اخي ولكن
الكود الذي اعطيتني اياه يولد بهذا الشكل في التكست بوكس
aaabacadaeafagahaiajakalamanaoapaqarasatauavawaxayaza1a2a3a4a5a6a7a8a9a0a/a+a-a*a@a#a%a&a)a_babbbcbdbebfbgbhbibjbkblbmbnbobpbqbrbsbtbubvbwbxbybzb1b2b3b4b5b6b7b8b9b0b/b+b-b*b@b#b%b&b)b_cacbcccdcecfcgchcicjckclcmcncocpcqcrcsctcucvcwcxcyczc1c2c3c4c5c6c7c8c9c0c/c+c-c*c@c#c%c&c)c_dadbdcdddedfdgdhdidjdkdldmdndodpdqdrdsdtdudvdwdxdydzd1d2d3d4d5d6d7d8d9d0d/d+d-d*d@d#d%d&d)d_eaebecedeeefegeheiejekelemeneoepeqereseteuevewexeyeze1e2e3e4e5e6e7e8e9e0e/e+e-e*e@e#e%e&e)e_fafbfcfdfefffgfhfifjfkflfmfnfofpfqfrfsftfufvfwfxfyfzf1f2f3f4f5f6f7f8f9f0f/f+f-f*f@f#f%f&f)f_gagbgcgdgegfggghgigjgkglgmgngogpgqgrgsgtgugvgwgxgygzg1g2g3g4g5g6g7g8g9g0g/g+g-g*g@g#g%g&g)g_hahbhchdhehfhghhhihjhkhlhmhnhohphqhrhshthuhvhwhxhyhzh1h2h3h4h5h6h7h8h9h0h/h+h-h*h@h#h%h&h)h_iaibicidieifigihiiijikiliminioipiqirisitiuiviwixiyizi1i2i3i4i5i6i7i8i9i0i/i+i-i*i@i#i%i&i)i_jajbjcjdjejfjgjhjijjjkjljmjnjojpjqjrjsjtjujvjwjxjyjzj1j2j3j4j5j6j7j8j9j0j/j+j-j*j@j#j%j&j)j_kakbkckdkekfkgkhkikjkkklkmknkokpkqkrksktkukvkwkxkykzk1k2k3k4k5k6k7k8k9k0k/k+k-k*k@k#k%k&k)k_lalblcldlelflglhliljlklllmlnlolplqlrlsltlulvlwlxlylzl1l2l3l4l5l6l7l8l9l0l/l+l-l*l@l#l%l&l)l_mambmcmdmemfmgmhmimjmkmlmmmnmompmqmrmsmtmumvmwmxmymzm1m2m3m4m5m6m7m8m9m0m/m+m-m*m@m#m%m&m)m_nanbncndnenfngnhninjnknlnmnnnonpnqnrnsntnunvnwnxnynzn1n2n3n4n5n6n7n8n9n0n/n+n-n*n@n#n%n&n)n_oaobocodoeofogohoiojokolomonooopoqorosotouovowoxoyozo1o2o3o4o5o6o7o8o9o0o/o+o-o*o@o#o%o&o)o_papbpcpdpepfpgphpipjpkplpmpnpopppqprpsptpupvpwpxpypzp1p2p3p4p5p6p7p8p9p0p/p+p-p*p@p#p%p&p)p_qaqbqcqdqeqfqgqhqiqjqkqlqmqnqoqpqqqrqsqtquqvqwqxqyqzq1q2q3q4q5q6q7q8q9q0q/q+q-q*q@q#q%q&q)q_rarbrcrdrerfrgrhrirjrkrlrmrnrorprqrrrsrtrurvrwrxryrzr1r2r3r4r5r6r7r8r9r0r/r+r-r*r@r#r%r&r)r_sasbscsdsesfsgshsisjskslsmsnsospsqsrssstsusvswsxsyszs1s2s3s4s5s6s7s8s9s0s/s+s-s*s@s#s%s&s)s_tatbtctdtetftgthtitjtktltmtntotptqtrtstttutvtwtxtytzt1t2t3t4t5t6t7t8t9t0t/t+t-t*t@t#t%t&t)t_uaubucudueufuguhuiujukulumunuoupuqurusutuuuvuwuxuyuzu1u2u3u4u5u6u7u8u9u0u/u+u-u*u@u#u%u&u)u_vavbvcvdvevfvgvhvivjvkvlvmvnvovpvqvrvsvtvuvvvwvxvyvzv1v2v3v4v5v6v7v8v9v0v/v+v-v*v@v#v%v&v)v_wawbwcwdwewfwgwhwiwjwkwlwmwnwowpwqwrwswtwuwvwwwxwywzw1w2w3w4w5w6w7w8w9w0w/w+w-w*w@w#w%w&w)w_xaxbxcxdxexfxgxhxixjxkxlxmxnxoxpxqxrxsxtxuxvxwxxxyxzx1x2x3x4x5x6x7x8x9x0x/x+x-x*x@x#x%x&x)x_yaybycydyeyfygyhyiyjykylymynyoypyqyrysytyuyvywyxyyyzy1y2y3y4y5y6y7y8y9y0y/y+y-y*y@y#y%y&y)y_zazbzczdzezfzgzhzizjzkzlzmznzozpzqzrzsztzuzvzwzxzyzzz1z2z3z4z5z6z7z8z9z0z/z+z-z*z@z#z%z&z)z_AaAbAcAdAeAfAgAhAiAjAkAlAmAnAoApAqArAsAtAuAvAwAxAyAzA1A2A3A4A5A6A7A8A9A0A/A+A-A*A@A#A%A&A)A_BaBbBcBdBeBfBgBhBiBjBkBlBmBnBoBpBqBrBsBtBuBvBwBxByBzB1B2B3B4B5B6B7B8B9B0B/B+B-B*B@B#B%B&B)B_CaCbCcCdCeCfCgChCiCjCkClCmCnCoCpCqCrCsCtCuCvCwCxCyCzC1C2C3C4C5C6C7C8C9C0C/C+C-C*C@C#C%C&C)C_DaDbDcDdDeDfDgDhDiDjDkDlDmDnDoDpDqDrDsDtDuDvDwDxDyDzD1D2D3D4D5D6D7D8D9D0D/D+D-D*D@D#D%D&D)D_EaEbEcEdEeEfEgEhEiEjEkElEmEnEoEpEqErEsEtEuEvEwExEyEzE1E2E3E4E5E6E7E8E9E0E/E+E-E*E@E#E%E&E)E_FaFbFcFdFeFfFgFhFiFjFkFlFmFnFoFpFqFrFsFtFuFvFwFxFyFzF1F2F3F4F5F6F7F8F9F0F/F+F-F*F@F#F%F&F)F_GaGbGcGdGeGfGgGhGiGjGkGlGmGnGoGpGqGrGsGtGuGvGwGxGyGzG1G2G3G4G5G6G7G8G9G0G/G+G-G*G@G#G%G&G)G_HaHbHcHdHeHfHgHhHiHjHkHlHmHnHoHpHqHrHsHtHuHvHwHxHyHzH1H2H3H4H5H6H7H8H9H0H/H+H-H*H@H#H%H&H)H_IaIbIcIdIeIfIgIhIiIjIkIlImInIoIpIqIrIsItIuIvIwIxIyIzI1I2I3I4I5I6I7I8I9I0I/I+I-I*I@I#I%I&I)I_JaJbJcJdJeJfJgJhJiJjJkJlJmJnJoJpJqJrJsJtJuJvJwJxJyJzJ1J2J3J4J5J6J7J8J9J0J/J+J-J*J@J#J%J&J)J_KaKbKcKdKeKfKgKhKiKjKkKlKmKnKoKpKqKrKsKtKuKvKwKxKyKzK1K2K3K4K5K6K7K8K9K0K/K+K-K*K@K#K%K&K)K_LaLbLcLdLeLfLgLhLiLjLkLlLmLnLoLpLqLrLsLtLuLvLwLxLyLzL1L2L3L4L5L6L7L8L9L0L/L+L-L*L@L#L%L&L)
وانا اريد الكود يبدأ بالتسلسل في التكست بوكس مثال يبدء
a
وتختفي
وتضهر
b
c
e
d
وهكذا
المشاركات : 513
المواضيع 2
الإنتساب : Sep 2013
السمعة :
16
الشكر: 245
تم شكره 445 مرات في 172 مشاركات
السلام عليكم
- ضع هذا كود في التايمر :
كود :
Dim SmallChars As String
Dim CapitalChars As String
Dim Numbers As String
Dim Symbols As String
Static I,N,Z,R,E,X,M,F As Integer
SmallChars = "abcdefghijklmnopqrstuvwxyz"
CapitalChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Numbers = "1234567890"
Symbols = "/+-*@#%&)_"
IF I < Len(SmallChars) Then
IF N < Len(SmallChars)
N = N + 1
Text1.Text = Mid$(SmallChars,I + 1,1) & Mid$(SmallChars,N,1)
Exit Sub
End IF
IF Z < Len(Numbers)
Z = Z + 1
Text1.Text = Mid$(SmallChars,I + 1,1) & Mid$(Numbers,Z,1)
Exit Sub
End IF
IF R < Len(Symbols)
R = R + 1
Text1.Text = Mid$(SmallChars,I + 1,1) & Mid$(Symbols,R,1)
Exit Sub
Else
N =0
Z = 0
R = 0
I = I + 1
Exit Sub
End IF
End IF
IF E < Len(CapitalChars) Then
IF X < Len(SmallChars)
X = X + 1
Text1.Text = Mid$(CapitalChars,E + 1,1) & Mid$(SmallChars,X,1)
Exit Sub
End IF
IF M < Len(Numbers)
M = M + 1
Text1.Text = Mid$(CapitalChars,E + 1,1) & Mid$(Numbers,M,1)
Exit Sub
End IF
IF F < Len(Symbols)
F = F + 1
Text1.Text = Mid$(CapitalChars,E + 1,1) & Mid$(Symbols,F,1)
Exit Sub
Else
X =0
M = 0
F = 0
E = E + 1
Exit Sub
End IF
Else
I = 0
E = 0
Exit Sub
End IF
المشاركات : 166
المواضيع 1
الإنتساب : Apr 2013
السمعة :
0
الشكر: 6
تم شكره 51 مرات في 12 مشاركات
مشكور اخي وبارك الله فيك وفي علمك
وجزاك الله كل خير
نعم هاذا الكود الذي كنت ابحث عنه
والله لاأجد من الكلام ما وعبر به عن مدى شكري لك