Tyhmät kysymykset (I/2011)

Voit pyytää apua ohjelmointiongelmiin täältä.
Locked
User avatar
Laurenzo
Member
Posts: 85
Joined: Mon Apr 25, 2011 8:28 am
Location: Tampere
Contact:

Re: Tyhmät kysymykset (I/2011)

Post by Laurenzo » Mon Jun 13, 2011 9:03 am

Kiitos axu.
Seuraava ongelma: Kuinka saisin maalinton onnistumaan järkevästi????? (teen jääkiekkopeliä)
Eli kun kiekko osuu maaliverkkoon kuuluu esim ääni:TAIVAS VARJELE MITÄ SIELTÄ TULEE SIELTÄ TULEE MAAAALIIII!!!!
?? :oops:
Aloittelija koodari joka
osaa jo jotain (ehkä) :)
KOTISIVU

DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 3:18 pm

Re: Tyhmät kysymykset (I/2011)

Post by DJ-Filbe » Mon Jun 13, 2011 10:39 am

Laurenzo wrote:Kiitos axu.
Seuraava ongelma: Kuinka saisin maalinton onnistumaan järkevästi????? (teen jääkiekkopeliä)
Eli kun kiekko osuu maaliverkkoon kuuluu esim ääni:TAIVAS VARJELE MITÄ SIELTÄ TULEE SIELTÄ TULEE MAAAALIIII!!!!
?? :oops:
Kannattanee ainakin tehdä välimuuttuja, onko maalia jo laskettu, sillä eri frameilla maali laskettaisiin muuten joka frame.
Ennen pääsilmukkaa kirjoita vaikkapa:

Code: Select all

maalilaskettu=0
pääsilmukan sisään ehtolause:

Code: Select all

If Objectsoverlap(kiekko, maali) And maalilaskettu = 0 Then // ei oteta maalia uudestaan ennen kun kiekko on käynyt kentän keskellä
    maalilaskettu=1
    [pisteenlaskentasi koodi tähän]
    // jos haluat soittaa jonkun tuuletusäänen niin...
    PlaySound "taivas_varjele.mp3" // jos tuollainen tiedosto sattuu sinulla olemaan ;)
EndIf
    
Muista myös nollata maalilaskettu -muuttuja heti kun uuden maalin tavoittelu alkaa ;)

makkara on hyvää

Re: Tyhmät kysymykset (I/2011)

Post by makkara on hyvää » Mon Jun 13, 2011 11:53 am

Hei.
MIetin, että haluasin peliini ääniä ja musiikin. Tiedättekö jotain hyvää ilmaista musiikinteko-ohjelmaa? Myös ajattelin, että musiikki voisi ehkä koostua yksittäisistä äänistä, joita laitan kuulumaan sopivin välein. Siihen tarvittaisiin sitten varmaan jokin sivusto, jolta saa ladata ilmaiseksi lyhyitä ääniä. Tosin se olisi varmaan aika hankalaa. Tuleeko teille mieleen sellaisia sivustoja/ohjelmia?
T. eräs ihminen joka pitää makkaroista.

User avatar
Latexi95
Guru
Posts: 1164
Joined: Sat Sep 20, 2008 5:10 pm
Location: Lempäälä

Re: Tyhmät kysymykset (I/2011)

Post by Latexi95 » Mon Jun 13, 2011 12:01 pm

makkara on hyvää wrote:Hei.
MIetin, että haluasin peliini ääniä ja musiikin. Tiedättekö jotain hyvää ilmaista musiikinteko-ohjelmaa? Myös ajattelin, että musiikki voisi ehkä koostua yksittäisistä äänistä, joita laitan kuulumaan sopivin välein. Siihen tarvittaisiin sitten varmaan jokin sivusto, jolta saa ladata ilmaiseksi lyhyitä ääniä. Tosin se olisi varmaan aika hankalaa. Tuleeko teille mieleen sellaisia sivustoja/ohjelmia?
T. eräs ihminen joka pitää makkaroista.
Tässä ensimmäinen googlen hakutulos... Tuolta löytyy ainakin ääniefektejä.

pitää makkarasta

Re: Tyhmät kysymykset (I/2011)

Post by pitää makkarasta » Mon Jun 13, 2011 12:24 pm

Kävin tuolla jo, mutta kiitosksia silti.

DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 3:18 pm

Re: Tyhmät kysymykset (I/2011)

Post by DJ-Filbe » Mon Jun 13, 2011 12:52 pm

FL Studio?
Sillä saa erinomaista musiikkia ja sitä on helppo käyttää.
Tosin laillinen versio maksaa, laittoman saa toki myös helposti.

pitää makkarasta

Re: Tyhmät kysymykset (I/2011)

Post by pitää makkarasta » Mon Jun 13, 2011 8:25 pm

