Catalogue; Exemples De Programmes - Texas Instruments Php 1240 Bedienungsanleitung

~
TEXAS INSTRUMENTS
CATALOGUE
Pour accéder au catalogue de la disquette, vous pouvez utiliser le TI
BASIC. Lecatalogueest un fichiersans nom deformat INTERNALetde
type RXED. Exemple d'ouverture du catalogue enTI BASIC:
100 OPEN *1: "DSK1." ,INPUT, RELATIVE, INTERNAL
(ici catalogue de la disquette sur l'unité DSK1)
Il y a 128 enregistrements, de
O
à 127
L'enregistrement
O
contient des informations sur la disquette.
- Le nom de la disquette (jusqu'a 10 caractères)
- Le type d'enregistrement
- Le nombre total de secteurs sur la disquette (358 ou 313, 716 ou
626 en double-face).
- Le nombre de secteurs disponibles
Les enregistrements de 1 à 127 contiennent d es renseignements sur
les fichiers:
- Le nom du fichier
- Le type du fichier
1 = DISPLAY/FIXED
2 = DISPLAYNARIABLE
3 = INTERNAUFIXED
4 = INTERNALNARIABLE
5 = PROGRAMME BASIC OU AUTRE
- La longueur du fichier en nombre de secteurs.
- Le nombre total d'octets par enrégistrement.
Un fichier de type 5 a toujours
O
(zero) comme nombre d'octets par
enrégistrement.
EXEMPLES DE PROGRAMMES
Programme général
1 00 CALL CLEAR
11 O OPEN
*
10: "DSK1.GENFILE", RELATIVE 50,
INTERNAL
120 PRINT "TAPER XXX POUR QUITTER LE MODE
ENTREE"
130 PRINT
Cette première partie donne les instructions d'entrée.
140 REM ENTREE
150 FOR RECORD1=0 TO 49
160 PRINT "ENREGISTREMENT", RECORD1;
170 INPUTX$
180 IF X$="XXX" THEN 230
190 PRINT *10, REC RECORD1:X$
200 NEXT RECORD1
21 O REM PLEIN
220 PRINT "FICHIER PLEIN"
Cette deuxième partie permet d'entrer jusqu'à 50 enrégistrements,
numérotés de
O
à 49. La ligne 180 ve riti e si le dernier enrégistrement a
été entré.
230 REM CONTROLE
240 PRINT "TAPEZ S POUR IMPRIMER UN FICHIER".
250 PRINT "SEQUENTIEL"
260 PRINT "TAPEZ C POUR CHANGER OU"
270 PRINT "AJOUTER UN ENRÉGISTREMENT"
280 PRINT "TAPEZ R POUR IMPRIMER UN"
290 PRINT "ENRÉGISTREMENT"
300 PRINT "TAPEZ L POUR QUITTER"
47
o
PHP 1240
310 PRINT
320 INPUT "VOTRE CHOIX:":Y$
330 PRINT
340 IF Y$="S" THEN 440
350 IF Y$="C" THEN 530
360 IF Y$="L" THEN 630
370 IF Y$="R" THEN 230
Cette troisième parti e permet à l'utilisateurde choisirce qu'il veut fai re.
380 REM IMPRESSION D'UN ENRÉGISTREMENT
390 INPUT "QUEL ENRÉGISTREMENT?: RECORD2
400 IF RECORD2>RECORD1 - 1 THEN 610
410 INPUT *10, REC RECORD2:X$
420 PRINT "ENRÉGISTREMENT", RECORD2;
"EST"; X$
430GOTO 230
La ligne 400 permet de vérifier si l'enrégistrement choisi existe. La
partie suivante imprime tout le fichier dans l'ordre séquentiel.
440 REM SEQUENTIAL
450 PRINT "VOlGI LES"
460 PRINT "ENREGISTREMENTS:"
470 RESTORE
*
10
480 FOR RECORD2=0 TO RECORD1-1
490 INPUT
*
10:X$
500 PRINT RECORD2:X$
51
O
NEXT RECORD2
520GOTO 230
La parti e suivante permet de modifier ou d'ajouter un enrégistrement.
530 REM MODIF. D'UN ENREGISTREMENT
540 INPUT "QUEL ENREGISTREMENT?": RECORD2
550 IF RECORD2>RECORD1 THEN 610
560 INPUT "NOUVELLE VALEUR?":X$
570 PRINT 10, REC RECORD2:X$
580 IF RECORD2<RECORD1 THEN 230
590 RECORD1=RECORD2+ 1
600GOT0230
61
O
PRINT "L'ENREGISTREMENT EST AU"
615 PRINT "DE LA FIN DE FICHIER"
620GOTO 230
La dernière ligne ferme le fichier
630 CLOSE
*
10
ENRÉGISTREMENT OU SOUVEGARDE D'UN ÉCRAN
La partie suivante peut ètre utilisée comme sous-programme pour
garder en mémoire ce qui apparait sur l'écran:
100 REM MEMORISATION D'UN ECRAN
11
O
REM A RAJOUTEA A LA FIN DU PROGRAMME
QUI CREE L'ECRAN
120 REM
130 REM CHOISIR UN NOM DE FICHIER
140 OPEN *20: "NOM DE L'UNITE, NOM DE FICHIER",
INTERNAL
150 FOR ROW=1 TO 24
160 FOR COLUMN=1 TO 32
170 CALL GCHAR (ROW, COLUMN,X)
180 PRINT
*
20:X
190 NEXT COLUMN
200 NEXTROW
21
O
CLOSE
*
20