palindrome en vb5 Résolu/Fermé

Question

Bonjour, 
Je dois présenter à mon prof d'info un programme en vb5 sur les palindromes.
Je n'arrive pas à trouver de solution a ce problème.
N'étant pas un expert en la matière, .... aidez moi :p
Le but de ce programme est de marquer une phrase avec des accents et des espaces .
ex :  Noël a trop par rapport à Léon ou encore Élu par cette crapule ....
Et ensuite me dire si c est un palindrome ou non.

Merci d'avance.

Ps: pouvez vous mettre les explication en même merci.

voici ce que j ai commencé : 

Private Sub Command1_Click()
Dim I As Integer
Dim Texte As String

Textmaj = UCase(Text1.Text)

For I = Len(Textmaj) To 1 Step -1
Texte = Texte & Mid(Textmaj, I, 1)
Next


If Texte = " " Then
Texte = Mid(Textmaj, I + 1, 1)
End If


If Textmaj = "" Then
MsgBox "Entrer un mot ou phrase ! ", vbOKOnly, "Attention"
End If
If Textmaj = Texte Then
Label2.Caption = " est un palindrome"
Else
Label2.Caption = " n'est pas un palindrome"
End If
End Sub

Private Sub Command2_Click()
For Each XFrm In Forms
    Unload XFrm
Next XFrm
End Sub


il y a 2 bouttons ( un pour enter et un pour quitter programme) , 2 labels et un textbox




Configuration: Windows 7 / Internet Explorer 9.0

lermite222 · Answer

Bonjour, 
Pour un prochain exercice essaye de faire les test dans le bon ordre, par exemple tu teste si le texte est vide APRES TRAITEMENT, faut faire ça AVANT... 
Je n'ai plus que le VB6, j'ai essayé de n'employer que des fonctions qui faisaient déjà partie de la panoplie des fonctions des versions précédentes. 
Si ce n'est pas le cas tu dis ont les remplaceras. 
Le code complet pour tes deux boutons... 

Option Explicit 

Private Sub Command1_Click() 
Dim i As Integer 
Dim Txt As String 
Dim TxtR As String 
    If Text1 = "" Then 
        MsgBox "vous devez entrer une mot ou une phrase dans la saisie." 
        Text1.SetFocus 
        Exit Sub 
    End If 
    'Enlève les espaces pour avoir tout en un seul mot 
    Txt = Replace(Text1.Text, " ", "") 
     
    'retourner le mot 
    For i = Len(Txt) To 1 Step -1 
        TxtR = TxtR & Mid(Txt, i, 1) 
    Next 

    'Détection du palindrome 
    For i = 1 To Len(Txt) 
        If Mid(Txt, i, 1) <> Mid(TxtR, Len(Txt) - i + 1, 1) Then Exit For 
    Next i 


    If i > Len(Txt) Then 
        Label2.Caption = "C'est un palindrome" 
    Else 
        Label2.Caption = "Ce n'est pas un palindrome" 
    End If 
End Sub 

Private Sub Command2_Click() 
    Unload Me 
End Sub
Par contre.. 
Le but de ce programme est de marquer une phrase avec des accents et des espaces   
Ça je n'ai pas compris. 
A+ 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

quentin1811 · Answer

Merci.
En fait, on note une phrase et le programme va la transformer par
suppression des espaces et de tous accents présents.

quentin1811 · Answer

J' ai essayé :

Private Sub Command1_Click() 
Dim txt As String
Dim i As Integer

If Text1.Text = "" Then 
    MsgBox "Entrer un mot ou phrase ! ", vbOKOnly, "Attention" 
End If

txt = Text1.Text 
For i = 1 To Len(txt)
    If Mid(txt, i, 1) = " " Then
        txt = Left(txt, i - 1) & Right(txt, Len(txt) - i)
    End If
Next i

txt = UCase(txt)

If txt = JeRenverseMonString(txt) Then
   Label2.Caption = " est un palindrome" 
Else 
    Label2.Caption = " n'est pas un palindrome" 