Sori, en huomannut viestiäsi aiemmin, mutta kiitos! Taidan silti pysytellä kaidalla tiellä. :)

User avatar
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Tyhmät kysymykset (I/2011)

Post by MaGetzUb » Mon Jun 13, 2011 8:25 pm

DJ-Filbe wrote:FL Studio?
Sillä saa erinomaista musiikkia ja sitä on helppo käyttää.
Tosin laillinen versio maksaa, laittoman saa toki myös helposti.
Nähtävästi et ole vieläkään lukenut foorumin sääntöjä. PIRAATTIOHJELMISTA EI SAA PUHUA EDES KUISKAAMALLA
Ja anteeksi tämä moden leikkiminen.

Mut joo Linux Media Studio kannattaa tsekata FL Studion sijaan jos aikoo hyvän ilmaisen ohjelman hankkia. :)
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.

pitää makkarasta

Re: Tyhmät kysymykset (I/2011)

Post by pitää makkarasta » Mon Jun 13, 2011 8:42 pm

Hei.
Tietääkö joku miten saa coolbasic-pelin ikkunan vasenpaan ylänurkkaan oman kuvan ikkunaa esittävän kuvan tilalle?
T. eräs ihminen joka pitää vielä makkarasta.

pitää makkarasta

Re: Tyhmät kysymykset (I/2011)

Post by pitää makkarasta » Mon Jun 13, 2011 8:50 pm

Kiitos paljon MaGezUb! Vaikuttaa hyvältä softalta!

pitää makkarasta

Re: Tyhmät kysymykset (I/2011)

Post by pitää makkarasta » Mon Jun 13, 2011 8:52 pm

Ja anteeks kun kirjoitin nimesi väärin :D

User avatar
Feuer
Devoted Member
Posts: 520
Joined: Tue Jun 16, 2009 11:13 am
Contact:

Re: Tyhmät kysymykset (I/2011)

Post by Feuer » Mon Jun 13, 2011 8:59 pm

Coolbasic.comista löytyy linkki Resource Hackeriin, jolla voi muokata exen resursseja (kuten sitä kuvaketta). Kuvakkeen muuttaminen saattanee vaatia exen UPXllä purkua. Foorumeilla oli muistaakseni joskus ohje tuohon kuvakkeen vaihtoon, mutten pikaisella selaamisella löytänyt sitä.

Kannattaa tosissaan rekisteröityä, jotta pääsee muokkaamaan omia viestejä. Nuo triplapostit eivät ole kovin kauniita :)
Asus P8P67 LE/Intel Core i5 2500K/ GTX560/ 8GT RAM/750GT HDDt + 120GT SSD + 13" Macbook Pro
Blogi - Peräpohjola - MERPG

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

Re: Tyhmät kysymykset (I/2011)

Post by esa94 » Tue Jun 14, 2011 2:09 am

MaGetzUb wrote:Mut joo Linux Media Studio
> LMMS
AAAAAAAGGGGGHGHHHHH

Miten ois Renoise? Ilmainen triali joka ei tallenna mutta josta voi (erityisesti JACKin kautta) nauhoittaa filua ulos.

User avatar
JATothrim
Tech Developer
Tech Developer
Posts: 606
Joined: Tue Aug 28, 2007 6:46 pm
Location: Kuopio

Re: Tyhmät kysymykset (I/2011)

Post by JATothrim » Tue Jun 14, 2011 10:55 am

esa94 wrote:
MaGetzUb wrote:Mut joo Linux Media Studio
> LMMS
AAAAAAAGGGGGHGHHHHH

Miten ois Renoise? Ilmainen triali joka ei tallenna mutta josta voi (erityisesti JACKin kautta) nauhoittaa filua ulos.
Renoise + waveout. ;)
Trialilla ei voi renderöidä/ajaa valmiiksi musiikkia, mutta realtime waveout ja audacity ajavat homman ihan hyvin.
T: yli 70h renoisen parissa.
-On selkeästi impulsiivinen koodaaja joka...
ohjelmoi C++:lla rekursiivisesti instantioidun templaten, jonka jokainen instantiaatio instantioi sekundäärisen singleton-template-luokan, jonka jokainen instanssi käynistää säikeen tulostakseen 'jea'.

makkara

Re: Tyhmät kysymykset (I/2011)

Post by makkara » Tue Jun 14, 2011 12:08 pm

kiitos vastauksesta!

mika132
Newcomer
Posts: 30
Joined: Sun Jul 12, 2009 1:31 pm

Re: Tyhmät kysymykset (I/2011)

Post by mika132 » Tue Jun 14, 2011 7:55 pm

