Tällä ohjelmalla todellakin voit tehdä ja tallentaa uusia paletteja QBasiciin.
Näppäimet ovat padin 7,8,9,4,5,6 sekä + ja -.
Näistä 7 suurentaa punaisuutta ja 4 pienentää sitä. 8 suurentaa vihreyttä ja 5 vastaavasti pienentää sitä. Ja 9 suurentaa sinisyyttä ja 6 puolestaan vähentää sitä. Ja eri värejä selataan - ja + -näppäimillä.
DECLARE SUB Aseta.vari (v!, r!, g!, b!) DECLARE FUNCTION Nappis! () DECLARE SUB Tutki.vari (v!) COMMON SHARED pu, vi, si, hidaste CLS SCREEN 13 hidaste = 2000 '<--- Laita tänne itsellesi sopiva hidaste! PAINT (1, 1), 0 DO LOCATE 1, 2 PRINT "Pun:"; punainen; "Vih:"; vihrea; "Sin:"; sininen; "Väri"; vari SELECT CASE Nappis CASE IS = 71 punainen = punainen + 1 GOSUB rikkooko.rajoja CASE IS = 72 vihrea = vihrea + 1 GOSUB rikkooko.rajoja CASE IS = 73 sininen = sininen + 1 GOSUB rikkooko.rajoja CASE IS = 74 Aseta.vari vari, punainen, vihrea, sininen vari = vari - 1 GOSUB rikkooko.rajoja Tutki.vari vari punainen = pu vihrea = vi sininen = si CASE IS = 75 punainen = punainen - 1 GOSUB rikkooko.rajoja CASE IS = 76 vihrea = vihrea - 1 GOSUB rikkooko.rajoja CASE IS = 77 sininen = sininen - 1 GOSUB rikkooko.rajoja CASE IS = 78 Aseta.vari vari, punainen, vihrea, sininen vari = vari + 1 GOSUB rikkooko.rajoja Tutki.vari vari punainen = pu vihrea = vi sininen = si CASE IS = 20 GOSUB tallenna CASE IS = 38 GOSUB lataa END SELECT Aseta.vari vari, punainen, vihrea, sininen LINE (110, 70 / 1.2)-(210, 170 / 1.2), vari, BF LOOP rikkooko.rajoja: IF punainen > 63 THEN punainen = 63 IF punainen < 0 THEN punainen = 0 IF vihrea > 63 THEN vihrea = 63 IF vihrea < 0 THEN vihrea = 0 IF sininen > 63 THEN sininen = 63 IF sininen < 0 THEN sininen = 0 IF vari > 255 THEN vari = 255 IF vari < 0 THEN vari = 0 RETURN tallenna: CLS COLOR 15: PRINT "Anna tiedoston nimi ilman päätettä:" INPUT "", filu$ filu$ = filu$ + ".WoF" OPEN filu$ FOR OUTPUT AS #1 FOR a = 0 TO 255 Tutki.vari (a) PRINT #1, pu; vi; si NEXT CLOSE CLS vari = -1 RETURN lataa: CLS COLOR 15: PRINT "Anna tiedoston nimi ilman päätettä:" INPUT "", filu$ filu$ = filu$ + ".WoF" OPEN filu$ FOR INPUT AS #1 FOR a = 0 TO 255 INPUT #1, punainen INPUT #1, vihrea INPUT #1, sininen Aseta.vari a, punainen, vihrea, sininen NEXT CLOSE CLS vari = -1 RETURN SUB Aseta.vari (v, r, g, b) OUT (&H3C8), v 'näistä lähtee kiitokset Bootsectorille OUT (&H3C9), r OUT (&H3C9), g OUT (&H3C9), b END SUB FUNCTION Nappis FOR viive = 1 TO 2500 DjWolf$ = INKEY$ NEXT Nappis = INP(&H60) END FUNCTION SUB Tutki.vari (v) OUT (&H3C7), v pu = INP(&H3C9) vi = INP(&H3C9) si = INP(&H3C9) END SUB
Ihan hyvältä näyttää...
Aihe on jo aika vanha, joten et voi enää vastata siihen.