 
Nous avons hésité longtemps avant de publier un listing de "gestion de compte bancaire" pour finalement vous proposer celui-ci. Ecrit sur CPC 464 + DD1, il sera utilisable sur 664 ou 6128. De même, le module d'impression pour DMP1 a été testé, avec succès, sur compatible EPSON (Citizen 120D). Chacun pourra adapter ce logiciel à ses besoins, tout en bénéficiant de la structure proposée par l'auteur. Ce programme permet la saisie, la visualisation, la modification ou l'annulation, et l'impression de 51 opérations dites de saisie : Non amorties par la banque. De plus il permet la mémorisation de 200 opérations amorties que l'on peut visua-lier ou imprimer. Ces opérations étant classées de 200 en 200 dans des fichiers indépendants, afin de permettre une étude statistique sur ceux-ci. Toutes ces opérations sont classées chronologiquement et instantanément. Ces fichiers sont extensibles (de 17 en 1 7 pour le fichier saisie). UTILISATION DU PROGRAMME A la première utilisation du programme, il sera nécessaire d'initialiser un fichier "SAISIE", en tapant GOSUB 1690. Une fois ce fichier éçrit sur disquette, relancer le programme par RUN. Ce fichier "SAISIE" comprendra, outre les opérations saisies mais non amorties : - les opérations amorties inférieures ou égales à 200 ;
- les soldes : SI (solde initial avant saisie), SA : solde des opérations amorties. Une fois le fichier "saisie" créé, faire un retour en arrière, et RUN.
Le programme va demander une date (JJMMAA) qui sera la référence pour les dates des opérations saisies. Le menu, composé de 8 options apparaîtra ensuite : 1 ) SAISIE : Le masque de saisie une fois créé, suivre les indications dans le cadre à droite. - La première colonne, après le n° opération, est une lettre permettant dans un autre programme, une étude statistique des dépenses du ménage. Ces lettres sont choisies par l'utilisateur Ex : pour impôts, "S" pour santé, "D" pour domestiques, etc. Si l'on frappe F on retourne au menu. La mise en majuscule est automatique (ligne 120).
- 2e colonne : Mode de paiement suivi de 3 chiffres : 000 si il s'agit d'une carte bleue (CB), d'un virement (VIR), d'une domiciliation (DOM), d'un retrait avec la carte (CAR), ou les 3 derniers chiffres, si il s'agit d'un chèque (CH), à donner obligatoirement dans ce cas.
- 4e colonne : Le libellé de l'opération. (Maxi 16 caractères). Le reste étant ignoré.
- 5e colonne : La date (JJMMAA) qui permet un classement instantané dans l'ordre chronologique.
- 6e colonne : Montant débit (sous forme: ###.##). Si l'opération est créditrice, frappez soit : 0 + < ENTER > seul.
- 7e colonne : Montant Crédit. Si l'on frappe à nouveau 0 (zéro) dans cette colonne, ce qui précède est annulé et on retourne au début de la ligne.
- Les 2 dernières colonnes, ainsi que les 2 cases en bas à droite, donnent en permanence le solde du compte suivant qu'il est créditeur ou débiteur.
2) VISUALISATION DE LA SAISIE : Permet une visualisation de la saisie, y compris le solde du compte. 3) MODIFICATION OU ANNULATION : Annule ou modifie une opération saisie (Uniquement dans le fichier des opérations non amorties) : Une fois le n° d'opération donné, celle-ci apparaît en vidéo-inversée, jusqu'à sa modification ou annulation. De plus en modification, un F dans la première colonne, est nul. 4) AMORTISSEMENT : Lors de la réception du relevé de compte de la banque, l'option 4 permet de sortir les sommes "saisie" en attente et de les transférer dans le fichier amortissement. Après le n° donné, il y a demande de confirmation (L'opération étant en vidéo-inversée) : Si on frappe "0", la somme est amortie (irréversible), dans le cas contraire (N), on revient à la demande du n° d'opération. Pour quitter : < ENTER > seul. (Le montant du relevé de compte de la banque. Nous est alors donné pour vérification). 5) SOLDE DU COMPTE : Donne simplement le solde du compte. 6) VISUALISATION ET IMPRESSION. 7) VISUALISATION SANS IMPRESSION. 4 modes de visualisation (impression) sont disponibles : - La totalité du fichier concerné (Amortissement ou saisie).
- A partir d'une date : Les dates extrêmes du fichier sont données à gauche. Il suffit de donner la date à partir de laquelle on veut l'édition.
- A partir d'un enregistrement : Le nombre d'enregistrements est à gauche : Donnez le n° à partir duquel vous voulez l'édition.
- Les N derniers enregistrements : Si l'on ne veut de, par exemple les 5 derniers.
L'impression est donnée sur 80 colonnes. 8) QUITTER : Lorsque l'on a tout fini, en appuyant sur 8 , on provoque la sauvegarde de tout ce qui a été fait. Il ne faut quitter le programme que par cette fonction. LISTES DES PRINCIPALES VARIABLES AA : Nbre Enregistrement du Fichier Amortissement en cours.
Op : Nbre d'opérations Saisie = Nbre d'enregistrement du fichier Saisie.
SI : Solde Initial.
SA : Solde de toutes les opérations amorties.
D$(N) : ENREGISTREMENT des opérations du fichier saisie.
p$(N) : ENREGISTREMENT des opérations amorties.
D5$(N) : Date des opérations du fichier saisie.
DA$(N) : Date des opérations du fichier amortissement en cours. CPC n°18 | Le programme GESTION DE COMPTE BANCAIRE de Georges NARETTO (CPC n° 18) a suscité un courrier important et l'auteur nous fait part de quelques modifications. La ligne 2070 fait apparaître le solde de cette façon : 1000,000001. La solution réside dans un PRINT USING "#####.##". 2070 IF SOLDE Entre les lignes 1580 et 1590 on peut ajouter quelques lignes qui permettront d'imprimer le fichier amortissement avant sa sauvegarde définitive sur la disquette.1560 D$(OP)="" :SV=AA: GOSUB 2100:AA=SV:IF AA=200 THEN GOSUB 1582 ELSE 1580
1570 NEXT
1580 RETURN
1582 CLS:LOCATE 4,10:PRINT"FICHIER AMORTISSEMENT PLEIN":LOCATE 6,10:PRINT"Impression sur imprimante ?"
1584 WHILE A$<>"O“ AND A$<>"N":A$=INKEY$: WEND
1586 IF A$="N" THEN GOSUB 1590:GOTO 1580
1588 M$="AMORTISSEMENT":D=1:DIM I$(200):GOSUB 2250:GOSUB 2270:ERASE I$:GOSUB 1590:GOTO 1580
1590 'SPRG MISE EN FICHIER
1600 FICH$=LEFT$(DA$(1),4)
1610 OPENOUT FICH$
1620 PRINT#9,DA$(1)+DA$(200)
1630 FOR K=1 TO 200
1640 PRINT#9,P$(K)
1650 NEXT
1660 CLOSEOUT
1670 AA=0: ERASE P$:DIM P$(201)
1680 RETURN Pour vous permettre de visualiser un fichier amortissement sauvegardé, entrez ces lignes :5000 DIM I$(200) ,DA$(200) ,P$(201)
5005 CLS:INPUT"Nom du fichier à visualiser";A$
5010 OPENIN A$
5020 I=1:INPUT#9,DA$(1)
5030 WHILE NOT EOF
5040 INPUT#9,P$(I)
5050 I=I+1:WEND
5060 D= 1 : AA= I -1 : I = 1 : DA$ (AA) =RIGHT$(DA$(1) ,6):DA$(1)=LEFT$DA$(1) ,6)t GOSUB 2250:GOSUB 2270
5070 CLS:PRINT"FIN D'EDITION" Une fois le programme principal chargé par LOAD, entrez RUN 5000, puis le nom du fichier à imprimer. Pour un affichage sans impression (tout le monde ne dispose pas d'une imprimante), rajoutez en début ligne 5000, C = 2.Pour avoir les bornes correctes du fichier amortissement, remplacez en ligne 2250 les DA$(OP) par DA$(AA). Enfin, pour éviter tout problème, remplacez en ligne 90 DIM P$(200) par DIM P$(201). Voilà un problème réglé. N'écrivez plus ! |
CPC n°18
| ★ AMSTRAD CPC ★ DOWNLOAD ★ |
|
CPCrulez[Content Management System] v8.7-desktop/c
Page créée en 633 millisecondes et consultée 2005 foisL'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko. |
|
|
