Tyhmät kysymykset (I/2009)

[Jonhu]

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.

[phons]

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

[Jani]

ja minulta tohon kakkoseen:
esim näin:

Code: Select all

If GetKey()=ASCII Then blaablaa()

[Jonhu]

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

[Tuxi]

Voithan lukea sen keydown-funktiolla ja sitten muuttaa se Ascii-merkiksi.

[Jonhu]

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))

[valscion]

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

[phons]

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?

[Character]

Vastaus siihen toiseen: bmp, jpg, png ja tga

[phons]

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

[Tuxi]

Ainaskin .avi videoita.

[m1c]

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

[kemp250]

miten voi saada tekstin objektin eteen? olen itse jo yrittänyt muutamia keinoja, mutta en silti onnistu...

[TheFish]

miten voi saada tekstin objektin eteen? olen itse jo yrittänyt muutamia keinoja, mutta en silti onnistu...

drawgame ennen tekstin tulostamista

[ristis]

miten voi saada tekstin objektin eteen? olen itse jo yrittänyt muutamia keinoja, mutta en silti onnistu...

drawgame ennen tekstin tulostamista

Eli siis näin:

Code: Select all

Repeat

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

[esa94]

DrawGame ennen tekstiä.

[Awaclus]

miten voi saada tekstin objektin eteen? olen itse jo yrittänyt muutamia keinoja, mutta en silti onnistu...

Heh

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

[Jonhu]

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

[Sumppi]

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

Toimii moitteettomasti ainakin minulla.

EDIT:

Ensimmäinen viestini CoolBasicin foorumeilla!

[KillBurn]

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.