Keskustelu: Ohjelmointikysymykset: VB6: Gravity

Miten saa vaikka picture boxia ylös ja, että se sitten tipuu hitaasti alas. Tai sivulle, miten sen viiveen saa siihen otetaan vaikka esimerkki peliks Puhvelin tekemä avaruusseikkailu. http://kotiweb.kotiportti.fi/topi.eronen/zip/2004 - Avaruusseikkailu.zip

Laita vaikka timeriin koodi joka sitä tiputtaa alaspäin.

Picture1.Top = picture1.Top +1

Etkös sinä jo jonkin aikaa sitten kysellyt, miten PictureBoxit saa liikkumaan?

joo

No mikä sitten oikein on ongelmana, jos kerran osaat jo liikuttaa PictureBoxia? Tai jos et osaa, niin mikset jatkanut vanhaa aihettasi, vaan aloitit uuden?

Entä miten saa picturen silee, että se ei mene NS "Katon läpi" ulos ikkunasta

No et liikuta sitä katon läpi ulos ikkunasta. Jos käsket sen liikkua katon läpi, niin totta kai se liikkuu sen läpi.
Oletko katsonut hausta? Sanovatko törmäystarkistukset, tai If-lausekkeet sinulle mitään?

Edit: Äläkä syytä minua siitä, että käskin tehdä PingPongin ensin, sillä taitosi eivät riitä vielä siihenkään, jos et osaa tätä ongelmaa ratkaista. En pyri mitenkään latistamaan intoasi, mutta älä tavoittele liikoja puolen vuoden kokemuksen jälkeen.

pipopää kirjoitti:

Niin minäkin opin siitä jotain olen ohjelmoinut Ehkä jotain sanoisin 6 kuukautta elikkä puoli vuotta

Kyllähän siinä jakija pelissä on hyvin selitetty ja tehty törmäys tarkastukset.

hunajavohveli kirjoitti:

No et liikuta sitä katon läpi ulos ikkunasta.Oletko katsonut hausta? Sanovatko ("törmäystarkistukset"), tai If-lausekkeet sinulle mitään?

("törmäystarkistukset")Ei ainakaan tosta tullut mitään muutakun tämä aihe

[Offtopic]
hunajavohveli älä kommentoi aiheitani! tai mitä turhaa en enää tee niitä.
[/Offtopic]

pipopää kirjoitti:

("törmäystarkistukset")Ei ainakaan tosta tullut mitään muutakun tämä aihe

No tuskin tuleekaan. Kannattaa käyttää perusmuotoa ja kokeilla muutenkin asiaan liittyviä sanoja.
Kokeiles hakea sanalla "törmäys"

pipopää kirjoitti:

[Offtopic]
hunajavohveli älä kommentoi aiheitani! tai mitä turhaa en enää tee niitä.
[/Offtopic]

Voisitko pistää esimerkin jostain "kommentista", jonka olen aiheestasi antanut? Sillä tuo lainaamani lauseesi tuskin tarkoitti sitä, ettet haluat kenenkään vastaavan aiheisiisi.

Totta se tarkoitti sitä, että sinä hunajavohveli et kommentoisi mitään mitä minä teen tai vastaisi jos se on jotenkin selvempi sana. Mutta En enää tee MITÄÄN aiheita niin sillä ei ole väliä.

pipopää kirjoitti:

Mutta En enää tee MITÄÄN aiheita niin sillä ei ole väliä.

Oliko tuo lupaus?

Ensimmäinen kerta kun näen jonkun suuttuvan putkassa!

tässä linkkejä muutamiin hyviin topikkeihin:
https://www.ohjelmointiputka.net/keskustelu/5352-törmäys-vb
https://www.ohjelmointiputka.net/keskustelu/1226-törmäys-rutiini
https://www.ohjelmointiputka.net/keskustelu/3403-osuma

noilla luulisi pärjäävän.

EDIT: meinasin kysyä samaa blaze..

OLI!

