Permet de tester si une phrase ou un mot est un palindrome
Source / Exemple :
Private Sub Command1_Click()
Dim a$, i%
Dim boo As Boolean
a$ = Trim(UCase(Text1.Text))
If Len(a$) > 0 Then
boo = True
For i% = 1 To Len(a$) / 2
If Mid$(a$, i%, 1) <> Mid$(a$, Len(a$) + 1 - i%, 1) Then
boo = False
End If
Next i%
If boo Then
Shape1.FillColor = &HFF00&
Label2.Caption = "C'est un palindrome"
Else
Shape1.FillColor = &HFF&
Label2.Caption = "Ce n'est pas un palindrome"
End If
Else
Shape1.FillColor = 0
End If
End Sub
Conclusion :
Voyez le zip, j'ai utilisé des shape pour un rendu un peu plus design
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.