home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 July / Chip_1997-07_cd.bin / tema / baltazar / sgpbc / vzorbc.000 < prev   
Text File  |  1997-05-29  |  5KB  |  111 lines
  1. SGPC   5.00 S#000000 11.05.1997 10:29:58                                        StructNo 0   0
  2. # include <baltazar.h>
  3.  
  4. /***** Globalni promenne *****/
  5.  
  6. /***** Globalni makra *****/
  7. -o1-Globals
  8. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  9.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  10.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  11.  
  12.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  13.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  14.   ;prom╪nná znak:   Znak;
  15.             char    Znak;
  16.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  17.             string  ⁿet╪zec;
  18. [ ;vytvo² grafick∞ prostor
  19.    Vytvo²Prostor(); MyτZaƒátekObsluhy();
  20. ] ;zruτ grafick∞ prostor
  21.    MyτKonecObsluhy(); ZruτProstor();
  22. a Klávesa= ¼tiKlávesuZFronty()
  23. b P²epniNaBaltazara()
  24. c ¼aruj(¼tverec)
  25. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  26. e BezObláƒku()
  27. f VyprázdniFrontuKláves()
  28. g Gr¼tiSⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)   /*40zn, edit ano, modrá/bílá */
  29. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  30. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit  ne, ƒerná/bílá */
  31. j GrPiτZnak(Znak)
  32. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  33. l VlevoVbok()
  34. m ;vypiτ ⁿet╪zec do grafického okénka
  35.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  36.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  37.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  38. n Neviditeln∞()
  39. o SObláƒkem()
  40. p Popojdi(1)
  41. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  42. r VpravoVbok()
  43. t P²epniNaText()
  44. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  45. v Viditeln∞()
  46. w ;ƒekej na stisk klávesy nebo tlaƒítka myτi
  47.     VyprázdniFrontuKláves();
  48.     MyτVyprázdniFrontuUdálostí();
  49.     ¼ekej(NaKlávesu|NaMyτ);
  50.     VyprázdniFrontuKláves();
  51.     MyτVyprázdniFrontuUdálostí();
  52. z ;ƒelem vzad
  53.    VlevoVbok(); VlevoVbok()
  54. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  55. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  56. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  57. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  58. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  59. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  60. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  61. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  62. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  63. -c1-Globals
  64. ?n PràchodnostP²edm╪tuP²edB() Je 0
  65. ?p PràchodnostP²edm╪tuP²edB() Je 1
  66. ?B Barva¼tverceP²edB()  /* Je, Není, <, >, <= ,>= */
  67. ?P P²edm╪tP²edB()       /* Je, Není, <, >, <= ,>= */
  68. ?S Sm╪rBaltazara()      /* Je, Není, <, >, <= ,>= */
  69. ?A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  70.     OdDoKrok
  71. ?D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  72.     OdDolàDoKrok
  73. ?M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  74.     DolàDo0
  75. ?N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  76.     Od0
  77. ===Globals
  78. ;-h---------------------------------------------------------------------------
  79. void main( void )
  80. -s--Program                                                                     ■   6  -2  -8 259
  81.         ____________Program____________
  82.      Zaƒátek       Prost²edek       Konec
  83. 0[vR:(5)!                             !w]
  84. -o1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  85. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  86.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  87.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  88.  
  89.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  90.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  91.   ;prom╪nná znak:   Znak;
  92.             char    Znak;
  93.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  94.             string  ⁿet╪zec;
  95. [ ;vytvo² grafick∞ prostor
  96.    Vytvo²Prostor(); MyτZaƒátekObsluhy();
  97. ] ;zruτ grafick∞ prostor
  98.    MyτKonecObsluhy(); ZruτProstor();
  99. v Viditeln∞();
  100. w ;ƒekej na stisk klávesy nebo tlaƒítka myτi
  101.     VyprázdniFrontuKláves();
  102.     MyτVyprázdniFrontuUdálostí();
  103.     ¼ekej(NaKlávesu|NaMyτ);
  104.     VyprázdniFrontuKláves();
  105.     MyτVyprázdniFrontuUdálostí();
  106. R RychlostBaltazara     /*   R:(rychlost)!   0-9                     */
  107. -c1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  108. =SP---------------------------------------------------------------------------
  109.  
  110. /***** Konec souboru *****/
  111.