Keskustelu: Koodit: QB: Tietokoneen PC-Speakkerin korkeuden testaaminen

CMouse [21.06.2004 15:28:12]

Joo, elikkäs tällä testataan PC-Speakkerin äänen maximi korkeutta, joka on harmi vaan, täytyy itse kuulla...

Mutta onhan tää hyvä esimerkki jollekkin alottelijoille...

Norm. maximi PC-Speaker ääni on 65535...Mut emt...

Ohje:
Nopeuta ääntä: + napilla
Hidasta ääntä: - napilla
Käännä suunta Enter nappulalla

cls
aani = 50
nopeus= 1
mihin$ = "ylös"
do
if mihin$ = "ylös" then aani = aani +1 : sound aani,nopeus
if mihin$ = "alas" then aani = aani -1 : sound aani,nopeus
if aani = 51 then mihin$ ="ylös"
if nopeus <= 0.01 then nopeus = 1
g$ = inkey$
if g$ = "+" then nopeus = nopeus - .05
if g$ = "-" then nopeus = nopeus + .05
if g$ = chr$(27) then end
locate 5,5:print "Äänen nopeus: ";nopeus
locate 6,5:print "Äänen korkeus: ";aani

loop

CMouse [21.06.2004 15:28:24]

Jaa-a

CMouse [21.06.2004 15:28:31]

Kyl sen pitäis toimia

CMouse [21.06.2004 15:28:43]

eka tekele QB:lla :)

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen