INPUT "Age: ", age LINE INPUT "Full name: ", fullname$ ' allows commas/spaces INPUT$ (1) ' read one key without Enter 5.1 Conditional Statements IF...THEN...ELSE
FOR i = 1 TO 10 STEP 2 PRINT i NEXT i ' outputs 1,3,5,7,9 qb64 manual pdf
OPEN "data.txt" FOR INPUT AS #1 DO UNTIL EOF(1) INPUT #1, name$, age, grade PRINT name$, age, grade LOOP CLOSE #1 OPEN "document.txt" FOR BINARY AS #1 content$ = SPACE$(LOF(1)) ' allocate string of file size GET #1, , content$ ' read entire file CLOSE #1 PRINT content$ 9.3 Binary Files (Custom Data) TYPE Record ID AS INTEGER Value AS SINGLE END TYPE DIM rec AS Record rec.ID = 101 rec.Value = 3.14 INPUT "Age: ", age LINE INPUT "Full name:
music& = _SNDOPEN("background.mp3") ' MP3, WAV, OGG _SNDPLAY music& _SNDLOOP music& ' loop forever _SNDVOL music&, 0.5 ' half volume INPUT "Age: "
sprite& = _NEWIMAGE(32, 32, 32) _DEST sprite& ' draw onto sprite CLS , _RGB(255,0,0) ' red background _DEST 0 ' back to main screen _PUTIMAGE (mouseX, mouseY), sprite& SCREEN _NEWIMAGE(800, 600, 32) _DISPLAY ' start rendering DO _LIMIT 60 ' 60 FPS CLS ' draw frame... x = x + 1 _PUTIMAGE (x, 300), player& _DISPLAY ' show frame LOOP Chapter 8: Audio & Sound 8.1 Legacy Sound (PC Speaker) SOUND 440, 18 ' 440Hz for 1 second (18 ticks = 1 sec) BEEP ' simple beep PLAY "MB L8 O3 C D E F G" ' music macro language 8.2 Modern Sound (_SND Commands) Load and play:
LINE (0,0)-(200,200), _RGB(255,0,0), BF ' filled red square CIRCLE (400,300), 50, _RGB(0,255,0) PAINT (400,300), _RGB(0,255,0), _RGB(0,255,0) ' fill circle Loading an image:
img& = _LOADIMAGE("player.png") ' supports PNG, JPG, BMP IF img& < -1 THEN ' valid handle? _PUTIMAGE (100, 100), img& ELSE PRINT "Failed to load image" END IF