09-05-13, 08:03 PM
السلام عليكم ورحمة الله وبركاته
انا اسف ازعجتكم مع وبكثرت طلباتي سامحوني
اولا اشكر الاخ 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
المطلوب:
هاذا الكود يولد ارقام وحروف ورموز بتسلسل بس فيه مشكله انه بيضل يعيد على خانتين فقط :
وانا بدي يتعدل عليه بحيث كل ما يخلص توليد خانه يفتح خانه جديده
بالا نهايه
انا اسف ازعجتكم مع وبكثرت طلباتي سامحوني
اولا اشكر الاخ 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
المطلوب:
هاذا الكود يولد ارقام وحروف ورموز بتسلسل بس فيه مشكله انه بيضل يعيد على خانتين فقط :
وانا بدي يتعدل عليه بحيث كل ما يخلص توليد خانه يفتح خانه جديده
بالا نهايه