CoolBasic Forums

Miksiköhän kuvaan piirtämisessä , kun tekstiä asettaa kuvaan , niin täytyy käyttää miinus merkkistä koordinaattia textin y koordinaatissa, että saa sen paikalleen. kokeilin text komennollakin centertextin sijaan - tulos oli sama. :shock: imguusipeli=MakeImage(200,20) DrawToImage imguusipeli Color 19...

En voi käsittää miksi mavia pukkaa , olisin kiitollinen jos joku auttas. :( 'Tehtävä a10: 'Tee sivulta kuvattu peli, jossa ammutaan tykillä. 'Lähtökulman ja lähtönopeuden saa valita nuolinappuloilla. 'kenties tykkiä voisi myös siirtää sopivaan kohtaan ruutua 'joka voisi auttaa osumista 'Ammu pati vä...

Vaikke sannoo,ko tossa sun koodissa olevat mediat on itse tehtyjä ja siksi ohjelmaa on vaikkee testata , pitäs kato ite ruveta väsään tommosii ukkoi ja muit medioi , mutt aattelin semmosta ehdottaa että, jos pystysuuntainen liikkumiskomponentti kasvaa silloinkin kun ukko on laskeutunut laatikon pääl...

Tarkoitan siis kokoelman jäseniä , että miks tuo mun ohjelma ilmoittaa , että kokoelman eka jäsen on numero 2.
Vaikka ne pitäis olla jäsenet 1 - 16 ,(nyt ne on 2 -17)

Miksiköhän 1. jäsen on numero 2 , vaikka minun käsittääkseni se pitäisi olla numero 1 ? KEV='kiitos etukäteen vastauksesta." :o Type KORTIT Field muoto Field valittu EndType SCREEN 600,600 Dim varit(8,3) Dim vlippu vlippu=1 Restore Varivakiot For i=1 To 8 For j=1 To 3 varit(i,j)=Read() Next j N...

Hienoo ! No miksiköhän korttipakkaa ei voi sekoittaa kuin neljä kertaa, sitten se juuttuu . Kiitti , jos joku vastaa. Ei onnistu mulla ratkaisu. :oops: Type KORTIT Field muoto Field valittu EndType SCREEN 600,900 Dim varit(8,3) Restore Varivakiot For i=1 To 8 For j=1 To 3 varit(i,j)=Read() Next j Ne...

No nyt muutin objektit kuviksi ja kommentoin ohjelmasta pois kaiken ylimääräisen , mutta siltikkään ei ruudulle tulevan onton laatikon väri ole punainen. En voi kyllä ymmärtää , että mikä on vialla , kiitokset sille joka pystyy moisen onkelman ratkaisemaan. :o Type KORTIT Field muoto Field r Field g...

No voihan mursuhammas , ei väri edelleenkään toimi , mitenkähän tuon värin vois saaha toimimmaan. Kiitos ,jos joku neuvos. :cry: 'Tehtävä a9: 'Tee muistipeli. Käännetyt kortit on järjestetty 'ruudulle 4*4 muodostelmaan, eli yhteensä 16 korttia. 'Kortit valitaan hiirellä. Grafiikkaa kortteihin 'ei ta...

Mitenkähän tuon värin sais pelaamaan korteille , kiitokset etuajoissa neuvosta. :o 'Tehtävä a9: 'Tee muistipeli. Käännetyt kortit on järjestetty 'ruudulle 4*4 muodostelmaan, eli yhteensä 16 korttia. 'Kortit valitaan hiirellä. Grafiikkaa kortteihin 'ei tarvitse tehdä. Riittää, että jokainen pari on e...

No nyt tämä toimiikin ihan hyvin , vaihdoin tosiaan addtext:iin ja print:it pois kokonanaa, kuten Jani neuvoi...:P SCREEN 400,500 Dim merkkijonot(4) As String,e As String,key As integer Restore datalista For i=0 To 4 merkkijonot(i)=Read() Next i Paluu: Repeat e=Input("e:") DrawScreen Until...

Tämä sanakirja ohjelma antaa suomennoksen ,kun kun kysyy englanninkielistä sanaa ,joka on datalistassa. Mutta sitten se tökkää ,kun painaa k nappia ,että haluais jatkaa kyselyä , ruutu vain pimenee. Mikä piru tosson? :o Kiitokset mahd.vast. Dim merkkijonot(4) As String,e As String,key As integer Res...

Tosta funkkarihommasta vielä, voisiko joku selittää,että mihin kohtaan return palauttaa lausekkeen arvon ,kun on kyse rekursiosta, kun yleensähän se tavallisessa funktiossa palautetaan pääohjelman funkkarikutsun kohdalle, ja miks siinä return lausekkeessa näyttäisi olevan myös jonkinlainen funktioku...

Totanuinnii: en oikein tajua ,miten rekursion sais toteutettua funktiossa.Ohjelmointiputkasta löytyi tommonen funktio,koitin sisällyttää sitä kertoman laskentaan, ei onnistu. Siis miten ton sais toimiin.Kiitti jo etuajassa vastauksesta. :| Dim b As String:b="anna jokin kokonaisluku: " Dim ...

Ja mitenkähän edit huomautuksen saa omaan aikaisempaan tämmöseen ikkunaan laitettua. :

No, tota...Mitenköhän ne pakataan koodiin mukaan.

Mitenkähän voin - kun kysyn koodiin neuvoa - liittää koodin mukaan omatekoisen Media tiedoston,jotta minun ohjelmasta saisi selkoa paremmin kun siinä on oikeat kuvat mukana. Olen Noob.

Ei vaan toimi,esteet menee päällekkäin että pölisee,vaikka ainakin vaakasuunnassa niiden pitäisi olla erillään toisistaan.Ei ton kans riitä hermot,auttasko joku. :evil: Type KOKOELMA Field objE EndType SCREEN 400,400 objPeluri=LoadObject("guy.bmp",72) ScreenPositionObject objPeluri,32,32 '...

Miksiköhän en saa läpikäyntirakennetta toimimaan,tarkoitus olis tarkastaa ettei uusi jäsen tule liian lähelle aikaisempia jäseniä.Ja jäsenet ovat siis seinä objekteja. :x Type KOKOELMA Field objE EndType SCREEN 400,400 objPeluri=LoadObject("guy.bmp",72) ScreenPositionObject objPeluri,32,32...

Joo,ny selkis,kiitokset kaikille asiaa miettineille. Elikkä jos writelinella on kirjoitettu tiedostoon vaikka luku 235 merkkijonona,niin se readlinella luetaan sieltä merkkijonona. Mutta jos se luetaankin näin A=readline(f),niin tuo kokonaislukumuuttuja A muuttaa tuon merkkijono-"luvun" oi...