End If
End Sub

Function JeRenverseMonString(Byval StrTxt As String) As String
For i = Len(StrTxt) To 1 Step -1
    JeRenverseMonString = JeRenverseMonString & Mid(StrTxt, i, 1)
Next
end Function


Et lorsque je tape ma phrase, il m'affiche que ce n' est pas un palindrome alors qque oui .

La phrase était : La mère Gide digère mal

lermite222 · Answer

Re,
Avec le code ci-dessous (et le premier aussi) pas besoin d'enlever les accents pour vérifier si c'est un palindrome, que ce soit un mot ou une phrase.
Private Sub Command1_Click()
Dim i As Integer
Dim Txt As String
Dim TxtR As String
    If Text1 = "" Then
        MsgBox "vous devez entrer une mot ou une phrase dans la saisie."
        Text1.SetFocus
        Exit Sub
    End If
    'Enlève les espaces pour avoir tout en un seul mot
    Txt = Trim(Text1.Text)
    For i = 1 To Len(Txt)
        If Mid(Txt, i, 1) = " " Then
            Txt = Left(Txt, i - 1) & Mid(Txt, i + 1)
        End If
    Next i
    'retourner le mot
    For i = Len(Txt) To 1 Step -1
        TxtR = TxtR & Mid(Txt, i, 1)
    Next

    'Détection du palindrome
    For i = 1 To Len(Txt)
        If Mid(Txt, i, 1) <> Mid(TxtR, Len(Txt) - i + 1, 1) Then Exit For
    Next i


    If i > Len(Txt) Then
        Label2.Caption = "C'est un palindrome"
    Else
        Label2.Caption = "Ce n'est pas un palindrome"
    End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub
A+

quentin1811 · Answer

Ca marche youppiie un grand merci.
J'aurais une denière petite question :
je ne comprends pas trop les chiffres avec la fonction pour enlever les caractères

lermite222 · Answer

Content... que tu soit content :-))
Pour ta question voir ici
A+

quentin1811 · Answer

bonsoir, 

J' ai consulté le lien que tu avais marqué sur les codes ASCII. 
Mais cela ne m'a pas trop "éclairci la tête". 
Pourrais tu me l'expliquer à l'aider d'un des cases de mon programme. 

Case 192 To 196: Lettre = "A" 
Case 224 To 229: Lettre = "a" 
Case 199: Lettre = "C" 
Case 231: Lettre = "c" 
Case 200 To 203: Lettre = "E" 
Case 232 To 235: Lettre = "e" 
Case 204 To 207: Lettre = "I" 
Case 236 To 239: Lettre = "i" 
Case 209: Lettre = "N" 
Case 241: Lettre = "n" 
Case 210 To 214: Lettre = "O" 
Case 242 To 246: Lettre = "o" 
Case 217 To 220: Lettre = "U" 
Case 249 To 252: Lettre = "u" 
Case 221 To 255: Lettre = "Y" 

Merci et joyeuses fêtes

lermite222 · Answer

Je ne vois pas bien comment je pourrais expliquer mieux, enfin bon, je vais essayer.
Chaque lettre a un code, par exemple A à le code 65 quelque soit l'affichage de la police l'aspect sera différent mais ce sera toujours un A.
En partant de ce principe, le code ASCII de A étant 65 quelque soit sont affichage il serra toujours déterminer par le code 65 et 65+32 pour la lettre majuscule soit "a"
Il découle que les lettres À;Á;Â;Ã;Ä;Å; ont respectivement les codes ASCII 192, 193,194 etc..
En détectant ces codes il devient évident que leur remplacement par la lettre A  (code 65) ne pose plus de difficulté d'ou le test
    Case 192 To 196: Lettre = "A" 
Si le code détecter est compris entre 192 et 196 c'est que c'est un A avec un accent quelconque le remplacer par le code 65 soit "A" devient évident.
Si quelqu'un peu mieux cerner la question je lui demanderait d'intervenir.
A+

Palindrome en vb5

8 réponses

Discussions similaires