[samee119485r]

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

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

اولا اشكر الاخ 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

المطلوب:


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

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