Keskustelu: Ohjelmointikysymykset: *QB*

Pystyyko QB:llä tehdä semmosta ohjelmaa, että kun se on päällä, niin se ei näy ruudun ala laidassa. (Niinku kazaa)
Ajattelin tehä siskolle pienen jekun....

Ja sitte vielä mite teen semmose jutu, että ohjelma arpoo jostai kansiosta satunnaisesti jonkii esim. txt tiedoston ja tuo sen tekstin sit näyttöö.

Oisko jotenkin

randomize timer
dim teksti(3) as string
teksti(0) = "teksti.txt"
teksti(1) = "teksti1.txt"
teksti(2) = "teksti2.txt"
teksti(3) = "teksti3.txt"
open teksti(int(rnd * 4)) for input as #1
do
input #1, tekstit$
print tekstit$
loop until eof(1)
close #1

En ole kokeillut tuota, mutta ehkä jotenkin noin menee ja tuota sun toista ongelmaa en kyllä ymmärtänyt niinkään, mutta luulen, että se on aika mahdotonta, kun quickbasic on DOS ohjelmointikieli niin siellä ei pitäisi olla mitään kilkkeitä windows-puolelle.

lainaus:

Pystyyko QB:llä tehdä semmosta ohjelmaa, että kun se on päällä, niin se ei näy ruudun ala laidassa. (Niinku kazaa)

Eipä taida QB:lla onnistua kun on tarkoitettu DOS-pohjaisten ohjelmien tekoon. Visual Basic:lla kyllä onnistuu.

Niin mutta tossa jutussa pitää määrittää, että kuinka monta niitä tiedostoja on(4). Miten tehään semmone juttu, että sinne kansioon voi lisäillä tiedostoja, joista se sit arpoo.

Jaa, mutta eikai se iso työ ole lisätä tuonne koodiin pari riviä koodia.

Lisäät vaikka teksti(4) = "teksti4.txt"
ja muutat tuon open homman muotoon open teksti(int(rnd * 5)) for input as #1 ja tietenkin tokan rivin muotoon
dim teksti(4) as string

-----------------
Luot jonkun tiedoston, jossa on kaikki tekstitiedostot mitä haluat arvottaviksi

open "tekstitiedo.sto" for input as #1
do
input #1, txttiedostot$
loop until eof(1)

Tuolla tavalla luetaan siis koko tiedosto, mutta en tiedä kuinka sitten onnistuu arvottavaksi noiden tietojen laittaminen.

Windowsin kanssa leikkiminen onnistuu tiettyjen keskeytysten kautta, tuota piilotusta en tosin osaa sanoa varmaksi. Voisin vääntää niistä vaikka vinkin...

Tämän pitäisi näyttää satunnainen tiedosto suoritushakemistosta.

'$DYNAMIC
RANDOMIZE TIMER

tyyppi$ = "*.txt"

turha$ = DIR$(tyyppi$)
maara = 0
DO WHILE turha$ <> ""
    maara = maara + 1
    turha$ = DIR$
LOOP

DIM nimet(1 TO maara)  AS STRING * 12

nimet(1) = DIR$(tyyppi$)
FOR i = 2 TO maara
    nimet(i) = DIR$
NEXT i

n$ = nimet(INT(RND * maara) + 1)

OPEN n$ FOR INPUT AS #1
DO UNTIL EOF(1)
    LINE INPUT #1, rivi$
    PRINT rivi$
LOOP

edit: unohdin koodiin ylimääräisen PRINT-käskyn. Poistin sen.

lainaus:

Windowsin kanssa leikkiminen onnistuu tiettyjen keskeytysten kautta, tuota piilotusta en tosin osaa sanoa varmaksi. Voisin vääntää niistä vaikka vinkin...

Olisin siitä tosi kiitollinen...

lainaus:

lainaus:

Windowsin kanssa leikkiminen onnistuu tiettyjen keskeytysten kautta, tuota piilotusta en tosin osaa sanoa varmaksi. Voisin vääntää niistä vaikka vinkin...

Olisin siitä tosi kiitollinen...

Juuh, taitaa tosin olla niin että piilottaminen ei onnistu. Monta muuta "hauskaa" homma on kuitenkin mahdollista tehdä, mm. käsitellä leikepöytää, vaihtaa MS-DOS-ikkunan otsikkoa, sekä lisätä ohjelmaan tuki pitkille tiedostonimille.

lainaus:

Juuh, taitaa tosin olla niin että piilottaminen ei onnistu. Monta muuta "hauskaa" homma on kuitenkin mahdollista tehdä, mm. käsitellä leikepöytää, vaihtaa MS-DOS-ikkunan otsikkoa, sekä lisätä ohjelmaan tuki pitkille tiedostonimille.

No voisitko kenties kertoa sitten miten semmosii juttui tehää. Olis kiva hiukan testailla niitä.

lainaus:

lainaus:

Pystyyko QB:llä tehdä semmosta ohjelmaa, että kun se on päällä, niin se ei näy ruudun ala laidassa. (Niinku kazaa)

Eipä taida QB:lla onnistua kun on tarkoitettu DOS-pohjaisten ohjelmien tekoon. Visual Basic:lla kyllä onnistuu.

No minä taidan nyt siirtyä visual basickiin, joten voisko joku kertoo, et miten tuo juttu tehää sillä.

lainaus:

No minä taidan nyt siirtyä visual basickiin, joten voisko joku kertoo, et miten tuo juttu tehää sillä.

Laita formin ShowInTaskbar-ominaisuuden arvoksi False.