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 : 176 - 177  |  Aller à la page   OK
Pages suivantes >
176 177
IO REM * GUITAR * ACCORDS SUR U NE GUITARE ** PROBLEME 168 20 INTEGER F « 6.16) 30 FOR 1=1 TO 6 40 FOR J=1 TO 16 50 READ Re R(I,J)=A C NEXT J C NE', ; T I 60 OPTA 10,9,8,7,6,5,4,3,2,1,12'11,10.9,8,7 70 DATA 3,2,1,12,11,10,9,8,7,6, 80 ORTR 8,7,6,5,4,3,2.1,12,11,1 0,9,8.7,6,5 90 DATA 1,12,11,10,9,8,7,6,5,4, 3,2,1.12,11,10 100 ORTR 5,4,3,2,1,12,11,10,9,8, 7 6,5,4,3,2 110 DRTR 10,9,8,7,6,5,4,3,2,1,12, 11,10,9,8,7 120 FOR I=1 TO 9 130 READ il@ ReCI,I]=CHRS(P> @ NE XT I 140 DATA 255.255,255.255,255,255.255,255,255 150 CLERR e DISP GU ITARE *******" @ DISP @ DISP 160 DISP " Ce ero.eramme se pi-op° se de vousindiquer les diver ses manieres " 170 OISP "de realizer un accord donne sur une guitare.'13 DI SP 180 DISP " Les barettes sont num erotees dela gauche vers la droite de 17 a 3 "'3 DISP 190 DISP " Au-dela,les accords s ont les cernes qu'au debut " @ WAIT 25000 200 CLERR @ DISP C OISP "QUEL AC CORD DESIREZ-VOUS " C DISP @ DISP " 1 DO majeur 13 LA mineur" 210 DISP " 2 REb majeur 14 SIb mineur" C DISP " 3 RE mm jeur 15 SI mineur" 220 DISP " 4 MIb majeur 16 DO mineur" C DISP " 5 MI ma jeur 17 DO* mineur" 230 OISP " 6 FA majeur 18 RE mineur" @ DIST " 7 SOLb ma jeur 19 MIb mineur" 240 DISP " 8 SOL majeur 20 MI mineur" C DISP " 9 LAb ma jeur 21 FA mineur" 250 DISP "10 LR majeur 22 FR* mineur" @ DISP "Il SIb ma jeur 23 SOL mineur" 260 DISP "12 SI majeur 24 SOL * mineur" C DISP ; @ INPUT A 270 IF R*INT(A) OR A<=0 OR Fi24 THEN 200 280 IF R>12 THEN 300 290 AI=R MOD 12 @ R2=(11+4) MOD 12 C R3=(,12+3) MOD 12 C GOTO 310 700 81=A MOD 12 e A.2=(A1+7.) MOC 12 @ A3=(F12+4) MOD 12 710 IF R1=0 THEN A1=12 320 IF R2=0 THEN R2=12 730 IF R3=0 THEN A3=12 sage en mode graphique ; ALPHA : commande le passage en mode alphanumérique ; LDIR X : indique le sens d'impression de label : 0 = horizontalement, 90 = verticalement ; LABEL : commande l'affichage de caractère en mode g ra phique ; PEN-1 : passage en vidéo inverse ; MOVEX, Y ou déplacent le poin- L'Ordinateur Individuel Programme de guitare 340 S=A1 @ GOSUB 380 350 S=R2 C GOSUB 380 360 9=83 C GOSUB 380 370 GOTO 520 380 ON S GOTO 390,400,410,420,43 0:440,450,460,470,480,490,50 390 BEEP 201,261 GOTO 510 400 EEEP 193,272 e GOTO 510 410 BEEP 177,294 GOTO 510 420 EEEP 170,306 GOTO 510 430 BEEP 158,326 GOTO 510 440 EEEP 147,348 GOTO 510 450 BEEP 141.363 GOTO 510 4613 BEEP 130,392 e GOTO 510 470 BEEP 125,408 GOTO 510 480 BEEP 115,435 GOTO 510 490 SEER 111,453 e GOTO 510 500 EEEP 101,489 510 RETURN 520 T=1 C GRRPH @ GCLEAR @ H=1 C GOSUB 770 C GOSUE : 780 @ FOR H=1 TO 12 530 GOSUB 770 @ GOSUB 830 @ LOIR e C NOVE (H+3.5)*10,1 @ LRE : EL VALS(T) 540 FOR 11=H TO H+4 550 FOR J1=1 TO 6 560 IF R(J1,11)=A1 THEN 570 ELSE 720 570 FOR 12=H TO H+4 580 FOR J2=1 TO 6 590 IF A(J2,I2)=A2 THEN 600 ELSE 700 500 FOR 13=H TO H+4 610 FOR J3=1 TO C 62e IF R(J3,I3)=A3 THEN 630 ELSE 68e 630 IF H=1 THEN 660 640 IF II-H=4 OR I2-H=4 OC I3-H= 4 THEN 650 ELSE 680 650 IF H=12 AND I1>12 AND 12:12 AND I3>12 THEN 600 66e T=T+1 C GOSUB 880 C GOSUB 89 0 @ GOSUB 910 @ WRIT 2000 @ GOSUB 880 C GOSUB 890 670 GOSUB 900 680 NEXT J3 690 NEXT 13 700 NEXT J2 710 NEXT 12 720 NEXT J1 730 NEXT II @ PEN -1 C GOSUB 830 @ PEN 1 740 NEXT H 750 ALPHA C CLERR @ DISP @ DISP "UN AUTRE 0 ou N " ; @ INPUT R $0 IF R$*"0" AND R$*"N" THEN 750 760 IF R$="N" THEN 920 ELSE GOTO 200 770 X1=-10+H*10 C X2=X1+50 C SCR LE X1,X2,0,100 @ RETURN 780 PENUP C MOVE 0,75 @ IDRAW 15 0,0 e IMOVE 0,.5 @ IDRPW -15 0,0 C IMOVE 0,-66.5 790 IDRAW 150,0 @ IMOVE 0,-.5 @ IDRAW -150,0 @ FOR 1=0 TO 5 800 MOVE 0,22+I*8 @ IDRAW 150.0 @ IMOVE -150,0 C NEXT I 310 FOR 1=3 TO 17 teur vers le point de IMOVEX, Y coordonnéesX, Y sans imprimer le tracé reliant ces deux points ; IDRAWX, Y : trace un trait depuis la position actuelle du pointeur vers le point de coordonnéesX, Y ; PENUP : inhibe le pointeur ; BPLOTX, Y : dessine un point aux coordonnéesX, Y. Le programme peut être complété pour obtenir l'impression de chaque accord, après son 176 820 MOVE 170-1*10+1,75 @ IDRAW 0, -66 @ IMOVE -2,0 @ IDRRW 0, 66 @ NEXT I G.. RETURN 930 FOR 0=2 TO 17 840 IF 170-e*1e<=x1 THEN 860 80 MOUE 170-0*10+.5.85 C LOIR 9 O @ LABEL VAL$(0+1i 860 NET 870 RETURN 880 MOUE X1+(I1-H)*10+4.3,72-J1* @ BPLOT ASA @ RETURN 890 MOUE X1+(12-H)*10+4.3,72-J2* 8 fi BPLOT R$,1 e RETURN 900 910 920 930 940 MOUE (H+3.5)*10,1 C PEN -1 C LABEL VfiL$(7-1) @ PEN 1 C L ABEL VRL*(T) NOVE X1+(13-H)*10+4.3,72-J3* 8 @ BPLOT AS,1 C RETURN BEEP 130,98 @ BEEP 94,120 @ BEEP 73,150 @ BEEP 58,500 @ BEEP 58,150 @ BEEP 67,130 BEEP 73,150 @ BEEP 82,230 @ BEEP 130,98 C BEEP 94,120 P BEEP 73,150 @ BEEP 58,175 BEEP 67,130 @ BEEP 73.150 @ BEEP 82,300 DISP C DISP " A LA PROCHAINE 950 NARCISSO" 960 END BYTES DISPONIBLES 27254 BYTES UTILISES 3450 Structure du programme Ligne 20 : création du tableau des différentes notes. Ligne 120 : création de la variable de représentation d'un doigt. Ligne 150 : affichage du menu principal. Ligne 280 : calcul des notes composant l'accord choisi. Ligne 340 : émission du signal sonore des trois notes. Ligne 520 : dessin du manche sur l'écran. Ligne 770 : modification d'échelle de la fenêtre pour chaque accord. Ligne 830 : affichage des numéros de repère. Ligne 880 : affichage des doigts sur le manche. affichage. On ajoutera l'ordre COPY à la ligne 660, après l'instruction WAIT 2000. D'autres améliorations sont, bien entendu, possibles. Et ceux qui jouent d'un autre instrument que la guitare pourront adapter ce programme. On pourra aussi modifier la représentation graphique de la tablature de la guitare pour la rendre conforme aux conventions en usage ou améliorer l'accompagnement sonore... P.Flamme n°45 Février 83
témoignage un ordinateur dans la poussière du désert Vétérinaire de métier, comment suis-je venu à l'informatique individuelle ? En ce dernier jour de mars 80, je m'envolais vers Niamey, capitale du Niger. A force de tourner et retourner L'01 n°15, je fus converti. Je m'empressai de commander quelques ouvrages d'initiation à la programmation en Basic et, appliquant le vieux proverbe des borgnes et des aveugles, je ne manquai pas, dans la foulée, de me proclamer informaticien, ma modestie dut-elle en souffrir ! n°45 Février 83 177 Le Niger a payé un tribut particulièrement lourd à la grande sécheresse des années 1972-73. Fin 73, on estimait les pertes brutes à 26 milliards de F CFA (1 F CFA = 0,02 FF), les taux de mortalité animale de 12 à 48% selon les espèces, les bovins étant les plus sérieusement décimés puisque dans certaines régions, notamment autour d'Agadez, leur mortalité oscillait entre 60 et 90%. La solidarité internationale ayant joué, le gouvernement nigérien a pu mettre en oeuvre une politique de reconstitution du cheptel en menant deux types d'action :. achat et distribution d'animaux aux familles les plus déshéritées avec consentement d'un prêt sans intérêt création de centres de multiplication de bovins. Mon choix ? un ordinateur solide et insensible à la poussière ! Afin de coordonner ces opérations, le gouvernement créa le Programme reconstitution du cheptel et centres de multiplication (PRC/CM) avec une direction basée à Niamey. Actuellement, les opérations de distribution d'animaux ont cessé mais le PRC/CM gère quatre centres de multiplication totalisant 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