Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2835 connectés 

  FORUM HardWare.fr
  Programmation

  [DEBAT] Vous programmez comment ?

 
 


Dernière réponse
Sujet : [DEBAT] Vous programmez comment ?
pioupiou2100

youdontcare a écrit a écrit :

de toutes façons personne n'y comprend rien ... :lol: :D  




 
c'est clair mais je comprend juste qu'il a sorti du code qui à mon avis est confidentiel !!! de plus il n'a pas été très malin en laissant clairement voir qu'il s'agit d'une TMA Unilog ...


Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
pioupiou2100

youdontcare a écrit a écrit :

de toutes façons personne n'y comprend rien ... :lol: :D  




 
c'est clair mais je comprend juste qu'il a sorti du code qui à mon avis est confidentiel !!! de plus il n'a pas été très malin en laissant clairement voir qu'il s'agit d'une TMA Unilog ...

youdontcare

pioupiou2100 a écrit a écrit :

T'as raison de sortir comme ça du code qui a mon avis est confidentiel ... p'tite question : dans quelle DO travailles tu ?


de toutes façons personne n'y comprend rien ... :lol: :D

pioupiou2100

ZoumZoumZeng a écrit a écrit :

ben c bien joli pour le c mais qdc on programme en cobol (!!) on est bien obligé d'avoir du code tout pourris (surtout qd on develloppe sou MVS):  
 
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. SDIC066M.
       
 
........




 
T'as raison de sortir comme ça du code qui a mon avis est confidentiel ... p'tite question : dans quelle DO travailles tu ?

 

[edtdd]--Message édité par pioupiou2100--[/edtdd]
Edo_BVD BifaceMcLeOD> Putain ouaip t'as raison, mais en fait au moment où je l'ai tapé yavait plus d'espace ! j'aurais du mettre des TAB c plus efficace. C vrai que là on voit rien.
 
Tiens, un autre paramètre pour que l'indentation soit jolie :
 programmer en mode TEXTE
Perso, je trouve le mode texte cent fois plus légé et lisible que le mode graphique avec ses Polices  
 
a+
altac Y'a un editeur tres sympa que j'utilise souvent sous win quand j'ai pas vc++ sous la main : TextPad 4. C'est tres leger et il y a tout ce qu'il faut pour coder confortablement dans beaucoup de langages (c/c++, html, Java ...). De plus ca remplace tres bien le Notepad  tellement c'est rapide a lancer.
 
->> http://www.textpad.com/ , l'essayer c'est l'adopter :D
BifaceMcLeOD

Roswell_ a écrit a écrit :

serieux pourquoi ça:
 
function rien() {
    for (var i = 0; i < 12; i++) {
        if (i >= 3) {
            j = 36;
            l++;
        }
        else {  
            kedal[i] = 2;
        }
    }
}
 
serait plus lisible que ça:
 
function rien()
{
    for (var i = 0; i < 12; i++)
    {
        if (i >= 3)
        {
            j = 36;
            l++;
        }
        else
        {  
            kedal[i] = 2;
        }
    }
}
 
Moi je préfere la seconde.




Je l'ai expliqué en première page. Le deuxième style est classé comme bon, mais le premier a l'avantage d'implémenter la notion de blocs abstraits, qui statistiquement est reconnu comme étant plus efficace en termes de rapidité de compréhension d'un code inconnu.
Enfin, ceci dit, en Pascal, j'ai plutôt tendance à programmer en utilisant le deuxième style...  ;)  
 
ZoumZoumZeng> Tu aurais dû nous donner un exemple de code assembleur...   :sarcastic: :D  
 
Edo_BVD> Je pense que ta présentation de code n'est pas bonne. Tu parles de l'importance de la structure du programme. Justement, l'indentation n'est là précisément que pour la mettre en évidence. Or dans les exemples que tu donnes, cette structure n'est pas du tout mise en évidence.

 

[edit]--Message édité par BifaceMcLeOD--[/edit]
gilou >Parcontre, j'ai toujours entendu dire que Emacs était bien voir très bien, mais je trouve que c'est un bulldozer à manoeuvrer.
Kelkun peut-il me dire en quoi il est bien ? Quels sont les vrais avantages vrais qui le rendent vraiment agréable ?
 
 
Ben c'est vrai que au debart, l'apprentissage est lent, mais quand on maitrise, on veut plus en changer.
Sous unix par exemple, tu peux editer/compiler/debugger sous emacs (un peu plus dur sur PC), et faire un tas d'autres trucs.
Des fonctionalites utiles, a part la color syntax, l'auto-indentation et le matching des blocs, il y en a pas mal.
Par exemple, le rechercher/remplacer sur des expressions regulieres. Et le gestion multibuffer de emacs est vraiment pratique.
Un des gros avantages, sous unix, c'est aussi que sous ksh, avec la variable EDITOR=emacs, la ligne de commande (et les precedentes) s'editent de la meme maniere.
 
A+,
Edo_BVD Ah oui ?
Un bon éditeur de C ?
 
ah mais çà change tout alors !
pasque pour l'instant le seul truc qui m'a rebuté dans le fait de changer de langage, c'était pas vraiment de changer de langage mais plûtot d'abandonner l'éditeur de mon coeur...
 
mais si un bon éditeur existe dans un autre langage, je crois qu'il va falloir que je m'y colle !
Perso, je suis un fana des raccourcis claviers, mais il faut qu'ils soient bien dosés et bien situés.
 
Parcontre, j'ai toujours entendu dire que Emacs était bien voir très bien, mais je trouve que c'est un bulldozer à manoeuvrer.
Kelkun peut-il me dire en quoi il est bien ? Quels sont les vrais avantages vrais qui le rendent vraiment agréable ?
youdontcare >>Pour ce qui est de l'éditeur, je crois que le meilleur éditeur (sous DOS en tout cas) reste celui de Turbo Pascal 7
 
c'est vrai qu'à l'époque j'aimais beaucoup l'éditeur du pascal (6) à l'époque ... pmode et watcom, idéal pour éditer le pascal mais aussi le c et l'asm :)
 
actuellement, le meilleur est sans conteste celui de visual c++. cet éditeur TORCHE GRAVE. y'a plein de ptits trucs géniaux, comme pouvoir décaler la sélection avec (shift) tab, passer de mot en mot avec control, et surtout le name completion (quand ça marche).
ddr555 Comme un porc, et C mon choix :D:D:D
Edo_BVD Perso je fais pas trop de C je fais du Pascal, mais le débat est le même !  
 
Procedure Toto(x:integer);
begin
 if gege(zz) then
 begin
  blakqsdg
 end
 else
 begin
  qsdffsdqglmkj
 end;
end;
 
Voila à vous de traduire en C ! Na!
 
Bon l'indentation c une chose importante pour la lisibilité
mais je pense qu'il y a d'autres choses qui interviennent :
 -la structure globale du prog
 -l'éditeur de texte
 
En générale ma structure est du style,  
 
begin
 init;
 run;
 done;
end.
 
comme çà je suis sur de rien oublié  
 
