Palindrome
Soyez le premier à donner votre avis sur cette source.
Vue 4 830 fois - Téléchargée 418 fois
Description
Permet de tester si une phrase ou un mot est un palindrome
Voyez le zip, j'ai utilisé des shape pour un rendu un peu plus design
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
Codes Sources
A voir également
- Palindrome
- Php palindrome - Guide
- Fonction palindrome javascript - Guide
- Palindrome c# - Guide
- Palindrome c++ - Guide
- C / C++ / C++.NET : Est-ce un palindrome ? (c++ builder 6) - CodeS SourceS - Guide
- Messages postés
-
355
- Date d'inscription
- mercredi 13 avril 2011
- Statut
- Membre
- Dernière intervention
- 15 juin 2019
10Esope reste ici et se repose
sont deux palindromes
Engage le jeu que je le gagne
ou encore
Et la marine va, papa, venir à Malte (V. Hugo)
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.