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 .