Tyhmät kysymykset (I/2010)

[TheDuck]

Riivaan näköjään teitä näillä tyhmillä kysymyksillä edelleen
Eli:
Toteutin komennot
writestring tiedosto, "pp"
writeshort tiedosto, 100

ja kun tiedosto oli käsitelty loppuun, avasin toisen ohjelman jonka eräällä rivillä lukee:
a=readstring(tiedosto)

Tässä a :n arvoksi tulee aina 0, vaikka tuolta pitäisi putkahtaa "pp". Tiedostossa taas lukee " pp2 ". (loppuosa "kakkonen ja välilyönti" merkkaa ilmeisesti lukua 100?)
Miten saisin tuosta sen halutun "pp" :n talteen?

öö, muuttamalla a:n string-muuttujaksi? a$ = readstring(tiedosto)

[Herra Siili]

A:n tulee olla merkkijonomuuttuja, joten laita sen perään dollarinmerkki $.

EDIT:

Hidas...

[DJ-Filbe]

A:n tulee olla merkkijonomuuttuja, joten laita sen perään dollarinmerkki $.

EDIT:

Hidas...

Hienoa! Ai että olin taas ääliö

[Jani]

Riivaan näköjään teitä näillä tyhmillä kysymyksillä edelleen
Eli:
Toteutin komennot
writestring tiedosto, "pp"
writeshort tiedosto, 50

ja kun tiedosto oli käsitelty loppuun, avasin toisen ohjelman jonka eräällä rivillä lukee:
a=readstring(tiedosto)

Tässä a :n arvoksi tulee aina 0, vaikka tuolta pitäisi putkahtaa "pp". Tiedostossa taas lukee " pp2 ". (loppuosa "kakkonen ja välilyönti" merkkaa ilmeisesti lukua 50?)
Miten saisin tuosta sen halutun "pp" :n talteen?

Muista merkitä muuttujan tietotyyppi. Tässä tapauksessa se on string, elikkä:

Code: Select all

a$=ReadString(tiedosto)

EDIT:

Oho! Opera ei näyttäny kahta viestiä. Jätänpä tän silti tähän.

[DJ-Filbe]

Palaan taas...
Kysymys 1:
Eli: on olemassa tiedostoformaatti jolla musiikinsävellysohjelma kirjoittaa nuottien tiedot omiin raitoihin; 1 tiedostossa on aina 1 raita.
Kun pitäisi painaa PLAY - nappulaa, miten saadaan ohjelma kasaamaan kaikki raidat järjestykseen niin, että ne voidaan toistaa vaivattomasti?

Kysymys 2:
Kuinka monta äänitiedostoa voi ylipäätään soida päällekkäin CoolBasicissa?

[esa94]

Palaan taas...
Kysymys 1:
Eli: on olemassa tiedostoformaatti jolla musiikinsävellysohjelma kirjoittaa nuottien tiedot omiin raitoihin; 1 tiedostossa on aina 1 raita.
Kun pitäisi painaa PLAY - nappulaa, miten saadaan ohjelma kasaamaan kaikki raidat järjestykseen niin, että ne voidaan toistaa vaivattomasti?

Kysymys 2:
Kuinka monta äänitiedostoa voi ylipäätään soida päällekkäin CoolBasicissa?

1: Lataat kaikki raidat kaksiuloitteiseen taulukkoon, looppaat ensimmäisen ulottuvuuden läpi ja toistat kohdan (i, n) jossa i on raita ja n on nuotin kohta.

2: Monta.

[phons]

Öh, miksi pukkaa MAVia:

Code: Select all

Dim omnom(999,999,999)

Edit: Hetko.. taisin kässätä.. varaako se liikaa muistia?

[temu92]

Ehkä, enkä kyllä pikaseen keksi mihin tarvitset 997002999 solua. :R

[DatsuniG]

Miljardi soluahan tuossa on.

[esa94]

Edit: Hetko.. taisin kässätä.. varaako se liikaa muistia?

Nähdäkseni vain nelisen mebitavua...

[DJ-Filbe]

Miljardi soluahan tuossa on.

No montakos solua tässä on:
Dim omnom(2,5,10)
?
Lasketaan: 2 * 5 * 10 = 100 solua
Eli Dim omnom(999,999,999) :ssa on tällöin 999 * 999* 999 = 997002999 solua.

[koodaaja]

Huomaa, että CB varaa myös nollan, joten siinä on tasan miljardi solua; 1000 * 1000 * 1000 = 1 000 000 000.

[DJ-Filbe]

Huomaa, että CB varaa myös nollan, joten siinä on tasan miljardi solua; 1000 * 1000 * 1000 = 1 000 000 000.

tosiaan.
Itse en ole cb-kielellä käytellytkään tuota nollannetta indeksiä, joten...

