Tyhmät kysymykset (I/2009)
Re: Tyhmät kysymykset
Mulla on tällä hetkelle että voi olla 1 vihu kerrallaa olemassa.
Mutta miten saan että se tekee tietyin ajoin päästä aina uuden objectin..(vihun).?
Kait siihen tarvii timerii? Vai?
Toivottavasti ymmärsitte ongelmani.
Kiitos jo etukäteen.
Mutta miten saan että se tekee tietyin ajoin päästä aina uuden objectin..(vihun).?
Kait siihen tarvii timerii? Vai?
Toivottavasti ymmärsitte ongelmani.
Kiitos jo etukäteen.
Re: Tyhmät kysymykset
Code: Select all
Type VIHUT
Field obj
End Type
mVihu = LoadObject("media/guy.bmp")
Repeat
If timer() > viimelisays + 1000 then
uusiVihu.VIHUT = New(VIHUT)
uusiVihu\obj = CloneObject(mVihu)
PositionObject uusiVihu\obj,rand(-screenwidth()/2,screenwidth()/2),rand(-screenheight()/2,screenheight()/2)
viimelisays = timer()
Endif
DrawScreen
Forever
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Re: Tyhmät kysymykset
Yksinkertainen kysymys (toivotaan yksinkertaista vastausta):
mitä vikaa näissä on?
CB valittaa vääränlaisista parametreistä.
mitä vikaa näissä on?
Code: Select all
If CmdButton("<-",130,70,30,30) Then Ip2$=setText(StrRemove(getText(Ip2$),Len(getText(Ip2$)),1))
Code: Select all
If CmdButton("<-",130,70,30,30) Then Ip2$=setText(LSet(getText(Ip2$),Len(getText(Ip2$))))
Koodarina kohtalainen, henkilönä vittumainen
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
Re: Tyhmät kysymykset
Tarkista ettet ole kirjoittanut esimerkiksi kokonaislukua sellaiselle parametrille, joka vaatisikin merkkijonoa ja päinvastoin.
Re: Tyhmät kysymykset
olen tarkistanutGrandi wrote:Tarkista ettet ole kirjoittanut esimerkiksi kokonaislukua sellaiselle parametrille, joka vaatisikin merkkijonoa ja päinvastoin.
Koodarina kohtalainen, henkilönä vittumainen
Re: Tyhmät kysymykset
Herranen aika!Mistä keksit laittaa setText funktiolle kaksi parametriä vaikka niitä on yksi?Tämän koodin pitäisi toimia.nevssons wrote:Yksinkertainen kysymys (toivotaan yksinkertaista vastausta):
mitä vikaa näissä on?Code: Select all
If CmdButton("<-",130,70,30,30) Then Ip2$=setText(StrRemove(getText(Ip2$),Len(getText(Ip2$)),1))
CB valittaa vääränlaisista parametreistä.Code: Select all
If CmdButton("<-",130,70,30,30) Then Ip2$=setText(LSet(getText(Ip2$),Len(getText(Ip2$))))
Code: Select all
If CmdButton("<-",130,70,30,30) Then Ip2$=setText(StrRemove(getText(Ip2$))
Code: Select all
If CmdButton("<-",130,70,30,30) Then Ip2$=setText(LSet(getText(Ip2$))))
EDIT:
En katsonut koodia sen jälkeen kun tuon ekan olin huomannut.
Last edited by M.R on Sun Apr 06, 2008 9:48 am, edited 1 time in total.
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
Re: Tyhmät kysymykset
En usko että toimii, koska funktio strremove vaatii toimiakseen 3 parametria, eikä tuossa koodissa ole suljettu kaikkia sulkuja.M.R wrote:Tämän koodin pitäisi toimia.Code: Select all
If CmdButton("<-",130,70,30,30) Then Ip2$=setText(StrRemove(getText(Ip2$))
- TheDuck
- Devoted Member
- Posts: 632
- Joined: Sun Aug 26, 2007 3:51 pm
- Location: C:\Program Files\Tuusula\
Re: Tyhmät kysymykset
toisessa oli yks sulku liikaa:nevssons wrote:Yksinkertainen kysymys (toivotaan yksinkertaista vastausta):
mitä vikaa näissä on?Code: Select all
If CmdButton("<-",130,70,30,30) Then Ip2$=setText(StrRemove(getText(Ip2$),Len(getText(Ip2$)),1))
CB valittaa vääränlaisista parametreistä.Code: Select all
If CmdButton("<-",130,70,30,30) Then Ip2$=setText(LSet(getText(Ip2$),Len(getText(Ip2$))))
Code: Select all
If CmdButton("<-",130,70,30,30) Then Ip2$=setText(LSet(getText(Ip2$),Len(getText(Ip2$)))
^^
Re: Tyhmät kysymykset
Unohdin,käyttäjän,Salasanan uuden koneen myötä,Enkä jaksanu heti uutta tehä.Eli Miten saisin tehtyy tuhoutuvaa karttaa(Esim.Level.Bmp,ettei mikään TileKartta)Miten saan Siis sitä karttaa tuhottuu ?
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
Re: Tyhmät kysymykset
Tuhoutuvan kartan saat kun ensin teet kuvan. Kuvaan ei saa piirtää taustaa, jos haluat toimia näiden ohjeiden mukaan. Suosittelen muuten PNG kuvia BMP:n sijasta (koska PNG on paljon pienempi kokoinen, mutta silti laatu on yhtä hyvä). JPG:kin käy, mutta jos se pitää tallentaa silloin todella hyvässä muodossa, että ei tule sotkua. Paintissa ei muistaakseni voi sen laatuun vaikuttaa, joten sillä ei kannata tallentaa kartta-kuvaa, ainakaan sellaista joka sisältäisi läpinäkyvyyttä. Jotkut tekevät niin, että piirtävät kartta-kuvan pienenä ja sitten itse pelissä skaalaavat sen 2 tai 3 kertaiseksi. Tästä syntyy kuitenkin pikselireunat, joista kaikki eivät pidä. Tuhoutuvan kartan periaate on varsin yksinkertainen. Tällaisissa tilanteissa törmäyksen tunnistus on kuitenkin luettava suoraan kartta-kuvasta. Eli tarkistetaan onko törmäyspisteessä kuvan kohdalla esim. mustaa (Jos käytät sitä maskivärinä) -> siinä kohtaa ei ole törmättävää. Jos katsot törmäyspisteen värin suoraan ruudulta, väri sekoittuu mahdollisen taustakuvan kanssa, ja tällöin törmäyksentunnistus bugittaa. Nyt kun meillä on erikseen tämä törmäyskuva, voidaan sitä tietenkin tuhota. Tämä tapahtuu piirtämällä kuvaan maskivärillä olevia kuvioita, esimerkiksi palloja. Näin ollen räjäytetty kohta häviää, siinä ei ole törmäyksentunnistusta, ja taustakuva kuultaa sen takaa. Tuli muuten mieleen, että jos käytät jostain syystä objekteja esim. kranaateissa / muussa karttaa tuhoavassa, sinun on laskettava räjähdyspaikka kuvan koordinaateissa. Näin myös törmäyksentunnistuksessa. Siksipä suosittelenkin toteuttamaan koko pelin kuvilla, jos se on vain mahdollista.Peli_Piru wrote:Unohdin,käyttäjän,Salasanan uuden koneen myötä,Enkä jaksanu heti uutta tehä.Eli Miten saisin tehtyy tuhoutuvaa karttaa(Esim.Level.Bmp,ettei mikään TileKartta)Miten saan Siis sitä karttaa tuhottuu ?
Tässä oli muuten esimerkki, miltä teksti jossa ei ole kappaleita voi näyttää :D
-
- Moderator
- Posts: 1583
- Joined: Mon Aug 27, 2007 11:24 pm
- Location: Otaniemi - Mikkeli -pendelöinti
Re: Tyhmät kysymykset
Pienenä pätemisenä on Grandille todettava, että ei. .png:n laatu ei ole yhtä hyvä kuin .bmp:n. Missään realistisessa tilanteessa tämä ei tule esille, mutta ihan yhtä hyvä ei .png ole. (suurenna kuvaa järkyttävän paljon, pitäisi jotain häröyttä esiintyä)
Re: Tyhmät kysymykset
PNG on häviötön tiedostomuoto, kuten bmp:kin. Molemmissa on 8-bittinen kanava kaikille väreille, PNG:ssä myös alphalle. Mitään eroavaisuutta kuvassa ei siis ole, paitsi jos tallennusohjelma jostain syystä päättä sinne jotain lisätä.koodaaja wrote:Pienenä pätemisenä on Grandille todettava, että ei. .png:n laatu ei ole yhtä hyvä kuin .bmp:n. Missään realistisessa tilanteessa tämä ei tule esille, mutta ihan yhtä hyvä ei .png ole. (suurenna kuvaa järkyttävän paljon, pitäisi jotain häröyttä esiintyä)
-
- Moderator
- Posts: 1583
- Joined: Mon Aug 27, 2007 11:24 pm
- Location: Otaniemi - Mikkeli -pendelöinti
Re: Tyhmät kysymykset
No, sitten se oli vain paintin säätöä : D mutta mistäs se pienuus muka johtuu, jos niissä on yhtä paljon dataa?
Re: Tyhmät kysymykset
Käsittääkseni BMP:tä ei pakata millään tavalla, toisin kuin PNG.
-
- Moderator
- Posts: 1583
- Joined: Mon Aug 27, 2007 11:24 pm
- Location: Otaniemi - Mikkeli -pendelöinti
Re: Tyhmät kysymykset
No vaikka mitä tekisi, ei mitenkään voi vähentää datan määrää, ilman että osa tiedosta häviää. Vai.. onko joku keksinyt vähän haximman kikan?regalis wrote:Käsittääkseni BMP:tä ei pakata millään tavalla, toisin kuin PNG.
Re: Tyhmät kysymykset
Joo, sitä kutsutaan häviöttömäksi pakkaukseksi. Jippo on siinä, että merkataan esim. tiettyjä bittisarjoja lyhyemmällä merkillä. Yksinkertaistettuna esimerkkinä voisi toimia kirja, jonka jokainen ankka-sana on korvattu merkeillä "an" ja jokainen mutta-sana on korvattu vaikka "mt".koodaaja wrote:No vaikka mitä tekisi, ei mitenkään voi vähentää datan määrää, ilman että osa tiedosta häviää. Vai.. onko joku keksinyt vähän haximman kikan?regalis wrote:Käsittääkseni BMP:tä ei pakata millään tavalla, toisin kuin PNG.
EDIT: Eihän muuten zippitiedostoistakaan dataa katoa, vaikka niiden koko onkin usein paljon pienempi kuin alkuperäisten tiedostojen koko yhteensä.
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)
-
- Tech Developer
- Posts: 650
- Joined: Mon Aug 27, 2007 9:51 pm
- Location: Helsinki, Finland
- Contact:
Re: Tyhmät kysymykset
PNG'ssä käytetään tasan samaa pakkausrutiinia kuin zipissä. Se on nimeltään muistaakseni deflate. Systeemi toimii tosiaan tuolla periaatteella kuin Harakka selitti. Kokeilepa tallentaa sama kuva bittikartaksi ja PNG'ksi. Pakkaa bittikartta zipiksi ja vertaa paketin ja PNG'n kokoa.Harakka wrote:Joo, sitä kutsutaan häviöttömäksi pakkaukseksi. Jippo on siinä, että merkataan esim. tiettyjä bittisarjoja lyhyemmällä merkillä. Yksinkertaistettuna esimerkkinä voisi toimia kirja, jonka jokainen ankka-sana on korvattu merkeillä "an" ja jokainen mutta-sana on korvattu vaikka "mt".koodaaja wrote:No vaikka mitä tekisi, ei mitenkään voi vähentää datan määrää, ilman että osa tiedosta häviää. Vai.. onko joku keksinyt vähän haximman kikan?regalis wrote:Käsittääkseni BMP:tä ei pakata millään tavalla, toisin kuin PNG.
EDIT: Eihän muuten zippitiedostoistakaan dataa katoa, vaikka niiden koko onkin usein paljon pienempi kuin alkuperäisten tiedostojen koko yhteensä.
Ja joku täällä puhui 8-bittisistä väreistä, mutta ainakin minun tietooni, PNG-formaattiin voidaan änkeä 48-bittiset värit eli 48bit/3 = 16 bittiä per kanava. Ja lisäksi tosiaan 16-bittinen alpha-kanava (läpinäkyvyys).
EDIT:
Vielä pakkauksesta: Jos suuria mutta yksinkertaisia bittikarttakuvia pakataan, saatetaan pästä jopa yl 95% pakkaussuhteeseen. Joskus katselin ~8-vuotiaana WIN3.1'n paintbrushilla piirtelemiäni BMP-kuvia, jotka olivat zippeinä, ja tuo suhde oli tosiaan melkein kaikissa yli 80%
CoolBasic henkilökuntaa
Tech-kehittäjä
CoolBasic Classic, Cool VES
CoolPhysicsEngine | MissileSystem | Jana-ympyrä -törmäys | cbSimpleTexture | CoolCPLX
Tech-kehittäjä
CoolBasic Classic, Cool VES
CoolPhysicsEngine | MissileSystem | Jana-ympyrä -törmäys | cbSimpleTexture | CoolCPLX
Re: Tyhmät kysymykset
osoite$ = Input("")
If KeyHit(cbKeyReturn) Then
Execute "http://"+osoite+""
EndIf
Mikä on kun tuolla koodilla firefox heittää että url on virheellinen eikä sitä voida ladata.
Siis vaikka heität inputtiin google.fi
If KeyHit(cbKeyReturn) Then
Execute "http://"+osoite+""
EndIf
Mikä on kun tuolla koodilla firefox heittää että url on virheellinen eikä sitä voida ladata.
Siis vaikka heität inputtiin google.fi
-
- Advanced Member
- Posts: 335
- Joined: Tue Aug 28, 2007 3:55 pm
- Location: Siellä jossain
Re: Tyhmät kysymykset
Mulla toimii ihan oikein.;o wrote:osoite$ = Input("")
If KeyHit(cbKeyReturn) Then
Execute "http://"+osoite+""
EndIf
Mikä on kun tuolla koodilla firefox heittää että url on virheellinen eikä sitä voida ladata.
Siis vaikka heität inputtiin google.fi
Code: Select all
Repeat
osoite$ = Input("")
If KeyHit(cbKeyReturn) Then
Execute "http://"+osoite+""
EndIf
DrawScreen
Forever
Projektit:
Joku projekti meneillään... Mitähän siitäkin tulee
Joku projekti meneillään... Mitähän siitäkin tulee
Re: Tyhmät kysymykset
Juups, asia selvisi, omassa ohjelmassani osoiterivi aukeaa välilyönnillä ja näin inputti ottaa sen mukaan, joka ei taas ole kelvollinen osoite. Poistan välilyönnit ja muut erikoismerkit ennen sivun avaamista niin hyvin toimii. Kiitos =)