Jos cbnetworkkia käyttämällä lataa jotain netistä niin miten voin seurata tarkkaan kuinka paljon latausta on vielä suorittamatta? Eli siis kuinka voin asettaa prosentteja latauksen etenemiselle?
Business manager - companys mini pack
Tämä on Companys peliin tuleva lisä osa jonka mukana tulee mm.
- Raha pelejä
- Bugi korjauksia
- Yksi botti firma
- Pullon palautus automaatti
- pankki automaatti
Eli kaikkea sälää.

User avatar
tuhoojabotti
Advanced Member
Posts: 485
Joined: Tue Aug 28, 2007 3:53 pm
Location: Suomi, Finland
Contact:

Re: Tyhmät kysymykset (I/2011)

Post by tuhoojabotti » Tue Jun 14, 2011 8:25 pm

mika132 wrote:Jos cbnetworkkia käyttämällä lataa jotain netistä niin miten voin seurata tarkkaan kuinka paljon latausta on vielä suorittamatta? Eli siis kuinka voin asettaa prosentteja latauksen etenemiselle?

Code: Select all

Include "cbNetwork.cb"

SCREEN 800,600

Dim rtn As Integer

t#=Timer()
dlspeed#=1.0
Print "connecting..."
rtn = HTTPGet("http://download.tuxfamily.org/xmoto/xmoto/0.5.0/xmoto-0.5.0-win32-setup.exe",1)  'http://ftp.funet.fi/pub/mirrors/cdimage.ubuntu.com/releases/8.10/release/ubuntu-8.10-dvd-i386.iso
// Jos tuli ongelmia, näytetään virheilmoitus
If rtn <> 200 Then MakeError GetNetErrorString( rtn )
old=HTTP_ContentLength-HTTPDownloadState()
While Not HTTP_ContentLength=HTTPDownloadState()
    CenterText 400,0,"Downloading... kilobytes left: "+Int(Int(HTTP_ContentLength)-Int(HTTPDownloadState()))/1000
    percents#=Float(HTTPDownloadState())/Float(HTTP_ContentLength)*100
    Color cbred 
    Box 300,290,percents*2,20,1
    Color cbwhite 
    Box 300,290,200,20,0
    CenterText 400,300,Left(Str(percents),4)+"% done",2
    DrawScreen 
    If t+1000<Timer() Then //every second we check the speed
        t=Timer()
        dlspeed=(HTTP_ContentLength-HTTPDownloadState()-old)*-0.001
        old=HTTP_ContentLength-HTTPDownloadState()
    EndIf 
    CenterText 400,260,"Download Speed: "+dlspeed+"kt/s",2
    CenterText 400,280,"Approx. time left: "+ConvertTime((Float(Int(HTTP_ContentLength)-Int(HTTPDownloadState()))/1000.0/dlspeed))+".",2
    'CenterText 400,280,"Approx. time left: "+ConvertTime(21600)+".",2
Wend
Color cbred 
Box 300,290,200,20,1
Color cbwhite 
Box 300,290,200,20,0
CenterText 400,300,100+"% done",2
DrawScreen 
HTTPSaveContent("download.file")
WaitKey 

Function ConvertTime(s)
    If s<60 Then
        Return s+" Second(s)"
    ElseIf s=>60 And s/60<60
        Return s/60+" Minute(s) a"+"nd "+Int(s-60*(s/60))+" Second(s)"
    ElseIf s/60=>60 And s/60/60<24 //minutes are 60 or over
        Return s/60/60+" Hour(s) a"+"nd "+Int(s/60-60*(s/60/60))+" Minute(s)"
    Else
        Return s/60/60/24+" Day(s)"        
    EndIf 
EndFunction 
Lyhyt esimerkki, joka saattaa tai saattaa olla toimimatta. :P
Imagedev.tuhoojabotti.com — “Programmer (noun): An organism that turns caffeine into code.”

User avatar
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

Re: Tyhmät kysymykset (I/2011)

Post by Viltzu » Tue Jun 14, 2011 8:44 pm

Näin lyhyesti: HTTP_ContentLength muuttujaan tallennetaan tiedoston koko, joka on haettu HTTPGetillä, ja HTTPDownloadState() kertoo paljonko on ladattu.
Sitten vain jaat HTTPDownloadState() funktiolta saadun arvon HTTP_ContentLength -muuttujalla ja kerrot sadalla.
EDIT:

Aivan, ja jompikumpi (joko muuttuja tai funktion palauttama arvo) pitää muuttaa floatiksi.


User avatar
legend
Advanced Member
Posts: 371
Joined: Wed Nov 18, 2009 9:06 pm

Re: Tyhmät kysymykset (I/2011)

Post by legend » Thu Jun 16, 2011 12:24 am

Onko kenelläkään tallessa oma tekemää ghostimage funktiota, katsoisin miten se toimii...
EDIT:

Ahaa, googlaamalla löyty :D

