Creare un rombo in QBasic
Ecco un esempio di come creare un rombo in QBasic utilizzando la funzione “LINE” per disegnare le linee:
Screen 12
xcenter = 320
ycenter = 240
length = 100
Line (xcenter, ycenter - length / 2)-(xcenter + length / 2, ycenter), 14
Line (xcenter + length / 2, ycenter)-(xcenter, ycenter + length / 2), 14
Line (xcenter, ycenter + length / 2)-(xcenter - length / 2, ycenter), 14
Line (xcenter - length / 2, ycenter)-(xcenter, ycenter - length / 2), 14Il codice sopra disegna un rombo con un centro in (320, 240) e una lunghezza di 100 pixel.
La funzione “LINE” prende in input due coppie di coordinate (x, y) per disegnare una linea tra di esse.
La linea del rombo viene disegnata in quattro passaggi, con ciascuna linea che collega due vertici del rombo.
La costante 14 specifica il colore delle linee (in questo caso giallo).
La funzione “SLEEP” mette in pausa il programma, consentendo di visualizzare il rombo disegnato sullo schermo.
