تقييم الموضوع :
  • 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 ك ب / التحميلات : 22)
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 23)
الرد }}}}
تم الشكر بواسطة:
#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
مشكور اخي وبارك الله فيك وفي علمك

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile سؤال بخصوص تقسيم ساعات اليوم ارجوا المشاركه استايل 10 264 03-11-16, 11:54 PM
آخر رد: الاصيله
  [سؤال] بخصوص اللغة العربية في عمور2016 1 145 27-09-16, 08:29 AM
آخر رد: Ahmed_Mansoor
  مساعده بخصوص كود منع نسخ الملفات من الجهاز nablion 9 1,202 23-08-16, 03:11 PM
آخر رد: ltfe
Smile سؤال بخصوص قراءة العدد العشري ارجوا الدخول استايل 6 202 28-07-16, 11:51 PM
آخر رد: استايل
  [سؤال] استفسار بخصوص DataGrid ؟ ghareeb_hany 2 257 08-01-16, 10:04 PM
آخر رد: ghareeb_hany
Big Grin [سؤال] ســـؤال بخصوص معلومة ؟؟! :) AbdoSoliman 0 260 10-06-15, 05:52 PM
آخر رد: AbdoSoliman
  [سؤال] كود للتحقق من الإنترنت وسؤال بخصوص التحكم الإلكتروني . Hell Cell 2 500 29-01-15, 12:34 PM
آخر رد: Hell Cell
  سؤال محيرني بخصوص التفقيط للارقام abu jana 13 1,851 10-06-14, 05:18 PM
آخر رد: aiq4it
  طلب بخصوص البروكسي واليونسك samee119485r 5 510 18-07-13, 01:36 PM
آخر رد: samee119485r
  مساعدة بخصوص الفجوال بيسك والبركسي samee119485r 1 325 29-05-13, 11:54 AM
آخر رد: samee119485r

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


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