Keskustelu: Ohjelmointikysymykset: QB: Tiedostopääte

Onnistuukohan tälläinen aloittelijan juttu Qbasicissa?

Eli kaikkihan tietävät open "tiedosto" for * (output/input) as #1
ja blaablaablaa hommat?

No kuinka saan jonkin yhden tiedostopäätteen niin, että vain se toimisi? Esimerkiksi niin, että olisi "musiikkisoitin" ja se voisi soittaa yksiäänistä musiikkia mitä q(uick)basicissa tehdään play komennolla niin, että kuinkas vaikka onnistuisi ottaa käyttöön vaikka "*.ms" eli ms pääte käyttöön, että vain tuo toimisi siinä ohjelmassa, kun musiikkitiedoston avaa? Mahtaakohan quickbasicilla edes onnistua?

Miksi rajoittaa käyttäjän vapautta laittamalla vain yksi pääte toimimaan? En nyt tainnut tajuta mitä oikein tarkoitit mutta eikös tuossa kelpaisi ihan yksinkertainen tsekki (RIGHT$) siitä tiedostonnimestä että onko sen pääte ".ms".
Mieluummin pistä niihin musafiluihin joku signature alkuun (vaikka "juhazmuzaksystem"). Sitten luet ensimmäisen rivin (jos nyt välttämättä haluat ASCII-formaatilla leikkiä, binääri on kivempi), ja jos ensimmäinen rivi on "juhazmuzaksystem" on kyseessä musiikkitiedosto jonka sitten voit soitella.

Kannattaa kyllä ehkä käyttää mieluummin binääriä...

Kas se olikin helpommin tehty kuin arvasinkaan :D

Ei ollutkaan......

Valittaa "illegal function call"

Sitä kuuntelu hommaa.....

Koodi on tälläinen nyt:
alku:
input "tiedosto: ", c$
open c$ for input as #1
input #1, rivi$
close #1
if rivi$ = "pme" then goto soita
goto notsoita

notsoita:
print "tämä ei ole musiikkitiedosto!"
sleep
goto alku

soita:
open c$ for input as #2
input #2, listen$
close #2
play listen$

Niin se valittaa tuota listen$ hommaa nyt vaikka ennen toimi.....

Ahaa.... nyt toimii!

lainaus:

...
if rivi$ = "pme" then goto soita
goto notsoita

notsoita:
print "tämä ei ole musiikkitiedosto!"
sleep
goto alku

soita:
...

Ei ihan aiheeseen kuulu, mutta kannattaisi opetella ohjelmoinmaan ilman GOTO:a - tekee ohjelman luennasta aika vaikeaa etenkin jos koodia alkaa olemaan satoja rivejä. Eli käytä aliohjelmia (SUB ja FUNCTION) mieluummin. Lisäksi lainaamassani tekstissä kohta "GOTO notsoita" on aivan turha rivi koska notsoita: kohtaan mennään muutenkin jos IF-lause ei toteudu.

No joo..... mutta tuo olikin nopeasti tehty.......

No nyt sain kuitenkin toimimaan koko systeemin ja se musiikkiohjelma osaa tallentaa ja soittaa musiikkia ja nuotteina toimii ne mitä play komennolla pitääkin.......

Ohjelma varmaan tulee sekä erikseen kopioitavaksi mun sivuille, että myös sitten minun GUI/CLI/SHELL/OS ohjelmaani windoXiin johon nyt varmaan saan myös sitten rakennettua sen "muistihärvelin", kun keksin kuinka se ehkä siis toimiikaan......

http://koti.mbnet.fi/juha2002/Files/MusicEditor.zip

Eli nyt on valmis jotakuinkin tähän mennessä..... systeemi workkaa ja muuta.

Tälläisenä se sitten ilmeisesti tosin englanniksi käännettynä tulee windoX:iin ja seuraaviin versioihin aion tehdä pienen graafisen ulkoasun......