Pour ce qui est de l'éditeur, je crois que le meilleur éditeur (sous DOS en tout cas) reste celui de Turbo Pascal 7
C un des rares où on peut mettre le curseur n'importe où dans la fenêtre. Je l'aime je l'adore.  
Donnez moua votre éditeur préféré.
Dite moua que vous aimez Notepad, allez ne vous faites pas prier !  
(Et pis éventuellement répondez à ma question sur les noms de volume en delphi :)
 
 
Les gout et les chausettes, tous dans le même panier avec le même monde a porté de la main !
 
 
Love la vie
Edo
gilou

Roswell_ a écrit a écrit :

serieux pourquoi ça:
 
function rien() {
    for (var i = 0; i < 12; i++) {
        if (i >= 3) {
            j = 36;
            l++;
        }
        else {  
            kedal[i] = 2;
        }
    }
}
 
serait plus lisible que ça:
 
function rien()
{
    for (var i = 0; i < 12; i++)
    {
        if (i >= 3)
        {
            j = 36;
            l++;
        }
        else
        {  
            kedal[i] = 2;
        }
    }
}
 
Moi je préfere la seconde.




 
Je suis bien d'accord.
Meme s'il n'y a qu'une instruction pour un if ou un else, les {} ameliorent la lisibilite, et le compilo optimisera si necessaire en virant le bloc inutile.
Quand on recupere du code dont certaines fonctions s'etendent sur 7 ou 8 pages, ce style devient vite necessaire pour pouvoir s'y retrouver.
A+,
antp tu rigoles, mais je me demande si y en a qui font pas des trucs comme ça... On voit de ces trucs bizarres parfois.
minusplus comme ça, j'economise les touches { et }
minusplus moi, en général, pour que ce soit HYPER CLAIR, je fais :
 
if(truc==0)double*bidule=newdouble[10];
if(truc==0)for(int i=0;i<10;i++)super_fonction(bidule[i]);
if(truc==0)if(i>0)bidule[i]*=bidule[i-1];
if(truc==0)/*
if(truc==0)    Et là je met un commentaire pour expliquer ce que j'ai fait.
if(truc==0)*/
zop

BENB a écrit a écrit :

 
Ben en fait je code de moins en moins...
Je dis comment coder, je donne des conseils :D pas seulement sur les forum...
j'explique aux chefs pourquoi on sera en retard :D
j'explique a mon equipe pourquoi on a pas le droit d'etre en retard.... :D:D
et souvent je fait juste le debut de l'analyse...




 
etle reste du temps, tu forumes :D ?
:lol:
BENB

petoulachi a écrit a écrit :

et c pas chiant a force ? je me vois mal programmer toute ma vie ...




Ben en fait je code de moins en moins...
Je dis comment coder, je donne des conseils :D pas seulement sur les forum...
j'explique aux chefs pourquoi on sera en retard :D
j'explique a mon equipe pourquoi on a pas le droit d'etre en retard.... :D:D
et souvent je fait juste le debut de l'analyse...
petoulachi et c pas chiant a force ? je me vois mal programmer toute ma vie ...
BENB

zop a écrit a écrit :

 
 
Cà fait combien d'année que tu codes ?




6/7 ans...
c++ depuis 5ans...
zop

BENB a écrit a écrit :

Moi j'aligne les commentaires en colonne 73... vieille habitude du FORTRAN...
J'utilise des tab de 4 caracteres et donc j'evite les imbrications trop compliquees en ajoutant des fct (inline)
sinon je met toujours les {} alignes et meme si il n'y a qu'une instruction dedans comme ca ils sont la quand on en ajoute (oubli vecu)...
 
Pour les variable pas de notation hongroise, des mots en anglais comme
ReactorTemperature... qui peuvent devenir long...
ReactorCoolingFluidInletTemperature, mais au moins on sait que c'est la temperature d'entree du fluide de refroidissement du reacteur :D




 
Cà fait combien d'année que tu codes ?
JPA Je vous avais promis le lien vers des codes intentionnelement obscurs. les voici :
http://www-clips.imag.fr/commun/be [...] ode30.html
http://www-clips.imag.fr/commun/be [...] ode53.html
http://www-clips.imag.fr/commun/be [...] ode68.html
http://www-clips.imag.fr/commun/be [...] ode75.html
http://www-clips.imag.fr/commun/be [...] de102.html
 
merci à B. Cassagne pour son cours et ces récréations !!!
wouatouwouatou bin.. demande a une hongroise de te programmer un truc et tu verras bien.. :D
petoulachi c un style ....
heu mais au fait, c quoi la programmation a la hongroise ?
k666 moi j'aime bien nommer mes variables n importe comment, du style  
 
aZeaze[tox1] = blah;  
 
comme ça personne ne comprend et ça donne l'impression que je sais kek chose    
 
 

El_gringo a écrit a écrit :

 
 
...ça donne plutot l'impression d'un esprit léger (pour pas dire con !) :D :D




 
 
ouais surtout après jmy retrouve plus :gun:  
mais au moins ça justifie quelques bonnes ptites heures de 'travail'  :D
BENB Moi j'aligne les commentaires en colonne 73... vieille habitude du FORTRAN...
J'utilise des tab de 4 caracteres et donc j'evite les imbrications trop compliquees en ajoutant des fct (inline)
sinon je met toujours les {} alignes et meme si il n'y a qu'une instruction dedans comme ca ils sont la quand on en ajoute (oubli vecu)...
 
Pour les variable pas de notation hongroise, des mots en anglais comme
ReactorTemperature... qui peuvent devenir long...
ReactorCoolingFluidInletTemperature, mais au moins on sait que c'est la temperature d'entree du fluide de refroidissement du reacteur :D
ZoumZoumZeng ben c bien joli pour le c mais qdc on programme en cobol (!!) on est bien obligé d'avoir du code tout pourris (surtout qd on develloppe sou MVS):  
 
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. SDIC066M.
      ******************************************************************
      *     DATE: 13-08-1998                                           *
      *     EVALUATED/MODIFIED PROGRAM                                 *
      *     FOR COMPLIANCE WITH                                        *
      *     COBOL II/85 BY                                             *
      *     ALYDAAR SOFTWARE CORPORATION                               *
      ******************************************************************
