Hello everyone, I am having a hard time trying to run a code, (which I copied and pasted from a PDF text book ^^), 
The program was written in Microsoft QuickBASIC for Apple Macintosh, so i investigated a little and   
close to that i found QB64 programing languaje , i dont know if the syntax is the same, but the file (.bas), gets executed,
 
If someone can help me resolve the problem, I would appreciate it. ♥
I am leaving the link to the GitHub repository if you want to download the files and try them out yourselves.
its strange because the code is from a book, So it shouldn't be an issue ! 
I am also attaching a video with two images, showing what happens when I try to run the code completely! 

link to github :
https://github.com/musss1s/programingQBASIC.git

first image : 
The main program, calls the file "uflo.dat",which i highlighted in yellow, it stores numbers in a 21x41 array format, 
with 21 columns and each column containing 41 numbers, separated by commas. 
I = 21 and J = 41.
 
It is used to perform some calculations for sonic and subsonic flow, "gas dynamics."



second image:
i marked in red where the syntaxis problem is 


reference video:



the code should look like this :




please help !!!   thank you guys

I just ran across something that is confusing me.

The User32 function SetCursorPos as outlined here in the Microsoft docs:

https://learn.microsoft.com/en-us/window...tcursorpos

is a function. However, it's being declared as a SUB in the Wiki example code here:

https://qb64phoenix.com/qb64wiki/index.p...Mouse_Area

At first I though this was a typo but the code works. Is this a typo that somehow works? Or is it possible to declare FUNCTIONs as SUBs in certain circumstances?

So, I saw the other post for the slot machine, and thought I'd take a quick shot at seeing how I'd come up with something like you suggested. 

SCREEN _NEWIMAGE(340, 340, 32)

_TITLE "Slot Machine!"

RANDOMIZE TIMER

$COLOR:32

COLOR White, 0

Money = 300

DIM AS _FLOAT spin1, spin2, spin3

DO

    CLS , DarkGray

    CenterText 10, "ENTER TO SPIN!  (You have $" + STR$(Money) + ")"

    CenterText 140, "PAYOUTS"

    CenterText 160, "Three Double Circles -- 500"

    CenterText 180, "Three Squares        --  25"

    CenterText 200, "Three Triangles      --  25"

    CenterText 220, "Three Circles        --  25"

    CenterText 240, "Two Circles          --  10"

    CenterText 260, "Three Diamonds       --  10"

    CenterText 280, "Two Diamonds         --   5"

    CenterText 300, "One Diamond          --   1"

    DO: a$ = INPUT$(1): LOOP UNTIL a$ = CHR$(13) OR a$ = CHR$(27)

    IF a$ = CHR$(27) THEN SYSTEM

    LINE (0, 0)-(340, 340), DarkGray, BF

    spin1 = TIMER + RND * 2 + 1: spin2 = RND * 2 + 1 + spin1: spin3 = RND * 2 + 1 + spin2

    DO

        finished = -1

        IF spin1 > TIMER THEN slot1 = Slot(INT(RND * 32)): DrawSlot 0, slot1

        IF spin2 > TIMER THEN slot2 = Slot(INT(RND * 32)): DrawSlot 1, slot2

        IF spin3 > TIMER THEN slot3 = Slot(INT(RND * 32)): DrawSlot 2, slot3: finished = 0

        _LIMIT 10

        _DISPLAY

    LOOP UNTIL finished

    _AUTODISPLAY

    win = -10 'the "ante" of $10 to spin.

    IF slot1 = slot2 AND slot2 = slot3 THEN 'three of a kind!

        SELECT CASE slot1

            CASE 1: win = 250 '3 circles

            CASE 2: win = 250 '3 triangles

            CASE 3: win = 100 '3 diamonds

            CASE 4: win = 5000 '3 double circles

            CASE 5: win = 250 '3 squares

        END SELECT

    END IF

    diamond = 0: circles = 0

    IF slot1 = 3 THEN diamond = diamond + 1 ELSE IF slot1 = 1 THEN circles = circles + 1

    IF slot2 = 3 THEN diamond = diamond + 1 ELSE IF slot2 = 1 THEN circles = circles + 1

    IF slot3 = 3 THEN diamond = diamond + 1 ELSE IF slot2 = 1 THEN circles = circles + 1

    IF diamond = 1 THEN win = 10 ELSE IF diamond = 2 THEN win = 50 '1 diamond or 2 diamond

    IF circles = 2 THEN win = 100 '2 circles

    IF win < 0 THEN CenterText 250, "Sorry.  No Match.  You lose." ELSE CenterText 250, "Congrats!  You win!"

    Money = Money + win

    _KEYCLEAR: SLEEP: _DELAY .5: _KEYCLEAR

