Keskustelu: Koodit: QB: Sound-esimerkki

Täällä ei tainnut olla erillistä koodivinkkiä SOUND-komennolle? No, ei tämäkään ole kovinkaan ihmeellinen, oikeastaan se on pirun ärsyttävä (ja turha), mutta jos joku oppii siitä jotain, niin tämä oli sen arvoista.

CLS

'Ulkoasu ennen kaikkea
SCREEN 12
FOR x = 1 TO 13
  PALETTE x, 65536 * (x * 4)
NEXT
PALETTE 14, 65536 * 40 + 256 * 5
FOR c = 0 TO 340
  a = a + 1
  IF a = 10 THEN a = 1
  LINE (0 + 5 * c, 0 + 5 * c)-(639 - 5 * c, 479 - 5 * c), a, B
NEXT
LINE (149, 199)-(490, 280), 0, BF
LINE (149, 199)-(490, 280), 1, B
LINE (152, 202)-(487, 277), 8, B
LOCATE 15, 30: PRINT "  Stini's productions  "
LOCATE 16, 30: PRINT "    SOUND-esimerkki    "
SLEEP
CLS
yy = 2
yy1 = 43
yy2 = 51
yy3 = 460
z = 6
FOR re = 1 TO 6
  LINE (24 - 2 * z, yy)-(616 + 2 * z, yy1), re, B
  LINE (24 - 2 * z, yy2)-(616 + 2 * z, yy3), re, B
  yy = yy + 2
  yy1 = yy1 - 2
  yy2 = yy2 + 2
  yy3 = yy3 - 2
  z = z - 1
NEXT


'Ja tästä alkaa itse ohjelma
LOCATE 2, 26: PRINT "       SOUND-esimerkki      "

x = 37
COLOR 14: LOCATE 8, 6: PRINT "Ohjelma loppuu 32767 hertzin kohdalla, tai jos painat ESC-nappia."
DO
  x = x + 1
  SOUND x, 1 / 18.2
  COLOR 14: LOCATE 6, 6: PRINT "Hertz: "; : COLOR 15: PRINT x
  LOOP UNTIL INKEY$ = CHR$(27) OR x = 32767
SLEEP 1

Tosiaan hieno ulkoasu. Ja tuolla voi myös mitata, miten korkean äänen pystyy kuulemaan. Itse pääsin reiluun 16000 hertsiin...

Tosi hieno.
Muuten, meneeks noi hertsit oikein? mun mielestä se oli 2 000 hertsiä minkä ihminen pysty kuulemaan, ei 20 000.
Joo, kuulin muuten piipitystä korvassa 19 000:n asti, aika hyvin :) kone muuten alkaa rahista sen 10 000:n jälkeen.

Luulisin, että noi hertsit heittää pikkuisen (riippuu varmaan piipperistä), mutta ihmisen kuuloalueen pitäisi olla n. 30-20000 Hz.

Kyllä se ihmisen kuuloalue on siellä 18 000 - 20 000 paikkeilla

Tosi upea ulkoasu.

ihan hieno ulkoasu kyllä ja opin ainakin että palettea voi käyttää muussakin kun screen 13.
tais piipperi tai kuulo pettää 180000 paikkeilla

Hmm...toivottavasti vika oli piipperissä, tai sitten täytyy minun hakeutua korvalääkärille...;)

tai siis 18000 :D

Hyvä, että edes joku on oppinut jotain :D

17 000 Hz

Juntit kuuntelee täällä jotai pc-speakerin ininää, ehkä se on kaikkea muuta kuin soveltuva kuulotestaukseen!
kirjottakaa softa windowsin ääni-interfacelle niin vois olla jotain järkeäkin

Jos joku tämän vielä lukee, voin kertoa että en päässyt tuota kokeilemaan. Jos en kuulisi koneen hyrinää, väittäisin tulleeni kuuroksi, mutta tässä laitteessa ei nyt satu piipperin äänet kuulemaan. Hauskaa... Näppärä ulkoasu kuitenkin.

-Grey-

Siisti ulkoasu. Eipä kyllä taida tässä koneessa tuota piipperiä ollakkaan, kun ei mitään kuulunut...

Ihan hyvähän tuo.. jos piipperiä ei ole, niin sittenhän pitäisi kuulua ihan kajareista?

mulla ei toimi :(....uudessa koneessa ei oo kai piipperiä :(

Mä pääsin vaan johonki 12 000.......
Toivottavasti se oli piipperin vika!

pääsin 18166! (täysillä äänillä)

Mä kuulin jotai 18000. hienon näköönen