Page 3 of 43

Re: Tyhmät kysymykset (II/2009)

Posted: Fri Jun 12, 2009 1:14 pm
by Ganster
Kiitti, mut ohjelma koodi olisi tarpeen. En käsitä :o En YMMÄRRÄ, EN TAJUA, Siihen ei littää mitään. (Mieluusti koko ohjelma, koska Katsomalla oppii minusta paremmin, eri tapoja.)

Manuaalista

Code: Select all

'Change directory to Media 
ChDir "Media"

'Prepare search 
StartSearch

    'Scan all files and print all .BMP images
    count=0
    Repeat
    
        file$=FindFile()
        
        If file$="" Then Exit 'no more files
        
        If Lower(Right(file$,4))=".bmp" Then
            Print file$
            
            count=count+1
        EndIf
    
    Forever

'End search 
EndSearch

Print "Found "+count+" files"

WaitKey 
 

Re: Tyhmät kysymykset (II/2009)

Posted: Fri Jun 12, 2009 1:47 pm
by vilQuri

Code: Select all

'Change directory to Media 

hakusana$ = "zero"
ChDir "Media"

'Prepare search 
StartSearch

    'Scan all files and print all .BMP images
    count=0
    Repeat
    
        file$=FindFile()
        
        If file$="" Then Exit 'no more files
        
        If Not InStr(file$,hakusana$) = 0 Then
            Print file$
            count=count+1
        EndIf
    
    Forever

'End search 
EndSearch

Print "Found "+count+" files"

WaitKey
Vaikka noin. Nyt se ettii kaikki filut mediakansiosta joissa on sana zero. Ja tuon kyllä tajuaa jos jaksaa vain hiukan vilkaista sitä manuaalia.

Re: Tyhmät kysymykset (II/2009)

Posted: Fri Jun 12, 2009 4:11 pm
by Warlock
Miten voi tehdä niin, että jos hahmo kävelee vinolla tasolla, sen ei pidä hyppiä sen yli, vaan voi vain kävellä? Niin kuin 14th Black Crusadessa ja Soldatissa.

Re: Tyhmät kysymykset (II/2009)

Posted: Fri Jun 12, 2009 8:08 pm
by JATothrim
Rippuu riippuu siitä miten maasto on toteutettu. Onko kenttänä kuva joka sisällä pitääisi liikkua ja maaston pitäisi vielä tuhoutua? Raycast "joka suuntaan" pelihahmon keskeltä. -> lasketaan maston muoto -> liikutaan sen mukaan. (säteen pituus vastaa liikkumis nopeutta, jolloin hahmon teleportaaminen maan sisään on mahdotonta) Jos taas mastolle on rakennettu peräti törmäys janat normaaleilla, niin eikun laskemaan. Esimerkkiä on aika vaikea antaa.. Mutta Sin ja Cos funktioiden käyttö on pakko osata. ;)

PS: Tämä ei muuten kuulu tyhmiin kysymyksiin.. vino maasto on oikeasti vaikea toteuttaa.

Re: Tyhmät kysymykset (II/2009)

Posted: Fri Jun 12, 2009 8:35 pm
by skinkken
Jos AnimImagen kokoa muuttaa, meneekö animaatio pilalle; siis että voiko kuvan kaikkia frameja piirtää edelleen normaalisti?
EDIT:

selvitin itse: voi.


Re: Tyhmät kysymykset (II/2009)

Posted: Sat Jun 13, 2009 4:00 am
by rami123
Miten on helpoin toteuttaa Tasohyppelyn vihun ampuminen (vihu on animoituobjekti 100x51 kaksi framea osoittaminen oikeaan ja vasempaa) eli jos vihu näkee pelaajan ja pelaaja on enemmän vasemmal niin frame1 ja toisinpäin samahomma..ja ampuminen pointobjectilla vai?miten on paras?

Re: Tyhmät kysymykset (II/2009)

Posted: Sun Jun 14, 2009 9:58 am
by Latexi95
rami123 wrote:Miten on helpoin toteuttaa Tasohyppelyn vihun ampuminen (vihu on animoituobjekti 100x51 kaksi framea osoittaminen oikeaan ja vasempaa) eli jos vihu näkee pelaajan ja pelaaja on enemmän vasemmal niin frame1 ja toisinpäin samahomma..ja ampuminen pointobjectilla vai?miten on paras?
Itse käyttäisin PointObjectin sijaan CurveAngle:ä silloin vihu ei olisi niin tarkka. Eikä ole realististakaan (koskahan on ollut realistinen tasohyppely) jos "vihu" tähtäisi salaman nopeasti.

Re: Tyhmät kysymykset (II/2009)

Posted: Tue Jun 16, 2009 11:23 am
by Feuer
Pitäisi toteuttaa tekstipohjainen "Kyselen, luon vastauksista tiedoston, ja näytän pyydettäessä tiedoston sisällön" - tyyppinen ohjelma. Muuten olen onnistunut tuossa, mutta haluaisin taustan valkeaksi ja tekstin mustaksi. Ongelma on se, että kun isken rivit

