Tyhmät kysymykset (I/2011)
Re: Tyhmät kysymykset (I/2011)
Löytyisiköhän jostain mahdollisesti ohjelma, jolla voisin leikellä ääntä Audacityn tapaan, mutta joka piirtäisi ääniaaltojen (äänenvoimakkuuden) sijaan taajuuserot? Olisi huomattavan paljon helpompi rytmittää nopea, melodisesti vaihteleva saha-aalto (bändin kitaristin tuotoksia ).
Re: Tyhmät kysymykset (I/2011)
Kuinka tästä saisi toimivan?
Code: Select all
If KeyHit 59 Then Text 25,100,"Security Password 1 :"
Re: Tyhmät kysymykset (I/2011)
Näin:
Nyt ei enää anna virhettä
Code: Select all
If KeyHit(59) Then Text 25,100,"Security Password 1 :"
...
Re: Tyhmät kysymykset (I/2011)
Nyt se häipyy heti painamisen jälkeen...ukkeli wrote:Näin:Nyt ei enää anna virhettäCode: Select all
If KeyHit(59) Then Text 25,100,"Security Password 1 :"
Kuis sen saa jäämään ruutuun?
Re: Tyhmät kysymykset (I/2011)
Huoh...
Näin.
EDIT:Hups... Editoin myöhään. Muut huomasi jo
EDIT2:Nyt se on niin että kun a nappia painetaan...
Code: Select all
onruudulla=0
Repeat
If KeyDown(cbkeya) Then
onruudulla=1
End If
If onruudulla=1 Then
Text 25,100,"Security Password 1 :"
End If
DrawScreen
Forever
EDIT:Hups... Editoin myöhään. Muut huomasi jo
EDIT2:Nyt se on niin että kun a nappia painetaan...
Last edited by ukkeli on Sun Mar 27, 2011 9:15 pm, edited 3 times in total.
...
Re: Tyhmät kysymykset (I/2011)
Ei ihan. Siihen kannattaa laittaa muuttuja, joka asetetaan todeksi kun nappia painetaan. Teksti tietysti piirretään vain kun muuttuja on tosi.ukkeli wrote:Huoh...Näin.Code: Select all
Repeat If KeyHit(59) Then Text 25,100,"Security Password 1 :" DrawScreen Forever
CoolBasic henkilökuntaa
Kehittäjä
Kehittäjä
Re: Tyhmät kysymykset (I/2011)
Olen samaa mieltä... Miten ihmeessä tähän topikkiin ilmestyykin näitä koodaukseen liittyviä kysymyksiä?ukkeli wrote:Huoh...
@ItzRaines
Tarvitset erillisen muuttujan, joka tietää onko F1:stä painettu. Teksti näytetään vain kun tämä muuttuja on tosi:
Code: Select all
Repeat
If KeyHit( CbKeyF1 ) Then
kysyPass = True
EndIf
If kysyPass Then
Text 25,100,"Security Password 1 :"
EndIf
DrawScreen
Forever
Re: Tyhmät kysymykset (I/2011)
Tiedän. Virheitä sattuuTheFish wrote:Ei ihan. Siihen kannattaa laittaa muuttuja, joka asetetaan todeksi kun nappia painetaan. Teksti tietysti piirretään vain kun muuttuja on tosi.ukkeli wrote:Huoh...Näin.Code: Select all
Repeat If KeyHit(59) Then Text 25,100,"Security Password 1 :" DrawScreen Forever
...
- Misthema
- Advanced Member
- Posts: 312
- Joined: Mon Aug 27, 2007 8:32 pm
- Location: Turku, Finland
- Contact:
Re: Tyhmät kysymykset (I/2011)
Homma toimii tietysti näinkin, jos sen haluaa vielä piilottaakin:ItzRaines wrote:Kuinka tästä saisi toimivan?
Code: Select all
If KeyHit 59 Then Text 25,100,"Security Password 1 :"
Code: Select all
showText=False
Repeat
If KeyHit(59) Then showText = Not showText
If showText Then Text 0,0,"I see you...!"
DrawScreen
Forever
Re: Tyhmät kysymykset (I/2011)
Voisiko joku auttaa. Miten saan tilesterissä asetetun dataarvo 1 kohdalle coolbasicissa objectin? En vaan tajua...
...
Re: Tyhmät kysymykset (I/2011)
Käyt jokaisen tilen läpi ja katsot, onko siinä kohdassa data-arvo 1. Jos on, niin laitat siihen objektin ja jos ei, niin siirryt seuraavaan tileen.ukkeli wrote:Voisiko joku auttaa. Miten saan tilesterissä asetetun dataarvo 1 kohdalle coolbasicissa objectin? En vaan tajua...
Re: Tyhmät kysymykset (I/2011)
Eli tee kaksi sisäkkäistä For-looppia, jossa käyt läpi kaikki kartan laattojen koordinaatit GetMap2-funktion avulla.Chaosworm wrote:Käyt jokaisen tilen läpi ja katsot, onko siinä kohdassa data-arvo 1. Jos on, niin laitat siihen objektin ja jos ei, niin siirryt seuraavaan tileen.ukkeli wrote:Voisiko joku auttaa. Miten saan tilesterissä asetetun dataarvo 1 kohdalle coolbasicissa objectin? En vaan tajua...
Code: Select all
For x=1 To MapWidth( kartta )
For y=1 To MapHeight( kartta )
If GetMap2( 3, x, y ) = 1 Then
LaitaObjektiKartalle( objekti, x, y )
EndIf
Next y
Next x
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com
-
- Devoted Member
- Posts: 718
- Joined: Wed Nov 03, 2010 7:56 pm
- Location: Joku piste pohjoisessa.
Re: Tyhmät kysymykset (I/2011)
löytyy cbSDK:sta.VesQ wrote:Eli tee kaksi sisäkkäistä For-looppia, jossa käyt läpi kaikki kartan laattojen koordinaatit GetMap2-funktion avulla.Chaosworm wrote:Käyt jokaisen tilen läpi ja katsot, onko siinä kohdassa data-arvo 1. Jos on, niin laitat siihen objektin ja jos ei, niin siirryt seuraavaan tileen.ukkeli wrote:Voisiko joku auttaa. Miten saan tilesterissä asetetun dataarvo 1 kohdalle coolbasicissa objectin? En vaan tajua...Tuon LaitaObjektiKartalle -funktion joudut itse tekemään, koska CBKK on alhaalla. Ellei jollakulla sattuisi olemaan tallessa PositionObject2-funktiota? Anyone?Code: Select all
For x=1 To MapWidth( kartta ) For y=1 To MapHeight( kartta ) If GetMap2( 3, x, y ) = 1 Then LaitaObjektiKartalle( objekti, x, y ) EndIf Next y Next x
<Ize> Pitäs tehä allekirjotus..
<Ize> Vois keksiä jonkin nasahtavan sanonnan..
<Ize> Siitä tulis upea legenda ja kaikki vaihtaisivat allekirjoituksensa siihen.
<Ize> Ehkä ei kuitenkaa...
<Ize> Vois keksiä jonkin nasahtavan sanonnan..
<Ize> Siitä tulis upea legenda ja kaikki vaihtaisivat allekirjoituksensa siihen.
<Ize> Ehkä ei kuitenkaa...
Re: Tyhmät kysymykset (I/2011)
Jos joku viittis linkata tai laittaa ohjeita, kuinka ohjelmaan tehdään kirjoittaminen mahdolliseksi. Itse funtsin vaihtoehtoja, mutta päätin silti kysyä parhaimman tavan sen luomiseksi.
Edit: Ja mun kello kusee.
Edit: Ja mun kello kusee.
Re: Tyhmät kysymykset (I/2011)
Ei kannata juottaa sille niin paljonItzRaines wrote:Edit: Ja mun kello kusee.
Asus P8P67 LE/Intel Core i5 2500K/ GTX560/ 8GT RAM/750GT HDDt + 120GT SSD + 13" Macbook Pro
Blogi - Peräpohjola - MERPG
Blogi - Peräpohjola - MERPG
- Misthema
- Advanced Member
- Posts: 312
- Joined: Mon Aug 27, 2007 8:32 pm
- Location: Turku, Finland
- Contact:
Re: Tyhmät kysymykset (I/2011)
En tiedä ovatko muut tätä huomanneet, mutta jostain syystä muistipalat eivät toimi oikein - ainakaan luodun muistipalan koko ei ole "vakio":
Mielestäni muistipankin tulisi olla kokoa 4 (tavuina), jotta sinne voisi kirjoittaa kokonaislukua... Mutta tuon koodipätkän kanssa kokonaisluku tulostuu sellaisena kuin pitääkin, vaikkakin muistipalan koko on vain yhden (1) tavun.
Bugi vai feature?
Code: Select all
size = 1
bank = MakeMEMBlock(size)
PokeInt bank,0,2147483646
Print "MEMBlockSize: "+MEMBlockSize(bank)
Print "Integer value: "+PeekInt(bank,0)
WaitKey
Bugi vai feature?
Re: Tyhmät kysymykset (I/2011)
MakeMEMBlock varaa muistia, jotta ei rikota mitään tärkeää tietokoneessa, mutta mikään ei takaa että esim. PokeInt kirjoittaisi tyhjälle alueelle. Tuossa sinun tekemässäsi tapauksessa yksinkertaisesti kirjoitetaan yli, jonka jälkeen luetaan siitä mihin kirjoitettiin, ja tietenkin löydetään arvo joka kirjoitettiin. Se, oliko siinä kohtaa muistia jotain muuta tietoa aikaisemmin onkin sitten toinen asia.
- Misthema
- Advanced Member
- Posts: 312
- Joined: Mon Aug 27, 2007 8:32 pm
- Location: Turku, Finland
- Contact:
Re: Tyhmät kysymykset (I/2011)
Jep jep. Sitten vielä ihmettelen tätä:Jonez wrote:MakeMEMBlock varaa muistia, jotta ei rikota mitään tärkeää tietokoneessa, mutta mikään ei takaa että esim. PokeInt kirjoittaisi tyhjälle alueelle. Tuossa sinun tekemässäsi tapauksessa yksinkertaisesti kirjoitetaan yli, jonka jälkeen luetaan siitä mihin kirjoitettiin, ja tietenkin löydetään arvo joka kirjoitettiin. Se, oliko siinä kohtaa muistia jotain muuta tietoa aikaisemmin onkin sitten toinen asia.
Code: Select all
size = 1
bank = MakeMEMBlock(size)
PokeInt bank,0,2147483646
Print "MEMBlockSize: "+MEMBlockSize(bank)
Print "Integer value: "+PeekInt(bank,0)
DeleteMEMBlock bank
Print "MEMBlockSize: "+MEMBlockSize(bank)
Print "Integer value: "+PeekInt(bank,0)
WaitKey
Haluaisin vain olla varma että kirjoitan juuri sen verran muistipalaan kun olen siihen varannutkin, ilman että joutuisin sitä itse tarkistamaan joka välissä. =/
Re: Tyhmät kysymykset (I/2011)
En tosiaan ole mikään asiantuntija muistiasioissa. Eikös esim. windowsissa tiedostojen poistaminen tapahdu oikeastaan niin, että tietoa ei poisteta, mutta sen päälle voi taas kirjoittaa. Olisikohan tässä kyseessä sama asia? Eli DeleteMemBlockin yhteydessä kyseinen pala muistia vain asetetaan "vanhentuneeksi", mutta vanha data ei poistu ennen kuin sen päälle kirjoitetaan? Termit eivät nyt ole täysin kohdillaan .
Re: Tyhmät kysymykset (I/2011)
RAMissa olevan datan laadun ei pitäisi laskea ja miksi kukaan nyt nollaisikaan muistia sen vapautettuaan?Jonez wrote:En tosiaan ole mikään asiantuntija muistiasioissa. Eikös esim. windowsissa tiedostojen poistaminen tapahdu oikeastaan niin, että tietoa ei poisteta, mutta sen päälle voi taas kirjoittaa. Olisikohan tässä kyseessä sama asia? Eli DeleteMemBlockin yhteydessä kyseinen pala muistia vain asetetaan "vanhentuneeksi", mutta vanha data ei poistu ennen kuin sen päälle kirjoitetaan? Termit eivät nyt ole täysin kohdillaan :).