EDIT:

Jes se toimii :D Ja jos joku miettii samaa, miten tehdä oma läpinäkyvyys - koodi on tässä
(Nuolilla voi vähentää/lisätä läpinäkyvyyttä. Lataus kestää noin 10 sekunttia. (10 kuvaa, eli yksi kuva 1s)

Code: Select all

    SCREEN 500,400
    ClsColor 255,255,255
  
    Dim Colour(10,10,2,1)//kuvien tiedot
  
  
    CenterText 250,200, "lataa..", 2
    DrawScreen  
    Tausta = MakeImage(500,400)
    DrawToImage Tausta
        Color 255,0,0 //luodaan taustalle palikoita
        Box 10,10, 60, 60, 1
        Color 0,0,255
        Box 100,100,400,46, 1
        Color 0,255,0
        Box 100,100,20,300, 1
        Color 0, 0, 1
        Box 19,19,402,302,0
    DrawToScreen
    DrawImage Tausta,0,0


    map = LoadImage("media/map.bmp")
    ExploreImage(map,20,20) //tutkitaan kuva
    
    Dim kuva(20)
    Color 0,0,0
    
    For i=0 To 10
        kuva(i) = OpacityImage(map,b#) //luodaan kuvat
        b# = b# + 0.1
        CenterText 250,200, "lataa... " + (20 + i*8) + "%",  2
        DrawScreen
    Next i
    a = 10

    Repeat
              
        DrawImage Tausta, 0,0
        a = Min(Max(a+(KeyHit(200)-KeyHit(208)),0),10)
        DrawImage kuva(a), 20,20
        Text 0,0, "FPS:" + FPS()
        DrawScreen
        
    Forever
        
        
        
        
        
        
    
    //esivalmistellaan kuvaa...
    Function ExploreImage(pic,picX,picY)
        picW = ImageWidth(pic)
        picH = ImageHeight(pic)
        ReDim Colour(picW,picH,2,1)//laitettaan taulukko uuten kokoon
        If picX > 0 And PicxX+picW < ScreenWidth() And picY > 0 And PicY+picH < ScreenHeight() //ettei mene ruuudun ulkopuolelle
            Lock()
            For x = 1 To picW
                For y = 1 To picH
                    pixel = GetPixel2(picX + x, picY + y) //otettaan tausta talteen
                    Colour(x,y,0,0) = ((pixel Shl (1*8)) Shr 24)
                    Colour(x,y,1,0) = ((pixel Shl (2*8)) Shr 24)
                    Colour(x,y,2,0) = ((pixel Shl (3*8)) Shr 24)
                Next y
            Next x
            Unlock()
            DrawToImage pic
            Lock()
            For x = 1 To picW
                For y = 1 To picH
                    pixel = GetPixel2(x,y) //otetaan itse kuva talteen
                    Colour(x,y,0,1) = ((pixel Shl (1*8)) Shr 24)
                    Colour(x,y,1,1) = ((pixel Shl (2*8)) Shr 24)
                    Colour(x,y,2,1) = ((pixel Shl (3*8)) Shr 24) 
                Next y
            Next x
            Unlock()
            DrawToScreen
        EndIf
    EndFunction
    
    
    //luodaan kuva
    Function OpacityImage(pic,op#)
        op = 1-op
        picW = ImageWidth(pic)
        picH = ImageHeight(pic)
        newPic = MakeImage(picW,picH)
        DrawToImage newPic
        Lock()
        For x = 1 To picW
            For y=1 To picH
                R = Colour(x,y,0,1)
                G = Colour(x,y,1,1)
                B = Colour(x,y,2,1)
                ColorR = R+(Colour(x,y,0,0) -R)*op //yhdistetään värit
                ColorG = G+(Colour(x,y,1,0) -G)*op
                ColorB = B+(Colour(x,y,2,0) -B)*op
                PutPixel2 x,y, (ColorB + ColorR Shl 16 + ColorG Shl 8) //pistettään se kasaan
            Next y
        Next x
        Unlock()
        DrawToScreen
        Return newPic
    EndFunction
[/edit]

Ihminen
Newcomer
Posts: 34
Joined: Tue Jun 14, 2011 9:13 pm

Re: Tyhmät kysymykset (I/2011)

Post by Ihminen » Fri Jun 17, 2011 9:46 pm

Kun tein oman "kartan" Tilesterillä ja muuten se toimii mutta kun laitoin SetupCollisionin 1, 4, 2 (kokeilin myös 2, 4, 2) niin kun yritän päästä peliin tulee "Error: Memory access violation.
Miksi se tulee ja kuinka saisin korjattua asian.
(Tähän on varmaan ihan yksinkertainen ratkaisu, mutta kysyn nyt kuitenkin koska olen vasta aloittelija)

Locked