Micro Systèmes n°48 décembre 1984
Micro Systèmes n°48 décembre 1984
  • Prix facial : 24 F

  • Parution : n°48 de décembre 1984

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 246

  • Taille du fichier PDF : 187 Mo

  • Dans ce numéro : MSX... un nouveau standard ?

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 118 - 119  |  Aller à la page   OK
Pages suivantes >
118 119
Une utilisation simple de notre réalisation : un jeu de lumières et un programme « Disco ». Réalisation lu E PNTR APORTIS APPLICATION : UN JEU DE LUMIERES PROGRAMMABLE Avoir une carte d'interface et une interface de puissance, c'est bien. Trouver des applications, c'est mieux I Nous allons ici vous présenter l'une d'elles. Le jeu de lumières que nous vous proposons a déjà fait ses preuves « sur le terrain », lors de soirées diverses mais en version seize sorties. Il est alors possible de réaliser une matrice 4 X 4 lampes. Notre version de base n'est que de huit sorties pour des raisons de prix de revient du montage, toutefois, il est tout à fait possible de transformer la carte interface de puissance en version seize sorties moyennant un coût de composants multiplié par deux (merci La Palisse !). Cette possibilité est d'ailleurs abordée dans la partie concernant la réalisation de cette carte. Sans plus attendre, plongeons-nous dans l'étude du programme. Disco est le nom de ce, ou plutôt de ces programmes. Ils ont été conçus dans le but de réaliser un jeu de lumière programmable sur huit ou seize sorties. Ils pourraient très bien se transformer en guirlande de Noël programmable si l'on chargeait la carte d'interface 220 V non pas avec des spots mais avec des petites lampes que l'on disposerait « artistiquement » dans le traditionnel sapin. Abordons dans un premier temps la logique de programmation adoptée. Comme il est aisé de le constater, nous avons réalisé trois petits programmes qui vont permettre de confectionner une disquette complète dont la seule utilisation sera le jeu de lumière décrit. Cette option est optimum ; néanmoins, on pourra toujours se passer du programme « lnit » et stocker les deux autres programmes (Disco et Discol) sur une disquette où en figurent déjà d'autres. Le premier programme Disco va nous » autoriser à stocker le programme lumineux. Si l'on choisit l'option huit sorties, nous n'utiliserons que le port A du 6522 ; pour l'option 16 sorties, nous nous servirons bien sûr des ports A et B. Le codage utilisé pour stocker les numéros des lampes à allumer est le suivant : chaque ligne de sortie du port correspond à une puissance de 2 de l'octet d'état (pour plus de renseignements, se reporter aux caractéristiques du circuit 6522). Le numéro de lampe que l'on désire allumer sera donc considéré comme tel et la puissance de 2 obtenue sera sommée aux autres : PORT A 1 0 0 1 0 0 1 0 Dans ce cas, on a demandé d'allumer les lampes numéros I, 4 et 7. Le traitement a donné le résultat 146 qui sera la valeur mémorisée. Si l'on prend l'option seize sorties, le principe reste valable. Toutefois, il est nécessaire de mémoriser la séquence sur deux octets puisqu'il serait impossible de stocker l'état des lampes dont le numéro serait supérieur à 7. Les différentes séquences sont retenues dans un buffei qui débute en 8192 (début de la page graphique haute résolution numéro 1). Le buffer a été choisi arbitrairement d'une longueur maximale de 255 séquences. Cette dimension n'est cependant nullement limitative puisqu'il est possible d'enchaîner, lors du déroulement, jusqu'à 20 programmes écrits sur la disquette. La sauvegarde d'un programme se fait donc par simple écriture du buffer sur la disquette dont le premier octet est utilisé pour « noter » le nombre de séquences composant le programme. Le deuxième programme Discol va nous permettre d'exécuter les programmes lumineux écrits avec Disco. Son fonctionnement est bien évidemment conçu sur le même principe. A noter simplement l'usage important qui est fait de l'instruction ON ERR GOTO soit pour passer en mode « modification de la vitesse », soit pour signaler qu'un programme de lumière demandé = 1 * (2 * 7) + 1 * (2 * 4) + 1 (2 * 1) = 146 PUISSANCE DE 2 7 6 5 4 3 2 1 0 118 — MICRO-SYSTEMES Décembre 1984
16 entrées/sorties pour Apple 11 Réalisation ne figure pas sur la disquette. A ce titre, on remarquera que la ligne 105 « déconnecte » logiquement le ON ERR GOTO (quittant le mode « traitement d'erreur »), puisque l'octet système d'adresse décimale 216 est le « drapeau » de cette instruction. Il est d'ailleurs intéressant de savoir que, lorsqu'on utilise ON ERR, il n'est plus possible d'arrêter un programme Basic par « contrôle C » ; en effet, le « contrôle C » commence par vérifier que ON ERR n'est pas actif. S'il l'est, cette commande est considérée comme une erreur et l'on saute à l'adresse indiquée par ON ERR. Nous donnons également un petit programme répondant au nom de Kt qui devra, s'il est utilisé, servir de menu à la disquette. Pour ce faire, il faudra entrer le programme sur un Apple dans lequel on aura chargé le DOS. Le programme entré, il suffira de taper INIT INIT. Comme chacun sait, l'instruction DOS INIT permet d'initialiser une disquette et d'écrire un programme qui sera le futur programme autostart (le programme écrit sur la disquette étant celui stocké dans l'ordinateur lors de l'utilisation de INIT). Le mode d'emploi Avant de débuter, il est bien entendu nécessaire d'écrire les programmes (fig. 9, 10 et 11) et de les stocker sur une disquette. Aux possesseurs d'Apple Ife, pas de problèmes, tapez les programmes tels qu'ils sont publiés. Aux possesseurs d'Apple 11+ ou Europlus, veillez à l'usage des minuscules que vous transformerez en majuscules. En ce qui concerne le stockage, l'option choisie par l'auteur a été de réserver une disquette à l'usage exclusif du programme Disco ; en effet, s'il est possible d'écrire ces programmes sur une disquette déjà utilisée, cela n'est pas prati- Décembre 1984 NAME..DISCO DATE..08/20/84 TIME..2255 PAGE..01 STARTING LINE..0 ENDING LINE..I 1 0600 0 REM ** DISCO COPYRIGHT A.HOULLEMARE 1984 ** 5 REM ** INITIALISATION ** 10 PB = 49346:PA = 49347:113 = 49344:IA = 49345:BUF = 8192:DEBU = 0:08 = 1 15 POKE P8.255 : POKE PA,255 : POKE IA,255 : POKE 18.255 20 IF DB < > 1 THEN 95 25 PRINT "****************************************" : 30 FOR N = 2 TO 21 35 PRINT "**" ; 40 NEXT N 45 PRINT "****************************************" 50 VTAB 8 55 PRINT "* DDDD I SSSS CCCCC 00000 *. ; 60 PRINT "* D DIS C 0 0 *" : 65 PRINT "* D D I SSS C 0 0 70 PRINT "* D D I SC 0 0 75 PRINT "* DDDD I SSSS CCCCC 00000 80 DB = 0 85 INVERSE : VTAB 21 : HTAB 10 : PRINT "A.HOULLEMARE C 1984" : NORMAL 90 SET R$ 95 HOME : R$ = "" : PRINT "Desirez vous programmer sur:" 100 vTAB 10 : HTAB 15 : FLASH : PRINT "" INVERSE : PRINT " SORTIES" : NORMAL 105 VTAB 12 : HTAB 15 : FLASH : PRINT "<16>" INVERSE : PRINT " SORTIES"1 NORMAL 110 VTAB 21 : PRINT "VOTRE CHOIX : " INPUT R$ : IF VAL (R$) (> 8 AND VAL 16 THEN 110 115 SO = VAL (R$) 120 REM 300 REM ** DEBUT PROG ** 305 HOME : INVERSE : PRINT "PROGRAMME SUR " ; SO ; " SORTIES" : NORMAL 310 ONERR GOTO 320 315 PRINT : PRINT "Entrez les numeros des lampes a allumer" 320 VTAB 6 : PRINT " Numero " IF SO = 8 THEN PRINT DEBU + I ; 325 IF SO = 16 THEN PRINT (DEBU 2) + 1 ; 330 HTAB 15 : PRINT "Code " HTAB 20 : INPUT A$ 335 IF A$ = "0" THEN 600 340 IF A$ = "R" THEN LA = 0:LB = 0 : GOTO 500 345 IF A$ = "T" THEN LA = 255:LB = 255 : GOTO 500 350 IF A$ = "M" THEN 500 355 LET J$ = A$ 360 LET J = LEN (J$):LA = 0:LB = 0 365 REM 400 REM **** TRANSFORM **** 405 FOR N = 1 TO J 410 LET B$ = M1D$ (J$,N,1) 415 LET B = VAL (B$) : LET BI = ASC (13$) 420 IF (B > 7 OR BI > 57) AND SO = 8 THEN 1510 425 IF BI > 57 THEN GOSUB 10500 430 IF 13 < = 7 THEN LA = LA + 2 B 435 IF 6 > 7 THEN LB = LB + 2'- 8) 440 NEXT N 445 REM 500 PEM **** SUITE **** 505 POKE IA,255 - LA : IF SO = 16 THEN POKE 113,255 - LB 510 P$ = "" 515 VTAB 23 : PRINT "VALIDATION " INPUT R$ 520 VTAB 23 : PRINT " 525 IF R$ = "N" THEN 320 530 VTAB 6 : HTAB 20 : INVERSE : PRINT JS : NORMAL 535 DEBU = DEBU + 1 : IF DEBU = 255 THEN 600 540 POKE BUF + DEBU,LA 545 IF SO = 16 THEN DEBU = DEBU + 1 : POKE BUF + DEBU,LB 550 GOTO 320 555 REM 600 REM **** SAVE **** 605 1F SO = 8 THEN POKE BUF,DEBU : GOTO 615 610 POKE BUF,(DEBU/2) 615 LET LO$ = STR$ (DEBU + 1> 620 ONERR GOTO 1600 625 HOME : PRINT "Entrez le numero de programme "1 : INPUT NU : LET NW$ = STRE (NU) 630 ONERR GOTO 1550 635 LET T$ = "BSAVE PGM" + NU$ 640 IF SO = 16 THEN T$ = T$ + ".16" 645 LET T$ = T$ + ",A$2000,L" + LO$ 650 PRINT CNRS (4) ; T$ 453 LET T$ = "LOCK PGM" + NU$ : IF SO = 16 THEN LET T$ = TI + ".14" 660 PRINT CHR$ (4) ; T$ Fig. 9. — Listing du programme Disco. MICRO-SYSTEMES — 119



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 :


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