IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Cobol Discussion :

Débutant en Cobol qui a besoin d'aide


Sujet :

Cobol

  1. #1
    Candidat au Club
    Homme Profil pro
    Comptable
    Inscrit en
    Avril 2015
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Comptable
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2015
    Messages : 2
    Points : 2
    Points
    2
    Par défaut Débutant en Cobol qui a besoin d'aide
    Bonjour!

    Je viens de débuter la programmation en Cobol et je suis bloqué. Je tiens aussi à préciser que je suis débutant en programmation. Je travaille avec Microsoft Visual Studio. J'essaie présentement de faire calculer les chiffres dans deux textBox lorsqu'on appuie sur un bouton afin des les enregistrer temporairement. Ensuite, je lors d'un clique sur un autre bouton, la valeur enregistrée s'affiche dans un label. Pour le moment ça ne fonctionne pas. Voir plus bas mon code. Est-ce que quelqu'un peut me débloquer?

    Merci à l'avance!

    class-id TestJDD.Form1 is partial
    inherits type System.Windows.Forms.Form.

    working-storage section.
    01 ws-data PIC 9(10).
    01 ws-calcul PIC 9(10).
    01 ws-resultat PIC 9(10).
    method-id NEW.

    procedure division.


    invoke self::InitializeComponent
    goback.

    end method.

    method-id button1_Click final private.
    procedure division using by value sender as object e as type System.EventArgs.
    Set self::textBox1::Text to ws-data
    Set self::textBox2::Text to ws-calcul
    add ws-data ws-calcul to ws-resultat


    end method.

    method-id button2_Click final private.
    procedure division using by value sender as object e as type System.EventArgs.
    set self::label1::Text to ws-resultat
    end method.

    end class.

  2. #2
    Candidat au Club
    Homme Profil pro
    Comptable
    Inscrit en
    Avril 2015
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Comptable
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2015
    Messages : 2
    Points : 2
    Points
    2
    Par défaut
    J'ai trouvé. Si ça peut être utile à quelqu'un voici le code:

    class-id TestJDD.Form1 is partial
    inherits type System.Windows.Forms.Form.

    working-storage section.
    01 ws-data PIC X(12).
    01 ws-calcul PIC X(12).
    01 ws-data1 PIC 9(10).
    01 ws-calcul1 PIC 9(10).
    01 ws-resultat PIC 9(10).
    01 ws-resultat1 PIC 9(12).
    method-id NEW.

    procedure division.


    invoke self::InitializeComponent
    goback.



    end method.

    method-id button1_Click final private.
    procedure division using by value sender as object e as type System.EventArgs.
    INITIALIZE WS-RESULTAT1
    SET ws-data1 TO TYPE System.Convert::ToDecimal(self::textBox1::Text)
    SET ws-calcul1 TO TYPE System.Convert::ToDecimal(self::textBox2::Text)

    add ws-calcul1 ws-data1 to ws-resultat1

    end method.

    method-id button2_Click final private.
    procedure division using by value sender as object e as type System.EventArgs.
    move ws-resultat1 to label1::Text().
    end method.

    end class.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Débutant qui a besoin d'aide
    Par GhostBuster dans le forum Langage SQL
    Réponses: 8
    Dernier message: 03/11/2014, 16h35
  2. débutante en php j'ai besoin d'aide
    Par nannousa dans le forum Langage
    Réponses: 3
    Dernier message: 03/05/2007, 10h32
  3. Un nouveau qui a besoin d'aide sur MATLAB
    Par bf491499 dans le forum MATLAB
    Réponses: 4
    Dernier message: 26/02/2007, 17h10
  4. Encore un noob qui a besoin d'aide pour les formules
    Par efk pharos dans le forum Formules
    Réponses: 5
    Dernier message: 17/01/2007, 02h46
  5. Débutant qui a besoin d'aide
    Par BerneyBoy dans le forum Langage
    Réponses: 1
    Dernier message: 14/01/2006, 22h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo