منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب هام بخصوص كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : طلب هام بخصوص كود (/showthread.php?tid=8747)

الصفحات: 1 2

طلب هام بخصوص كود - samee119485r - 02-05-13

السلام عليكم ورحمة الله وبركاته

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

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

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


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

طلب هام بخصوص كود - samee119485r - 03-05-13

بانتظار الاجابه

طلب هام بخصوص كود - samee119485r - 05-05-13

لا زلت انتظر

طلب هام بخصوص كود - samee119485r - 06-05-13

يا اخوان انا لقيت برنامج مفتوح المصدر وفيه الكود الي بدي ياه

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

طلب هام بخصوص كود - VB_Coder - 06-05-13

السلام عليكم

- أدرج تكست بوكس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


طلب هام بخصوص كود - samee119485r - 06-05-13

وعليك السلام ورحمة الله وبركاته

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

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

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

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

طلب هام بخصوص كود - VB_Coder - 06-05-13

السلام عليكم

- الكود يعمل كما طلبت ماهي المشكلة .

طلب هام بخصوص كود - samee119485r - 06-05-13

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


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

وهكذا

طلب هام بخصوص كود - VB_Coder - 06-05-13

السلام عليكم

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

كود :
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


طلب هام بخصوص كود - samee119485r - 06-05-13

مشكور اخي وبارك الله فيك وفي علمك

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

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

والله لاأجد من الكلام ما وعبر به عن مدى شكري لك