Älä nyt hyvä mies sentään suutu. Ei ole mitään aihetta suuttumiseen. Peliohjelmointi(vaikka teet helppojakin) on kaikista vaikein ohjelmointiaihe. Siihen ei vielä puolenvuoden kokemuksella kannata pyrkiä. Opettele perusasiat(ohjelmoinnista ja suomenkielestä), niin menee kaikki paljon paremmin.

entä miten saa ammuksen menemään eteenpäin. Tilanne esim. pictureboxi, joka on vaikka vasemmassa kulmassa ja se menee ylös ja yritetään ampua toista picturea osaan kaiken muun paitsi sen miten saa ammuksen lähtemään eri paikoista ei kai vaan tartee tehdä paljon pictureboxeja

Ei mitään paljon pictureboxeja tarvi tehdä. Annat sille vain koordinaatit mistä se lähtee. Ei kai tuo sen vaikeampaa ole?

tarkoitat, että millä saat monta ammusta kerralla ruudulle? yksinkertaista: tee array vaikkapa. Esimerkissä on pAmpu joka on Pictureboxi ja sen Index = 1
Moduuliin:

Type typeAmpu
    Nopeus As Integer
    Ilmassa As Boolean
end Type
Dim Ampu(1 to 50) As typeAmpu

Laukaisuun:

For i = LBound(Ampu) To UBound(Ampu)
    If Not Ampu(i).Ilmassa Then
        If i > pAmpu.UBound Then Load pAmpu(i): pAmpu(i).Visible = True
        pAmpu(i).Left = lähtöX
        pAmpu(i).Top = lähtöY
        Ampu(i).Nopeus = lähinnä kolme
        Ampu(i).Ilmassa = True
        Exit For
    End If
Next

Peliin jonkun timerin sisään:

For i = LBound(ampu) To UBound(Ampu)
    pAmpu(i).Visible = Ampu(i).Ilmassa
    If Ampu(i).Ilmassa Then
        pAmpu(i).Left = pAmpu(i).Left + Ampu(i).Nopeus
        If Törmäys Then Ampu(i).Ilmassa = Bullshit
    End If
Next

ps. pipopää, siinä mun pelissä kyseessä oli image ja sekin vaan koska peli oli niin pieni. jos tekisin saman uudestaan, käyttäisin spritegrafiikkaa. ja tosiaan lue oppaita ensin :)

edit: picturessa on se vika että siihen ei saa läpinäkyvää taustaväriä, ja image taas innostuu vilkkumaan turhan usein
edit: ja pipopää, kaksi asiaa: älä suutu, ja toinen että kato ensin hausta eri hakusanoilla ennen kuin kyselet niin muutkaan ei suutu
edit:

lainaus:

Opettele perusasiat(ohjelmoinnista ja suomenkielestä)

Suomen kieli kirjoitetaan muuten erikseen :)

Oletko testannut tota? Se herjaa "Syntax Error" mitä pitäs tehdä?

kokeile nyt kun vähän korjasin sitä. jos vielä herjaa niin kerro missä kohtaa
edit: ja nukkumaanmenoaika lapsoset! hyvää yötä!

Puhveli kirjoitti:

Ampu(i).Nopeus = lähinnä kolme

tässä herja "Sytax Error"

mitäköhän tohon voisikaan laittaa... hmm.. paha juttu! kokeile korvata sanat "lähinnä" ja "kolme" jollakin numerolla

pipopää kirjoitti:

Puhveli kirjoitti:

Ampu(i).Nopeus = lähinnä kolme

tässä herja "Sytax Error"

>_<
Jooh, niitä omia aivoja SAA tosiaan käyttää.

Niin tuo "lähinnä kolme" oli siis vain esimerkki. Tietenkään VB ei tajua siitä mitään, vaan ideana on, että korvaat sen jollain numerolla, joka on lähellä kolmea. Mutta tällaisesta valmiista koodista ei edelleenkään ole mitään hyötyä, ellet ymmärrä sen toimintaa.