LOOP



SUB DrawSlot (where, what)

    LINE (10 + 110 * where, 50)-STEP(100, 100), Black, BF

    w = 110 * where

    SELECT CASE what

        CASE 1: CircleFill 60 + w, 100, 50, Blue 'circle

        CASE 2: FillTriangle 60 + w, 50, 10 + w, 150, 110 + w, 150, Yellow 'triangle

        CASE 3: FillQuad 60 + w, 50, 10 + w, 100, 60 + w, 150, 110 + w, 100, Green 'diamond

        CASE 4: CircleFill 60 + w, 100, 50, Red: CircleFill 60 + w, 100, 25, Yellow 'double circle

        CASE 5: LINE (20 + 110 * where, 60)-STEP(80, 80), Gold, BF: 'square

    END SELECT

END SUB



FUNCTION Slot (roll AS INTEGER)

    SELECT CASE roll

        CASE 0 TO 1: Slot = 1

        CASE 1 TO 3: Slot = 2

        CASE 3 TO 7: Slot = 5

        CASE 7 TO 15: Slot = 4

        CASE ELSE: Slot = 3

    END SELECT

END FUNCTION



SUB CenterText (y, text$)

    l = _PRINTWIDTH(text$)

    w = _WIDTH

    x = (w - l) \ 2

    _PRINTSTRING (x, y), text$

END SUB



SUB FillTriangle (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)

    STATIC a&, m AS _MEM

    IF a& = 0 THEN a& = _NEWIMAGE(1, 1, 32): m = _MEMIMAGE(a&)

    _MEMPUT m, m.OFFSET, K

    _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)

END SUB

SUB FillQuad (x1, y1, x2, y2, x3, y3, x4, y4, K AS _UNSIGNED LONG)

    FillTriangle x1, y1, x2, y2, x3, y3, K

    FillTriangle x3, y3, x4, y4, x1, y1, K

END SUB



SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)

    DIM Radius AS INTEGER, RadiusError AS INTEGER

    DIM X AS INTEGER, Y AS INTEGER

    Radius = ABS(R)

    RadiusError = -Radius

    X = Radius

    Y = 0

    IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB

    LINE (CX - X, CY)-(CX + X, CY), C, BF

    WHILE X > Y

        RadiusError = RadiusError + Y * 2 + 1

        IF RadiusError >= 0 THEN

            IF X <> Y + 1 THEN

                LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF

                LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF

            END IF

            X = X - 1

            RadiusError = RadiusError - X * 2

        END IF

        Y = Y + 1

        LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF

        LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF

    WEND

END SUB

I have a vague recollection that a discussion on memory usage was kicked around however I can't seem to find if that discussion specifically dealt with a Warning being displayed in the IDE. 

Every now and then I could use a quick guide to how much memory a particular array that I have just dimmed will take up. I know the act of dimming sets aside memory for the array however the amount of memory set aside is not immediately known. You have to do the math yourself.

As well, how much available memory is also difficult to know at the time of dimming. I don't know if the IDE, in reserving the memory would have access to the total ram in one's computer and therefore, knowing the size of the array being set up in memory, would also be able to calculate the amount of memory left for future arrays.

Would it be possible for the IDE to have a Warning on Memory Available ... or if upon Dimming an array the amount of memory set aside be displayed ... or if the Warning on Unused arrays and variables would display the amount of memory.

