QBASIC was een eenvoudige programmeertaal die gebruikt worden om gratis exemplaren van MS - DOS en vroege versies van Windows als een manier om nieuwe computer eigenaren introduceren aan de programmering te komen , terwijl ze niet betrekken in de complexiteit van de meer geavanceerde talen zoals C + + . QBASIC laat basic input en output , bestandsbeheer en zelfs elementaire grafische mogelijkheden , die je zult gebruiken om een bewegende bal animatie te maken . Modi grafische De eerste beslissing die u moet maken in QBASIC programmering is uw grafische modus . Omdat QBASIC is gebouwd op de top van MS - DOS , worden details zoals schermresolutie hardcoded in 14 grafische modi . De standaardmodus is 0 , en deze modus geeft u toegang tot een raster van 80x25 karakters zonder toegang tot de individuele pixels , wat niet erg geschikt om een animatie . Gebruik in plaats daarvan grafische modus 7 , die u voorziet van een 320x200 resolutie , 16 kleuren , individuele toegang pixel , en het meest belangrijk voor een animatie , toegang tot meerdere grafische pagina's : SCREEN 7 , 1,0 < br > de Main Loop Nadat u uw grafische modus hebt verklaard met SCREEN , typt u het volgende : DO LOOP TERWIJL INKEY $ = " " Dit vertelt het programma te draaien , terwijl de ingedrukte toets is gelijk aan niets - of , in andere woorden , om te draaien totdat de gebruiker op een toets drukt . < br > Teken een cirkel Tekening geometrische basisvormen is eenvoudig in QBASIC . Voordat het DO statement , initialiseren variabelen als volgt : xpos ! = 50ypos ! = 50radius ! = 16color ! = 14 En tussen DO en LOOP , typ het volgende : CIRCLE ( xpos , ypos ) , radius , colorPCOPY 1,0 CLS Dit zal een gele cirkel te vestigen op " pagina 1 , " een deel van videogeheugen gereserveerd voor het uitvoeren van bewerkingen tekenen , en kopieer pagina 1 naar pagina 0 , waarvan de videogegevens daadwerkelijk zichtbaar voor de gebruiker vertegenwoordigt . Dit is een techniek in de grafische programmering als dubbele buffering bekend , en het elimineert scherm flikkert . Wilt u een voorbeeld van waarom je moet gaan door de moeite van de uitvoering van dubbele buffering zien , verwijder de pcopy lijn en verander je SCREEN commando , zodat , in plaats van SCREEN 7 , 1,0 , leest het gewoon SCREEN 7 . < Br > Animate om de cirkel te animeren , moet u de xpos en ypos variabelen binnen de DO wijzigen ... LOOP . Na DO , maar voordat CIRCLE opdracht , typt u het volgende : xpos = xpos + 0.001ypos = ypos + 0,001 opslaan en uitvoeren voor een animatie van een bewegende bal . Als u graag een uitdaging , passen deze code om de bal stuiteren van de muren .
|