QBASIC var ett enkelt programmeringsspråk som används för att komma fri med kopior av MS - DOS och tidiga versioner av Windows som ett sätt att introducera nya dator ägare till programmering , utan att involvera dem i komplexiteten av mer sofistikerade språk som C + + . QBASIC låter basic input och output , filhantering och ens grundläggande grafikfunktioner , där du kan använda för att skapa en rörlig boll animation . Grafiska lägen
Det första beslutet du måste göra i QBASIC programmering är ditt grafikläge . Eftersom QBASIC är byggt ovanpå MS - DOS , är detaljer som skärmupplösning hårdkodade i 14 grafiska lägen . Det förvalda läget är 0 , och detta läge ger dig tillgång till ett rutnät av 80x25 tecken utan tillgång till enskilda pixlar, vilket inte är särskilt lämplig för en animering . Istället använder grafikläge 7 , vilket ger dig en 320x200 upplösning , 16 färger , individuell pixel tillgång , och viktigast för en animation , tillgång till flera grafiska sidor :
SCREEN 7 , 1,0
huvudslingan
När du har förklarat ditt grafikläge med skärm , skriver du följande :
DO
loopen samtidigt inKey $ = " "
Detta gör att programmet körs samtidigt som tangenten är lika med ingenting - eller , med andra ord , att köra tills användaren trycker på en tangent .
rita en cirkel
Rita geometriska grundformer är enkel i QBASIC . Innan DO uttalande , initiera variablerna enligt följande :
xpos ! = 50ypos ! = 50radius ! = 16color ! = 14
Och mellan DO och LOOP , skriver du följande :
CIRCLE ( xpos , ypos ) , radie , colorPCOPY 1,0 CLS
Detta kommer att dra en gul cirkel med " sida 1 , " en del av videominne avsatt för att utföra ritoperationer , och kopiera sidan 1 till sidan 0 , vilket representerar videodata faktiskt synliga för användaren . Detta är en teknik som är känd i grafikprogrammering som dubbel buffring , och det eliminerar skärmflimmer . Om du vill se ett exempel på varför du bör gå igenom besväret att genomföra dubbel buffring , ta bort pcopy raden och ändra din skärm kommando så att , i stället för SCREEN 7 , 1,0 , det läser enkelt SKÄRM 7 .
animera
att animera cirkeln , måste du ändra xpos och ypos variabler inom DO ... LOOP . Efter DO , men innan CIRCLE kommandot skriver du följande :
xpos = xpos + 0.001ypos = ypos + 0,001
Spara och kör för en animation av en rörlig kula . Om du vill ha en utmaning , ändra denna kod för att få bollen studsar mot väggarna .
