Tyhmät kysymykset (I/2011)

Voit pyytää apua ohjelmointiongelmiin täältä.
Locked
DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 2:18 pm

Re: Tyhmät kysymykset (I/2011)

Post by DJ-Filbe »

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 :D).
User avatar
ItzRaines
Active Member
Posts: 211
Joined: Sat Feb 05, 2011 6:59 pm

Re: Tyhmät kysymykset (I/2011)

Post by ItzRaines »

Kuinka tästä saisi toimivan? :)

Code: Select all

If KeyHit 59 Then Text 25,100,"Security Password 1 :"
User avatar
ukkeli
Active Member
Posts: 123
Joined: Thu Jan 28, 2010 9:01 pm

Re: Tyhmät kysymykset (I/2011)

Post by ukkeli »

Näin:

Code: Select all

If KeyHit(59) Then Text 25,100,"Security Password 1 :"
Nyt ei enää anna virhettä :D
...
User avatar
ItzRaines
Active Member
Posts: 211
Joined: Sat Feb 05, 2011 6:59 pm

Re: Tyhmät kysymykset (I/2011)

Post by ItzRaines »

ukkeli wrote:Näin:

Code: Select all

If KeyHit(59) Then Text 25,100,"Security Password 1 :"
Nyt ei enää anna virhettä :D
Nyt se häipyy heti painamisen jälkeen...
Kuis sen saa jäämään ruutuun?
User avatar
ukkeli
Active Member
Posts: 123
Joined: Thu Jan 28, 2010 9:01 pm

Re: Tyhmät kysymykset (I/2011)

Post by ukkeli »

Huoh...

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 
 
Näin.

EDIT:Hups... Editoin myöhään. Muut huomasi jo :lol:
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.
...
TheFish
Developer
Developer
Posts: 477
Joined: Mon Aug 27, 2007 9:28 pm
Location: Joensuu

Re: Tyhmät kysymykset (I/2011)

Post by TheFish »

ukkeli wrote:Huoh...

Code: Select all

Repeat
If KeyHit(59) Then Text 25,100,"Security Password 1 :"
DrawScreen 
Forever 
Näin.
Ei ihan. Siihen kannattaa laittaa muuttuja, joka asetetaan todeksi kun nappia painetaan. Teksti tietysti piirretään vain kun muuttuja on tosi.
CoolBasic henkilökuntaa
Kehittäjä
User avatar
Jonez
Devoted Member
Posts: 575
Joined: Mon Aug 27, 2007 8:37 pm

Re: Tyhmät kysymykset (I/2011)

Post by Jonez »

ukkeli wrote:Huoh...
Olen samaa mieltä... Miten ihmeessä tähän topikkiin ilmestyykin näitä koodaukseen liittyviä kysymyksiä?

@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
-Vuoden 2008 aloittelijan ystävä -palkinnon voittaja-
Image <- protestipelikilpailun voittaja.
Space War
User avatar
ukkeli
Active Member
Posts: 123
Joined: Thu Jan 28, 2010 9:01 pm

Re: Tyhmät kysymykset (I/2011)

Post by ukkeli »

TheFish wrote:
ukkeli wrote:Huoh...

Code: Select all

Repeat
If KeyHit(59) Then Text 25,100,"Security Password 1 :"
DrawScreen 
Forever 
Näin.
Ei ihan. Siihen kannattaa laittaa muuttuja, joka asetetaan todeksi kun nappia painetaan. Teksti tietysti piirretään vain kun muuttuja on tosi.
Tiedän. Virheitä sattuu :D
...
User avatar
Misthema
Advanced Member
Posts: 312
Joined: Mon Aug 27, 2007 8:32 pm
Location: Turku, Finland
Contact:

Re: Tyhmät kysymykset (I/2011)

Post by Misthema »

ItzRaines wrote:Kuinka tästä saisi toimivan? :)

Code: Select all

If KeyHit 59 Then Text 25,100,"Security Password 1 :"
Homma toimii tietysti näinkin, jos sen haluaa vielä piilottaakin:

Code: Select all

showText=False

Repeat

    If KeyHit(59) Then showText = Not showText
    
    If showText Then Text 0,0,"I see you...!"
    
    DrawScreen
    
Forever
User avatar
ukkeli
Active Member
Posts: 123
Joined: Thu Jan 28, 2010 9:01 pm

Re: Tyhmät kysymykset (I/2011)

Post by ukkeli »

Voisiko joku auttaa. Miten saan tilesterissä asetetun dataarvo 1 kohdalle coolbasicissa objectin? En vaan tajua...
...
Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Tyhmät kysymykset (I/2011)

Post by Awaclus »

