Olen uusi ja tarvitsen apua :D

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
Alluu
Newcomer
Posts: 16
Joined: Sat Sep 24, 2011 8:40 pm

Olen uusi ja tarvitsen apua :D

Post by Alluu »

Eli kun teen tämmöisen koodin

Code: Select all

FrameLimit 30

SCREEN 640,480,16,cbfullscreen

Text 0,0,FPS()
Sound = PlaySound ("Media\fantasy.mp3")

Back = MakeObjectFloor ()
round = LoadImage ("Media\paper1.bmp")
PaintObject Back, round

nappi=LoadObject("media\Start.bmp")

hiiri=LoadObject("Media\Kursor.bmp")

ShowMouse OFF

Repeat

PositionObject hiiri,MouseWX(),MouseWY()



If ObjectsOverlap(hiiri,nappi) And MouseHit(1) Then 
Execute "(ohjelma jonka käynnistää)"

DrawScreen
Forever
ja kun painan f5 se sanoo can't find missing repeat jne

Joku joka ymmärtää enemmän tästäohjelmasta voi varmaan auttaa?
Eli miten se pitäisi kirjottaa käynnistämään se tuohon execute "" kohtaan ? :D
User avatar
Peltsi
Active Member
Posts: 121
Joined: Thu Sep 30, 2010 12:16 pm

Re: Olen uusi ja tarvitsen apua :D

Post by Peltsi »

Alluu wrote:Eli kun teen tämmöisen koodin

Code: Select all

FrameLimit 30

SCREEN 640,480,16,cbfullscreen

Text 0,0,FPS()
Sound = PlaySound ("Media\fantasy.mp3")

Back = MakeObjectFloor ()
round = LoadImage ("Media\paper1.bmp")
PaintObject Back, round

nappi=LoadObject("media\Start.bmp")

hiiri=LoadObject("Media\Kursor.bmp")

ShowMouse OFF

Repeat

PositionObject hiiri,MouseWX(),MouseWY()



If ObjectsOverlap(hiiri,nappi) And MouseHit(1) Then 
Execute "(ohjelma jonka käynnistää)"

DrawScreen
Forever
ja kun painan f5 se sanoo can't find missing repeat jne

Joku joka ymmärtää enemmän tästäohjelmasta voi varmaan auttaa?
Eli miten se pitäisi kirjottaa käynnistämään se tuohon execute "" kohtaan ? :D

Sinulta puuttuu EndIf ehtolauseesta, siitä saat kääntäjältä virheviestin.
Tässä korjattu ehtolause:

Code: Select all

If ObjectsOverlap(hiiri,nappi) And MouseHit(1) Then 
Execute "(ohjelma jonka käynnistää)"
EndIf
Execute toimii esimerkiksi näin:

Code: Select all

Execute "mspaint" //Windowsin oma ohjelma, esim. Notepad, explorer.exe, mspaint
Execute "C:\kansio\ohjelma.exe" //Absoluuttinen polku suoritettavaan ohjelmaan
Execute "\kansio\ohjelma.exe" //Suhteellinen polku suoritettavaan ohjelmaan
Tervetuloa foorumille! :D
Last edited by Peltsi on Sat Sep 24, 2011 9:00 pm, edited 1 time in total.
Alluu
Newcomer
Posts: 16
Joined: Sat Sep 24, 2011 8:40 pm

Re: Olen uusi ja tarvitsen apua :D

Post by Alluu »

Kiitos!

Tuli viel kysymys, nyt toi toimi kyl kunnol. Mut sit ku teen siit exen, ja kokeilen käynnistää sanoo et ei voi lataa tota "paper1" kuvaa...
Vaikka ite ohjelmassa kyllä onnistuu..
User avatar
Peltsi
Active Member
Posts: 121
Joined: Thu Sep 30, 2010 12:16 pm

Re: Olen uusi ja tarvitsen apua :D

Post by Peltsi »

Alluu wrote:Kiitos!

Tuli viel kysymys, nyt toi toimi kyl kunnol. Mut sit ku teen siit exen, ja kokeilen käynnistää sanoo et ei voi lataa tota "paper1" kuvaa...
Vaikka ite ohjelmassa kyllä onnistuu..
Jos sulla on kuva väärässä paikassa? Jos olet tallentanut exe:n vaikka kansioon "Peli", niin pidäthän huolen että samassa kansiossa on myös kansio "media" ja siellä kuva!

Code: Select all

round = LoadImage ("Media\paper1.bmp")
Tämä koodi hakee kansiosta "Media" kuvaa "paper1.bmp". Jos kansiota tai kuvaa ei ole, saat virheviestin.
Alluu
Newcomer
Posts: 16
Joined: Sat Sep 24, 2011 8:40 pm

Re: Olen uusi ja tarvitsen apua :D

Post by Alluu »

Mutkun se kuva on siellä :D Imagebtw pro suttaus kyl ku tos alhaal lukee sama ;D
Alluu
Newcomer
Posts: 16
Joined: Sat Sep 24, 2011 8:40 pm

Re: Olen uusi ja tarvitsen apua :D

Post by Alluu »

No ei kai sille mitään voi ku on tyhmä :D sain toimii... xD
User avatar
Peltsi
Active Member
Posts: 121
Joined: Thu Sep 30, 2010 12:16 pm

Re: Olen uusi ja tarvitsen apua :D

Post by Peltsi »

Alluu wrote:Mutkun se kuva on siellä :D Imagebtw pro suttaus kyl ku tos alhaal lukee sama ;D
Jos tallennat exen vaikka työpöydälle, et voi hakea kuvaa CB:n Media kansiosta (vaikka kansion nimet ovat samannimiset...), vaan työpöydällä (eli samassa kansiossa) pitää olla Media kansio jossa kaikki kuvat ovat.
User avatar
Peltsi
Active Member
Posts: 121
Joined: Thu Sep 30, 2010 12:16 pm

Re: Olen uusi ja tarvitsen apua :D

Post by Peltsi »

Peltsi wrote:
Alluu wrote:Mutkun se kuva on siellä :D
Jos tallennat exen vaikka työpöydälle, et voi hakea kuvaa CB:n Media kansiosta (vaikka kansion nimet ovat samannimiset...), vaan työpöydällä (eli samassa kansiossa) pitää olla Media kansio jossa kaikki kuvat ovat.
EDIT:

Hyvä että ongelma ratkesi! :D

Post Reply