La prima decisione che dovete fare nella programmazione QBASIC è la modalità grafica . Dal QBASIC è costruito sulla base di MS- DOS , i dettagli come la risoluzione dello schermo sono hardcoded in 14 modi grafici . La modalità di default è 0 , e questa modalità permette di accedere ad una griglia di 80x25 caratteri che non hanno accesso a singoli pixel , che non è molto adatto per l'animazione . Invece , utilizzare la modalità grafica 7, che offre una risoluzione di 320x200 , 16 colori , accesso singolo pixel , e la più importante per l'animazione , l'accesso alle pagine grafiche multiple :
SCREEN 7 , 1,0
il Main loop
Dopo aver dichiarato la modalità grafica con schermo , digitare quanto segue:
DO
lOOP WHILE INKEY $ = " "
Questo dice al programma da eseguire , mentre il tasto premuto è uguale a niente , o , in altre parole , di correre fino a quando l'utente preme un tasto .
Disegnare un cerchio
Disegnare forme geometriche di base è semplice in QBASIC . Prima che il comando do , inizializzare le variabili come segue :
xpos ! = 50ypos ! = 50radius ! = 16color ! = 14
E tra DO e LOOP , digitare quanto segue :
CIRCLE ( xpos , ypos ) , raggio , colorPCOPY 1,0 CLS
Questo disegnare un cerchio giallo per " pagina 1 ", una sezione di memoria video accantonata per eseguire operazioni di disegno , e copia pagina 1 a pagina 0 , che rappresenta i dati video effettivamente visibili all'utente . Questa è una tecnica nota nella grafica di programmazione come il doppio buffer , ed elimina lo sfarfallio dello schermo . Se volete vedere un esempio del perché si dovrebbe passare attraverso la briga di implementare il doppio buffering , rimuovere la linea PCOPY e cambiare il vostro comando schermo in modo che , invece di SCREEN 7 , 1,0 , si legge semplicemente SCREEN 7 .
animate
per animare il cerchio , è necessario modificare le xpos e le variabili ypos all'interno del DO ... LOOP . Dopo DO , ma prima che il comando CERCHIO , digitare quanto segue :
xpos = xpos + 0.001ypos = ypos + 0.001
Salvare ed eseguire per l'animazione di una palla in movimento . Se desiderate una sfida , modificare il codice per avere la palla rimbalza fuori le mura .
Programmazione © www.354353.com