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