Code: Select all

Color cbBlack
ClsColor cbWhite
muuttuu ohjelmaikkuna täysin mustaksi. Ohjelma toimii täysin koodin mukaan alla, ikkuna ei vain päivitä kuvaansa. Apua juurifoorumilleliittyneelle? :)

Voiko muuten CB:llä tehtyä apuohjelmaa käyttää noin vain vanhempieni firmassa ilman suurempaa säätöä?

Re: Tyhmät kysymykset (II/2009)

Posted: Tue Jun 16, 2009 12:11 pm
by Viltzu
Feuer wrote:Pitäisi toteuttaa tekstipohjainen "Kyselen, luon vastauksista tiedoston, ja näytän pyydettäessä tiedoston sisällön" - tyyppinen ohjelma. Muuten olen onnistunut tuossa, mutta haluaisin taustan valkeaksi ja tekstin mustaksi. Ongelma on se, että kun isken rivit

Code: Select all

Color cbBlack
ClsColor cbWhite
muuttuu ohjelmaikkuna täysin mustaksi. Ohjelma toimii täysin koodin mukaan alla, ikkuna ei vain päivitä kuvaansa. Apua juurifoorumilleliittyneelle? :)

Voiko muuten CB:llä tehtyä apuohjelmaa käyttää noin vain vanhempieni firmassa ilman suurempaa säätöä?
En tiedä miksi tuo ei toimi, mutta näyttäisi siltä että mitkään värivakiot eivät toimi ClsColorsissa jos sitä ennen on Color komento.
Mutta kun vaihtaa värivakion RGB:ksi niin toimii, elikkä tee vaikka näin(Edit: eipäs toimikkaan, katso alempia edittejä):

Code: Select all

Color cbBlack
ClsColor 255,255,255
EDIT:

Mitä vattua, tuo koodi toimi mutta ei enään.. Hmm.. Mystistä
EDIT2: Toimii se sittenkin jotenkin mystisesti ainakaan ilman silmukkaa DrawScreeniä kutsuttaessa ei toiminut.
EDIT3: Näyttö pitää piirtää kaksi kertaa jotta toimisi O_o
EDIT4: Sly_Jack0 koitappas itse tätä koodia:

Code: Select all

ClsColor 255,255,255
Cls
WaitKey
Juuri niin, ei toimi. Eikä vaikka laittaisi Drawscreenin Cls:n tilalle, mutta jos laittaa Drawscreenin Cls:n alle toimii, tai jos kaksi Drawscreeniä laittaa peräkkäin.
EDIT5: Tässä teille mahtava funktio DrawScreen2() joka pelastaa maailmanne. lol xD

Code: Select all

Function DrawScreen2(c=1, p=0)
    If c=1 Then Cls
    DrawScreen c, p
EndFunction
[/edit]

Re: Tyhmät kysymykset (II/2009)

Posted: Tue Jun 16, 2009 12:17 pm
by Sly_Jack0
Feuer wrote:Pitäisi toteuttaa tekstipohjainen "Kyselen, luon vastauksista tiedoston, ja näytän pyydettäessä tiedoston sisällön" - tyyppinen ohjelma. Muuten olen onnistunut tuossa, mutta haluaisin taustan valkeaksi ja tekstin mustaksi. Ongelma on se, että kun isken rivit

Code: Select all

Color cbBlack
ClsColor cbWhite
muuttuu ohjelmaikkuna täysin mustaksi. Ohjelma toimii täysin koodin mukaan alla, ikkuna ei vain päivitä kuvaansa. Apua juurifoorumilleliittyneelle? :)
Laitappas ClsColorin jälkeen Cls. Tuo vain vaihtaa värin mitä käytetään kun ruutu tyhjennetään, mutta jos sitä ei koskaan tyhjennetä, niin ei värikään vaihdu.
EDIT:

Toimii myös DrawScreenin kanssa, koska DrawScreen tyhjentää ruudun ja sitten piirtää sen.


Re: Tyhmät kysymykset (II/2009)

Posted: Tue Jun 16, 2009 12:34 pm
by TheFish
Loogisesti ajatellen drawscreen tyhjentää ruudun vasta sen piirtämisen jälkeen. Eli uusi taustaväri tulee voimaan vasta seuraavan drawscreenin tai cls:sän jälkeen (ja sen takia tarvitaan joko molemmat tai kaksi drawscreeniä [eli looppi]).

Re: Tyhmät kysymykset (II/2009)

Posted: Tue Jun 16, 2009 1:03 pm
by Feuer
Eipä toimi... Edes tälläisellä yliampuvuudella:

Code: Select all

fonttimme=LoadFont("Tahoma",30)

'kyseessä on siis vain pieni lainaus koodista

ClsColor cbWhite
Color cbBlack

Cls

SetFont fonttimme

AddText "Kirjoita operaatiota vastaava numero ja paina ENTER - nappia"
AddText ""
AddText "1. Tutki tietokantaa"
AddText "2. Lisää tietoja tietokantaan"
AddText "3. Tietoja"
AddText "4. Ohje (tarvitset tähän ilmaisen Adobe Reader - ohjelman)"

