Ongelma koodin kanssa

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
Kaxze

Ongelma koodin kanssa

Post by Kaxze »

Minulla on ongelma Coolbasic koodini kanssa.

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()
    
    
    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ä?
Akuman
Newcomer
Posts: 13
Joined: Thu Sep 27, 2007 5:14 pm

Re: Ongelma koodin kanssa

Post by Akuman »

Veikkaisin tuon deletesoundin poistavan äänet muistista ennen kuin niitä kerkeää soittaa. Ota ne pois.
Ei niistä mitään hyötyä ole.
Mwahahahaaa... Lukemalla tämän sigin olet tuhlannut muutaman sekunnin kallista elinaikaasi.
Kaxze

Re: Ongelma koodin kanssa

Post by Kaxze »

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ä.
Zrazy_Coder
Member
Posts: 60
Joined: Sun Sep 09, 2007 8:46 pm

Re: Ongelma koodin kanssa

Post by Zrazy_Coder »

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
Post Reply