QBasic je variantouprogramovacího jazykaBASIC (název je odvozen z produktuQuickBASIC, BASIC je zkratkou proBeginner'sAll-purposeSymbolicInstructionCode). Nedovedekompilovat do samostatně spustitelných souborů,zdrojový kód je překládán za běhu (je tzv.interpretován).
QBasic měl sloužit jako náhrada zaGW-BASIC a byl dodáván společně sMS-DOSem od verze 5.0, včetněWindows 95. Vycházel z dřívějšího produktu QuickBASIC 4.5, nicméně neobsahoval kompilátor anilinker.
Microsoft přestal dodávat QBasic s pozdějšími verzemiWindows. UživateléWindows 98 jej nicméně mohli najít na instalačnímCD-ROM vadresáři\TOOLS\OLDMSDOS; na instalačním CD Windows 95 se nacházel v adresáři\OTHER\OLDMSDOS. Nyní je dostupný jen pro licencované uživatele MS-DOS nawebových stránkách Microsoftu. QBasic obsahoval už více než před deseti lety vyspělévývojové prostředí, včetnědebuggeru s vlastnostmi, jako je vyhodnocování výrazů a úprava kódu za běhu programu, což bylo relativně neobvyklé i v roce2003.
QBasic byl také předmětem mnohaprogramátorských učebnic pro začátečníky.
S použitím emulátoruDOSBox je možné jej spustit na většině platforem, jako jeWindows XP,Linux,FreeBSD atd.
QBasic byl dodáván s dvojicí ukázkovýchher:Nibbles (varianta klasické hrySnake, českyHad) aGorilla (hra, v níž po sobě gorily vrhaly výbušné banány) a programemRemLine, jenž odebíral ze zdrojového kódu pro GW-BASIC čísla řádků.
Stejně jako QuickBASIC (a na rozdíl od dřívějších verzí Microsoft BASICu) byl QBasicstrukturovaným programovacím jazykem, podporujícím věci jako pojmenované podprogramy (subroutines) a cyklywhile. Čísla řádků, koncept často spojovaný s BASICem, byly podporovány jen z důvodů kompatibility, nicméně nebyly nezbytné ani vhodné. QBasic měl omezenou podporu pro uživatelsky definované datové typy (struktury) a několik datových typů pro uchovávání řetězcových, textových či numerických dat.
Následující program vypíše „Hello, World“ a vydává podivné zvuky:
PRINT"Hello, World"FORNote=450TO750STEP20SOUNDNote,1SOUND800-Note,1NEXTNoteFORNote=750TO450STEP-20SOUNDNote,1SOUND750+Note,1NEXTNoteFORNote=100TO1000STEP20SOUNDNote,1SOUND750+Note,1NEXTNoteEND
Tento program nakreslí čtverec na obrazovku:
SCREEN12'Definuje grafické rozlišení VGA 640 x 480'LINE(0,0)-(100,0),15'Definuje čáru z bodu (X1,Y1) do bodu (X2,Y2)při barvě číslo 15 - bílá'LINE(0,0)-(0,100),15LINE(0,100)-(100,100),15LINE(100,0)-(100,100),15
nebo
SCREEN12LINE(0,0)-(100,0),15LINE-(100,100),15'Navazuje na poslední předchozí hodnotu'LINE-(0,100),15LINE-(0,0),15
nebo
SCREEN12LINE(0,0)-(100,100),15,B'Nakreslí čtverec, díky parametru "B" (box)
Obrázky, zvuky či videa k tématuQBasic na Wikimedia Commons