Repeat

selection=Input(" :")

DrawScreen
DrawScreen

Until KeyHit(cbKeyEnter)
Cls - löytyy... Drawscreen, löytyy jopa kahteen kertaan loopissa. Ei toimi myöskään yksitäisellä drawscreenillä. Hämmästyttävää, että onnistun toteuttamaan jotain tiedostonkäsittelyä kysymättä, mutta yksinkertainen värivaihtelu ei onnistu... :D

Re: Tyhmät kysymykset (II/2009)

Posted: Tue Jun 16, 2009 1:19 pm
by Viltzu
Laita ClsColor 255,255,255 ja et tarvitse loopissa kahta Drawscreeniä.
Jostain syystä nuo vakiot kusee tuossa :D

Re: Tyhmät kysymykset (II/2009)

Posted: Tue Jun 16, 2009 1:38 pm
by Feuer
Rasittava... Onneksi on aikaa tuunata tätä.

Edit: Nähtävästi noita pitäisi kutsua erikseen jokaisella kirjoituskerralla...?
Edit2: Tuo olkoon toimiva ratkaisu. Tein funktion, joka hoitaa 'värienpäivityksen' aina kutsuttaessa, ja asetin koodin kutsumaan sitä aina tarvittaessa.

Re: Tyhmät kysymykset (II/2009)

Posted: Tue Jun 16, 2009 1:41 pm
by TheFish
Yksinkertaisinta lienee kiertää ongelma laittamalla loopin alkuun

Code: Select all

Color cbwhite
Box 0, 0, ScreenWidth(), ScreenHeight()
Color cbBlack

Re: Tyhmät kysymykset (II/2009)

Posted: Thu Jun 18, 2009 10:30 am
by Feuer
Hehee... Sain capslockin emuloinnin toimimaan. Mutta tuo ei lue syötteitä 'numeronäppäimistöltä', eli noilta napeilta, jotka kirjoittavat numeron jos numlock on käytössä. Miksi?

Re: Tyhmät kysymykset (II/2009)

Posted: Thu Jun 18, 2009 2:36 pm
by Jare
Feuer wrote:Hehee... Sain capslockin emuloinnin toimimaan. Mutta tuo ei lue syötteitä 'numeronäppäimistöltä', eli noilta napeilta, jotka kirjoittavat numeron jos numlock on käytössä. Miksi?
Jostain syystä Input()-konsoli ei vain tue Num-näppäimiä. Eikä myöskään GetKey()-funktio. Voit silti tunnistaa num-näppäinten painallukset KeyHit(cbKeyNum0) -testillä (jossa numeron 0 voi korvata muilla numeroilla 1 - 9), mutta tuo vaatii toki enemmän säätämistä ja todennäköisesti oman konsolin koodaamista Input():n tilalle. Tosin KeyHit()-konstilla et voi tietää NumLockin tilaa, joten et voi varmasti tietää, onko käyttäjän tarkoituksena syöttää numeroita numeronäppäimistöä käyttäessään.

Re: Tyhmät kysymykset (II/2009)

Posted: Fri Jun 19, 2009 6:18 pm
by Guest
Mulla on runtimen kanssa ongelmia. CB mavittaa heti jos sen täytyy avaa ihan mitä tahansa ihan mistä tahansa. Jos tiedostoa ei löydy, tulee "can't load ...", muutoin yksinkertaisesti mavittaa. Miten saisin tämän mavituksen pois? Tää on muutenkin alkanut aika hiljattain ja samaan aikaan taisi muutama muukin ohjelma lakata toimimasta. Veikkaan että joku vistan päivityksistä on syypää.

Re: Tyhmät kysymykset (II/2009)

Posted: Fri Jun 19, 2009 6:36 pm
by Latexi95
Vieras wrote:Mulla on runtimen kanssa ongelmia. CB mavittaa heti jos sen täytyy avaa ihan mitä tahansa ihan mistä tahansa. Jos tiedostoa ei löydy, tulee "can't load ...", muutoin yksinkertaisesti mavittaa. Miten saisin tämän mavituksen pois? Tää on muutenkin alkanut aika hiljattain ja samaan aikaan taisi muutama muukin ohjelma lakata toimimasta. Veikkaan että joku vistan päivityksistä on syypää.
Lähetä koodi tänne, niin voidaan katsoa onko se kunnossa
ja ruvetaan vasta sitten syyttelemään Vistaa.
(Joka on kieltämättä P**** käyttöjärjestelmä)

Minullakin on tullut joitain todella outoja ongelmia CoolBasic-Vista yhdistelmän kanssa.
Yleensä on kuitenkin auttanut uudelleen käynnistäminen.

Re: Tyhmät kysymykset (II/2009)

Posted: Fri Jun 19, 2009 7:35 pm
by Guest
Kas kummaa, nyt toimii taas, vaikka ei toiminut tänään iltapäivällä. Olen siis ihan esimerkkejä kokeillu ja muutenki oon pitkän linjan cb-mies joten ei se koodista oo kii :)