ukkeli wrote:Voisiko joku auttaa. Miten saan tilesterissä asetetun dataarvo 1 kohdalle coolbasicissa objectin? En vaan tajua...
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.
User avatar
valscion
Moderator
Moderator
Posts: 1599
Joined: Thu Dec 06, 2007 7:46 pm
Location: Espoo
Contact:

Re: Tyhmät kysymykset (I/2011)

Post by valscion »

Chaosworm wrote:
ukkeli wrote:Voisiko joku auttaa. Miten saan tilesterissä asetetun dataarvo 1 kohdalle coolbasicissa objectin? En vaan tajua...
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.
Eli tee kaksi sisäkkäistä For-looppia, jossa käyt läpi kaikki kartan laattojen koordinaatit GetMap2-funktion avulla.

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
Tuon LaitaObjektiKartalle -funktion joudut itse tekemään, koska CBKK on alhaalla. Ellei jollakulla sattuisi olemaan tallessa PositionObject2-funktiota? Anyone?
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
naputtelija
Devoted Member
Posts: 718
Joined: Wed Nov 03, 2010 7:56 pm
Location: Joku piste pohjoisessa.

Re: Tyhmät kysymykset (I/2011)

Post by naputtelija »

VesQ wrote:
Chaosworm wrote:
ukkeli wrote:Voisiko joku auttaa. Miten saan tilesterissä asetetun dataarvo 1 kohdalle coolbasicissa objectin? En vaan tajua...
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.
Eli tee kaksi sisäkkäistä For-looppia, jossa käyt läpi kaikki kartan laattojen koordinaatit GetMap2-funktion avulla.

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
Tuon LaitaObjektiKartalle -funktion joudut itse tekemään, koska CBKK on alhaalla. Ellei jollakulla sattuisi olemaan tallessa PositionObject2-funktiota? Anyone?
löytyy cbSDK:sta.
<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...
User avatar
ItzRaines
Active Member
Posts: 211
Joined: Sat Feb 05, 2011 6:59 pm

Re: Tyhmät kysymykset (I/2011)

Post by ItzRaines »

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.
Feuer
Devoted Member
Posts: 520
Joined: Tue Jun 16, 2009 11:13 am
Contact:

Re: Tyhmät kysymykset (I/2011)

Post by Feuer »

ItzRaines wrote:Edit: Ja mun kello kusee.
Ei kannata juottaa sille niin paljon
Asus P8P67 LE/Intel Core i5 2500K/ GTX560/ 8GT RAM/750GT HDDt + 120GT SSD + 13" Macbook Pro
Blogi - Peräpohjola - MERPG
User avatar
Misthema
Advanced Member
Posts: 312
Joined: Mon Aug 27, 2007 8:32 pm
Location: Turku, Finland
Contact:

Re: Tyhmät kysymykset (I/2011)

Post by Misthema »

En tiedä ovatko muut tätä huomanneet, mutta jostain syystä muistipalat eivät toimi oikein - ainakaan luodun muistipalan koko ei ole "vakio":

Code: Select all

size = 1

bank = MakeMEMBlock(size)

PokeInt bank,0,2147483646

Print "MEMBlockSize: "+MEMBlockSize(bank)
Print "Integer value: "+PeekInt(bank,0)
WaitKey
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?
User avatar
Jonez
Devoted Member
Posts: 575
Joined: Mon Aug 27, 2007 8:37 pm

Re: Tyhmät kysymykset (I/2011)

Post by Jonez »

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.
-Vuoden 2008 aloittelijan ystävä -palkinnon voittaja-
Image <- protestipelikilpailun voittaja.
Space War
User avatar
Misthema
Advanced Member
Posts: 312
Joined: Mon Aug 27, 2007 8:32 pm
Location: Turku, Finland
Contact:

Re: Tyhmät kysymykset (I/2011)

Post by Misthema »

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.
Jep jep. Sitten vielä ihmettelen tätä:

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
Ihan mielenkiintoinen... =D Luulisi jo puskevan erroria 'PokeInt':n kohdalla... Mutta noh.
Haluaisin vain olla varma että kirjoitan juuri sen verran muistipalaan kun olen siihen varannutkin, ilman että joutuisin sitä itse tarkistamaan joka välissä. =/
User avatar
Jonez
Devoted Member
Posts: 575
Joined: Mon Aug 27, 2007 8:37 pm

Re: Tyhmät kysymykset (I/2011)

Post by Jonez »

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 :).
-Vuoden 2008 aloittelijan ystävä -palkinnon voittaja-
Image <- protestipelikilpailun voittaja.
Space War
User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Tyhmät kysymykset (I/2011)

Post by esa94 »

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 :).
RAMissa olevan datan laadun ei pitäisi laskea ja miksi kukaan nyt nollaisikaan muistia sen vapautettuaan?
Locked