Keskustelu: Koodit: QB: 3D ikkuna

Väsäsin aikani kuluksi tänne tällaisen "hienon" Windows-tyylisen ikkunan tekokoodin. Tämän voi laittaa vaikkapa aliohjelmaksi. Saa käyttää vapaasti :)

SCREEN &HD
CLS

X% = 10      'X-koordinaatti
Y% = 10      'Y-koordinaatti
W% = 300     'Leveys
H% = 180     'Korkeus
C% = 29      'Ikkunan väri, käyttää standardipalettia.

LINE (X%+0, Y%+0)-(X%+W%-1, Y%+H%-1), C%-2, B
LINE (X%+0, Y%+0)-(X%+W%-2, Y%+H%-2), C%+2, B
LINE (X%+1, Y%+1)-(X%+W%-2, Y%+H%-2), C%-1, B
LINE (X%+1, Y%+1)-(X%+W%-3, Y%+H%-3), C%+1, B
LINE (X%+2, Y%+2)-(X%+W%-3, Y%+H%-3), C%-0, BF

' LINE (X%+3, Y%+3)-(X%+W%-4, Y%+H%-4), C%-1, B
' LINE (X%+4, Y%+4)-(X%+W%-4, Y%+H%-4), C%+1, B
' LINE (X%+4, Y%+4)-(X%+W%-5, Y%+H%-5), C%-2, B
' LINE (X%+5, Y%+5)-(X%+W%-5, Y%+H%-5), C%+2, B
' LINE (X%+5, Y%+5)-(X%+W%-6, Y%+H%-6), C%-0, BF

SLEEP
SCREEN &H0: END

No oppiipa tossa line käskyn jos joku ei osaa

Olisi hyödyllinen, jos olisi myös ikkuna, jota voisi siirtää, ja sulkea hiirellä.

miks tommosia ihme screenejä pitää olla :o
ja ohjelman saa lopetettua jopa ilman screenin vaihtamista takasi :p

Ihan hieno... siitä vaan tekemään jotain GUI-kirjastoa :)
Hyvä tapa tehdä ikkunoita helposti on käyttää kuitenkin jotain valmista GUI-kirjastoa, kuten vaikka future library + wizgui systeemiä http://www.hot.ee/wizgui/

lainaus:

miks tommosia ihme screenejä pitää olla :o

mitenniin "ihme screeni"? ihan normaali SCREEN 13 tuo on :)

tejeez kirjoitti:

lainaus:

miks tommosia ihme screenejä pitää olla :o

mitenniin "ihme screeni"? ihan normaali SCREEN 13 tuo on :)

Siis hexana.