تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب هام بخصوص كود
#1
السلام عليكم ورحمة الله وبركاته

اخواني في الله اولا وحب ان اشكر كل العاميلين على هاذا المنتدى الذي صطع نوره واضاء ليلة وبرقة شمسه

ان تخدموني في كود لتوليد ارقام وحروف ورموز وان يكون بتسلسل

مثال على توليد الحروف اثناء تشغيل البرنامج


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
الرد }}}
تم الشكر بواسطة:
#2
بانتظار الاجابه
الرد }}}
تم الشكر بواسطة:
#3
لا زلت انتظر
الرد }}}
تم الشكر بواسطة:
#4
يا اخوان انا لقيت برنامج مفتوح المصدر وفيه الكود الي بدي ياه

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


الملفات المرفقة
.zip   NullAddFrontend.zip (الحجم : 15.19 ك ب / التحميلات : 40)
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم

- أدرج تكست بوكس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
الرد }}}
تم الشكر بواسطة:
#6
وعليك السلام ورحمة الله وبركاته

مشكور اخي الكريم وبارك الله فيك وعلى مساعدتك لي

اتمنى ان لا اكون ازعجتك معي

بس الكود الذي اعطيتني ياه مش راضي يزبط معي
وانا سوف ارفق لك المشروع لتعديل عليه

وجزاك الله الف خير


الملفات المرفقة
.rar   تعديل.rar (الحجم : 1.34 ك ب / التحميلات : 41)
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم

- الكود يعمل كما طلبت ماهي المشكلة .
الرد }}}
تم الشكر بواسطة:
#8
وعليك السلام
مشكووووووووووور اخي ولكن
الكود الذي اعطيتني اياه يولد بهذا الشكل في التكست بوكس


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

وهكذا
الرد }}}
تم الشكر بواسطة:
#9
السلام عليكم

- ضع هذا كود في التايمر :

كود :
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
الرد }}}
تم الشكر بواسطة:
#10
مشكور اخي وبارك الله فيك وفي علمك

وجزاك الله كل خير

نعم هاذا الكود الذي كنت ابحث عنه

والله لاأجد من الكلام ما وعبر به عن مدى شكري لك
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم