Tyhmät kysymykset (I/2009)

Voit pyytää apua ohjelmointiongelmiin täältä.
Jonhu
Active Member
Posts: 186
Joined: Mon Aug 04, 2008 5:45 pm

Re: Tyhmät kysymykset

Post by Jonhu » Sun Feb 01, 2009 7:32 pm

Lisäksi tuohon edelliseen, että jos lataa kaikki objectit taulukkoon, niin eikö ole vaikeaa muistaa, mikä on mikäkin?
Tietenkin, jos käyttää jokaisessa objectissa typejä, niin se helpottaisi noiden nimien muistamista...

Oma kysymykseni:
1. Onko coolbasicillä mahdollista aloittaa kappaleen soitto keskeltä kappaletta? Haluaisin peliini, että kun valitsee menun, niin se keskeyttää kappaleen ja palatessa takaisin peliin kappale jatkuisi samasta kohdasta mihin se jäi, eikä alkaisi alusta..

2. Onko mahdollista tunnistaa mitenkään, että onko nappi pohjassa ASC-merkkauksilla? Napin painosta saa tiedon getkey()-komennolla, mutta pohjassaoloon en ole löytänyt komentoa.
Tekeillä pikkupelejä ja ohjelmia :)

User avatar
phons
Guru
Posts: 1056
Joined: Wed May 14, 2008 10:11 am

Re: Tyhmät kysymykset

Post by phons » Sun Feb 01, 2009 9:18 pm

tohon 1. että siellä cbkk:ssa taitaa olla tuohon funktio. Jare on tainnut joskus pistää sitää linkin.
Image

User avatar
Jani
Devoted Member
Posts: 741
Joined: Fri Oct 31, 2008 5:53 pm

Re: Tyhmät kysymykset

Post by Jani » Sun Feb 01, 2009 9:48 pm

ja minulta tohon kakkoseen:
esim näin:

Code: Select all

If GetKey()=ASCII Then blaablaa()
Dead men tell no tales. Also, Python rocks!
Codegolf: 99 bottles of beer (oneliner) - Water map partition

Jonhu
Active Member
Posts: 186
Joined: Mon Aug 04, 2008 5:45 pm

Re: Tyhmät kysymykset

Post by Jonhu » Sun Feb 01, 2009 10:01 pm

Jani wrote:ja minulta tohon kakkoseen:
esim näin:

Code: Select all

If GetKey()=ASCII Then blaablaa()
Tuo kertoo vain painettiinko nappia. Ei kerro, onko nappi alhaalla, kuten jo aiemmin sanoin...

Tuolta koodikirjastosta minä en ainakaan löytänyt vastausta :(
Tekeillä pikkupelejä ja ohjelmia :)

User avatar
Tuxi
Active Member
Posts: 189
Joined: Wed Jan 21, 2009 11:25 pm
Contact:

Re: Tyhmät kysymykset

Post by Tuxi » Sun Feb 01, 2009 10:19 pm

Voithan lukea sen keydown-funktiolla ja sitten muuttaa se Ascii-merkiksi.
Projektit:
Jotain pientä (Ehkä vähän suurempaakin)

-Tuxi- (myös Tuxi4321)

Jonhu
Active Member
Posts: 186
Joined: Mon Aug 04, 2008 5:45 pm

Re: Tyhmät kysymykset

Post by Jonhu » Sun Feb 01, 2009 10:46 pm

Tuxi wrote:Voithan lukea sen keydown-funktiolla ja sitten muuttaa se Ascii-merkiksi.
Joo niin voin, mutta silloin joutuisi tehdä taulukon, että mikä asc nappi vastaa scan nappia.. Ajattelin tehdä peliin valikon, jossa voi vaihtaa ohjausnappit haluamikseen. Muuten olen onnistunut ihan hyvin lukuunottamatta tuota keydown() propleemaa.

Tämä ei silti toimi: keydown(cbkey+chr(ascnappi))
Tekeillä pikkupelejä ja ohjelmia :)

User avatar
valscion
Moderator
Moderator
Posts: 1589
Joined: Thu Dec 06, 2007 8:46 pm
Location: Espoo
Contact:

Re: Tyhmät kysymykset

Post by valscion » Mon Feb 02, 2009 1:41 am

Jonhu wrote:Joo niin voin, mutta silloin joutuisi tehdä taulukon, että mikä asc nappi vastaa scan nappia.. Ajattelin tehdä peliin valikon, jossa voi vaihtaa ohjausnappit haluamikseen. Muuten olen onnistunut ihan hyvin lukuunottamatta tuota keydown() propleemaa.
http://cbkk.systec.fi/koodi.php?id=64

Toisin päin: viewtopic.php?p=18103#p18103
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com

User avatar
phons
Guru
Posts: 1056
Joined: Wed May 14, 2008 10:11 am

Re: Tyhmät kysymykset

Post by phons » Mon Feb 02, 2009 7:58 pm

Jos pistän DrawToWorld Off,On,Off niin piirtääkö se videot silloin samalla lailla kuin kuvat? Tokihan olisin voinut tätä kokeilla, mutta juuri nyt en löydä koneeltani mitään videota. Ja toiseksi että mitä kaikkia video-formaatteja CB tukee?
Image

Character
Active Member
Posts: 113
Joined: Thu Nov 27, 2008 3:16 pm

Re: Tyhmät kysymykset

Post by Character » Mon Feb 02, 2009 8:13 pm

Vastaus siihen toiseen: bmp, jpg, png ja tga ;)

User avatar
phons
Guru
Posts: 1056
Joined: Wed May 14, 2008 10:11 am

Re: Tyhmät kysymykset

Post by phons » Mon Feb 02, 2009 8:16 pm

Nuo ovat kuva formaatteja eivät video formaatteja. Lueppas kysymys uusiks...
Video formaatteja ovat esim.: .avi, .wmv ja .mpg. Muita en tiedä/muista.
Image

User avatar
Tuxi
Active Member
Posts: 189
Joined: Wed Jan 21, 2009 11:25 pm
Contact:

Re: Tyhmät kysymykset

Post by Tuxi » Mon Feb 02, 2009 9:04 pm

Ainaskin .avi videoita.
Projektit:
Jotain pientä (Ehkä vähän suurempaakin)

-Tuxi- (myös Tuxi4321)

m1c
Member
Posts: 65
Joined: Tue Aug 28, 2007 5:10 pm
Location: \o

Re: Tyhmät kysymykset

Post by m1c » Mon Feb 02, 2009 9:43 pm

Cb taitaa käyttää DirectShowta videoiden toistoon, jolloin periaatteessa kaikki videot jolle käyttäjän koneelta löytyy koodekit toimivat.

kemp250
Newcomer
Posts: 24
Joined: Fri Nov 14, 2008 6:39 pm
Location: En voi kertoa. He voivat kuunnella meitä.

Re: Tyhmät kysymykset

Post by kemp250 » Tue Feb 03, 2009 8:24 pm

miten voi saada tekstin objektin eteen? olen itse jo yrittänyt muutamia keinoja, mutta en silti onnistu... :oops:
"Working" for GameTailors.

Projektit:
Tower Climber, 23%
Avaruusjalkkisjuttu jossa ei ole jalkoja eikä palloja, 19%

I have been using coolbasic many years. I just fail a lot.

TheFish
Developer
Developer
Posts: 477
Joined: Mon Aug 27, 2007 9:28 pm
Location: Joensuu

Re: Tyhmät kysymykset

Post by TheFish » Tue Feb 03, 2009 8:28 pm

kemp250 wrote:miten voi saada tekstin objektin eteen? olen itse jo yrittänyt muutamia keinoja, mutta en silti onnistu... :oops:
drawgame ennen tekstin tulostamista
CoolBasic henkilökuntaa
Kehittäjä

User avatar
ristis
Moderator
Moderator
Posts: 101
Joined: Sat Sep 08, 2007 4:32 pm
Location: Espoo
Contact:

Re: Tyhmät kysymykset

