Discussion :

[mathisdu42]

Bonjour tout le monde, aujourd'hui j'ai encore un petit problème concernant mon programme.

Je possède :

Une base de données
Je suis chez AlwaysData.net
J'utilise Navicat Premium

J'ai réalisé un système de Jetons et un système de compte Premium. Avec ces Jetons on va pourvoir acheter soit tout soit ce qu'on veux (J'ai fais ça avec des CheckBox.)



Quand on va appuyer sur buy, on va donc perdre les Jetons et obtenir ce qu'on a sélectionner (Logique) Seulement, je n'arrive pas à faire en sorte que si la personne n'a pas assez de Jetons, l'achat ne s'effectue pas. J'ai essayer de faire le système suivant :

Si le label de la form ou il y a le nombre de jetons qu'on a est inférieur au label de la form ou il y a le prix

Un message s'affiche

Sinon, le code s'exécute normalement.

Mais se système ne fonctionne pas très bien avec les CheckBox...

Donc, le problème : L'achat s'effectue même si on a pas assez de Jetons et en plus, le label et le champs Jetons qui est dans ma table affichent par exemple : -852 Jetons.

J'ai bien entendu, chercher, fais des tests etc mais rien n'a correctement fonctionné.


Merci, Cordialement.

[Sankasssss]

Bonjour,

En gros c'est facile, récupération du crédit du joueur, test si le crédit à enlevé est supérieur du crédit restant, si c'est le cas message sinon traitement.

Peut-on voir le code en place et testé? Car sans ce dernier ça va être dur de voir vos erreurs...

[mathisdu42]

Bonjour,

En gros c'est facile, récupération du crédit du joueur, test si le crédit à enlevé est supérieur du crédit restant, si c'est le cas message sinon traitement.

Peut-on voir le code en place et testé? Car sans ce dernier ça va être dur de voir vos erreurs...

Bonjour et merci de votre réponse.

Oui certes, de cette vue , c'est facile, je suis entièrement d'accord.

Le code de l'achat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
If Form4.Label5.Text < Label6.Text Then
 
                MsgBox("Vous n'avez pas assez de Jetons.")
 
 
            Else
 
                Dim MySqlConnection As New MySqlConnection
                MySqlConnection.ConnectionString = "server=mysql-ya42800.alwaysdata.net;Port=3306; userid=***; password=***; database=ya42800_sqllogin;"
                Dim reader As MySqlDataReader
                Dim command As New MySqlCommand
                Try
                    MySqlConnection.Open()
                    Dim query As String
                    query = "UPDATE ya42800_sqllogin.login SET Jetons=Jetons-" & Label6.Text & " WHERE username='" & Form1.MaterialSingleLineTextField1.Text & "'"
                    command = New MySqlCommand(query, MySqlConnection)
                    reader = command.ExecuteReader
                    MsgBox("L'achat s'est bien déroulé !")
                    MySqlConnection.Clone()
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                Finally
                    MySqlConnection.Dispose()
                End Try
            End If

Le code de l'achat avec les Jetons ressemble à ça.

Sauf que "If Form4.Label5.Text < Label6.Text Then" ne fonctionne pas

[GuruuMeditation]

Je ne connais pas du tout VB, mais est-ce que le "<" entre 2 strings est correct? Est-ce que pour lui "2" > "100" parce que il commence par le premier caractère et "2" > "1" ?

[wallace1]

Je ne connais pas du tout VB, mais est-ce que le "<" entre 2 strings est correct? Est-ce que pour lui "2" > "100" parce que il commence par le premier caractère et "2" > "1" ?

Bonjour,

Tu as entièrement raison, l'évaluation de l'expression n'est pas bonne donc je pense qu'OP doit maintenant savoir ce qu'il doit faire.

[mathisdu42]

Bonjour,

Tu as entièrement raison, l'évaluation de l'expression n'est pas bonne donc je pense qu'OP doit maintenant savoir ce qu'il doit faire.

Oui c'est vrai qu'il a raison mais je ne vois absolument pas quoi faire d'autre :/

[Sankasssss]

Il vous suffit de caster les valeurs en décimal pour que la comparaison puisse avoir lieu sur le type décimal au lieu du type String.

[mathisdu42]

Il vous suffit de caster les valeurs en décimal pour que la comparaison puisse avoir lieu sur le type décimal au lieu du type String.

J'ai essayé de faire :

If (CDec(Form4.Label5.Text)) < (CDec(Label6.Text)) Then



MsgBox("Vous avez besoin de plus de jetons")


Else

...


Et ça à l'air de marcher

En tout cas, merci à vous.