temu92 wrote:HTML ja CSS on iha helppoja
Sanoisin että jopa CB on vaikeempi ku nuo kaks.
Musta taas CSS on kirottu.
Eniveis, en saanut unta joten nousin takaisin ylös ja tuli mieleen, josko CB:llä onnistuis pieni kikkailu kuvien kanssa. Testailin hetken ja tuloksena syntyi kaksi ehkä turhaakin turhempaa funktiota. Kokeilin parilla eri media-kansion kuvalla sekä yhdellä lennossa luodulla kuvalla, eikä funktiot enää heittäneet MAVia. Tiedä sitten josko jollain muulla koneella tai paremmin testattuna nää funktiot onnistuu MAVaamaan.. Mutta, näillä pystyy kuvan osoittimeen liittämään mitätahansa tietoja ja miten paljon vain. Funktio ModImage() ottaa parametrikseen kuvan, johon luodaan säilöön uusi muistipala. Toisena parametrina ilmoitetaan haluttu koko muistipalalle. Funktio GetImageMod() taas palauttaa kyseisen muistipalan osoittimen takaisin kuvasta. Eli jos kuville jotain lisätietoja tarvitsee tallettaa, niin näiden funktioiden ansioista siihen ei tarvita mitään ylimääräistä taulukkoa tai tyyppiä.
Esimerkkiohjelma tallettaa kuvan muistipalaan luvun ohjelman alussa ja hakee sen sieltä päälenkissä.
Code: Select all
img = LoadImage("media/map.bmp")
img_mem = ModImage(img,50) 'Luodaan kuvaosoittimeen 50 tavua kooltaan oleva muistipala
PokeInt img_mem, 0, 333 'Ja heivataan kuvan "sisältämään" muistipalaan luku 333
Repeat
DrawImage img, 0,0
Text 0,0, PeekInt(GetImageMod(img),0) 'GetImageMod() palauttaa osoittimeen kuvaan taltioituun muistipalaan
DrawScreen
Forever
Function ModImage(img, memblock_size)
mem = MakeMEMBlock(memblock_size)
PokeInt img, 4, mem
Return mem
EndFunction
Function GetImageMod(img)
Return PeekInt(img, 4)
EndFunction
Ilmoittakaa löytämänne MAVit.