ElseIf?

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
AllAh
Newcomer
Posts: 33
Joined: Mon Oct 08, 2007 8:37 am
Location: Muhos

ElseIf?

Post by AllAh »

Code: Select all

If KeyDown(cbkeyd) Then paintobject bunny,bunnyoik
If maassa Then PlayObject bunny,0,1,0
vauhti=2
[Line18]  ElseIf KeyDown(cbkeya) Then 
 PaintObject bunny,bunnyvas 
 ElseIf maassa Then 
 PlayObject bunny,0,1,0
vauhti=-2
   Else
    PlayObject bunny,0
    EndIf

Ja lopputulos:

Code: Select all

Error with elseif/else
command out of place at line 18
Tuo tulee uuteen projektiini.Kiitos jos autatte.Sain siihen vihdoin painovoiman kun taas jaksoin sitä tehdä.


P.S. Perkule,CB bugas ja meni 50 riviä tallentamatonta koodia hukkaan :x
Valmiita:
Ragdollvoimistelua
Työn alla:
Rägdollitappelu jolle ei vielä nimeä löydy.
Valmiina:
Ei paljon mitään
Tulossa:
Kakkosplayeri, muutama ase,Bullet time,kenttiä
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: ElseIf?

Post by Harakka »

Monirivisessä if-lausekkeessa Then-sanan jälkeen tulee aina rivinvaihto.

Code: Select all

If KeyDown(cbkeyd) Then paintobject bunny,bunnyoik
If maassa Then
    PlayObject bunny,0,1,0
    vauhti=2
ElseIf KeyDown(cbkeya) Then 
    PaintObject bunny,bunnyvas 
ElseIf maassa Then 
    PlayObject bunny,0,1,0
    vauhti=-2
Else
    PlayObject bunny,0
EndIf
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
AllAh
Newcomer
Posts: 33
Joined: Mon Oct 08, 2007 8:37 am
Location: Muhos

Re: ElseIf?

Post by AllAh »

Testaan heti kun olen saanut taas ne koodit kirjoitettua mitä äsken meni hukkaan.Kiitti jos toimii,jos ei niin kiitti yrityksestä.
Valmiita:
Ragdollvoimistelua
Työn alla:
Rägdollitappelu jolle ei vielä nimeä löydy.
Valmiina:
Ei paljon mitään
Tulossa:
Kakkosplayeri, muutama ase,Bullet time,kenttiä
AllAh
Newcomer
Posts: 33
Joined: Mon Oct 08, 2007 8:37 am
Location: Muhos

Re: ElseIf?

Post by AllAh »

Muuten toimii mutta jänö ei voi vastustaa kiusausta juosta oikeaan seinään pahki.
Mun pitää mennä koneelta nyt jos joku sillä välin korjaisi sen kun itse en tajuu. :oops:
Valmiita:
Ragdollvoimistelua
Työn alla:
Rägdollitappelu jolle ei vielä nimeä löydy.
Valmiina:
Ei paljon mitään
Tulossa:
Kakkosplayeri, muutama ase,Bullet time,kenttiä
TheFish
Developer
Developer
Posts: 477
Joined: Mon Aug 27, 2007 9:28 pm
Location: Joensuu

Re: ElseIf?

Post by TheFish »

Elseif/else-osiotahan ei käydä läpi ikinä, jos jokin aikaisempi ehto toteutuu.

Code: Select all

if maassa then
Tuo rivi tarkoittaa siis jos maassa=true, niin suoritetaan vain rivit

Code: Select all

PlayObject bunny,0,1,0
vauhti=2
Ja elseif:ien sisältöön ei edes katsota.

Tuolla on myös yhden elseif:in ehtona sama kuin ensimmäinen ehto on

Code: Select all

elseif maassa then
    PlayObject bunny,0,1,0
    vauhti=-2
Eli tuota ei mitenkään voida ikinä suorittaa.

Rivi

Code: Select all

ElseIf KeyDown(cbkeya) Then 
tarkoittaa käytännössä, että jos ei olla maassa ja painetaan a, niin suoritetaan sen alla oleva rivi.

Jos taas ei olla maassa, eikä paineta a:ta, niin suoritetaan vain else-osio

Code: Select all

 Else
    PlayObject bunny,0
EndIf
Menee hieman arvailuksi, mutta olettaisin, että koodin pitäisi mennä näin:

Code: Select all

If maassa Then  
    If KeyDown(cbkeyd) Then
        PaintObject bunny,bunnyoik
        PlayObject bunny,0,1,0
        vauhti=2
    ElseIf (cbkeya) Then
        PaintObject bunny,bunnyvas
        PlayObject bunny,0,1,0
        vauhti=-2 
    Else
       PlayObject bunny,0 
    EndIf
EndIf 
CoolBasic henkilökuntaa
Kehittäjä
AllAh
Newcomer
Posts: 33
Joined: Mon Oct 08, 2007 8:37 am
Location: Muhos

Re: ElseIf?

Post by AllAh »

No nythän tapahtui jo kehitystä!!!
NYT SE MENEE KUSESKELEMAAN TOISEN PUOLEN SEINÄÄN!Wau!
Yritän ratkaista itse mutta apu on edelleen tervetullutta:)
Valmiita:
Ragdollvoimistelua
Työn alla:
Rägdollitappelu jolle ei vielä nimeä löydy.
Valmiina:
Ei paljon mitään
Tulossa:
Kakkosplayeri, muutama ase,Bullet time,kenttiä
AllAh
Newcomer
Posts: 33
Joined: Mon Oct 08, 2007 8:37 am
Location: Muhos

Re: ElseIf?

Post by AllAh »

Ratkaisin nyt:)
Toimiva koodi alla jos siitä on apua jollekkin

Code: Select all

If KeyDown(cbkeyh) Then
        PaintObject bunny,bunnyoik
        PlayObject bunny,0,1,0
        vauhti=2
    ElseIf KeyDown(cbkeyf) Then
        PaintObject bunny,bunnyvas
        PlayObject bunny,0,1,0
        vauhti=-2 
    If maassa Then
      PlayObject bunny,0 
    EndIf
    EndIf

Kiitos kaikille yrittäneille :D
Valmiita:
Ragdollvoimistelua
Työn alla:
Rägdollitappelu jolle ei vielä nimeä löydy.
Valmiina:
Ei paljon mitään
Tulossa:
Kakkosplayeri, muutama ase,Bullet time,kenttiä
Post Reply