home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 July / Chip_1997-07_cd.bin / tema / baltazar / sgpbc / sluch.sgp < prev    next >
Text File  |  1997-05-20  |  3KB  |  83 lines
  1. SGPC   3.00 S#000000 19.09.1993 13:56:52                                        StructNo 0   0
  2. ; Vytvo²en ze vzoru: VZORBC.000
  3.  
  4. # include <baltazar.h>
  5.  
  6. ;-h------------------------------------------------------------------------
  7. /***** globální prom╪nné *****/
  8.  
  9. ;-h---------------------------------------------------------------------------
  10. /***** hlavní program *****/
  11. void main( void )
  12. -s--SLUCH                                                                       ■   5  -2  -6   3
  13.          ______________________SLUCH________________________
  14.       Zaƒátek                 Zkouτka                    Konec
  15.  0[VR:(5)!:Popojdi(5)         sluchu                       !w]
  16.                      ___________│_____________
  17.                   Nápov╪da                 Konec
  18.                   vbk!                     z!
  19.         ___________Volba?__________    :VypniTón()
  20.         /1                        /2
  21.      0-20kHz                   20kHz-0
  22.       df!                       ef!
  23.      Kmitoƒty                  Kmitoƒty
  24.         #A:(i,0,20000,100)        #D:(i,20000,0,100)
  25.   __"Kmitoƒet__               'Kmitoƒet
  26.  Tón       Klávesa
  27. tc!          a!v
  28.            Klávesa?
  29.               /k
  30.           Stisknuta
  31.              h!
  32. -o1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  33. 0 /* prom╪nné <var> */  int   a, b, c, d, e, f, g, h, i, j, Klávesa;
  34. [ Vytvo²Prostor()
  35. ] ZruτProstor()
  36. a Klávesa= ¼tiKlávesuZFronty()
  37. b ; nápov╪da - volba sm╪ru
  38.     GrSmaºOkno();
  39.     GrNastavPozici(3,1);
  40.     GrPiτⁿet╪zec("ZKOUµKA SLUCHU   [1]     0 Hz - 20000 Hz");
  41.     GrNastavPozici(3,12);
  42.     GrPiτⁿet╪zec("                 [2] 20000 Hz -     0 Hz");
  43. c ¼ekej(200)
  44. d ; piτ dolní nápov╪du p²i zvyτování frekvence
  45.     GrNastavPozici(140, 1); GrPiτⁿet╪zec("   ");
  46.     GrNastavPozici(  3,12);
  47.     GrPiτⁿet╪zec(" Aº p²estanete slyτet tón, stiskn╪te klávesu.")
  48. e ; piτ dolní nápov╪du p²i sniºování frekvence
  49.     GrNastavPozici(140, 1); GrPiτⁿet╪zec("   ");
  50.     GrNastavPozici(3,12);
  51.     GrPiτⁿet╪zec(" Aº uslyτíte tón, stiskn╪te klávesu.         ")
  52. f ; nastav barvu textu na ƒernou
  53.     GrNastavBarvuPop²edí(¼erná)
  54. h ; piτ Hz vpravo
  55.     GrNastavPozici(259,1); GrPiτL¼íslo(i,5)
  56. k Klávesa=¼tiKlávesuZFrontyS¼ekáním()
  57. l VlevoVbok()
  58. p Popojdi(1)
  59. r VpravoVbok()
  60. t Tón(i)
  61. v VyprázdniFrontuKláves()
  62. V Viditeln∞()
  63. w ¼ekejNaKlávesu()
  64. z ; napiτ konec (c) SGP Systems
  65.     GrNastavPozici(3,12);
  66.     GrPiτⁿet╪zec("Demo SGPbc 3.0  Copyright (c) SGP Systems,1993");
  67.     for (i=100; i<=1000; ++i) Tón(i);
  68.     for (i=1000; i>=100; --i) Tón(i);
  69.  
  70. P Popojdi
  71. R RychlostBaltazara   /* 0-9           */
  72. -c1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  73. /1 Klávesa=='1'
  74. /2 Klávesa=='2'
  75. /k Klávesa Není 0
  76. /P P²edm╪tP²edB
  77. #A ; d╪lej od m do n pro prom╪nnou var - zápis  #A:(var,m,n,krok)
  78.      OdDoKrok
  79. #D ; opakuj dolà pro prom╪nnou var - zápis #D:(var,m,n,krok)
  80.      OdDolàDoKrok
  81. =SP---------------------------------------------------------------------------
  82. /***** konec programu *****/
  83.