Keskustelu: Koodit: QB: Kiehuvaa tekstiä

Niin, tässä koodinpätkässä on pätkä tekstiä, joka ainakin minusta näyttää kiehuvalta nesteeltä. Tässä tapauksessa jotain vihreää myrkkymömmöä, mutta sopivasti väriarvoja muuttamalla siitä saa jotain muuta kiintoisaa. Koodin pitäisi olla melko simppeliä ja helppoa ymmärtää. Jos asia ei ole niin olen valmis neuvomaan ongelmakohdissa.

-Grey-

RANDOMIZE TIMER
CLS
SCREEN 13

'Alkuarvojen asettaminen
Xmin = 72
Ymin = 88
Xmax = 231
Ymax = 96
X = Xmin
Y = Ymin

'V?ris??t??
R = 0 'Punainen
G = 4 'Vihre?
B = 2 'Sininen

'Muutetaan v?h?n palettia
FOR I = 1 TO 15
 OUT &H3C8, I
 OUT &H3C9, R * I
 OUT &H3C9, G * I
 OUT &H3C9, B * I
NEXT

'Teksti
LOCATE 12, 10: PRINT "°±²Û Qbasic 7.1 Û²±°"

'Looppia
DO
W$ = INKEY$
 IF POINT(X, Y) > 0 THEN PSET (X, Y), INT(RND * 14 + 1)
  X = X + 1
  IF X > Xmax THEN Y = Y + 1: X = Xmin
 IF Y > Ymax THEN Y = Ymin
IF W$ = CHR$(27) THEN EXIT DO
LOOP

Binaryy

Ei se hirveästi kiehumiselta näytä, eikä muuten oikein miltään muultakaan...:P
Binaaääri: http://koti.mbnet.fi/koodaaja/KIEHU.BAS

eih, väärin meni :P mitens mä nyt epähuomiossa laitoin .bas :DD
Binaaääri: http://koti.mbnet.fi/koodaaja/KIEHU.EXE

Tuohan yksinkertaisesti vaihtaa tekstin pikseleiden värejä. No jaa... voihan se jostain näkövinkkelistä kiehumiseltakin näyttää. Onhan se ihan hienon näköistä.

Ettet saanut ideaa minun palavasta tekstistä...

Ei hätää, Rndprogy. Idea ei tullut palavasta tekstistä ;-)

-Grey-

ihan hyvä, vaikkapa johonki pelin valikkoon QBasicilla

Soodan KIEHU.exe toimi ihan hyvin kunnes yritin sitä poistaa.
Oli mentävä WindowsXP:n vikasietotilan komentoriviin,
josta sen sai poistettua.

Tietäisikö joku syitä?

Iha näppärä ja hiano <3

hauska. tää oli eka "ohjelmani"

Ja Gwaur hankkii QB:n ja lakkaa kerjäämästä Binaryyy... ;)