0 comme minimum ?

Version imprimable

22/08/2015, 12h35
mathisdu42

1 pièce(s) jointe(s)

0 comme minimum ?

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.)

Pièce jointe 186056

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. :)
22/08/2015, 12h43
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...

Citation:

Envoyé par 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...

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:

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

23/08/2015, 10h15
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" ?
23/08/2015, 10h35
wallace1

Citation:

Envoyé par 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" ?

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. ;)
23/08/2015, 15h37
mathisdu42

Citation:

Envoyé par wallace1

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 :/
23/08/2015, 18h00
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.
23/08/2015, 20h50
mathisdu42

Citation:

Envoyé par 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.

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. ;)