Post by ristis » Tue Feb 03, 2009 8:29 pm

TheFish wrote:
kemp250 wrote:miten voi saada tekstin objektin eteen? olen itse jo yrittänyt muutamia keinoja, mutta en silti onnistu... :oops:
drawgame ennen tekstin tulostamista
Eli siis näin:

Code: Select all

Repeat

DrawGame
.
tekstikomennot tähän väliin
.
DrawScreen
Forever

User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Tyhmät kysymykset

Post by esa94 » Tue Feb 03, 2009 8:30 pm

DrawGame ennen tekstiä.

Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Tyhmät kysymykset

Post by Awaclus » Tue Feb 03, 2009 8:40 pm

kemp250 wrote:miten voi saada tekstin objektin eteen? olen itse jo yrittänyt muutamia keinoja, mutta en silti onnistu... :oops:
Heh :)

Juuri edellisen sivun ensimmäisenä olisi näkynyt tähän kysymykseen vastaus.

Jonhu
Active Member
Posts: 186
Joined: Mon Aug 04, 2008 5:45 pm

Re: Tyhmät kysymykset

Post by Jonhu » Wed Feb 04, 2009 4:18 pm

Toimiiko tämä teillä, vai kaatuko tämä latauksen jälkeen??

Itsellä toimii moitteettomasti. Vaikea korjata näitä itsellä toimivia ohjelmia :?
EDIT: Jos pistätte kuvien määräksi 0, niin varmasti toimii kaikilla. Mistä johtuu, että tuo ohjelma toimii osalla ja osalla taas ei??

Code: Select all

SCREEN 400,300
FrameLimit 40

Const Kerroin = 100 'testaa eri luvuilla
Const Kuvia   = 12  'ladattavien kuvien määrä-1
Const viive   = 60 ' asetetaan viive kuvien vaihto välille

Dim pixeli(255,2) ' väreille taulukko
Dim kuva(Kuvia)   ' kuville taulukko

sw = ScreenWidth()
sh = ScreenHeight()

// Pistetään värejä taulukkoon...
For i = 0 To 255
    luku + 100
    Pixeli(i,0) = Func( Int( 72 + 71 * Cos( i * PI / 128 + luku / 74)) ) // punaisen värin määrä
    Pixeli(i,1) = Func( Int( 72 + 71 * Sin( i * PI / 128 + luku / 63)) ) // vihreän värin määrä
    pixeli(i,2) = Func( Int( 72 - 71 * Cos( i * PI / 128 + luku / 81)) ) // sinisen värin määrä   
Next i

Print "Kuvia tehdään "+(Kuvia+1)+". Teko kestää noin minutin"

