Kirjoittaja: Antti Laaksonen
Kirjoitettu: 14.02.2002 – 22.11.2011
Tagit: grafiikka, vinkki
Tämä ohjelma piirtää ympyrädiagrammin, josta näkyy eri asioiden jakauma esim. kyselyssä. Ympyrän koko, arvojen määrä ja sisältö on vaihdettavissa. Näyttää myöskin prosenttiosuuden.
SCREEN 12 TYPE arvo nimi AS STRING * 20 maara AS INTEGER END TYPE pii = 4 * ATN(1) kx = 100 ky = 200 sade = 100 'ympyrän koko maara = 5 'arvojen määrä aloitus = pii REDIM kohdat(maara) AS arvo yht = 0 FOR i = 1 TO maara READ kohdat(i).nimi, kohdat(i).maara yht = yht + kohdat(i).maara NEXT CIRCLE (kx, ky), sade PSET (kx, ky) kohta = aloitus FOR i = 1 TO maara vkohta = kohta kohta = kohta + kohdat(i).maara / yht * 2 * pii LINE (kx, ky)-(kx + SIN(kohta) * sade, ky + COS(kohta) * sade) PAINT (kx + SIN(kohta + (vkohta - kohta) / 2) * sade / 2, ky + COS(kohta + (vkohta - kohta) / 2) * sade / 2), i, 15 LOCATE i, 40 COLOR i: PRINT "█ "; COLOR 15 PRINT kohdat(i).nimi; PRINT kohdat(i).maara; "("; LTRIM$(RTRIM$(STR$(INT(kohdat(i).maara / yht * 100 * 100) / 100))); "%)" NEXT DATA Eka, 1050, Toka, 788, Kolmas, 250, Neljäs, 240, Viides, 64