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

انا اسف ازعجتكم مع وبكثرت طلباتي سامحوني

اولا اشكر الاخ VB_Coder

على مساعدته لي.

وتمنى منه ومن العضاء التعديل على هاذا الكود


Private Sub Timer1_Timer()
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) Then
N = N + 1
Text1.Text = Mid$(SmallChars, I + 1, 1) & Mid$(SmallChars, N, 1)
Exit Sub
End If

If Z < Len(Numbers) Then
Z = Z + 1
Text1.Text = Mid$(SmallChars, I + 1, 1) & Mid$(Numbers, Z, 1)
Exit Sub
End If

If R < Len(Symbols) Then
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) Then
X = X + 1
Text1.Text = Mid$(CapitalChars, E + 1, 1) & Mid$(SmallChars, X, 1)
Exit Sub
End If

If M < Len(Numbers) Then
M = M + 1
Text1.Text = Mid$(CapitalChars, E + 1, 1) & Mid$(Numbers, M, 1)
Exit Sub
End If

If F < Len(Symbols) Then
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
End Sub

المطلوب:


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

وانا بدي يتعدل عليه بحيث كل ما يخلص توليد خانه يفتح خانه جديده
بالا نهايه
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- أعتقد أنك تريد عمل كود للتخمين . لذلك للمرور على جميع الإحتمالات . عدلت الكود السابق وأيضاً أضفت طلبك بأن يتم فتح خانه جديدة عند الإنتهاء من الإحتمالات . وتستطيع أن تضع او تحدد عدد الخانات الجديدة التي تفتح أو طول النص المعروض في التكست وذلك بإلغاء التي باللون الأخضر وذلك بإزالة علامة التنصيص المفرد التي قبل كل سطر أخضر .

- هذا الكود . وأيضاً في المرفقات مثال :

كود :
Dim aIndex() As Integer
Dim aCols As Integer
'Dim MaxCols As Integer


Private Sub Command1_Click()

Command1.Enabled = False
'MaxCols = 6
aCols = 1
ReDim Preserve aIndex(1 To 1) As Integer
aIndex(1) = 1
Timer1.Enabled = True

End Sub


Private Sub Timer1_Timer()

Dim aChars As String
Static I As Integer
Dim Str_PrevCols As String
Dim N, Z As Integer

aChars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890/+-*@#%&)_"

If I < Len(aChars) Then

   I = I + 1
   For N = 1 To aCols
       Str_PrevCols = Str_PrevCols & Mid$(aChars, aIndex(N), 1)
   Next
   Text1.Text = Str_PrevCols & Mid$(aChars, I, 1)
   Exit Sub
  
Else

   For N = aCols To 1 Step -1
  
       If aIndex(N) < Len(aChars) Then
      
          I = 0
          aIndex(N) = aIndex(N) + 1
          If N < aCols Then
             N = N + 1
             For Z = N To aCols
                 aIndex(Z) = 1
             Next
          End If
          Exit Sub
          
       Else
                    
          If N = 1 Then
            
             'هنا إذا أردت تحديد طول او عدد الخانات الجديدة التي سيتم فتحها
             'If aCols + 1 >= MaxCols Then
             '   Timer1.Enabled = False
             '   Command1.Enabled = True
             '   MsgBox "تم الإنتهاء من عمل الكود"
             '   Exit Sub
             'End If
            
             ReDim Preserve aIndex(1 To aCols + 1) As Integer
             aCols = aCols + 1
             For Z = 1 To aCols
                 aIndex(Z) = 1
             Next
             I = 0
             Exit Sub
          
          End If
          
       End If
      
   Next

End If

End Sub

- تحياتي .


الملفات المرفقة
.rar   Random_CharsArray.rar (الحجم : 1.92 ك ب / التحميلات : 17)
الرد }}}}
تم الشكر بواسطة:
#3
وعليك السلام ورحمة الله وبركاته

اخي الكريم والله ثم والله وبالله ليعجز الكلام عن وصف مدى شكري وأمتنناني وتقديري لك

نعم هاذا الذي اطلب بتمام.



شكرا لك والف شكر
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

- أهلا بك أخي العزيز ، شكراً لك .
- تحياتي .
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على الكود لو سمحتو يامعلمين.... amer2000 8 161 01-11-16, 09:50 AM
آخر رد: amer2000
Photo [سؤال] مشاكل فى برمجة مفاتيح بحث،تعديل محمد إبراهيم على حسن 0 82 18-08-16, 07:34 PM
آخر رد: محمد إبراهيم على حسن
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 786 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy
  تعديل كود تسجيل نقرات الكيبورد عبدالله الصافي 6 722 18-06-16, 12:44 PM
آخر رد: abulayth
  الرجاء مساعدتي في تعديل كود البحث بين تارخين Nader Hassan 6 1,031 29-12-15, 02:57 AM
آخر رد: awidan76
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 508 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
Wink [vb6.0] الرجاء مسااااااعدتي في طلب تمصميم فورم بسيط احمد ابو عيشه 1 352 05-04-15, 04:04 AM
آخر رد: Ahmed Gandos
  احتاج تعديل كود فجول بيسك 6 ابومحمد1979 3 395 31-03-15, 11:01 PM
آخر رد: abulayth
  [سؤال] الرجاء المساعدة فى كود بسيط جدا amrelgadaa 2 492 05-11-14, 09:40 AM
آخر رد: amrelgadaa
  الرجاء المساعدة فى تصحيح الكود king2512010 1 425 25-10-14, 11:49 PM
آخر رد: تركي الحلواني

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


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