For i=0 To Kuvia
    kuva(i) = MakeImage(sw,sh) // tehdään kuva
    Lock Image(kuva(i))        // lukitaan kuva
        For x = 0 To sw        // käydään jokainen pikseli läpi
            For y = 0 To sh
                luk#+1 ' mitä suurempi sitä mutkaisempi
                xx = sw + x + Kerroin * Cos(luk# * PI / 360) //lasketaan vähän
                yy = sh + y + Kerroin * Sin(luk# * PI / 360)
                vari = Func( (xx + yy) / 2 )                 // lasketaan keskiarvo
                Color pixeli(vari,0),pixeli(vari,1),pixeli(vari,2) // värin asetus
                PutPixel2 x, y, vari,Image(kuva(i))                // pikseli kuvaan
            Next y
        Next x
    Unlock Image(kuva(i))
    Color cbwhite
    Print "Kuvia tehty: "+(i+1)
Next i
   
a=0   
// pyöritetään kuvia järjestyksessä...
Repeat
    SetWindow "FPS: "+ FPS()

    If Timer()>aika+Viive Then
        a=a+1
        If a>kuvia then a=0
        aika=Timer()
    EndIf

    DrawImage kuva(a),0,0

    DrawScreen
Forever

Function Func(nro,max1=255,min1=0)
    If nro>max1
        Return (nro-max1)
    ElseIf nro<min1
        Return (nro+min1)
    EndIf
    Return nro
    
EndFunction
Last edited by Jonhu on Wed Feb 04, 2009 6:21 pm, edited 1 time in total.
Tekeillä pikkupelejä ja ohjelmia :)

Sumppi
Active Member
Posts: 163
Joined: Wed Dec 03, 2008 9:07 pm

Re: Tyhmät kysymykset

Post by Sumppi » Wed Feb 04, 2009 4:32 pm

Jonhu wrote:Toimiiko tämä teillä, vai kaatuko tämä latauksen jälkeen??
Toimii moitteettomasti ainakin minulla.
EDIT:

Ensimmäinen viestini CoolBasicin foorumeilla! :D

Grandi wrote:Sumpille piste. Jos nimimerkin m-kirjain muutetaan r:ksi, p-kirjain v:ksi ja 3 viimeistä kirjainta "vor":iksi, saadaan "survivor", eli suomeksi selviytyjä. Melkoinen yhteensattuma!

User avatar
KillBurn
Advanced Member
Posts: 339
Joined: Wed Aug 29, 2007 5:02 pm

Re: Tyhmät kysymykset

Post by KillBurn » Wed Feb 04, 2009 6:15 pm

Jonhu wrote:Toimiiko tämä teillä, vai kaatuko tämä latauksen jälkeen??

Itsellä toimii moitteettomasti. Vaikea korjata näitä itsellä toimivia ohjelmia :?

Code: Select all

SCREEN 400,300
FrameLimit 40

Const Kerroin = 100 'testaa eri luvuilla
Const Kuvia   = 12  'ladattavien kuvien määrä-1
Const viive   = 60 ' asetetaan viive kuvien vaihto välille

Dim pixeli(255,2) ' väreille taulukko
Dim kuva(Kuvia)   ' kuville taulukko

sw = ScreenWidth()
sh = ScreenHeight()

// Pistetään värejä taulukkoon...
For i = 0 To 255
    luku + 100
    Pixeli(i,0) = Func( Int( 72 + 71 * Cos( i * PI / 128 + luku / 74)) ) // punaisen värin määrä
    Pixeli(i,1) = Func( Int( 72 + 71 * Sin( i * PI / 128 + luku / 63)) ) // vihreän värin määrä
    pixeli(i,2) = Func( Int( 72 - 71 * Cos( i * PI / 128 + luku / 81)) ) // sinisen värin määrä   
Next i

Print "Kuvia tehdään "+(Kuvia+1)+". Teko kestää noin minutin"

For i=0 To Kuvia
    kuva(i) = MakeImage(sw,sh) // tehdään kuva
    Lock Image(kuva(i))        // lukitaan kuva
        For x = 0 To sw        // käydään jokainen pikseli läpi
            For y = 0 To sh
                luk#+1 ' mitä suurempi sitä mutkaisempi
                xx = sw + x + Kerroin * Cos(luk# * PI / 360) //lasketaan vähän
                yy = sh + y + Kerroin * Sin(luk# * PI / 360)
                vari = Func( (xx + yy) / 2 )                 // lasketaan keskiarvo
                Color pixeli(vari,0),pixeli(vari,1),pixeli(vari,2) // värin asetus
                PutPixel2 x, y, vari,Image(kuva(i))                // pikseli kuvaan
            Next y
        Next x
    Unlock Image(kuva(i))
    Color cbwhite
    Print "Kuvia tehty: "+(i+1)
Next i
   
a=0   
// pyöritetään kuvia järjestyksessä...
Repeat
    SetWindow "FPS: "+ FPS()

    If Timer()>aika+Viive Then
        a=a+1
        If a>kuvia then a=0
        aika=Timer()
    EndIf

    DrawImage kuva(a),0,0

    DrawScreen
Forever

Function Func(nro,max1=255,min1=0)
    If nro>max1
        Return (nro-max1)
    ElseIf nro<min1
        Return (nro+min1)
    EndIf
    Return nro
    
EndFunction
MAV:in antaa kun kuvia on ladattu 2.
Sumu Games: Sam, Ur eye!

Locked