CoolBasic Forums

Lataa lähdekoodit täältä Innostuinpas tuossa viime sunnuntaina tekemään piirto-/kuvankäsittelyohjelmaa. Sain siis aikaiseksi cbSpritex:n! En nyt (jaksa) osaa tässä mitään selitellä, joten heitän teille kuvankaappausta ja pakettia. =) screenshot_v06b.PNG cbSpritex071b.rar Bugeista sun muista olisi k...

Kiitos kiitos!

Tässä nyt olisi DLL:ää ja funktiokirjastoa:

Aijaa? Enpä ole kerennyt mitään surffailemaan vaan olen joutunut käyttämään niitä joita on koneelta löytynyt. =/
Voisi päivitellä jahka kerkiää latailemaan.

Sain myös DLL:n ja CB:lle funktiot valmiiksi ja lähettelen sitä kunhan muistan tuon muistitikun ottaa mukaan... =)

Morjens! Tässä kun ei ole internetsiin päässyt pitkiin aikoihin, niin sattui olemaa liikaa ylimääräistä aikaa. Esittelen teille siis PcK:n! PcK käyttää Igor Pavlov:n LZMA -pakkausalgoritmia. Ennen kuin PcK puskee tiedostoja pakettiin, se testaa tiedoston pakkaamista - jollei se onnistu, tai ei ole t...

Lisäilinpä yhden funktion pixeleille, joka sisältää kaikki suodattimet. Vakioilla kutsuttavissa.

Jotain kikkailua ja käytössä porttaamani cbFilt : SCREEN 600,600 SCREEN 256,256,32,cbsizable Const FRAMES = 360 Global gCalc gCalc = 0 pw = 24:ph = 24 Dim imgs(frames,4) angle_plus=0 While angle_plus<FRAMES For i=0 To 3 imgs(angle_plus,i)=MakeImage(pw,ph) Lock(Image(imgs(angle_plus,i))) Next i For x...

Tervehdys. Tässä kun ei tänne nettiin joka päivä pääse, niin tulee kikkailtua ties minkälaista settiä. Tässä siis esittelen teille cbFilt:n : cbFilt:llä on siis mahdollista laskea punaisen, vihreän tai sinisen väriarvon arvo suodattimien läpi. Suodattimia ovat muunmuassa: SoftLight HardLight Differe...

Hehe. Timpen tunnelihan oli ihan hieno. =P Toisinsanoen, innostuin muokkaamaan siitä nopeamman "virtuaaliresolla" ja ruudun lukituksella. Tunnelin muotokin muuttui, eli tässä versiossa menette jonkin metrontapaisen vekottimen perässä jossa on hienot takavalot. =D SCREEN 512,512 SCREEN 64,6...

Heh... Testailinpa huvikseni tämän tallennusmuotoja:
Kaikki kuvaformaatit siis ovat pelkkiä bmp-kuvia jotka on vain tallennettu eri päätteillä...
Mikset käyttäisi vaikka minun tekemää ImgEx:iä ja Axun GIF-kuvatallenninta?

Tässä postissa on tietoa vain vanhasta ImgEx -versiosta. Tässä uudempaa pakettia. Helppiä löytyy, kun menet ja suoritat "imgex.exe":n komentorivin kautta syöttämällä sille -? tai -help, eli näin: >imgex -? Ja näin lyhyesti ja ytimekkäästi esimerkit esille ja paketti liitteeksi: thisispng$...

SCREEN 600,600 Repeat Cls aika=aika+1 For x=1 To 60 For y= 1 To 50 Color Cos(aika+y*2.5+x*2.5)*127+127,Sin(aika+y*5)*127+127,Sin(aika+x*5)*127+127 Line x*10+Sin(aika+y*5)*20,y*10+Sin(aika+x*5)*20,x*10+Sin(aika+y*5)*20+Sin(aika+x*5)*10,y*10+Sin(aika+x*5)*20+Sin(aika+y*5)*10 Next y Next x DrawScreen(...

Ja tässä maaginen (ja mavinen) UpdateSpace3: Function UpdateSpace3() For pis.PISTEET = Each PISTEET If ObjectFloat(pis\obj) <> 0.0 Then xmove# = GetObjectSpeed(pis\obj,xcomp) ymove# = GetObjectSpeed(pis\obj,ycomp) If ObjectInteger(pis\obj) = 0 Then tempobj=CloneObject(pis\obj) For pis.PISTEET = Eac...

Olisit voinut tekniikasta antaa pienen lausunnon, vaikka linkin laitoitkin wikipediaan.. :) Aivan. Noh, unisena tuollaisia ei aina muista laittaa. =P Lainaus suomenkielisestä wikipediasta: RLE (Run-length Encoding) eli jakson pituuden koodaus on yksinkertaisin häviötön tiivistysmenetelmä. Siinä tut...

Tällaisen innostuin sitten väsäämään, kun olin lueskelemassa internetsiä ja törmäsin tähän . Korjauksia yms. ottaisin ihan mielelläni vastaan, koska tiedän että unisena koodaaminen ei aina tuota juuri sitä parasta tulosta. SCREEN 800,600 Dim _text As String Dim tulos As String _text = "Tämä on ...

HV KAIKILLE! >;G

eikö noiden kohteiden pitäisi liikkua silloin kun 'piikki' menee kohteen yli, eikä silloin kun piikkin kulma on 0 Samaa ihmettelin minäkin. Toki juu, en minä niin typerä ole. Heti kun joku kertoo, että miten saan piirtokomennoilla tehdyt pallot päivittymään, kun piirtokomennolla tehty viiva luistaa...

Nämä funktiot ovat tietysti helppo itse tehdä, mutta ajattelin silti laittaa nämä esille. Bin2() ja Hex2() siis palauttavat halutun pituisen merkkijonon halutusta arvosta. Function Bin2$(val,digits=32) Return Right(Bin(val),Int(Max(1,Min(32,digits)))) End Function Function Hex2$(val,digits=8) Return...

Hauska ja viihdyttävä peli, mutta tosiaan muutaman kerran pelattava. Itseäni harmitti pelin vaikeus; pommeja voi heittää vain sivuille ja ukko liikkuu samaa vauhtia kuin hyytelötkin. Voisi siis liikkua aavistuksen nopeammin jotta pääsisi niitä karkuun ja sitten posauttelisi ne pommeilla.