000300*              PROGRAM CONVERTED BY
000400*              COBOL CONVERSION AID PO 5785-ABJ
000500*              CONVERSION DATE 06/22/98 09:06:31.
000600*AUTHOR.     KOHLER.
000700*
000800*      CREATION FICHIER POUR LE CPDP  (ZONES NUMERIQUES SANS SIGNE
000900*               (LE SIGNE EST EN FIN D'ENREGISTREMENT P = POSITIF
001000*                                                     N = NEGATIF)
001100******************************************************************
      * MAINTENANCE
      * -----------
      * MODIFIE LE : 30/11/1998                       DEMANDE : 980698
      * PAR        : TMA UNILOG
      * TEST SUR LA SIGNATURE D'UNE ZONE, DEUX POSSIBILITES :
      * => PASSER PAR UNE ZONE INTERMEDAIRE
      * => REDEFINIR LA ZONE NON SIGNEE EN ZONE SIGNEE
      ******************************************************************
      * MODIFIE LE : 03/06/1999                       DEMANDE : 990324
      * PAR        : TMA UNILOG
      * MODIFICATION DU FORMAT DU FICHIER DE SORTIE POUR LE CPDP.
      * PASSER A 455 CARACTŠRES.
      ******************************************************************
001200 ENVIRONMENT DIVISION.
001300 CONFIGURATION SECTION.
001400 INPUT-OUTPUT  SECTION.
001500 FILE-CONTROL.
001600     SELECT  FICENT      ASSIGN  TO  UT-S-FICENT.
001700     SELECT  FICDATE     ASSIGN  TO  UT-S-FICDATE.
001800     SELECT  FICSOR      ASSIGN  TO  UT-S-FICSOR.
001900     SELECT  FICDATES    ASSIGN  TO  UT-S-FICDATES.
002000 DATA DIVISION.
002100 FILE SECTION.
002200 FD  FICENT
002300     RECORDING F
002400     BLOCK  0
002500     .
002600 01  ENRGT-ENTREE.
002700     12  ENT-QUEST    PIC  X(02).
002800     12  FILLER       PIC  X(148).
002900*
003000 FD  FICSOR
003100     RECORDING F
003200     BLOCK  0
003300     .
      ** 990324 DEBUT
003400*01  ENRGT-FICSOR     PIC X(150).
003400 01  ENRGT-FICSOR     PIC X(455).
      ** 990324 FIN
003500*
003600 FD  FICDATE
003700     RECORDING F
003800     BLOCK  0
003900     .
004000 01  ENRGT-DATE.
004100     12  ENT-NUM      PIC X(02).
004200     12  FILLER       PIC X(148).
004300*
004400 FD  FICDATES
004500     RECORDING F
004600     BLOCK  0
004700     .
004800 01  ENRGT-DATES      PIC X(150).
004900*
005000*
005100 WORKING-STORAGE SECTION.
005200*
005300 77  MES-1                   PIC  X(15)  VALUE  '***** SDIC066M '.
005400 77  MES-2                   PIC  X(13)  VALUE  ' FIN ANORMALE'.
005500 77  ZABEND1                 PIC  9(04)  VALUE    0.
005600 77  ZABEND2                 PIC  9(01)  VALUE    0.
005700 77  ST-SIGNE                PIC  9(08)  VALUE    0.
005800*                                                                *
005900******************************************************************
006000*                                                                *
006100*    DESCRIPTION ENRGT  ENTETE                                   *
006200*                                                                *
006300******************************************************************
006400 01  SORTIE-ENTETE.
006500     12  FILLER              PIC  X(02)         VALUE        '00'.
006600     12  FILLER              PIC  X(03)         VALUE       '048'.
006700     12  SOR-DATE-1          PIC  X(05).
006800     12  SOR-LOT-1           PIC  9(03).
006900     12  FILLER              PIC  X(46)         VALUE      SPACES.
007000     12  FILLER              PIC  X(05)         VALUE     'ETATP'.
007100     12  FILLER              PIC  X(86)         VALUE      SPACES.
007200******************************************************************
007300*                                                                *
007400*    DESCRIPTION ENRGT  QUEUE                                    *
007500*                                                                *
007600******************************************************************
      **
      ** MODIF 990324
007700*01  SORTIE-QUEUE.
007800*    12  SQ-ENR              PIC  X(02)         VALUE        '02'.
007900*    12  FILLER              PIC  X(03)         VALUE       '048'.
008000*    12  SOR-DATE-2          PIC  X(05).
008100*    12  SOR-LOT-2           PIC  9(03).
008200*    12  SOR-MVT             PIC  9(10)         VALUE           0.
008300*    12  FILLER              PIC  X(36)         VALUE      SPACES.
008400*    12  FILLER              PIC  X(05)         VALUE     'ETATP'.
008500*    12  FILLER              PIC  X(86)         VALUE      SPACES.
008600*                                                                *
007700 01  SORTIE-QUEUE.
007800     12  SQ-ENR              PIC  X(02)         VALUE        '02'.
007900     12  FILLER              PIC  X(03)         VALUE       '048'.
008000     12  SOR-DATE-2          PIC  X(05).
008100     12  SOR-LOT-2           PIC  9(03).
           12  FILLER              PIC  X(08)         VALUE      SPACES.
008200     12  SOR-MVT             PIC  9(08)         VALUE           0.
008300     12  FILLER              PIC  X(30)         VALUE      SPACES.
008400     12  FILLER              PIC  X(05)         VALUE     'ETATP'.
008500     12  FILLER              PIC  X(86)         VALUE      SPACES.
008600*                                                                *
      ** 990324 FIN
      **
008700******************************************************************
008800*                                                                *
008900*    DESCRIPTION ENRGT  QUESTIONNAIRE P1                         *
009000*                                                                *
009100******************************************************************
009200 01  SORTIE-P1.
009300     12  FS1-P1-QUEST        PIC  X(02).
009400     12  FS1-P1-DATE.
009500         16  FS1-P1-DATE-AA  PIC  9(02).
009600         16  FS1-P1-DATE-MM  PIC  9(02).
009700     12  FS1-P1-DECLAR       PIC  X(05).
009800     12  FS1-P1-CRAFF        PIC  X(02).
009900     12  FILLER              PIC  X(02).
010000     12  FS1-P1-NUM-LIG      PIC  9(03).
010100     12  FS1-P1-CMVT         PIC  X(01).
010200     12  FS1-P1-CBRUT        PIC  X(06).
010300     12  FS1-P1-CDEPOT       PIC  X(02).
010400     12  FS1-P1-CSOC         PIC  X(03).
010500     12  FS1-P1-TOP-FAC      PIC  X(01).
010600     12  FS1-P1-RECEPT       PIC  9(07).
010700     12  FS1-P1-TRAIT        PIC  9(07).
010800     12  FS1-P1-STOK-FIN     PIC  9(07).
010900     12  FILLER              PIC  X(92).
011000     12  FS1-P1-S-RECEPT     PIC  X(01).
011100     12  FS1-P1-S-TRAIT      PIC  X(01).
011200     12  FS1-P1-S-STOK-FIN   PIC  X(01).
011300     12  FILLER              PIC  X(03).
011300*** MODIFICATION DEMANDE N 980698 ***
009200 01  ENTREE-P1.
009300     12  FE1-P1-QUEST        PIC  X(02).
009400     12  FE1-P1-DATE.
009500         16  FE1-P1-DATE-AA  PIC  9(02).
009600         16  FE1-P1-DATE-MM  PIC  9(02).
009700     12  FE1-P1-DECLAR       PIC  X(05).
009800     12  FE1-P1-CRAFF        PIC  X(02).
009900     12  FILLER              PIC  X(02).
010000     12  FE1-P1-NUM-LIG      PIC  9(03).
010100     12  FE1-P1-CMVT         PIC  X(01).
010200     12  FE1-P1-CBRUT        PIC  X(06).
010300     12  FE1-P1-CDEPOT       PIC  X(02).
010400     12  FE1-P1-CSOC         PIC  X(03).
010500     12  FE1-P1-TOP-FAC      PIC  X(01).
010600     12  FE1-P1-RECEPT       PIC S9(07).
010700     12  FE1-P1-TRAIT        PIC S9(07).
010800     12  FE1-P1-STOK-FIN     PIC S9(07).
010900     12  FILLER              PIC  X(92).
011000     12  FE1-P1-S-RECEPT     PIC  X(01).
011100     12  FE1-P1-S-TRAIT      PIC  X(01).
011200     12  FE1-P1-S-STOK-FIN   PIC  X(01).
011300     12  FILLER              PIC  X(03).
011300*** FIN MODIFICATION DEMANDE N 980698 ***
011400******************************************************************
011500*                                                                *
011600*    DESCRIPTION ENRGT  QUESTIONNAIRE PA                         *
011700*                                                                *
011800******************************************************************
011900 01  SORTIE-PA.
012000     12  FS1-PA-QUEST        PIC  X(02).
012100     12  FS1-PA-DATE.
012200         16  FS1-PA-DATE-AA  PIC  9(02).
012300         16  FS1-PA-DATE-MM  PIC  9(02).
012400     12  FS1-PA-DECLAR       PIC  X(05).
012500     12  FILLER              PIC  X(04).
012600     12  FS1-PA-NUM-LIG      PIC  9(03).
012700     12  FS1-PA-CMVT         PIC  X(01).
012800     12  FS1-PA-CRAFF        PIC  X(02).
012900     12  FS1-PA-CBRUT        PIC  X(06).
013000     12  FS1-PA-CDEPOT       PIC  X(02).
013100     12  FS1-PA-CSOC         PIC  X(03).
013200     12  FS1-PA-TOP-FAC      PIC  X(01).
013300*** MODIFICATION DEMANDE N 980698 ***
013300     12  FS1-PA-RECEPT       PIC  9(07).
013300     12  FS1-PA-RECEPT-S REDEFINES FS1-PA-RECEPT PIC S9(07).
013400     12  FS1-PA-EXPED-RAF    PIC  9(07).
013400     12  FS1-PA-EXPED-RAF-S REDEFINES FS1-PA-EXPED-RAF PIC S9(07).
013500     12  FS1-PA-EXPED-AUT    PIC  9(07).
013500     12  FS1-PA-EXPED-AUT-S REDEFINES FS1-PA-EXPED-AUT PIC S9(07).
013600     12  FS1-PA-STOK-FIN     PIC  9(07).
013600     12  FS1-PA-STOK-FIN-S REDEFINES FS1-PA-STOK-FIN PIC S9(07).
013700     12  FS1-PA-STOK-LIGNE   PIC  9(07).
013700     12  FS1-PA-STOK-LIG-S REDEFINES FS1-PA-STOK-LIGNE PIC S9(07).
013700*** FIN MODIFICATION DEMANDE N 980698 ***
013800     12  FILLER              PIC  X(76).
013900     12  FS1-PA-S-RECEPT     PIC  X(01).
014000     12  FS1-PA-S-EXPED-RAF  PIC  X(01).
014100     12  FS1-PA-S-EXPED-AUT  PIC  X(01).
014200     12  FS1-PA-S-STOK-FIN   PIC  X(01).
014300     12  FS1-PA-S-STOK-LIGNE PIC  X(01).
014400     12  FILLER              PIC  X(01).
011900*** MODIFICATION DEMANDE N 980698 ***
011900 01  ENTREE-PA.
012000     12  FE1-PA-QUEST        PIC  X(02).
012100     12  FE1-PA-DATE.
012200         16  FE1-PA-DATE-AA  PIC  9(02).
012300         16  FE1-PA-DATE-MM  PIC  9(02).
012400     12  FE1-PA-DECLAR       PIC  X(05).
012500     12  FILLER              PIC  X(04).
012600     12  FE1-PA-NUM-LIG      PIC  9(03).
012700     12  FE1-PA-CMVT         PIC  X(01).
012800     12  FE1-PA-CRAFF        PIC  X(02).
012900     12  FE1-PA-CBRUT        PIC  X(06).
013000     12  FE1-PA-CDEPOT       PIC  X(02).
013100     12  FE1-PA-CSOC         PIC  X(03).
013200     12  FE1-PA-TOP-FAC      PIC  X(01).
013300     12  FE1-PA-RECEPT       PIC S9(07).
013400     12  FE1-PA-EXPED-RAF    PIC S9(07).
013500     12  FE1-PA-EXPED-AUT    PIC S9(07).
013600     12  FE1-PA-STOK-FIN     PIC S9(07).
013700     12  FE1-PA-STOK-LIGNE   PIC S9(07).
013800     12  FILLER              PIC  X(76).
013900     12  FE1-PA-S-RECEPT     PIC  X(01).
014000     12  FE1-PA-S-EXPED-RAF  PIC  X(01).
014100     12  FE1-PA-S-EXPED-AUT  PIC  X(01).
014200     12  FE1-PA-S-STOK-FIN   PIC  X(01).
014300     12  FE1-PA-S-STOK-LIGNE PIC  X(01).
014400     12  FILLER              PIC  X(01).
014400*** FIN MODIFICATION DEMANDE N 980698 ***
014500******************************************************************
014600*                                                                *
014700*    DESCRIPTION ENRGT  QUESTIONNAIRE P2                         *
014800*                                                                *
014900******************************************************************
015000 01  SORTIE-P2.
015100     12  FS1-P2-QUEST        PIC  X(02).
015200     12  FS1-P2-DATE.
015300         16  FS1-P2-DATE-AA  PIC  9(02).
015400         16  FS1-P2-DATE-MM  PIC  9(02).
015500     12  FS1-P2-CDECLAR      PIC  X(05).
015600     12  FS1-P2-CRAFF        PIC  X(02).
015700     12  FILLER              PIC  X(02).
015800     12  FS1-P2-NUM-LIG      PIC  9(03).
015900     12  FS1-P2-CMVT         PIC  X(01).
016000     12  FS1-P2-CDHYCA       PIC  X(03).
016100     12  FS1-P2-IMPORT       PIC  9(07).
016200     12  FS1-P2-RECEPT       PIC  9(07).
016300     12  FS1-P2-PRODUCT      PIC  9(07).
016400     12  FS1-P2-EXPED        PIC  9(07).
016500     12  FS1-P2-CONSOM       PIC  9(07).
016600     12  FS1-P2-STOK-FIN     PIC  9(07).
016700     12  FILLER              PIC  X(80).
016800     12  FS1-P2-S-IMPORT     PIC  X(01).
016900     12  FS1-P2-S-RECEPT     PIC  X(01).
017000     12  FS1-P2-S-PRODUCT    PIC  X(01).
017100     12  FS1-P2-S-EXPED      PIC  X(01).
017200     12  FS1-P2-S-CONSOM     PIC  X(01).
017300     12  FS1-P2-S-STOK-FIN   PIC  X(01).
015000*** MODIFICATION DEMANDE N 980698 ***
015000 01  ENTREE-P2.
015100     12  FE1-P2-QUEST        PIC  X(02).
015200     12  FE1-P2-DATE.
015300         16  FE1-P2-DATE-AA  PIC  9(02).
015400         16  FE1-P2-DATE-MM  PIC  9(02).
015500     12  FE1-P2-CDECLAR      PIC  X(05).
015600     12  FE1-P2-CRAFF        PIC  X(02).
015700     12  FILLER              PIC  X(02).
015800     12  FE1-P2-NUM-LIG      PIC  9(03).
015900     12  FE1-P2-CMVT         PIC  X(01).
016000     12  FE1-P2-CDHYCA       PIC  X(03).
016100     12  FE1-P2-IMPORT       PIC S9(07).
016200     12  FE1-P2-RECEPT       PIC S9(07).
016300     12  FE1-P2-PRODUCT      PIC S9(07).
016400     12  FE1-P2-EXPED        PIC S9(07).
016500     12  FE1-P2-CONSOM       PIC S9(07).
016600     12  FE1-P2-STOK-FIN     PIC S9(07).
016700     12  FILLER              PIC  X(80).
016800     12  FE1-P2-S-IMPORT     PIC  X(01).
016900     12  FE1-P2-S-RECEPT     PIC  X(01).
017000     12  FE1-P2-S-PRODUCT    PIC  X(01).
017100     12  FE1-P2-S-EXPED      PIC  X(01).
017200     12  FE1-P2-S-CONSOM     PIC  X(01).
017300     12  FE1-P2-S-STOK-FIN   PIC  X(01).
017300*** FIN MODIFICATION DEMANDE N 980698 ***
017400******************************************************************
017500*                                                                *
017600*    DESCRIPTION ENRGT  QUESTIONNAIRE PB                         *
017700*                                                                *
017800******************************************************************
017900 01  SORTIE-PB.
018000     12  FS1-PB-QUEST        PIC  X(02).
018100     12  FS1-PB-DATE.
018200         16  FS1-PB-DATE-AA  PIC  9(02).
018300         16  FS1-PB-DATE-MM  PIC  9(02).
018400     12  FS1-PB-CDECLAR      PIC  X(05).
018500     12  FILLER              PIC  X(04).
018600     12  FS1-PB-NUM-LIG      PIC  9(03).
018700     12  FS1-PB-CMVT         PIC  X(01).
018800     12  FS1-PB-CDEPOT       PIC  X(04).
018900     12  FS1-PB-CDHYCA       PIC  X(03).
019000     12  FS1-PB-IMPORT       PIC  9(07).
019100     12  FS1-PB-RECEPT       PIC  9(07).
019200     12  FS1-PB-EXP-RAF      PIC  9(07).
019300     12  FS1-PB-EXP-DEB      PIC  9(07).
019400     12  FS1-PB-AJUST        PIC  9(07).
019500     12  FS1-PB-STOK-FIN     PIC  9(07).
019600     12  FILLER              PIC  X(76).
019700     12  FS1-PB-S-IMPORT     PIC  X(01).
019800     12  FS1-PB-S-RECEPT     PIC  X(01).
019900     12  FS1-PB-S-EXP-RAF    PIC  X(01).
020000     12  FS1-PB-S-EXP-DEB    PIC  X(01).
020100     12  FS1-PB-S-AJUST      PIC  X(01).
020200     12  FS1-PB-S-STOK-FIN   PIC  X(01).
017900*** MODIFICATION DEMANDE N 980698 ***
017900 01  ENTREE-PB.
018000     12  FE1-PB-QUEST        PIC  X(02).
018100     12  FE1-PB-DATE.
018200         16  FE1-PB-DATE-AA  PIC  9(02).
018300         16  FE1-PB-DATE-MM  PIC  9(02).
018400     12  FE1-PB-CDECLAR      PIC  X(05).
018500     12  FILLER              PIC  X(04).
018600     12  FE1-PB-NUM-LIG      PIC  9(03).
018700     12  FE1-PB-CMVT         PIC  X(01).
018800     12  FE1-PB-CDEPOT       PIC  X(04).
018900     12  FE1-PB-CDHYCA       PIC  X(03).
019000     12  FE1-PB-IMPORT       PIC S9(07).
019100     12  FE1-PB-RECEPT       PIC S9(07).
019200     12  FE1-PB-EXP-RAF      PIC S9(07).
019300     12  FE1-PB-EXP-DEB      PIC S9(07).
019400     12  FE1-PB-AJUST        PIC S9(07).
019500     12  FE1-PB-STOK-FIN     PIC S9(07).
019600     12  FILLER              PIC  X(76).
019700     12  FE1-PB-S-IMPORT     PIC  X(01).
019800     12  FE1-PB-S-RECEPT     PIC  X(01).
019900     12  FE1-PB-S-EXP-RAF    PIC  X(01).
020000     12  FE1-PB-S-EXP-DEB    PIC  X(01).
020100     12  FE1-PB-S-AJUST      PIC  X(01).
020200     12  FE1-PB-S-STOK-FIN   PIC  X(01).
020200*** FIN MODIFICATION DEMANDE N 980698 ***
020300 01  DATE-IOCS.
020400     12  DATE-IOCS-AA        PIC  X(02).
020500     12  DATE-IOCS-JJJ       PIC  X(03).
020600*
020700 PROCEDURE DIVISION.
020800*
020900     DISPLAY MES-1.
021000     OPEN  INPUT FICENT.
021100     OPEN  INPUT FICDATE.
021200     OPEN OUTPUT FICSOR.
021300     OPEN OUTPUT FICDATES.
021400******************************************************************
021500*                                                                *
021600*    RECUPERATION DU NUMERO DU LOT PRECEDENT                     *
021700*                                                                *
021800******************************************************************
021900 LECTURE-REPORT.
022000     READ FICDATE                    AT  END
022100         DISPLAY MES-1 'FICHIER DATE CPDP PREC ABSENT OU VIDE'
022200         DISPLAY MES-2
022300         CALL    'SPABD'  USING  ZABEND1 ZABEND2.
022400     IF  ENT-NUM                 NOT =   '00'
022500         DISPLAY MES-1 'FICHIER DATE CPDP A REVOIR (CODE DEB) '
022600         DISPLAY MES-2
022700         CALL    'SPABD'  USING  ZABEND1 ZABEND2.
022800     MOVE ENRGT-DATE                 TO  SORTIE-QUEUE.
022900     ADD     1                       TO  SOR-LOT-2.
023000     MOVE SOR-LOT-2                  TO  SOR-LOT-1.
023100     MOVE 0                          TO  SOR-MVT.
023200     ACCEPT DATE-IOCS              FROM  DAY.
023300     MOVE DATE-IOCS   TO  SOR-DATE-1  SOR-DATE-2.
023400     WRITE ENRGT-FICSOR            FROM  SORTIE-ENTETE.
023500*
023600 LECTURE-ENTREE.
023700*
023800     READ FICENT                     AT  END
023900         GO  TO  FIN-TRAVAIL.
024000*
024100 TEST-QUEST.
024200*
024300     IF  ENT-QUEST                   =   'B1'
024400         WRITE ENRGT-FICSOR       FROM  ENRGT-ENTREE
024500         ADD   1                  TO  SOR-MVT
024600         GO  TO  LECTURE-ENTREE.
024700     IF  ENT-QUEST                   =   'PA'
024800         MOVE ENRGT-ENTREE           TO  SORTIE-PA
024800*** MODIFICATION DEMANDE N 980698 ***
024800*        MOVE ENRGT-ENTREE           TO  ENTREE-PA
024800*** FIN MODIFICATION DEMANDE N 980698 ***
024900         GO  TO  EDITION-PA.
025000     IF  ENT-QUEST                   =   'PB'
025100         MOVE ENRGT-ENTREE           TO  SORTIE-PB
025100*** MODIFICATION DEMANDE N 980698 ***
025100         MOVE ENRGT-ENTREE           TO  ENTREE-PB
025100*** FIN MODIFICATION DEMANDE N 980698 ***
025200         GO  TO  EDITION-PB.
025300     IF  ENT-QUEST                   =   'P1'
025400         MOVE ENRGT-ENTREE           TO  SORTIE-P1
025400*** MODIFICATION DEMANDE N 980698 ***
025400         MOVE ENRGT-ENTREE           TO  ENTREE-P1
025400*** FIN MODIFICATION DEMANDE N 980698 ***
025500         GO  TO  EDITION-P1.
025600     IF  ENT-QUEST                   =   'P2'
025700         MOVE ENRGT-ENTREE           TO  SORTIE-P2
025700*** MODIFICATION DEMANDE N 980698 ***
025700         MOVE ENRGT-ENTREE           TO  ENTREE-P2
025700*** FIN MODIFICATION DEMANDE N 980698 ***
025800         GO  TO  EDITION-P2.
025900     GO  TO  LECTURE-ENTREE.
026000*
026100 FIN-TRAVAIL.
026200*
026300     MOVE    '02'    TO   SQ-ENR.
026400     WRITE ENRGT-FICSOR            FROM  SORTIE-QUEUE.
026500     MOVE    '00'    TO   SQ-ENR.
026600     WRITE ENRGT-DATES             FROM  SORTIE-QUEUE.
026700     CLOSE FICENT.
026800     CLOSE FICSOR.
026900     CLOSE FICDATE.
027000     CLOSE FICDATES.
027100     STOP RUN.
027200*
027300 EDITION-PA.
027400*
027400*** MODIFICATION DEMANDE N 980698 ***
027500*    IF  FS1-PA-RECEPT               <   0
027500     IF  FS1-PA-RECEPT-S             <   0
027500*** FIN MODIFICATION DEMANDE N 980698 ***
027600         MOVE 'N'                TO  FS1-PA-S-RECEPT
027700         ELSE
027800         MOVE 'P'                TO  FS1-PA-S-RECEPT.
027900     MOVE    FS1-PA-RECEPT       TO    ST-SIGNE.
028000     MOVE    ST-SIGNE            TO    FS1-PA-RECEPT.
      *** MODIFICATION DEMANDE N 980698 ***
      *    IF  FS1-PA-EXPED-RAF            <   0
           IF  FS1-PA-EXPED-RAF-S          <   0
      *** FIN MODIFICATION DEMANDE N 980698 ***
028200         MOVE 'N'                TO  FS1-PA-S-EXPED-RAF
028300         ELSE
028400         MOVE 'P'                TO  FS1-PA-S-EXPED-RAF.
028500     MOVE    FS1-PA-EXPED-RAF    TO    ST-SIGNE.
028600     MOVE    ST-SIGNE            TO    FS1-PA-EXPED-RAF.
      *** MODIFICATION DEMANDE N 980698 ***
      *    IF  FS1-PA-EXPED-AUT            <   0
           IF  FS1-PA-EXPED-AUT-S          <   0
      *** FIN MODIFICATION DEMANDE N 980698 ***
028800         MOVE 'N'                TO  FS1-PA-S-EXPED-AUT
028900         ELSE
029000         MOVE 'P'                TO  FS1-PA-S-EXPED-AUT.
029100     MOVE    FS1-PA-EXPED-AUT    TO    ST-SIGNE.
029200     MOVE    ST-SIGNE            TO    FS1-PA-EXPED-AUT.
      *** MODIFICATION DEMANDE N 980698 ***
      *    IF  FS1-PA-STOK-FIN             <   0
           IF  FS1-PA-STOK-FIN-S           <   0
      *** FIN MODIFICATION DEMANDE N 980698 ***
029400         MOVE 'N'                TO  FS1-PA-S-STOK-FIN
029500         ELSE
029600         MOVE 'P'                TO  FS1-PA-S-STOK-FIN.
029700     MOVE    FS1-PA-STOK-FIN     TO    ST-SIGNE.
029800     MOVE    ST-SIGNE            TO    FS1-PA-STOK-FIN.
      *** MODIFICATION DEMANDE N 980698 ***
      *    IF  FS1-PA-STOK-LIGNE           <   0
           IF  FS1-PA-STOK-LIG-S           <   0
      *** FIN MODIFICATION DEMANDE N 980698 ***
030000         MOVE 'N'                TO  FS1-PA-S-STOK-LIGNE
030100         ELSE
030200         MOVE 'P'                TO  FS1-PA-S-STOK-LIGNE.
030300     MOVE    FS1-PA-STOK-LIGNE   TO    ST-SIGNE.
030400     MOVE    ST-SIGNE            TO    FS1-PA-STOK-LIGNE.
030500     WRITE   ENRGT-FICSOR          FROM  SORTIE-PA.
030600     ADD   1                         TO  SOR-MVT.
030700     GO  TO  LECTURE-ENTREE.
030800*                                                                *
030900 EDITION-PB.
031000*
031000*** MODIFICATION DEMANDE N 980698 ***
031100*    IF  FS1-PB-IMPORT               <   0
031100     IF  FE1-PB-IMPORT               <   0
      *** FIN MODIFICATION DEMANDE N 980698 ***
031200         MOVE 'N'                TO  FS1-PB-S-IMPORT
031300         ELSE
031400         MOVE 'P'                TO  FS1-PB-S-IMPORT.
031500     MOVE    FS1-PB-IMPORT       TO    ST-SIGNE.
031600     MOVE    ST-SIGNE            TO    FS1-PB-IMPORT.
031000*** MODIFICATION DEMANDE N 980698 ***
031700*    IF  FS1-PB-RECEPT               <   0
031700     IF  FE1-PB-RECEPT               <   0
      *** FIN MODIFICATION DEMANDE N 980698 ***
031800         MOVE 'N'                TO  FS1-PB-S-RECEPT
031900         ELSE
032000         MOVE 'P'                TO  FS1-PB-S-RECEPT.
032100     MOVE    FS1-PB-RECEPT       TO    ST-SIGNE.
032200     MOVE    ST-SIGNE            TO    FS1-PB-RECEPT.
031000*** MODIFICATION DEMANDE N 980698 ***
032300*    IF  FS1-PB-EXP-RAF              <   0
032300     IF  FE1-PB-EXP-RAF              <   0
      *** FIN MODIFICATION DEMANDE N 980698 ***
032400         MOVE 'N'                TO  FS1-PB-S-EXP-RAF
032500         ELSE
032600         MOVE 'P'                TO  FS1-PB-S-EXP-RAF.
032700     MOVE    FS1-PB-EXP-RAF      TO    ST-SIGNE.
032800     MOVE    ST-SIGNE            TO    FS1-PB-EXP-RAF.
031000*** MODIFICATION DEMANDE N 980698 ***
032900*    IF  FS1-PB-EXP-DEB              <   0
032900     IF  FE1-PB-EXP-DEB              <   0
      *** FIN MODIFICATION DEMANDE N 980698 ***
033000         MOVE 'N'                TO  FS1-PB-S-EXP-DEB
033100         ELSE
033200         MOVE 'P'                TO  FS1-PB-S-EXP-DEB.
033300     MOVE    FS1-PB-EXP-DEB      TO    ST-SIGNE.
033400     MOVE    ST-SIGNE            TO    FS1-PB-EXP-DEB.
031000*** MODIFICATION DEMANDE N 980698 ***
033500*    IF  FS1-PB-AJUST                <   0
033500     IF  FE1-PB-AJUST                <   0
      *** FIN MODIFICATION DEMANDE N 980698 ***
033600         MOVE 'N'                TO  FS1-PB-S-AJUST
033700         ELSE
033800         MOVE 'P'                TO  FS1-PB-S-AJUST.
033900     MOVE    FS1-PB-AJUST        TO    ST-SIGNE.
034000     MOVE    ST-SIGNE            TO    FS1-PB-AJUST.
034100     WRITE   ENRGT-FICSOR          FROM  SORTIE-PB.
034200     ADD   1                         TO  SOR-MVT.
034300     GO  TO  LECTURE-ENTREE.
034400*                                                                *
034500 EDITION-P1.
034600*                                                                *
034700*** MODIFICATION DEMANDE N 980698 ***
034700*    IF  FS1-P1-RECEPT               <   0
034700     IF  FE1-P1-RECEPT               <   0
034700*** FIN MODIFICATION DEMANDE N 980698 ***
034800         MOVE 'N'                TO  FS1-P1-S-RECEPT
034900         ELSE
035000         MOVE 'P'                TO  FS1-P1-S-RECEPT.
035100     MOVE    FS1-P1-RECEPT       TO    ST-SIGNE.
035200     MOVE    ST-SIGNE            TO    FS1-P1-RECEPT.
035300*** MODIFICATION DEMANDE N 980698 ***
035300*    IF  FS1-P1-TRAIT                <   0
035300     IF  FE1-P1-TRAIT                <   0
035300*** FIN MODIFICATION DEMANDE N 980698 ***
035400         MOVE 'N'                TO  FS1-P1-S-TRAIT
035500         ELSE
035600         MOVE 'P'                TO  FS1-P1-S-TRAIT.
035700     MOVE    FS1-P1-TRAIT        TO    ST-SIGNE.
035800     MOVE    ST-SIGNE            TO    FS1-P1-TRAIT.
035900*** MODIFICATION DEMANDE N 980698 ***
035900*    IF  FS1-P1-STOK-FIN             <   0
035900     IF  FE1-P1-STOK-FIN             <   0
035900*** FIN MODIFICATION DEMANDE N 980698 ***
036000         MOVE 'N'                TO  FS1-P1-S-STOK-FIN
036100         ELSE
036200         MOVE 'P'                TO  FS1-P1-S-STOK-FIN.
036300     MOVE    FS1-P1-STOK-FIN     TO    ST-SIGNE.
036400     MOVE    ST-SIGNE            TO    FS1-P1-STOK-FIN.
036500     WRITE   ENRGT-FICSOR          FROM  SORTIE-P1.
036600     ADD   1                         TO  SOR-MVT.
036700     GO  TO  LECTURE-ENTREE.
036800*
036900 EDITION-P2.
037000*
037100*** MODIFICATION DEMANDE N 980698 ***
037100*    IF  FS1-P2-IMPORT               <   0
037100     IF  FE1-P2-IMPORT               <   0
037100*** FIN MODIFICATION DEMANDE N 980698 ***
037200         MOVE 'N'                TO  FS1-P2-S-IMPORT
037300         ELSE
037400         MOVE 'P'                TO  FS1-P2-S-IMPORT.
037500     MOVE    FS1-P2-IMPORT       TO    ST-SIGNE.
037600     MOVE    ST-SIGNE            TO    FS1-P2-IMPORT.
037700*** MODIFICATION DEMANDE N 980698 ***
037700*    IF  FS1-P2-RECEPT               <   0
037700     IF  FE1-P2-RECEPT               <   0
037700*** FIN MODIFICATION DEMANDE N 980698 ***
037800         MOVE 'N'                TO  FS1-P2-S-RECEPT
037900         ELSE
038000         MOVE 'P'                TO  FS1-P2-S-RECEPT.
038100     MOVE    FS1-P2-RECEPT       TO    ST-SIGNE.
038200     MOVE    ST-SIGNE            TO    FS1-P2-RECEPT.
038300*** MODIFICATION DEMANDE N 980698 ***
038300*    IF  FS1-P2-PRODUCT              <   0
038300     IF  FE1-P2-PRODUCT              <   0
038300*** FIN MODIFICATION DEMANDE N 980698 ***
038400         MOVE 'N'                TO  FS1-P2-S-PRODUCT
038500         ELSE
038600         MOVE 'P'                TO  FS1-P2-S-PRODUCT.
038700     MOVE    FS1-P2-PRODUCT      TO    ST-SIGNE.
038800     MOVE    ST-SIGNE            TO    FS1-P2-PRODUCT.
038900*** MODIFICATION DEMANDE N 980698 ***
038900*    IF  FS1-P2-EXPED                <   0
038900     IF  FE1-P2-EXPED                <   0
038900*** FIN MODIFICATION DEMANDE N 980698 ***
039000         MOVE 'N'                TO  FS1-P2-S-EXPED
039100         ELSE
039200         MOVE 'P'                TO  FS1-P2-S-EXPED.
039300     MOVE    FS1-P2-EXPED        TO    ST-SIGNE.
039400     MOVE    ST-SIGNE            TO    FS1-P2-EXPED.
039500*** MODIFICATION DEMANDE N 980698 ***
039500*    IF  FS1-P2-CONSOM               <   0
039500     IF  FE1-P2-CONSOM               <   0
039500*** FIN MODIFICATION DEMANDE N 980698 ***
039600         MOVE 'N'                TO  FS1-P2-S-CONSOM
039700         ELSE
039800         MOVE 'P'                TO  FS1-P2-S-CONSOM.
039900     MOVE    FS1-P2-CONSOM       TO    ST-SIGNE.
040000     MOVE    ST-SIGNE            TO    FS1-P2-CONSOM.
040100*** MODIFICATION DEMANDE N 980698 ***
040100*    IF  FS1-P2-STOK-FIN             <   0
040100     IF  FE1-P2-STOK-FIN             <   0
040100*** FIN MODIFICATION DEMANDE N 980698 ***
040200         MOVE 'N'                TO  FS1-P2-S-STOK-FIN
040300         ELSE
040400         MOVE 'P'                TO  FS1-P2-S-STOK-FIN.
040500     MOVE    FS1-P2-STOK-FIN     TO    ST-SIGNE.
040600     MOVE    ST-SIGNE            TO    FS1-P2-STOK-FIN.
040700     WRITE ENRGT-FICSOR            FROM  SORTIE-P2.
040800     ADD   1                         TO  SOR-MVT.
040900     GO  TO  LECTURE-ENTREE.
 
 
 
 
ARGH !! non ?
El_gringo

k666 a écrit a écrit :

moi j'aime bien nommer mes variables n importe comment, du style
 
aZeaze[tox1] = blah;
 
comme ça personne ne comprend et ça donne l'impression que je sais kek chose  :D




 
...ça donne plutot l'impression d'un esprit léger (pour pas dire con !) :D :D
prettysmile perso je code
if (cond)
{
     exp;
}
en indentant avec des tabulations, c'est moins pénibles que les espaces
petoulachi ça c malin  :lol:
k666 moi j'aime bien nommer mes variables n importe comment, du style
 
aZeaze[tox1] = blah;
 
comme ça personne ne comprend et ça donne l'impression que je sais kek chose  :D
petoulachi tiens j'ai une idée:  
on va donner la solution que l'on a adopté avec son cursus scolaire.
PArce que ça vient peut etre simplement de notre formation.
moi perso j'ai fait un IUT info (enfin je le fini ..), et c eux qui m'ont apris a presenter le code de cette maniere.
et je les en remercie  :jap:
petoulachi altac> le pb, c'est qu'on bosse sous windows bien sur  :fou:  
 
youdontcare> Je programme exactement comme toi, sauf pour l'utilisation de l'operateur ternaire; je l'utilise vraiment peu souvent, pour des instructions simples (genre a=1), parce que sinon je le trouve pas lisible
Sinon, de mon coté, l'indentation pour moi c 4 caracteres, et c sacré !
 
Les gens qui codent comme des porcs n'ont jamais du avoir besoin de reprendre le code de qqu je pense !
El_gringo

JPA a écrit a écrit :

Pour être plus lisible, moi je fais ainsi :

Code :
  1. public int somme(int Int_x, int Int_y)
  2. {
  3.     return (Int_x+Int_y);
  4. }


 
Toutes mes variables sont "préfixées" de leur type.
 
Pour le fun, j'avais vu il y a qq temps des codes intentionnellement obscurs, un concours étant même organisé tous les ans. Un des must était un code qui s'exécutait en C et en Bash sans erreur.
Si je le retrouve je le poste.
A+




 
D'accord, mais mieux vaut qd même préfixer avec des abréviations, parce que, tant que c int, ou long, ça va, mais si ta variable est tu type COleDateTime, ou CMapToString, g peur que les nom de tes variables soit un p'tit peu alourdis ! :D  :D
altac petoulachi> juste au cas ou t'aurais encore a reformatter du code crados, essaye le chti' utilitaire "indent" (sous unix d'habitude), c'est merveilleux ;) tu lui dis comment tu codes et il fait tout tout seul !
Roswell_ serieux pourquoi ça:
 
function rien() {
    for (var i = 0; i < 12; i++) {
        if (i >= 3) {
            j = 36;
            l++;
        }
        else {  
            kedal[i] = 2;
        }
    }
}
 
serait plus lisible que ça:
 
function rien()
{
    for (var i = 0; i < 12; i++)
    {
        if (i >= 3)
        {
            j = 36;
            l++;
        }
        else
        {  
            kedal[i] = 2;
        }
    }
}
 
Moi je préfere la seconde.
Aricoh à mon boulot, j'ai vu du code (Perl) écrit comme ça :
 
if (condition) {instruction;} else {instruction;}
 
eh bien, c'est une HORREUR :( :( :( !!!!!!!!!!!!!!!!
 
je préfère, ET DE LOIN, ma façon de bosser :
 
if (condition)
{
    instruction;
}
else
{
    instruction;
}
 
Les collègues râlent parce que je fais des scripts à rallonge en terme de nbre de lignes mais j'sais pas trop, du code de merde "tout sur une seule ligne", vous en pensez quoi ?
gilou Premiere methode pour moi aussi, depuis toujours.
A+,
John74 ah merci pour ce topic je me suis régalé ! c'est vraiment intéressant de voir les habitudes de chacun, et surtout comment certains massacre le code :D
 
attention je ne critique pas, moi aussi j'ai programmé pendant des années du genre
 
if (condition) { instruction; instruction; } else
{ instruction; instrcution; }
 
...et des meilleurs ! mais bon faut avouer que ce genre d'indentation sauvage, et je sais qu'il y en a beaucoup qui programment de cette façon, ben je vous garantis que pour lire des codes avec de très nombreux niveaux d'imbrications vous devenez dingue de chez maboul !
 
la méthode ci-dessous est à mon avis la seule pour s'en sortir facilement
 
if (condition)
{
   instruction;
   instruction;
}
else
   if (condition)
   {
      instruction;
      instruction;
   }
   else
   {
      instruction;
      instruction;
   }
 
 
en supprimant les {} lorsqu'il n'y a qu'une seule instruction bien sûr !
 
et un espacement de trois caractères, toujours ! c'est presque religieux :)
 
avec 2 caractères on perd en lisibilité, et en cas d'erreur d'un seul caractère vers la droite ou la gauche on perd complètement l'alignement et on passe du temps inutile à corriger, alors qu'avec 3 caractères vous avez une marge d'erreur ! 4 ou plus c'est pas mal non plus mais le problème c'est de nouveau les codes avec un grd nombre de niveaux d'imbrications, on est vite "poussé" vers la droite et ça devient vite stressant ! 3 c'est à mon avis le meilleur compromis
 
mais bon l'espacement 2 ou 8 à la limite ça me dérange pas trop ! par contre lire du code mal indenté je place ça dans la catégorie tortures violentes ! ;)
antp moi je l'utilise très souvent, mais j'ai tendance à ajouter des trucs pas prévus.
c'est bien les truc genre
  iMachin: integer;
  aiTruc: array[1..10] of integer;
etc... ?
sinon les chaines par ex je fais tj:
  strChaine: string;
ou en C:
  char szChaine[10];
Pour les contrôles genre bouton, checkbox, etc... je met btn, cb, etc...
myblood Bonjour
Juste pour savoir et faire rebondir le debat  :D Qui utilise vraiment la programmation à la hongroise (pour ceux qui travaille surtout sous visual c++)?
Sh@rdar bin moi ça dépends des fois ;-)
 
je trouve plus lisible ma page HTMl avec le code php dedans, toi tu fais l'inverse : de l'HTML dans du PHP  :pt1cable:

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)