Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: Värineliöt

Sivun loppuun

Tumpi [01.01.2003 19:58:13]

#

Ohjelma piirtelee sisäkkäisiä neliöitä kaikissa väreissä.

Tämä on sitten ensimmäinen tekeleeni QBasic:illa.

CLS
SCREEN 13

koko = 12 'neliöitten koko, voi muutella

IF INT(koko / 2) <> koko / 2 THEN koko = koko + 1 'jotta neliöitten koko olisi parillinen

montakox = INT(320 / koko) 'paljonko ruudulle mahtuu kerralla tavaraa
montakoy = INT(180 / koko)

j = 0 'aloitusväri

'ja sitten itse piirtäminen
DO
  FOR i = 0 TO INT(koko / 2)
    FOR x = montakox TO 0 STEP -1
      FOR y = montakoy TO 0 STEP -1
        LINE (x * koko + i, y * koko + i)-(x * koko + koko - i, y * koko + koko - i), x + y + 16 + i + j, B
      NEXT
    NEXT
  NEXT
  j = j + 1
LOOP UNTIL INKEY$ <> ""

KimmoKM [02.01.2003 17:43:10]

#

Aika yksinkertainen ja turha.

Tumpi [02.01.2003 17:44:53]

#

Juup, Antti saapi poistaa jos tahtoo.

Antti Laaksonen [02.01.2003 19:57:52]

#

Minusta tuo on kyllä hieno ensimmäiseksi QB-ohjelmaksi :)

muhis [02.01.2003 21:51:18]

#

aikas on komia

T.M. [03.01.2003 16:10:52]

#

"Aika yksinkertainen ja turha."

eikö ole parempi että vinkeistä löytyy myös niitä, joita muutkin kuin ohjelmointigurut osaavat lukea?

eihän täällä käy kohta ketään jos kaikki vinkit on jotain 150 sivuisia koodipaketteja joita on edes turha yrittää selvittää!

("ei koodi voi olla sivuissa!" << jos joku heittää tollasta niin...!)

minusta toi oli hieno vinkki, ei tämmösiä saa poistaa!

Tumpi [03.01.2003 17:04:42]

#

Omasta mielestäni tuo on aika yksinkertainen, ja tuskin kukaan juuri tuolle mitään käyttöä keksii, mut ainahan voi kehitellä ja ottaa ideoita...

Kiva jos joku tykkää ;D

Tumpi [03.01.2003 17:07:49]

#

Muuten, kaiken QBasic-oppini oon saanu juuri Ohjelmointiputkasta, yhtenä perjantaina mieleeni vain pälkähti opetella QBasic:cia.

Ja ilman juuri tämäntapaisia pieniä ohjelmia tuskin oisin mitään oppinut.

anomizer [03.01.2003 20:18:46]

#

toihan on hieno

T.M. [04.01.2003 16:09:11]

#

"Ja ilman juuri tämäntapaisia pieniä ohjelmia tuskin oisin mitään oppinut"

niinpä!

KimmoKM [05.01.2003 16:07:04]

#

Hienohan se on kuitenkin.

jake99 [18.01.2003 09:49:55]

#

joo oli tosi hieno. ainakin ekaksi tekeleeksi. ite en oo saanu mitään muuta aikaseks ku yhden tekstiseikkailun alun ja siihen se on jäänyt. en oikeen ymmärrä et miten tota grafiikkaa tehdään mut ehkä sekin selviää joskus!!

Sami [19.02.2003 17:47:19]

#

Aika turha (en keksi käyttöä tuolle), mutta todella hieno ensimmäiseksi tekeleeksi.

Turokki [11.06.2004 10:57:41]

#

Aia siisti =)

Juhko [15.10.2006 21:31:39]

#

Todellako ensimmäinen tekele? Minun ekani oli jokin PRINT "Moi!" tai jokin.

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta