home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / voxrom / textes / repwin08 / annexes / jcr / miniprog.bas
BASIC Source File  |  1995-10-01  |  1KB  |  46 lines
  1. 'LECTURE DU NOMBRE D4ECLAT D4UN L E D
  2.  
  3. 'les valeurs lues varient suivant la vitesse du micro ,la resistance
  4. 'ldr utilisée ,le montage et la led a détecter
  5.  
  6. CLS
  7. 'on fait une boucle en attendans une variation car la lecture du
  8. 'joystick n'est pas sure avant une variation (chez moi)
  9.  
  10.  DO
  11. a% = STICK(0)
  12.       LOCATE 1, 1
  13.       PRINT a%; n                         'pour voir la valeur lue
  14.        IF a% < 200 THEN    'la led s'allume,200 sur mon montage
  15. attente1:
  16.         b% = STICK(0)
  17.         IF b% < 205 THEN GOTO attente1    'attendre led éteinte
  18.         END IF
  19.  
  20.      LOOP
  21. '****************************************************************************
  22. 'la on commmence a lire
  23. ON TIMER(720) GOSUB lafin
  24. TIMER ON
  25.  
  26. a% = 255
  27.  
  28.  DO
  29. a% = STICK(0)
  30.       LOCATE 1, 1
  31.       PRINT a%; n                         'pour voir la valeur lue
  32.        IF a% < 200 THEN    'la led s'allume,200 sur mon montage
  33. attente2:
  34.         b% = STICK(0)
  35.         IF b% < 205 THEN GOTO attente2    'attendre led éteinte
  36.          n = n + 1       ' la lecture ayant baissée et remontée on compte
  37.         PLAY "l32 d"     ' ça reveille et permet de verifier si ça marche
  38.         END IF
  39.      LOOP
  40. '----------------------------------------------------------------------------
  41. lafin:         ' >6 minutess
  42. BEEP
  43. END
  44. RETURN         'on est venu par gosub
  45.  
  46.