LOL :D

Jospa palaisimme jälleen siihen perusasiaan, että ei kannata copypastettaa koodia suoraan ymmärtämättä sen toimintaa...

Puhveli kirjoitti:

mitäköhän tohon voisikaan laittaa... hmm.. paha juttu! kokeile korvata sanat "lähinnä" ja "kolme" jollakin numerolla

Kun nyt kielipoliisiksi ryhdytään, lause aloitetaan isolla kirjaimella ja lause päätetään pisteeseen...

Eiköhän jätetä tuo kirjoitus- ja kielioppivirheiden arvostelu. Ne ovat kaikki aivan turhaa offtopicia - jookos Puhveli?

pipopää, omaa päätä saa käyttää, jos jokin koodin rimpsu valittaa "syntax erroria"niin ei siihen muu auta jos haluat oppia koodaa niin ala vain selvittää, visual basic:in...tai yleisesti ottaen basicin perusteet on tehty niin että se on aika lähellä järkevää ihmisen loogista ajattelu-kykyä (tosi-ihanasti-kirjoitetu-) eli kun valittaa erroria ala käydä pientä ohjelmaa läpi rivi riviltä, mieti mitä se tekee, jos et tiedä, poista riviltä jokin asia tai muuta sitä niin ymmärrät sitten... sitä paitsi, mitä olen sinun topikkejasi katsonut niin olet nähtävästi tosissasi koittamassa tekemään jotakin peliä... onnea vain, se on hienoa että jaksat yrittää, mutta vielä hienompaa olisi jos yllättäisit ohjelmointiputkalaiset koodilla joka on alusta loppuun omaa käsialaasi, ei mistään lainattua, vaikutteita saa aina ottaa ja pitääkin, mutta suoraa lainausta ei, vähintään niin että sovellat täältä saatua koodia omaan ohjelmaasi niin että se näyttää omalta koodiltasi...

ja suosittelen että aluksi koitat luoda jotain ihan muuta kuin pelejä, tiedän, se on v***umaista suoraan sanottuna jos vain pelit kiinnostaa, no itse en ole paha peli-addikti, rakastan enemmänkin niiten tekemistä sekä tutkiskelua, peli itsessään on vain sivuseikka :)

eli kun ohjelmoit, opettele ekana ulkoa taulukon hallintaa, muisti-säätöä, pientä wintoosa-kikkailua jne... sitten kun osaat vähäsen monista eriasioista, voit alkaa vääntää omaa softaa oli se sitten järkevä tai ei, kunhan hyödynnät taitojasi ulkoa ilman copy&pastee, kun alat hahmottaa ja tajuamaan koodia niin alat selkeästi huomaamaan mikä osa-alue on sun, esim itsellänin on juuri muistilla säätäminen ja kaikenmoinen editoiminen/tarkesteleminen, editorit kunniaan! :D ja alkanut nytten oppimaan itsenäisesti ilman netin tai kirjojen tukea vääntää grafiikkaa niin uskoisin itse olevani jo ehkä valmis luomaan taas jotain tai jatkamaan vanhoja projekteja, nyt niitä on kivempi tehdä kun tietää mitä tapahtuu mistäkin, ettei ole niinkuin joskus että kun joku kirjoitti koodin rimpsun että esim:

dimmu maara as inteegeri
commandoo1_klikkendaaleni
 picture1(maara).left = picture1(maara).left + 1
end subbi

olin iha ihmeissäni mutta kun tutkin asiaa esim 1:n paikalle laitoin 2 tajusin että "wau, tässähän on turbo!"
näin sitä oppii, eli käytähä poika päätäsi sekä mielikuvitusta ja pidä kummatkin balanssissa kopassasi eläkä formatoi sitä niin kaikki on kunnossa

nyt unistaloidaan mieli ja vettä juomaan jonka kunniaksi savuketta polttamaan <---älä kirjoita tota koodiin, ei toimi