L'Ordinateur Individuel n°45 février 1983
L'Ordinateur Individuel n°45 février 1983
  • Prix facial : 20 F

  • Parution : n°45 de février 1983

  • Périodicité : mensuel

  • Editeur : Groupe Tests

  • Format : (202 x 281) mm

  • Nombre de pages : 254

  • Taille du fichier PDF : 257 Mo

  • Dans ce numéro : création artistique et informatique... tout un programme !

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 134 - 135  |  Aller à la page   OK
Pages suivantes >
134 135
Programme de dessin sur TRS-80 (début) 1 REM DUI ; 1.j1N SUR IR600 2 REM PPR FREDERIC FRPNCOIS 1 REM COPYRIGHT L'ORDINATEUR INDIVIDUEL ET L'AUTEUR 4 REM 15 CLEPR 5000 : CLS : DIM ECt(5,25) 20 GOTO 5000:REM EXPLICATIONS 25'DESSIN 30 GOSUB 5500:REM INITIPLISPTIONS 40 P=POINT(X,Y) no SET(X,Y) 60 FOR T=1 TO 50:IF PEEK(14591)00 THEN T=50:NEXT T:GOTO 100 70 NEXT 80 IF POINT(X,Y) THEN RESET (X,Y) ELSE SET(X,Y) 90 GOT060 100 RS=INKEY$:IF Rt="D" THEN DE=1-DE 110 IF Rt="K" THEN 30 120 IF Re=oc" THEN 6000 110 IF Re=" ! " THEN 8000 150 IF DE=1 THEN PRINT 0960,"DELETE " : ELSE PRINT3960,"TRPCE 155 IF PEEK(15300)=E THEN GOSUB 500 : Y=Y-1:GOTO 200 170 IF PEEK(157.00)=16 THEN GOSUB 500:Y=Y+1:GOTO 200 175 IF PEEK(15300)=64 THEN GOSUP500:X=X+1:60T0200 180 IF PEEK(15300)=12 THEN GOSUB 500:X=X-1:GOTO 200 181 IF PEEK(15300)=9 THEN GOSUB 600:Y=Y-1:00TO 200 182 IF PEEK(15300).17 THEN GOSUB 600:Y=Y+1:GOTO 200 103 IF PEEK(15300)=65 THEN GOSUB 600:X=X+1:00TO 200 184 IF PEEK(15300)=33 THEN GOSUB 600:X=X-1:GOTO 200 185 GOTO 60 200 IF 1(0 THENX.0 201 IF X)127 THENX.127 202 IF Y(0 THEN Y.0 203 IF Y)44 THEN Y=44 210 GOTO 40 500 IF DE=1 THEN RESET(X,Y):00TO 550 510 IF DE=0 THEN SET(X,Y):GOTO 550 550 RETURN F00 IF P=0 THEN RESET(X,Y) ELSE SET(X,Y) 610 RETURN 4999 END 5000'EXPLICRTIDNS 5001 CLS 5010 PRINT" 5020 PRINT" DESSINS SUR TRS 80 _-_-_-_-_-_-_- 5010 PRINT 5040'DE F. FRANCOIS, SUR TRS 80 16K BASIC L2 5045 COLLEGE DES ROUGIERES 8340E HYERES 5050 PRINT" #1 FRIRE UN GRAPHIQUE 5060 PRINT" #2 SAUVEGARDE SUR CASSETTE 5070 PRINT" #3 CHARGEMENT D'UN DESSIN 5050 PRINT" #4 AFFICHAGE D'UN DESSIN 5085'POSSIBILITE : #5 TRACE SUR IMPRIMANTE GRAPHIQUE 5090 PRINT 5100 INPUT" VOTRE CHOIX 5110 IF OP=1 THEN 5200 5120 IF OP=4 THEN £500 5130 IF OP=2 THEN 7000 5140 IF OP=3 THEN 7500 5199 GOTO 5100 5200 PRINT" OP FRIRE UN GRAPHIQUE 5210 PRINT" CE PROGRAMME UTILISE UN MODE EDITEUR GRAPHIQUE 5220 PRINT 5230 PRINT"UTILISEZ LES 4 FLECHES DIRECTIONELLES POUR TRACER 5240 R ; UNT" SHIFTEZ LES POUR DEPLACER LE CURSEUR 5250 PRINT"PRESSEZ'D'POUR ENTRER EN MODE. EFFACEMENT ET UTI - 5260 PRINT" LISEZ LES FLECHES DIREETIONELLES. 8270 PRINT 5280 PRINT"SI VOTRE DESSIN NE VOUS SPTISFPIT PAS PRESSEZ'K'," 5290 PRINT" POUR SAUVER VOTRE DESSIN PRESSEZ'CP. 5291 PRINT 5292 PRINT"POUR ECRIRE UN TEXTE FRAPPEZ' !' : ON OBTIENT LES " 5293 PRINT" LETTRES MINUSCULES AVEC ! SHIFT) 8295 PRINT 5300 INPUT"PAGE NO " ; PR 5301 GOTO 30 5500 X=63 : Y=24 5301 CLS 5599 RETURN 6000 FOR W=1 TO 4 6003 ECS(W,PA)="" 6005 NEXT W 6007 FOR W=1 TO 4 F010 FOR OW-=0 TO 239 6020 ECS(W,PA)=EC,(W,PA)+CHRSPEEK(153604-(W-1).240+QW)/F025 NEXT OW,W 6010 CLS:INPUT"NOM " ; Nt(PR) 6040 INPUT" DATE "ID1, 6050 INPUT" AUTEUR "10$ 6060 LOTO 5000 6500 INPUT"PAGES (INF SUP) "IP1,P2 6503 INPUT"V1TESSE D'EXECUTION "IFIG 6505 CLS 6507 FOR RT=P1 TO P2 6508 CLS 6510 FOR W=1 TO 4 L'Ordinateur Individuel 134 l'aide des quatre flèches directionnelles) laisse une trace sur l'écran. Si l'on désire déplacer ce crayon sans laisser de trace on doit appuyer sur la touche SHIFT quand on actionne les flèches. Vous pouvez même identifier votre oeuvre en indiquant votre nom Si après une fausse manoeuvre, on souhaite effacer ce qui est en trop, alors passer à la commande DELETE en appuyant sur la touche D : effacer un trait consiste à déplacer l'« effaceur » à l'aide des flèches directionnelles. Bien entendu, il est possible de déplacer le curseur sans rien effacer en appuyant sur la touche SHIFT, tout comme en mode TRACE. Pour quitter le mode DE- LETE et repasser en mode TRACE, il suffit d'appuyer de nouveau sur la touche D. Si l'on désire inscrire des commentaires ou placer des lettres repères, appuyer sur « ! » pour passer en mode LETTRE : le petit curseur se transforme en gros pavé et il suffit d'introduire le texte au clavier. Ces caractères seront, de préférence, inscrits à la fin des tracés. N'ayez pas peur ! Un dessin raté peut être recommencé A partir du mode LETTRES, il est possible de passer en mode GRAPHICS en tapant « » (guillemets) ; aussitôt, la série des caractères graphiques apparaît sur la dernière ligne, ainsi que les touches correspondantes. En frappant la lettre indiquée, le caractère graphique est affiché. En mode LETTRES ou GRAPHICS, le curseur peut être déplacé à l'aide des flèches. Pour revenir au mode TRACE à n'45 Févner 83
Programme de dessin sur TRS-80 (fin) 6520 PRINT SC$(W,RT) ; 6530 NEXT W 6545 I^ HGOO THON FOR T=I TO PG1,100:NEXT 1-:GOTO £555 5547 PRINT@S60,"PR. (0) POUR CONTIPTAJER",N$(Rfl ; 6550 R$=INREY$IFR$0"0"THEN 6550 6555 NEXT RT 6560 CLS 6570 PRINT:PRINT 6580 PRINT" #1 REVENIR AU MENU 5590 PRINT" #2 REVOIR LES DESSINS 5600 PRINT" #3 MODIFIER UN DESSIN IO PRINfl'IIMP'27"VOTRE CHOU " ; CH 2620 7r CHI THEN 6562 6670 TF 7H17N 5000u,(2 IF CH ":'HEN 6500C,P45 IKPUT"PrIGE NO" ; PA GE.50 FOR 7=1 70 4 E680 PRINT EC$(T,PA) ; E570 NEXT T 6600 X=69:Y=24 6690 00T040 5999'SAUVEGARDE SUR CASSETTE 7000 INPUT"PREPAREZ VOTRE. ENREGISTREUR ET PRESSEZ 1 9010 TS=PEER(RR%) 9020 IF KL=64THEN PORE 14312,100XL=0 9030 IF PEER(14312))123 THEN 9030 9040 PORE 14312,TS 9050 NEXT KR% 9060 RETURN PBCDEFGH I JKLMNOPORSTLIVW X Y Z n°45 Février 83 135 partir du mode LETTRES, il suffit de taper « ! ». Si le dessin est complètement raté, la touche « K » permet de l'effacer et l'écran est à nouveau prêt. Lorsque le dessin est terminé, on le valide en appuyant sur la touche « Q » ; quelques secondes après, l'écran s'efface et on doit alors identifier l'ceuvre : nom du dessin, date et nom de l'opérateur. Deuxième et troisième option : « sauvegarde et chargement sur cassette ». Chaque page peut être sauvegardée sur une cassette comme un fichier et ensuite pourra être rechargée. Quatrième option : « revoir un dessin ». Pour réaliser ceci, il faut alors préciser le numéro de la première page à afficher et de la dernière de la série. La vitesse d'exécution est caractérisée par un nombre : 0 s'il n'y a qu'un seul dessin ou si l'on désire séparer chaque dessin, ou bien un nombre inversement proportionnel à la vitesse d'exécution demandée. Après les graphismes essayez donc les déplacements Lorsque le ou les dessins ont été affichés, on propose, en appuyant sur « 0 », un nouveau menu à trois options :. revenir au menu principal,. revoir les dessins,. corriger un dessin. Pour le dernier choix, il faut préciser le numéro de la page. Enfin, ceux qui ont la chance de posséder une imprimante avec caractères graphiques pourront ajouter : 6535 GOSUB 9000 et ajouter ainsi la routine 9000. D'un indiscutable intérêt, ce programme peut faire l'objet, bien entendu, de nombreuses améliorations. Porté sur d'autres TRS que le modèle 1, on pourra y ajouter la couleur. Et, pour les plus mordus d'applications graphiques, pourquoi ne pas essayer d'y mettre un peu de mouvement ? Mais avant de réaliser ces desseins, essayez-vous donc au dessin ! Frédéric François L'Ordinateur Individuel



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


L'Ordinateur Individuel numéro 45 février 1983 Page 1L'Ordinateur Individuel numéro 45 février 1983 Page 2-3L'Ordinateur Individuel numéro 45 février 1983 Page 4-5L'Ordinateur Individuel numéro 45 février 1983 Page 6-7L'Ordinateur Individuel numéro 45 février 1983 Page 8-9L'Ordinateur Individuel numéro 45 février 1983 Page 10-11L'Ordinateur Individuel numéro 45 février 1983 Page 12-13L'Ordinateur Individuel numéro 45 février 1983 Page 14-15L'Ordinateur Individuel numéro 45 février 1983 Page 16-17L'Ordinateur Individuel numéro 45 février 1983 Page 18-19L'Ordinateur Individuel numéro 45 février 1983 Page 20-21L'Ordinateur Individuel numéro 45 février 1983 Page 22-23L'Ordinateur Individuel numéro 45 février 1983 Page 24-25L'Ordinateur Individuel numéro 45 février 1983 Page 26-27L'Ordinateur Individuel numéro 45 février 1983 Page 28-29L'Ordinateur Individuel numéro 45 février 1983 Page 30-31L'Ordinateur Individuel numéro 45 février 1983 Page 32-33L'Ordinateur Individuel numéro 45 février 1983 Page 34-35L'Ordinateur Individuel numéro 45 février 1983 Page 36-37L'Ordinateur Individuel numéro 45 février 1983 Page 38-39L'Ordinateur Individuel numéro 45 février 1983 Page 40-41L'Ordinateur Individuel numéro 45 février 1983 Page 42-43L'Ordinateur Individuel numéro 45 février 1983 Page 44-45L'Ordinateur Individuel numéro 45 février 1983 Page 46-47L'Ordinateur Individuel numéro 45 février 1983 Page 48-49L'Ordinateur Individuel numéro 45 février 1983 Page 50-51L'Ordinateur Individuel numéro 45 février 1983 Page 52-53L'Ordinateur Individuel numéro 45 février 1983 Page 54-55L'Ordinateur Individuel numéro 45 février 1983 Page 56-57L'Ordinateur Individuel numéro 45 février 1983 Page 58-59L'Ordinateur Individuel numéro 45 février 1983 Page 60-61L'Ordinateur Individuel numéro 45 février 1983 Page 62-63L'Ordinateur Individuel numéro 45 février 1983 Page 64-65L'Ordinateur Individuel numéro 45 février 1983 Page 66-67L'Ordinateur Individuel numéro 45 février 1983 Page 68-69L'Ordinateur Individuel numéro 45 février 1983 Page 70-71L'Ordinateur Individuel numéro 45 février 1983 Page 72-73L'Ordinateur Individuel numéro 45 février 1983 Page 74-75L'Ordinateur Individuel numéro 45 février 1983 Page 76-77L'Ordinateur Individuel numéro 45 février 1983 Page 78-79L'Ordinateur Individuel numéro 45 février 1983 Page 80-81L'Ordinateur Individuel numéro 45 février 1983 Page 82-83L'Ordinateur Individuel numéro 45 février 1983 Page 84-85L'Ordinateur Individuel numéro 45 février 1983 Page 86-87L'Ordinateur Individuel numéro 45 février 1983 Page 88-89L'Ordinateur Individuel numéro 45 février 1983 Page 90-91L'Ordinateur Individuel numéro 45 février 1983 Page 92-93L'Ordinateur Individuel numéro 45 février 1983 Page 94-95L'Ordinateur Individuel numéro 45 février 1983 Page 96-97L'Ordinateur Individuel numéro 45 février 1983 Page 98-99L'Ordinateur Individuel numéro 45 février 1983 Page 100-101L'Ordinateur Individuel numéro 45 février 1983 Page 102-103L'Ordinateur Individuel numéro 45 février 1983 Page 104-105L'Ordinateur Individuel numéro 45 février 1983 Page 106-107L'Ordinateur Individuel numéro 45 février 1983 Page 108-109L'Ordinateur Individuel numéro 45 février 1983 Page 110-111L'Ordinateur Individuel numéro 45 février 1983 Page 112-113L'Ordinateur Individuel numéro 45 février 1983 Page 114-115L'Ordinateur Individuel numéro 45 février 1983 Page 116-117L'Ordinateur Individuel numéro 45 février 1983 Page 118-119L'Ordinateur Individuel numéro 45 février 1983 Page 120-121L'Ordinateur Individuel numéro 45 février 1983 Page 122-123L'Ordinateur Individuel numéro 45 février 1983 Page 124-125L'Ordinateur Individuel numéro 45 février 1983 Page 126-127L'Ordinateur Individuel numéro 45 février 1983 Page 128-129L'Ordinateur Individuel numéro 45 février 1983 Page 130-131L'Ordinateur Individuel numéro 45 février 1983 Page 132-133L'Ordinateur Individuel numéro 45 février 1983 Page 134-135L'Ordinateur Individuel numéro 45 février 1983 Page 136-137L'Ordinateur Individuel numéro 45 février 1983 Page 138-139L'Ordinateur Individuel numéro 45 février 1983 Page 140-141L'Ordinateur Individuel numéro 45 février 1983 Page 142-143L'Ordinateur Individuel numéro 45 février 1983 Page 144-145L'Ordinateur Individuel numéro 45 février 1983 Page 146-147L'Ordinateur Individuel numéro 45 février 1983 Page 148-149L'Ordinateur Individuel numéro 45 février 1983 Page 150-151L'Ordinateur Individuel numéro 45 février 1983 Page 152-153L'Ordinateur Individuel numéro 45 février 1983 Page 154-155L'Ordinateur Individuel numéro 45 février 1983 Page 156-157L'Ordinateur Individuel numéro 45 février 1983 Page 158-159L'Ordinateur Individuel numéro 45 février 1983 Page 160-161L'Ordinateur Individuel numéro 45 février 1983 Page 162-163L'Ordinateur Individuel numéro 45 février 1983 Page 164-165L'Ordinateur Individuel numéro 45 février 1983 Page 166-167L'Ordinateur Individuel numéro 45 février 1983 Page 168-169L'Ordinateur Individuel numéro 45 février 1983 Page 170-171L'Ordinateur Individuel numéro 45 février 1983 Page 172-173L'Ordinateur Individuel numéro 45 février 1983 Page 174-175L'Ordinateur Individuel numéro 45 février 1983 Page 176-177L'Ordinateur Individuel numéro 45 février 1983 Page 178-179L'Ordinateur Individuel numéro 45 février 1983 Page 180-181L'Ordinateur Individuel numéro 45 février 1983 Page 182-183L'Ordinateur Individuel numéro 45 février 1983 Page 184-185L'Ordinateur Individuel numéro 45 février 1983 Page 186-187L'Ordinateur Individuel numéro 45 février 1983 Page 188-189L'Ordinateur Individuel numéro 45 février 1983 Page 190-191L'Ordinateur Individuel numéro 45 février 1983 Page 192-193L'Ordinateur Individuel numéro 45 février 1983 Page 194-195L'Ordinateur Individuel numéro 45 février 1983 Page 196-197L'Ordinateur Individuel numéro 45 février 1983 Page 198-199L'Ordinateur Individuel numéro 45 février 1983 Page 200-201L'Ordinateur Individuel numéro 45 février 1983 Page 202-203L'Ordinateur Individuel numéro 45 février 1983 Page 204-205L'Ordinateur Individuel numéro 45 février 1983 Page 206-207L'Ordinateur Individuel numéro 45 février 1983 Page 208-209L'Ordinateur Individuel numéro 45 février 1983 Page 210-211L'Ordinateur Individuel numéro 45 février 1983 Page 212-213L'Ordinateur Individuel numéro 45 février 1983 Page 214-215L'Ordinateur Individuel numéro 45 février 1983 Page 216-217L'Ordinateur Individuel numéro 45 février 1983 Page 218-219L'Ordinateur Individuel numéro 45 février 1983 Page 220-221L'Ordinateur Individuel numéro 45 février 1983 Page 222-223L'Ordinateur Individuel numéro 45 février 1983 Page 224-225L'Ordinateur Individuel numéro 45 février 1983 Page 226-227L'Ordinateur Individuel numéro 45 février 1983 Page 228-229L'Ordinateur Individuel numéro 45 février 1983 Page 230-231L'Ordinateur Individuel numéro 45 février 1983 Page 232-233L'Ordinateur Individuel numéro 45 février 1983 Page 234-235L'Ordinateur Individuel numéro 45 février 1983 Page 236-237L'Ordinateur Individuel numéro 45 février 1983 Page 238-239L'Ordinateur Individuel numéro 45 février 1983 Page 240-241L'Ordinateur Individuel numéro 45 février 1983 Page 242-243L'Ordinateur Individuel numéro 45 février 1983 Page 244-245L'Ordinateur Individuel numéro 45 février 1983 Page 246-247L'Ordinateur Individuel numéro 45 février 1983 Page 248-249L'Ordinateur Individuel numéro 45 février 1983 Page 250-251L'Ordinateur Individuel numéro 45 février 1983 Page 252-253L'Ordinateur Individuel numéro 45 février 1983 Page 254