none
Visual Studio 2012 problemes de conformité avec VB6 RRS feed

  • Question

  • Bonsoir a toutes et a tous, je suis nouveau sos la plateforme vb2012 et et vu que dans ma classe ils utilisent le vb6 (qui n'est pas compatible avec ma machine) j'ai certains difficultés de conformités de fonctions et consorts... On nous a donner un projet ou on doit creer un formulaire qui permet de calculer le rabais de certains produits comme le riz. L'utilisateur entre son nom, prenom, adresse la designation du produit, le prix unitaire et la quantité. S'il clique sur calculer sa doit pouvoir afficher et le rabais et le prix net du produit. Voila j'ai ces erreurs que je ne comprends pas pourtant j'ai le mm code que ceux qui sont sur VB6, merci de bien vouloir m'aider...

    Voici mon code, le formulaire et les erreurs que j'ai eu:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles calc.Click
            Dim prix, qantite As Integer
            prix = Val(pu.Text)
            qantite = Val(qte.Text)
            (leNet.caption) = prix * qantite
            If (design = "riz" Or design = "RIZ") Then
                rabais.caption = lenet.caption * (7 / 100)
                lenet.caption = lenet - rabais.caption
            Else
                (leNet.caption) = prix * qantite
                rabais.caption = 0
            End If

    Private Sub annuler_Click(sender As Object, e As EventArgs) Handles annuler.Click
            nom = ""
            prenom = ""
            design = ""
            pu = ""
            qte = ""
        End SubError 1 Syntax error. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 23 9 form1
    Error 2 Value of type 'System.Windows.Forms.TextBox' cannot be converted to 'String'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 24 13 form1
    Error 3 Value of type 'System.Windows.Forms.TextBox' cannot be converted to 'String'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 24 31 form1
    Error 4 'caption' is not a member of 'System.Windows.Forms.Label'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 25 13 form1
    Error 5 'caption' is not a member of 'System.Windows.Forms.Label'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 25 30 form1
    Error 6 'caption' is not a member of 'System.Windows.Forms.Label'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 26 13 form1
    Error 7 'caption' is not a member of 'System.Windows.Forms.Label'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 26 37 form1
    Error 8 Syntax error. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 28 13 form1
    Error 9 'caption' is not a member of 'System.Windows.Forms.Label'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 29 13 form1
    Error 10 Value of type 'String' cannot be converted to 'System.Windows.Forms.TextBox'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 36 15 form1
    Error 11 Value of type 'String' cannot be converted to 'System.Windows.Forms.TextBox'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 37 18 form1
    Error 12 Value of type 'String' cannot be converted to 'System.Windows.Forms.TextBox'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 38 18 form1
    Error 13 Value of type 'String' cannot be converted to 'System.Windows.Forms.TextBox'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 39 14 form1
    Error 14 Value of type 'String' cannot be converted to 'System.Windows.Forms.TextBox'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 40 15 form1







    lundi 17 mars 2014 23:44

Réponses

  • Veuillez essayer avec :

    Dim prix, qantite As Integer prix = Val(pu.Text) qantite = Val(qte.Text) Dim total As Double = prix * qantite Dim rbt As Double = total * (7 / 100) (leNet.caption) = total If (design = "riz" Or design = "RIZ") Then rabais.caption = total * rbt

    lenet.caption = total - rbt Else (leNet.caption) = prix * qantite rabais.caption = 0 End If

    Cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.


    • Modifié Aurel Bera mercredi 19 mars 2014 15:44 modif
    • Marqué comme réponse junniorjohnson mercredi 19 mars 2014 23:11
    mercredi 19 mars 2014 15:43

Toutes les réponses

  • Aussi je ne peut pas utiliser les fonctions comme input sinon:Cannot connvert to string, je suis obligé a chaque fois de faire des MsgBox Help please URGENT
    lundi 17 mars 2014 23:51
  • Bonjour

    Ici on ne peut pas faire des opérations mathématiques sans une conversion et en plus si vous essayez de faire une affectation de type
    varString = (varNombre1* varNombre2 ).ToString()

    Comment vous avez définis  leNet, leNet.caption, rabais.caption ?

    Cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    mardi 18 mars 2014 13:18
  • Veuillez m'excuser pour la reponse tardive j'etais en cours durant toute la journée... Le Net.caption c'est pour afficher dans les labels le rabais.caption aussi.. C'est pour que si l'utilisateur clique sur calculer que sa afficher le prix net et le rabais Merci.

    Vu que c'est l'utilisateur q ui entre les valeurs comme son nom, prenom, designation et prix donc j'ai mi     prix = Val(pu.Text)
            qantite = Val(qte.Text)

    je ne sais pas pourquoi sa me génére des erreurs

    mardi 18 mars 2014 16:04
  • 2012\Projects\Fomulaire1\form1\Form1.vb 23 9  form1
    Error 2  Value of type 'System.Windows.Forms.TextBox' cannot be converted to 'String'. C:\Users\JOHNSON.7\Documents\Visual Studio 2012\Projects\Fomulaire1\form1\Form1.vb 24 13  form1
    mardi 18 mars 2014 16:07
  • Bonjour

    Essayez de ne pas utilizer objet.caption dans les calculs.

    Définissez des variables de type double et les utilisez comme ça.

    A la fin, justement mettez objet.caption = variable.ToString()

    L’erreur ci-dessus, apparaît parce que vous utilisez :

                objTextBox = varString

    Correct c’est

                objTextBox.Text = varString

    Cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    mercredi 19 mars 2014 05:30
  • Dim prix, qantite As Integer
            prix = Val(pu.Text)
            qantite = Val(qte.Text)
            (leNet.caption) = prix * qantite
            If (design = "riz" Or design = "RIZ") Then
                rabais.caption = lenet.caption * (7 / 100)
                lenet.caption = lenet - rabais.caption
            Else
                (leNet.caption) = prix * qantite
                rabais.caption = 0
            End If

    J'ai essayé ce que vous m'avez suggéré, mais Helas toujours  les mêmes erreurs... :/

    mercredi 19 mars 2014 09:48
  • Veuillez essayer avec :

    Dim prix, qantite As Integer prix = Val(pu.Text) qantite = Val(qte.Text) Dim total As Double = prix * qantite Dim rbt As Double = total * (7 / 100) (leNet.caption) = total If (design = "riz" Or design = "RIZ") Then rabais.caption = total * rbt

    lenet.caption = total - rbt Else (leNet.caption) = prix * qantite rabais.caption = 0 End If

    Cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.


    • Modifié Aurel Bera mercredi 19 mars 2014 15:44 modif
    • Marqué comme réponse junniorjohnson mercredi 19 mars 2014 23:11
    mercredi 19 mars 2014 15:43
  • Merci merci merci
    mercredi 19 mars 2014 23:11