Just a thought

This is a simple to play sudoku puzzle with 500 easy level puzzles to solve.   I hesitated sharing this because the code is so jumbled up, but I probably won't ever clean it up so here it is.  Maybe somebody would like a portable sudoku program.  Screen size will adjust to 75% of users desktop height, so the puzzle should look nice on any screen.  If you want to see a REALLy good sudoku in QB64 then I highly  recommend looking up the one @bplus made. 

Left click to add a number to a cell, right click on a number to erase it.
SPACE will reset puzzle, ENTER will go to a random puzzle #.
Use +/- keys to jump to different puzzles quickly.
Press T to play with  timer (shows in title bar).
R will reset all puzzles to unsolved.

Game progress now saved to a sudoko.dat file in current directory so you can continue where you left off.

- Dav

EDIT: Updated version - now saves game progress and solved puzzles.

I'm trying to get the name of the current window that has focus. I've already successfully figured out how to get the window handle of any window in focus but I'm having trouble getting the window's title. According to Microsoft's docs here:

https://learn.microsoft.com/en-us/window...indowtextw

GetWindowTextW should be able to do this. ( There is also a GetWindowTextA function for ASCII return but that's not working for me either. )

It's pretty straight forward:

DECLARE DYNAMIC LIBRARY "user32"
    FUNCTION GetWindowTextW (BYVAL hWnd AS _INTEGER64, lpString AS STRING, BYVAL nMaxCount AS INTEGER)
END DECLARE

DIM Dummy AS INTEGER
DIM n AS STRING

_TITLE "This is a test"
Dummy = GetWindowTextW(_WINDOWHANDLE, n, 255)
PRINT n

Does anyone have any insights on why this is not working? The string seems to be null and Dummy returns the value of 0.

Now, since my last couple of entries was for _UPrintString, I imagine that everyone could guess that _UPrintWidth is probably some sort of helper function for that command.   Right?  



I also imagine that since most folks already know that _PrintWidth will tell you how many pixels wide a text string is, most can probably hazard a guess as to what _UPrintWidth does.   Right?

 

Well, for those who aren't brave enough to guess, let me tell you!   _UPrintWidth tells you the pixel width of a text string that will be printed to the screen!

And, I can hear some of you guys muttering under your breath, saying stuff like, "And we needed a new command for this?  Why?!  We already have _PrintWidth!"

.
.
.

And, I hope the basic answer to that was already stressed via my last couple of posts.  _UPrintString tends to print wider and taller characters than _PrintString and PRINT does, as they both can tend to "clip" characters off with various fonts and font sizes.

_PRINTWIDTH returns the width of text that is going to be printed to the screen using _PRINTSCREEN, or plain PRINT.
_UPRINTWIDTH returns the width of text that is going to be printed to the screen using _UPRINTSCREEN.

^ That is the basic -- and most important -- difference in the two commands.  If you're used to using _PrintWidth, then there should be zero issue with you swapping over to _UPrintWidth  -- with a few syntax changes which I'll go over below.

With $RESIZE:ON I've noticed that _WIDTH and _HEIGHT will not update when the screen is resized (which I assume is correct behavior).

_RESIZEWIDTH and _RESIZEHEIGHT do however as detailed in the Wiki.

Without $RESIZE:ON in the code I've noticed that _RESIZEWIDTH and _RESIZEHEIGHT report the same as _WIDTH and _HEIGHT. According to the Wiki the RESIZE command set should not be available without $RESIZE:ON.

Is _RESIZEWIDTH and _RESIZEHEIGHT reporting values without $RESIZE:ON a bug or is this expected behavior?

If this is not expected behavior and will get fixed (a bug) how can I detect when a program is allowed to resize? I would need to know to use _WIDTH and _HEIGHT when a window has a fixed size or use _RESIZEWIDTH and _RESIZEHEIGHT when a window is allowed to resize. I need to be able to incorporate this detection into libraries.

If this is expected behavior then why use _WIDTH and _HEIGHT at all? _RESIZEWIDTH and _RESIZEHEIGHT will always report the correct client _WIDTH and _HEIGHT whether $RESIZE:ON is present or not.

Any insights?

Just a head's up for everyone. I've just spent an hour cursing at my code until I figured out what was going on.

SCREEN _NEWIMAGE(640, 480, 32)
hWnd&& = _WINDOWHANDLE

The above code will not return the correct window handle.

SCREEN _NEWIMAGE(640, 480, 32)
_DELAY .25
hWnd&& = _WINDOWHANDLE

This code above will. Very frustrating.

Hello everyone,
I'm working on Lesson's 10 assignment...it's definitely more complicated than the previous ones   I'm not finished with it yet, but I wanted to post the intermediate result, because there are a couple of things worth noticing: the exercise is full of tricks so make use of the wiki information...for example at line 49 in the code below...you need to use a semicolon otherwise some of your print statements will disappear from screen and you'll be left wondering why..."they were there ten minutes ago and now they don't show up anymore...but I didn't change anything so how can it be?". If you reach the end of screen you must add a semicolon to the last print statement to prevent...I don't remember the name but in order that everything shows up as it is written. Today I worked on the DrawSymbol subroutine and I'm quite happy with it, it works as expected, but I don't know if there is a more efficient way to code it... Here is the partial solution to the exercise:

SCREEN _NEWIMAGE(340, 340, 32)

_TITLE "Slot Machine"



CONST RED = _RGB32(255, 0, 0)

CONST GREEN = _RGB32(0, 255, 0)

CONST BLUE = _RGB32(0, 0, 255)

CONST PURPLE = _RGB32(255, 0, 255)

CONST YELLOW = _RGB32(255, 255, 0)

CONST CYAN = _RGB32(0, 255, 255)

CONST BLACK = _RGB32(0)

CONST GREY = _RGB32(70)



DIM Score%



Score% = 0



PAINT (170, 170), GREY

_PRINTMODE _KEEPBACKGROUND

LOCATE 1, 16

COLOR YELLOW: PRINT "SLOT MACHINE"



LINE (10, 20)-(110, 120), BLACK, BF

DrawSymbol "DIAMOND", 1

LINE (120, 20)-(220, 120), BLACK, BF

DrawSymbol "DIAMOND", 2

LINE (230, 20)-(330, 120), BLACK, BF

DrawSymbol "DIAMOND", 3



LOCATE 9, 2

COLOR YELLOW: PRINT "ENTER to spin"; SPC(7); Score%; SPC(7); "ESC to exit"

LOCATE 11, 18

PRINT "PAYOUTS"

LOCATE 13, 10

COLOR YELLOW: PRINT "3 Double Circles - 500"

LOCATE 14, 10

COLOR YELLOW: PRINT "3 Squares        -  25"

LOCATE 15, 10

COLOR YELLOW: PRINT "3 Triangles      -  25"

LOCATE 16, 10

COLOR YELLOW: PRINT "3 Circles        -  25"

LOCATE 17, 10

COLOR YELLOW: PRINT "2 Circles        -  10"

LOCATE 18, 10

COLOR YELLOW: PRINT "3 Diamonds      -  10"

LOCATE 19, 10

COLOR YELLOW: PRINT "2 Diamonds      -  5"

LOCATE 20, 10

COLOR YELLOW: PRINT "1 Diamond        -  1";

SLEEP



SUB DrawSymbol (Figure$, Box%)

    IF Figure$ = "SQUARE" AND Box% = 1 THEN

        LINE (20, 30)-(100, 110), BLUE, BF

    ELSEIF Figure$ = "SQUARE" AND Box% = 2 THEN

        LINE (130, 30)-(210, 110), BLUE, BF

    ELSEIF Figure$ = "SQUARE" AND Box% = 3 THEN

        LINE (240, 30)-(320, 110), BLUE, BF

    ELSEIF Figure$ = "CIRCLE" AND Box% = 1 THEN

        CIRCLE (60, 70), 40, RED

        PAINT (60, 70), RED, RED

    ELSEIF Figure$ = "CIRCLE" AND Box% = 2 THEN

        CIRCLE (170, 70), 40, RED

        PAINT (170, 70), RED, RED

    ELSEIF Figure$ = "CIRCLE" AND Box% = 3 THEN

        CIRCLE (280, 70), 40, RED

        PAINT (280, 70), RED, RED

    ELSEIF Figure$ = "SPECIAL" AND Box% = 1 THEN

        CIRCLE (60, 70), 40, CYAN

        PAINT (60, 70), CYAN, CYAN

        CIRCLE (60, 70), 20, BLUE

        PAINT (60, 70), BLUE, BLUE

    ELSEIF Figure$ = "SPECIAL" AND Box% = 2 THEN

        CIRCLE (170, 70), 40, CYAN

        PAINT (170, 70), CYAN, CYAN

        CIRCLE (170, 70), 20, BLUE

        PAINT (170, 70), BLUE, BLUE

    ELSEIF Figure$ = "SPECIAL" AND Box% = 3 THEN

        CIRCLE (280, 70), 40, CYAN

        PAINT (280, 70), CYAN, CYAN

        CIRCLE (280, 70), 20, BLUE

        PAINT (280, 70), BLUE, BLUE

    ELSEIF Figure$ = "UPTRIANGLE" AND Box% = 1 THEN

        LINE (20, 110)-(100, 110), YELLOW

        LINE -(60, 30), YELLOW

        LINE -(20, 110), YELLOW

        PAINT (60, 70), YELLOW, YELLOW

    ELSEIF Figure$ = "UPTRIANGLE" AND Box% = 2 THEN

        LINE (130, 110)-(210, 110), YELLOW

        LINE -(170, 30), YELLOW

        LINE -(130, 110), YELLOW

        PAINT (170, 70), YELLOW, YELLOW

    ELSEIF Figure$ = "UPTRIANGLE" AND Box% = 3 THEN

        LINE (240, 110)-(320, 110), YELLOW

        LINE -(280, 30), YELLOW

        LINE -(240, 110), YELLOW

        PAINT (280, 70), YELLOW, YELLOW

    ELSEIF Figure$ = "DOWNTRIANGLE" AND Box% = 1 THEN

        LINE (20, 30)-(100, 30), PURPLE

        LINE -(60, 110), PURPLE

        LINE -(20, 30), PURPLE

        PAINT (60, 70), PURPLE, PURPLE

    ELSEIF Figure$ = "DOWNTRIANGLE" AND Box% = 2 THEN

        LINE (130, 30)-(210, 30), PURPLE

        LINE -(170, 110), PURPLE

        LINE -(130, 30), PURPLE

        PAINT (170, 70), PURPLE, PURPLE

    ELSEIF Figure$ = "DOWNTRIANGLE" AND Box% = 3 THEN

        LINE (240, 30)-(320, 30), PURPLE

        LINE -(280, 110), PURPLE

        LINE -(240, 30), PURPLE

        PAINT (280, 70), PURPLE, PURPLE

    ELSEIF Figure$ = "DIAMOND" AND Box% = 1 THEN

        LINE (60, 110)-(100, 70), GREEN

        LINE -(60, 30), GREEN

        LINE -(20, 70), GREEN

        LINE -(60, 110), GREEN

        PAINT (60, 70), GREEN, GREEN

    ELSEIF Figure$ = "DIAMOND" AND Box% = 2 THEN

        LINE (170, 110)-(210, 70), GREEN

        LINE -(170, 30), GREEN

        LINE -(130, 70), GREEN

        LINE -(170, 110), GREEN

        PAINT (170, 70), GREEN, GREEN

    ELSEIF Figure$ = "DIAMOND" AND Box% = 3 THEN

        LINE (280, 110)-(320, 70), GREEN

        LINE -(280, 30), GREEN

        LINE -(240, 70), GREEN

        LINE -(280, 110), GREEN

        PAINT (280, 70), GREEN, GREEN

    END IF

END SUB