Voit pyytää apua ohjelmointiongelmiin täältä.
Alluu
Newcomer
Posts: 16 Joined: Sat Sep 24, 2011 8:40 pm
Post
by Alluu » Sat Sep 24, 2011 8:44 pm
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 ?
Peltsi
Active Member
Posts: 121 Joined: Thu Sep 30, 2010 12:16 pm
Post
by Peltsi » Sat Sep 24, 2011 8:55 pm
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 ?
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!
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
Post
by Alluu » Sat Sep 24, 2011 8:56 pm
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..
Peltsi
Active Member
Posts: 121 Joined: Thu Sep 30, 2010 12:16 pm
Post
by Peltsi » Sat Sep 24, 2011 9:04 pm
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
Post
by Alluu » Sat Sep 24, 2011 9:08 pm
Mutkun se kuva on siellä
btw pro suttaus kyl ku tos alhaal lukee sama ;D
Alluu
Newcomer
Posts: 16 Joined: Sat Sep 24, 2011 8:40 pm
Post
by Alluu » Sat Sep 24, 2011 9:10 pm
No ei kai sille mitään voi ku on tyhmä
sain toimii... xD
Peltsi
Active Member
Posts: 121 Joined: Thu Sep 30, 2010 12:16 pm
Post
by Peltsi » Sat Sep 24, 2011 9:13 pm
Alluu wrote: Mutkun se kuva on siellä
btw 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.
Peltsi
Active Member
Posts: 121 Joined: Thu Sep 30, 2010 12:16 pm
Post
by Peltsi » Sat Sep 24, 2011 9:14 pm
Peltsi wrote: Alluu wrote: Mutkun se kuva on siellä
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!