Kirjoittaja: Antti Laaksonen
Kirjoitettu: 09.03.2002 – 22.11.2011
Tagit: grafiikka, koodi näytille, vinkki
QBasic-ohjelmassa tarvitsee usein ASCII-kehyksiä. Niiden piirtäminen on kuitenkin turhauttavaa pitemmän päälle. Tämä aliohjelma tekee halutun kokoisen kehyksen yksin- tai kaksinkertaisilla kehyksillä, ja säästää siten aikaa ja pienentää koodin kokoa. Kommentit unohtuivat, mutta esittelystä toiminta selvinnee.
Esittely
Piirrakehys 5, 5, 60, 15, 2, 15 LOCATE 5, 6: PRINT "Esimerkki" Piirrakehys 40, 6, 58, 13, 1, 15 LOCATE 7, 41: PRINT "Pienempi kehys" LOCATE 8, 41: PRINT "oikealla puolella"
Aliohjelma
SUB Piirrakehys (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, tyyli AS INTEGER, vari AS INTEGER)
DIM tyylit(2) AS STRING * 6
tyylit(1) = "┌─┐│└┘"
tyylit(2) = "╔═╗║╚╝"
COLOR vari
LOCATE y1, x1: PRINT MID$(tyylit(tyyli), 1, 1);
FOR i = x1 + 1 TO x2 - 1
PRINT MID$(tyylit(tyyli), 2, 1);
NEXT
PRINT MID$(tyylit(tyyli), 3, 1);
FOR i = y1 + 1 TO y2 - 1
LOCATE i, x1: PRINT MID$(tyylit(tyyli), 4, 1);
LOCATE i, x2: PRINT MID$(tyylit(tyyli), 4, 1);
NEXT
LOCATE y2, x1: PRINT MID$(tyylit(tyyli), 5, 1);
FOR i = x1 + 1 TO x2 - 1
PRINT MID$(tyylit(tyyli), 2, 1);
NEXT
PRINT MID$(tyylit(tyyli), 6, 1);
END SUBKätevä.