Kirjoittaja: Grey
Kirjoitettu: 26.07.2002 – 26.07.2002
Tagit: grafiikka, koodi näytille, vinkki
Ja toinen vinkki jo nyt! Noh, tämä on siis sammutus efekti koodi. Eli siis se siinä tulee näytön keskelle sellainen vihreä viiva, joka sitten katoaa. Myöskin näyttökin välähtää ja silleen. Jos ette keksi käyttöä koodille, niin suosittelen kokeilemista pilaohjelmissa. Toimii ja jos ette ole aivan tyytyväinen koodiin, on tuossa melko paljon varaa muokata sitä. Että silleen...
-Grey-
s = 70 'Asettaa oikeat alkuarvot d = 5 SCREEN 1: SCREEN 0 'Väläyttävät näyttöä WIDTH 80, 50 'Ja tämä asettaa näytölle sopivan merkkileveyden COLOR 2, 0 'Voit käyttää muitakin arvoja, mutta vihreä lienee paras :-) CLS 'Tyhjentää näytön 'Ja tässä on sammutuksemme DO LOCATE 25, d: PRINT STRING$(s, "-") 'Sammutuksen viiva SOUND 37, 1 'Pieni tauko CLS 'Näytön tyhjennys s = s - 6 'Vähentää arvoa, joka määrää viivan pituuden d = d + 3 'Lisää arvoa, joka määrää viivan sijainnin IF s <= 1 THEN EXIT DO 'Kun arvo on sopiva, poistutaan silmukasta LOOP LOCATE 25, 40: PRINT "¤" 'Näyttää vielä loppumerkin SOUND 37, 1 'Pieni tauko SCREEN 1: SCREEN 0 'Ja vielä kerran väläytys... WIDTH 80, 25 'Asettaa näytön oikeaan tilaan DO 'Näyttö on pimeä LOOP WHILE INKEY$ = "" 'Kunnes painetaan mitä tahansa näppäintä
Toimineeko liian nopeasti tai sitten en vaan muuten vaan näe mitään.
Joko niin, jolloinka sinun kannattaa tuon SOUND 37,1 komentoa muuttaa. Muuta se ykkönen kakkoseksi tai isommaksi. Toinen syy voi olla myös näytössä, jotenka kokeile sijoittaa tuon COLOR käskyn yläpuolelle yksi SLEEP 1. Luultavammin pitäisi toimia. Jos ei, ilmoita.
-Grey-
valittaa exeksi käännettynä brt71efr.exestä ja minun paketissani on vain brt71efr.lib
Kannattaa pistää SOUND komentoon 37män tilalle joku esim 32767 jos haluaa hiljentää äänen(oikiasti se on niin korkia että sitä ei kuule).
Edit: nollaki käy. Tuo väläytys ei toimi mulla.