Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Prvé rozhodnutie , ktoré musíte urobiť v programovaní QBasic je váš režim grafika . Vzhľadom k tomu , QBasic je postavený na vrchole systému MS - DOS , podrobnosti , ako je rozlíšenie obrazovky sú napevno do 14 grafických režimov . Predvolený režim je 0 , a tento režim vám dá prístup k mriežke 80x25 znakov bez prístupu k jednotlivým pixelov , čo nie je príliš vhodné pre animáciu . Namiesto toho použite grafický režim 7 , ktorý vám poskytuje s rozlíšením 320x200 , 16 farieb , individuálny prístup pixelov , a najdôležitejšie pre animáciu , prístup k viac stránok grafiky : 
 
 SCREEN 7 , 1,0 
 
 Hlavné slučka 
 
 Potom, čo ste vyhlásil , váš grafický režim s SCREEN , zadajte nasledujúci príkaz : 
 
klipart
 LOOP WHILE Inkey $ = " " 
 
 hovorí program spustiť pri stlačení tlačidla sa rovná nič - alebo , inými slovami , bežať , kým užívateľ stlačí kláves . 
 
 Nakreslite kruh 
 
 kreslenie základných geometrických tvarov je jednoduché QBasic . Pred vyhlásenie DO , inicializovať premenné takto : 
 
 Xpose ! = 50ypos ! = 50radius ! = 16color ! = 14 
 
A medzi DO a LOOP , zadajte nasledujúci príkaz : Spojené
 KRUH ( Xpose , ypos ) , polomer , colorPCOPY 1,0 CLS 
 
 To bude čerpať žltý kruh " strana 1 " , časť video pamäte vyňatie pôdy z produkcie pre vykonávanie kreslenie operácií , a Page 1 strana 0 , čo predstavuje video dáta skutočne viditeľný pre užívateľa . To je technika známa v grafickom programovaní , ako je dvojité ukladanie do vyrovnávacej pamäte , a eliminuje blikanie obrazovky . Ak chcete vidieť príklad , prečo by ste mali ísť cez ťažkosti vykonávanie dvojité ukladanie do vyrovnávacej pamäte, vyberte PCOP riadok a zmeňte príkaz SCREEN tak , že miesto SCREEN 7 , 1,0 , to jednoducho číta SCREEN 7. 
 
 Animate 
 
 Ak chcete animovať kruh , je potrebné upraviť Xpose a ypos premenné v rámci DO ... LOOP . Po DO , ale pred príkaz CIRCLE , zadajte nasledujúci príkaz : 
 
 Xpose = Xpose + 0.001ypos = ypos + 0.001 
 
 Uložiť a spustiť na animáciu pohybujúceho sa loptičky . Ak by ste chceli výzvu , upraviť tento kód má loptu odraziť od stien .