[SPuntte]

Edit: Hetko.. taisin kässätä.. varaako se liikaa muistia?

Nähdäkseni vain nelisen mebitavua...

Tottapuhuen tuossa varataan neljä gigatavua (4*10^9 t) muistia, joka useimmissa koneissa todennäköisesti paukuttelee muistin rajoja.

Toisekseeen mebitavu (2^20 t) != megatavu (10^6 t)

[esa94]

Toisekseeen mebitavu (2^20 t) != megatavu (10^6 t)

Tämän tiesin, siksi käytinkin ko. termiä. Ja ilmeisesti tässä oli nyt itselläni joku laskuvirhe, jos se kerran oli neljä gibitavua - 32-bittisessä järjestelmässä yli sitä määrää muistia ei voida indeksoida (paremman sanan puutteessa :P)

Eikös 1000*1000*1000/1024(kiB)/1024(MiB)/1024(GiB) ole vain 0.9313225746?
(Suluissa aina miksi yksiköiksi kyseinen jako tuloksen muuttaa)

-> Se on alle yhden gibitavun. Mutta laskuni oli jotenkin ryssitty enivei.

[SPuntte]

- - Ja ilmeisesti tässä oli nyt itselläni joku laskuvirhe, jos se kerran oli neljä gibitavua - -

Eikös 1000*1000*1000/1024(kiB)/1024(MiB)/1024(GiB) ole vain 0.9313225746?
(Suluissa aina miksi yksiköiksi kyseinen jako tuloksen muuttaa)

- - varataan neljä gigatavua (4*10^9 t) muistia - -

Eli se on tosiaan vähemmän kuin neljä gibitavua, joka on 32-bittisen muistiavaruuden koko.

- - joka useimmissa koneissa todennäköisesti paukuttelee muistin rajoja.

Ja tällä siis tarkoitin sitä, että harvassa koneessa on yli 4 GiB keskusmuistia, ja jos oletetaan, että siitä on osa varattu käyttöjärjestelmän ja muiden ohjelmien käyttöön, on neljän gigatavun lohkaisu CB-ohjelmalle käytännössä mahdotonta.

[Average]

Mistä mahtaa löytyä peli nimeltään Mauno Theft Auto? Tekisi mieli taas pelata.

[Jonez]

Mistä mahtaa löytyä peli nimeltään Mauno Theft Auto? Tekisi mieli taas pelata.

Foorumin search-toiminnolla saatikka pikasella googletuksella ei kyseisestä pelistä löytynyt muuta kuin vanhentuneita linkkejä. Eli ellei joltain tätä peliä löydy kovalevyltä, tuskin pääset pelaamaan. Mutta ainahan voit koodata oman.

Tyhmät kysymykset-ketju taitaa olla enemmänkin ohjelmointiongelmiin suunnattu. Tällaisia pikkukysymyksiä voi kysellä vaikka offtopic-ketjussa, tai IrcNetissä kanavalla #coolbasic.

[DJ-Filbe]

Terve taas
Teen omaa tyylitiedostokieltä cb:lle (vain omaan käyttöön toistaiseksi).
Miten saan tulkin lukemaan ja erottelemaan useita tageja samalta riviltä, kun tagit merkitään "<tagi>" - syntaksilla?

[MetalRain]

Terve taas
Teen omaa tyylitiedostokieltä cb:lle (vain omaan käyttöön toistaiseksi).
Miten saan tulkin lukemaan ja erottelemaan useita tageja samalta riviltä, kun tagit merkitään "<tagi>" - syntaksilla?

Tässä nyt eräänlainen tagintarkistus. Osaa katsoa merkkijonosta onko siinä joku tagi ja osaa listata merkkijonon tagit. Korjaa/muuttele jos syntaksi ei sovi omiin tarkoituksiisi.

Code: Select all

Print IsTagged("hauki on <kala>","kala")

Print ListTags("<huono><tyhmä>joo<p>ajoo<olio>hahaha")
WaitKey

Function IsTagged(txt$,tag$)

    If InStr(txt$,"<"+tag$+">") Then Return 1 Else Return 0

End Function 

Function ListTags(txt$)

    list$=""

    l=Len(txt$)

    edellinen=0
    
    alku=InStr(txt$,"<")

    While alku<l And alku<>-1

        pituus=InStr(Mid(txt$,edellinen+alku+1),">")-1
        
        If pituus Then 
            list$=list$+Mid(txt$,edellinen+alku+1,pituus)+" "
        EndIf 
        
        edellinen=edellinen+alku+pituus+1
        
        alku=InStr(Mid(txt$,edellinen),"<")-1
        
    Wend 
    
    Return Trim(list$)
    
End Function