CoolBasic Forums

Posted: **Sat Oct 06, 2007 9:03 pm**

Minulla on ongelma Coolbasic koodini kanssa.

SetWindow "Kaxzen rumpukone", 0, "Paina ESC lopettaaksesi"
SCREEN 325,20
Print "Keys: A,S,D,F,G. paina ESC lopettaaksesi."


snare=LoadSound ("media\snare.wav")
hihat=LoadSound ("media\hat.wav")
kick=LoadSound ("media\kick.wav")
tom=LoadSound ("media\tom.wav")
crash=LoadSound ("media\crash.wav")

Repeat

    If KeyHit(cbkeya) Then PlaySound snare
    If KeyHit(cbkeys) Then PlaySound hihat
    If KeyHit(cbkeyd) Then PlaySound kick
    If KeyHit(cbkeyf) Then PlaySound tom
    If KeyHit(cbkeyg) Then PlaySound crash
    
    Until EscapeKey()
    
    
    DeleteSound snare
    DeleteSound hihat
    DeleteSound kick
    DeleteSound tom
    DeleteSound crash

Eli siis tuon pitäisi olla "rumpukone" mutta kun painan kyseisia näppäimiä (a,s,d,f,g) niin ääntä ei kuulu :S, missä ongelma piilee?
Siis äänet on oikeassa kansiossaan, eli vika on jossain kohtaa koodia, mutta missä?

Posted: **Sat Oct 06, 2007 9:07 pm**

Veikkaisin tuon deletesoundin poistavan äänet muistista ennen kuin niitä kerkeää soittaa. Ota ne pois.
Ei niistä mitään hyötyä ole.

Posted: **Sat Oct 06, 2007 9:11 pm**

Akuman wrote:Veikkaisin tuon deletesoundin poistavan äänet muistista ennen kuin niitä kerkeää soittaa. Ota ne pois.
Ei niistä mitään hyötyä ole.

Vaikka laitoin

Code: Select all

SetWindow "Kaxzen rumpukone", 0, "Paina ESC lopettaaksesi"
SCREEN 325,20
Print "Keys: A,S,D,F,G. paina ESC lopettaaksesi."


snare=LoadSound ("media\snare.wav")
hihat=LoadSound ("media\hat.wav")
kick=LoadSound ("media\kick.wav")
tom=LoadSound ("media\tom.wav")
crash=LoadSound ("media\crash.wav")

Repeat

    If KeyHit(cbkeya) Then PlaySound snare
    If KeyHit(cbkeys) Then PlaySound hihat
    If KeyHit(cbkeyd) Then PlaySound kick
    If KeyHit(cbkeyf) Then PlaySound tom
    If KeyHit(cbkeyg) Then PlaySound crash
    
    Until EscapeKey()
    
    
    End

niin ei siltikään toimi :S, se ei siis soita niitä ääniä.

Posted: **Sat Oct 06, 2007 10:15 pm**

Code: Select all

SetWindow "Kaxzen rumpukone", 0, "Paina ESC lopettaaksesi"
SCREEN 325,20


snare=LoadSound ("media\snare.wav")
hihat=LoadSound ("media\hat.wav")
kick=LoadSound ("media\kick.wav")
tom=LoadSound ("media\tom.wav")
crash=LoadSound ("media\crash.wav")

Repeat

    If KeyHit(cbkeya) Then PlaySound snare
    If KeyHit(cbkeys) Then PlaySound hihat
    If KeyHit(cbkeyd) Then PlaySound kick
    If KeyHit(cbkeyf) Then PlaySound tom
    If KeyHit(cbkeyg) Then PlaySound crash
    
Text 0,0, "Keys: A,S,D,F,G. paina ESC lopettaaksesi."
DrawScreen
Forever

Noin toimii

Sulta puuttu drawscreen ja vaihoi print komnnon tillalle text komennon

CoolBasic Forums

Ongelma koodin kanssa

Ongelma koodin kanssa

Re: Ongelma koodin kanssa

Re: Ongelma koodin kanssa

Re: Ongelma koodin kanssa