Creare un quadrato multicolore in QB64

Questo codice crea un quadrato multicolore utilizzando Screen 12 in QB64:

Screen 12
Cls

Dim col As Integer

For i = 1 To 200
    col = (Rnd * 15) + 1
    Line (100, 100)-(100 + i, 100), col
    Line (100 + i, 100)-(100 + i, 100 + i), col
    Line (100 + i, 100 + i)-(100, 100 + i), col
    Line (100, 100 + i)-(100, 100), col
Next i

Sleep
End

• La prima riga imposta lo schermo a modalità grafica 12.
• La riga “Cls” pulisce lo schermo.
• La riga “Dim col As Integer” crea una variabile per il colore.
• Il ciclo “For” esegue 200 volte il codice all’interno.
• La riga “col = (Rnd * 15) + 1” calcola un colore a caso da un totale di 15 possibili opzioni di colore.
• Le righe con “Line” disegnano le linee del quadrato utilizzando il colore calcolato.
• La riga “Sleep” mette in pausa il codice fino a quando l’utente non preme un tasto.
• La riga “End” termina il codice.

Questo codice disegnerà un quadrato che cambierà colore 200 volte utilizzando i valori random (Rnd). Ogni volta che il ciclo “For” viene eseguito, le linee del quadrato cambieranno colore a caso. Questo codice è efficiente e facile da comprendere.