تقييم الموضوع :
  • 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
مشكور اخي وبارك الله فيك وفي علمك

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص list1 amer2000 1 27 منذ 4 ساعة مضت
آخر رد: amer2000
  [سؤال] بخصوص تثبيت الفيجوال بيسك6 عمور2016 5 142 18-01-17, 11:21 AM
آخر رد: Ashraf Elafify
Smile سؤال بخصوص تقسيم ساعات اليوم ارجوا المشاركه استايل 10 410 03-11-16, 11:54 PM
آخر رد: الاصيله
  [سؤال] بخصوص اللغة العربية في عمور2016 1 210 27-09-16, 08:29 AM
آخر رد: Ahmed_Mansoor
  مساعده بخصوص كود منع نسخ الملفات من الجهاز nablion 9 1,391 23-08-16, 03:11 PM
آخر رد: ltfe
Smile سؤال بخصوص قراءة العدد العشري ارجوا الدخول استايل 6 299 28-07-16, 11:51 PM
آخر رد: استايل
  [سؤال] استفسار بخصوص DataGrid ؟ ghareeb_hany 2 322 08-01-16, 10:04 PM
آخر رد: ghareeb_hany
Big Grin [سؤال] ســـؤال بخصوص معلومة ؟؟! :) AbdoSoliman 0 305 10-06-15, 05:52 PM
آخر رد: AbdoSoliman
  [سؤال] كود للتحقق من الإنترنت وسؤال بخصوص التحكم الإلكتروني . Hell Cell 2 572 29-01-15, 12:34 PM
آخر رد: Hell Cell
  سؤال محيرني بخصوص التفقيط للارقام abu jana 13 2,032 10-06-14, 05:18 PM
آخر رد: aiq4it

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


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