06-05-13, 08:39 PM
السلام عليكم
- ضع هذا كود في التايمر :
- ضع هذا كود في التايمر :
كود :
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
