Palindrome

Soyez le premier à donner votre avis sur cette source.

Vue 4 762 fois - Téléchargée 409 fois

Description

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
355
Date d'inscription
mercredi 13 avril 2011
Statut
Membre
Dernière intervention
15 juin 2019
9
Bon c'est bine mais,un compliqué tes codes j'ai aussi publier un palindrome en vb.Net
Messages postés
11
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
26 juin 2012

Esope reste et se repose
Esope reste ici et se repose
sont deux palindromes
Messages postés
1
Date d'inscription
lundi 11 juin 2007
Statut
Membre
Dernière intervention
23 janvier 2009

Oui, ou bien:
Engage le jeu que je le gagne
ou encore
Et la marine va, papa, venir à Malte (V. Hugo)
Messages postés
1
Date d'inscription
mercredi 15 novembre 2006
Statut
Membre
Dernière intervention
15 novembre 2006

il y a aussi des phrase palindromique comme: Trace l'inégal palindrome ne mord ni la plage ni l'écart.
Messages postés
155
Date d'inscription
mardi 7 août 2001
Statut
Membre
Dernière intervention
30 janvier 2008

Lol y fallait être con pour pas savoir c'était quoi lol
Afficher les 10 commentaires

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.