Problème avec Si...Alors...Sinon [Résolu]

Bonjour,
Alors voilà, je voudrais afficher un message selon un nombre points que la personne a obtenue. Je m'explique :
Un nombre est affiché, par exemple : 8. C'est le nombre de points qu'a accumulé la personne auparavant.
Et c'est avec ces points qu'on peut acheter (virtuellement) ou voir un texte qui dévoile un secret. Un bouton est créer : Acheter un texte. Sâchant qu'il faut 3 points pour en acheter un. J'espère que vous comprenez pour l'instant !
Lorsque l'utilisateur clique sur le bouton, un message apparait en lui disant si il veut être sûr de son achat. (Si il a 0pts, le message affiche : Vous n'avez pas assez de pts, vous avez aucun point; Si il a 1pt, le message affiche : Vous n'avez pas assez de pts, vous avez 1 point; Si il a 2pts, le message affiche : Vous n'avez pas assez de pts, vous avez 2 points. Et à partir de 3, le message affiche : Le texte coûte 3 points et vous avez XX points. Après l'achat il vous restera XX points. Êtes-vous sûr ?). Et je voudrais que le message change en fonction du nombre de points. (Et je veux que le mot "point" est un "S" au bout lorsque l'utilisateur a au moins 2 points (ça s'appelle le "Pluriel" ).

J'ai donc fait ces fonctions :
Évènement : Lorsque l'utilisateur clique sur le bouton "Acheter un texte" :

- Obtenir la propriété texte de "Label_Points" (l'étiquette qui affiche le nombre de points) et l'attribuer à la variable "Pts" (la variable recevant le nombre de points).

- Si la variable "Pts" <= (est inférieure ou égale à) 2, alors :
    { - Si la variable "Pts" = 0, alors :
         { - Afficher un message : Vous n'avez aucun point.
                                     SINON
           - Si la variable "Pts" = 1, alors :
              { - Afficher un message : Vous avez que 1 point.
                                     SINON
                - Afficher un message : Vous avez que 2 points. }(Forcément, puisque si c'est inférieur ou égal à 2, il ne peut avoir que les valeur 0, 1 & 2.)
                                                                                  }
                                         SINON
          - Faire le calcul : %(VARAIBLE=Pts)% (Variable "Pts" moins 3) et donner le résultat à la variable "Pts_apres_achat".
         
          - Afficher un message : Vous avez %(VARIABLE=Pts)% points. Un texte coûte 3 points. Après l'achat, il vous restera %(VARIABLE=Pts_apres_achat)% point(s).Êtes-vous sûr ?
            (Boutons : OUI - NON). Attribuer le résultat (sur quel bouton cliquera l'utilisateur) à la variable "valeur_message".

          - Si la variable "Valeur_message" = Yes, alors :
            { - Modifier la propriété de "Label_Points" par %(VARIABLE=Pts_apres_achat)%
   
              - Modifier la propriété texte de "TextBox_Secret" (La TextBox vide qui attend l'achat de l'utilisateur si il a envies.) par  "Un exemple de texte à placer dans la TextBox". }
                                                                                                                                                                                                                                                               }

Mais vous aurez sûrement deviner, cela ne fonctionne pas comme prévu ! J'ai modifier plusieurs fois la valeur de "Label_Points" dans l'éditeur pour voir comment réagirais les messages et voici quelques exemples :

Avec 0 : "Vous avez 0 point(s). Un texte coûte 3 points. Après l'achat, il vous restera -3 points. Êtes-vous sûr ?" ----> Cela ne fonctionne pas, bizarre
Avec 1 : "Vous avez 1 point(s). Un texte coûte 3 points. Après l'achat, il vous restera -2 points. Êtes-vous sûr ?" ----> Cela ne fonctionne pas non plus
Avec 2 : "Vous avez 2 point(s). Un texte coûte 3 points. Après l'achat, il vous restera -1 points. Êtes-vous sûr ?" ----> Cela ne fonctionne toujours pas
Avec tous les autres nombres : "Vous avez X points. Un texte coûte 3 points. Après l'achat, il vous restera X points. Êtes-vous sûr ?" ----> Ca fonctionne

C'est très bizarre et je ne comprend pas pourquoi cela se passe comme ceci. Bien sûr, après la modification du texte de "TextBox_Secret", j'ai mis plusieurs autres fonctions comme enregistrer le nombre de points qu'il reste dans un dossier puis l'encrypter. Puis dans l'évènement From_Load (lorsque la fenêtre s'ouvre), j'ai mis de décrypter le fichier, lire le fichier texte décrypter puis mettre sa valeur à la place de "Label_Points" (en passant par une autre variable).

Voilà et j'espère que vous aurez tout compris ;)et que vous pourrez m'aider. Merci.

~ SZ_Débutant ~

re,

Moi je ferais :

Si VarPts = 0 alors
msg pas de pts
sinon
si VarPts < 3 alors
msg pts = VarPts
sinon ( c'est forcément >= 3)
calcul simple
msg .....

Met une capture d'écran stp ... c'est plus pratique qu'un schémas !

Merci

Cordialement ,
Le réparateur de PC

Ok, voici les capture mais avant, si dans le bloc VarPts < 3, et que je met un message comme : "Vous n'avez que %(VARIABLE=Pts)% points.", si l'utilisateur a 1 point, cela affichera le message : "Vous n'avez que 1 points." avec un "S" au bout de point. Ou vice-et-versa si j'enlève le "S" dans le message mais avec 2, ça ne fonctionne plus.
Voilà l'image du bloc 'Si "Pts" <= 2, alors...' (la variable "Pts", ici, est remplacé par "ptsdanslafentre" qui ne veux rien dire ^^). J'espère que sa pourrait être utile.
~ SZ_Débutant ~

EDIT : Je vient de faire ce que tu vient de me dire, lereparateurdepc. Maintenant lorsque les valeurs sont entre 0 et 9, cela fonctionne mais maintenant, lorsque la vlaur est égal ou dépasse 10, ce message apparait : " Vous n'avez pas assez de points. Vous n'avez que 11 points.". Encore plus bizarre, ceci ! Ca coûte 3 points et pourtant, j'ai mis 11.

Je ne sais pas bcp sur la programmation des logiciel mais je sais que s'il y'a bcp des instruction a faire il y aura osi bcp des fautes  .

Si j'étais a ta place je ferais:

si varPts<3
 msg (vous n'avez que varPts  points)


sinon si varPts >=3
 le msg et le petit calcul.


Je crois que c'est un plus simple pour moi  

Bonjour,
J'ai fait ce que tu m'a dit, Lyor-Pac :
Si VarPts < 3 ALORS Message : Vous avez que VarPts point(s).
                   SINON
                           Calcul, message, etc...

Cela focntionne bien mais toujours pas pour les nombres 10 et supérieur. C'est comme si pour SZ, les nombres 10, 11, 12, 13... étaient plus petit que 3 !  
Dois-je réinstaller SZ car il bug ou dois-je faire autrement ?
Merci,


~ SZ_Débutant ~

J'ai compris mais c'est les blocs de "Si...Alors...Sinon" qui me gène. Est-ce qu'il y a des blocs où je dois cocher "Sinon" ? Si oui, lesquels ?  Je vais essayer ton schéma et je te redit ça, après. Je pense qu'il va fonctionner mais on va voir.
Merci encore,
~ SZ_Débutant ~

Peux-tu récapituler en faisant des blocs avec des { } en couleur, comme j'avais fait ans mon premier message. Je m'y retrouverais mieux, je pense. Et dit bien, s'il te plait, les SINON s'y il en a.
~ SZ_Débutant ~

re,

Ou affiché façon SZ:

Si Pts = 0 Alors a écrit:
-Afficher un message : "Vous n'avez aucun point"

Si Pts > 0 Alors a écrit:

Si Pts = 1 Alors a écrit:
-Afficher un message : "Vous n'avez que %(VARIABLE=Pts)% point"

Si Pts > 1 Alors a écrit:

Si Pts < 3 Alors a écrit:
-Afficher un message: "Vous n'avez que %(VARIABLE=Pts)% point"

Si Pts > 2 Alors a écrit:
-Afficher un message + Cacul

S'est un bon algo (il ne risque pas d'y avoir d'erreur en tout cas )

ON peut faire une boucle si tu veux, mais là tu dois ajouter des nouveaux variable comme pts_de_text.

et faire ceci:

Tant que pts    msg"Vous n'avez pas assez de point(s)"

Si pts>pts_de_text
  msg+calcul 


Je crois que la nouvelle variable réduira le taux des erreurs du logiciel 

Re,
Merci Polien mais cela ne fonctionne toujours pas : les nombres 10 et au dessus affiche toujours : "Vous n'avez pas assez point. Vous avec 10 points."  
Sinon, Lyro-Pac, je n'ai pas trop compris ce que je devais faire.

~ SZ_Débutant ~

re,

J'ai remarque pas mal de vois que les nombres 10, 20, 30 ont places juste après le 1, 2, 3.

Je vais faire un test sous VB mais peut-être pour demain ..... ou depied


EDIT : Le code VB qui suit est la transcription quasi exacte de Polien :

Code:

Public Class Form1

    Dim VarPts As Integer

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If VarPts = 0 Then
            MsgBox("Aucun points")
        Else
            If VarPts = 1 Then
                MsgBox("Vous avez que : " & VarPts & " point")
            Else
                If VarPts > 1 Then
                    If VarPts < 3 Then
                        MsgBox("Vous avez que : " & VarPts & " points")
                    End If
                    If VarPts > 2 Then
                        MsgBox("> 2 calcul")
                    End If
                End If
            End If
        End If
    End Sub

    Private Sub NumericUpDown1_ValueChanged(sender As System.Object, e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        VarPts = NumericUpDown1.Value
    End Sub
End Class

Pour incrémenter les pts, j'utilise un NumericUpDownBox.

Cordialement ,
Le réparateur de PC

(j'ai juste adapté l'algo de JHPC Software au format forum XD )
sinon, SZ_Débutant met des messages qui affichent la valeur de la variable Pts dans chaque condition (action afficher un message)

Salut,

polien a écrit:sinon, SZ_Débutant met des messages qui affichent la valeur de la variable Pts dans chaque condition (action afficher un message)

Comment ça ? Je n'ai pas très bien piger, là.

Sinon, lereparateurdepc, je ne préfère pas mettre de code (surtout pas celui que tu viens de me donner) car j'ai peur de faire des erreurs en modifiant car les noms des variables que j'utilise n'ont pas les mêmes noms que ceux que j'ai donner ici, sur le forum. C'était juste faciliter. Mais si le code veut dire la même chose que je fait, ça ne sert à rien de mettre, non ?

Mais ce que je ne comprends pas, c'est que SZ inclus les nombres à partir de 10 sous 3, c'est bizarre. C'est SZ qui bug ?

~ SZ_Débutant ~

En gros, essaie de déterminer vers où sa coince précisément en mettant des messages qui contiennent la valeur actuelle de la variable Pts

Bonne idée ! Je vais essayer ça mais demain car là je suis occupé à autre chose. Je n'y avais pas pensée.

Merci,
~ SZ_Débutant ~

re,

Le code fonctionne super bien, c'est pour ça que je le met mais principalement pour ceux qui souhaite le retranscrire en SZ ..... je n'ai pas le temps ce soir désolé.

Cordialement ,
Le réparateur de PC

Bonjour tout le monde,
Ce matin j'ai créer un nouveau bouton pour faire les tests que polien avait demander (j'ai créer un nouveau bouton pour pas supprimer les fonctions de l'autre bouton). Dans l'action Click de ce bouton, j'ai mis "Obtenir la propriété Text du Label contenant les nombre de points et la mettre dans la variable "Pts".
Et après cette fonction, j'en ai ajouté une que j'ai modifié plusieurs fois :

- Si VarPts = 10 ALORS... Affiche mess : "C'est égal à 10".
   J'ai mis le nombre 10 et ça a afficher le message comme prévu ! Cool
   J'ai mis le nombre 11 et ça n'a pas afficher le message ! Normal car 11 vaut pas 10.

- Si VarPts > 3 ALORS... Affiche mess : "C'est plus grand que 3".
   J'ai mis le nombre 10 et ça n'a pas afficher le message. 1ère erreur
   J'ai mis le nombre 11 et ça n'a pas afficher le message. 2e erreur
    J'ai mis le nombre 1 et ça n'a pas afficher le message. Normal.

- Si VarPts > 9 ALORS... Affiche mess : "C'est plus grand que 9".
   J'ai mis le nombre 11 et ça n'a pas afficher le message. 3e erreur
   J'ai mis le nombre 4 et ça n'a pas afficher le message. Normal.

- Si VarPts <> (différent) de 10 ALORS... Affiche mess : "C'est différent de 10".
  J'ai mis le nombre 1 et ça a afficher le message. Normal, 1 est différent de 10.
  J'ai mis le nombre 10 et ça n'a pas afficher le message. Normal.
  J'ai mis le nombre 11 et ça a afficher le message comme prévu !

- Si VarPts < 0 ALORS... Affiche mess : "C'est un nombre négatif !".
  J'ai mis le nombre 11 et ça n'a pas afficher le message. Toujours aussi normal.
  J'ai mis le nombre 10 et ça n'a pas afficher le message. NOR-MAL
  J'ai mis le nombre 0 et ça n'a pas afficher le message. Normal encore.

- Si VarPts > 1 ALORS... Affiche mess : "C'est plus grand que 1".
  J'ai mis le nombre 10 et ça a afficher le message. Normal (neuvième fois que je le dit )

-Si VarPts > 2 ALORS... Affiche mess : "Plus grand que 2".
 J'ai mis le nombre 10 et ça n'a pas afficher le message. 4e erreur

Si je comprend, 10 est entre 1 et 2 ? C'est ça ?

- Si VarPts > 1,99 ALORS... Affiche mess : "Plus grand que 1,99".
  J'ai mis le nombre 10 et ça a afficher le message.

Voilà ce que j'ai fait et il y a pas mal de problème ! Jespère que ça vap ouvori vous aider pour m'aider car moi, là, je suis bloquer et je ne peux rien faire.

~ SZ_Débutant ~

SZ_Débutant a écrit:
- Si VarPts > 3 ALORS... Affiche mess : "C'est plus grand que 3".
   J'ai mis le nombre 10 et ça n'a pas afficher le message. 1ère erreur
   J'ai mis le nombre 11 et ça n'a pas afficher le message. 2e erreur

- Si VarPts > 9 ALORS... Affiche mess : "C'est plus grand que 9".
   J'ai mis le nombre 11 et ça n'a pas afficher le message. 3e erreur

-Si VarPts > 2 ALORS... Affiche mess : "Plus grand que 2".
 J'ai mis le nombre 10 et ça n'a pas afficher le message. 4e erreur

Si je comprend, 10 est entre 1 et 2 ? C'est ça ?

- Si VarPts > 1,99 ALORS... Affiche mess : "Plus grand que 1,99".
  J'ai mis le nombre 10 et ça a afficher le message.

Voilà ce que j'ai fait et il y a pas mal de problème ! Jespère que ça vap ouvori vous aider pour m'aider car moi, là, je suis bloquer et je ne peux rien faire.

~ SZ_Débutant ~

bonjour,

strange   les erreurs.
Fais tu des calculs avant les conditions:
Si VarPts > 3 ?
Si VarPts > 9 ?
Si VarPts > 2 ?

Non. En fait, j'ai mis qu'à chaque fois que la personne cliquerais sur OUI lors de l'achat du texte (Êtes-vous sûr de votre achat ?), d'enregistrer le nouveau nbr de Pts dans un fichier texte puis l'encrypter. Si ils cliquent sur OUI et qu'ils leur restent maintenant 6pts, sa enregistre le nombre 6 dans un fichier texte puis l'encrypte (puis suppr. le fichier texte).

Et au démarrage de la fenêtre (Form_Load), sa décrypte le fichier, le lis, et l'enregistre dans la variable "Pts". Puis modifie la propriété Text du Label contenant les pts par la variable "Pts".
En fait, ça fait comme une sorte de sauvegarde (si vous comprenez).
Mais je ne pense pas que l'erreur vient de là.

~ SZ_Débutant ~

donne nous le code vb des 3 conditions:
Si VarPts > 3
Si VarPts > 9
Si VarPts > 2

(dans la fenetre de paramétrage de la condition, en bas à gauche, clique sur la petite fleche)

Si VarPts > 3 :
If (pts > "3") Then
End If

Si VarPts > 9 :
If (pts > "9") Then
End If

Si VarPts > 2 :
If (pts > "2") Then
End If

Voilà les codes VB, ci-dessus.

~ SZ_Débutant ~

Merci, on a donc une explication du problème, par exemple:

If (pts > "3") Then
End If

Traduction:

Si la variable pts est supérieur au texte 3 alors...


or tout texte en programmation est composé... de nombre! s'est la table ASCII qui fait la conversion entre les nombres et les lettres.

Quand le programme voit que tu veut comparer un chiffre (pts) à des lettres, il convertit ses lettres en chiffre ("3" = 51, 3 = 3) et du coup sa change tout. Change donc:

If (pts > "3") Then
End If


en


If (pts > 3) Then
End If

 et pareil pour les autres conditions