Ce forum est maintenant fermé, seule cette archive statique reste consultable.
  FORUM Rue-Montgallet.com
  Programmation
  Autre

  ptit prog QBASIC

Bas de page
Auteur Sujet :

ptit prog QBASIC

n°19375
thies
Profil : Jeune recrue
Posté le 18-09-2008 à 11:41:37  
 

quelqu'un peut il m'expliquer ce ptit prog en francais svp?
merci
 
 
10 REM SAVE"dirM01    
40  OPEN "I", #1, "fic1.dad"
50  OPEN "R", #2, "fic2.DIR", 94
 
60 FIELD #2, 8 AS A1$, 84 AS A2$, 2 AS A$' modifier si on rajoute des var
70 WHILE NOT EOF(1)
80 INPUT #1, WI$
90 TI = TI + 1
100 TU1$ = MID$(WI$, 1, 8)
110 TU2$ = MID$(WI$, 9, 82)
120 LSET A1$ = TU1$
130 LSET A2$ = TU2$
140 LSET A$ = CHR$(8) + CHR$(10)
150 PUT #2, TI
160 IF RIGHT$(STR$(TI), 3) = "000" THEN PRINT TI
170 WEND
180 CLOSE #1: CLOSE #2
 
 

mood
Pub
Posté le 18-09-2008 à 11:41:37  
 

n°19377
cmoila
Profil : Membre
Posté le 20-09-2008 à 19:05:12  
 

Ces 15 petites lignes de basic sont le parfait exemple du coté totalement illisible de ce langage. Imaginez 15 000 lignes de cette salade ! Ce qui de nos jours correspond à un tout petit prog.
 
Il s'agit d'une "moulinette". C'est à dire un prog utilitaire qui doit faire partie d'un ensemble de programmes.  
En gros, il charge un fichier déja existant (sans doute dans un format texte "fin de ligne" comme séparateur) nommé "fic1.dad".
Et il transforme ce fichier en un deuxieme fichier nommé "fic2.dir" dont la particularité est d'être un fichier Basic a acces indexé (RANDOM). C'est l'équivalent d'une table simple/seule de base de donnée avec des champs de taille fixe en octets (8, 82 et 2) pour chaque ligne correspondant à un enregistrement.
Avec ce fichier "fic2.dir" l'utilisateur pourra atteindre n'importe quelle ligne/enregistrement dans n'importe quel ordre en utilisant son numéro sans avoir à faire défiler tout le fichier comme c'est le cas avec le 1er fichier au format texte.
 
La ligne la plus grandiose de ce programme est la numéro 160. Splendide exemple d'absurde inefficacité fonctionnelle pour résoudre un pb enfantin, à savoir écrire le numéro de l'enregistrement tous les 1000.
 

  FORUM Rue-Montgallet.com
  Programmation
  Autre

  ptit prog QBASIC

© 2000-2024 Forum.rue-montgallet.com - Tous droits réservés