Shared common variables

[Andrew Gable]

Hi everyone,

I have just started to develop once again in qbasic and for the love of everything I can not remember how to share a variable between modules

Before the main function runs I have declared

Common shared TerminalNumber as string

But I can not seem to access it from another function

Example

Public sub PrintTerminalNumber
Print TerminalNumber
End sub

How do I allow the printTerminalNumber sub access to the TerminalNumber?

I even have tried to declare it like

public sub PrintTermialNumber (byval termID string)

And the. Run call PrintTerminalNumber (TerminalNumber) but it print a blank entry

I would appreciate any help or example
Code on this


Thanks

Andy

 

[mikrom]

What compiler are you using? Original old DOS QBasic or QB64?

 

[Andrew Gable]

I'm using PDS 7.1 as well as vbdos

 

[mikrom]

I tried it only in QB64.
Passing data to subroutines as parameters or via shared variables works like in this example:

mainpgm.bas

DIM a AS STRING
DIM SHARED b AS STRING
COMMON SHARED c AS STRING

CLS

a = "foo"
b = "bar"
c = "baz"
PRINT "Main program:"
PRINT "a = " + a
PRINT "b = " + b
PRINT "c = " + c

CALL sub1(a$)

CALL sub2(a$)

END
'------------ subroutine -----------
SUB sub1 (x$)
    PRINT "* calling SUB1:"
    'a is not normally visible in SUB1, it must be SHARED
    SHARED a$
    PRINT "  a = " + a$
    PRINT "  b = " + b$
    PRINT "  c = " + c$
    PRINT "  x = " + x$
    PRINT "**"
END SUB

'--------- included module ---------
'$INCLUDE: 'module01.BM'

module01.bm

SUB sub2 (x$)
    PRINT "* calling SUB2 from the module:"
    'a is not normally visible in SUB2, it must be SHARED
    SHARED a$
    PRINT "  a = " + a$
    PRINT "  b = " + b$
    PRINT "  c = " + c$
    PRINT "  x = " + x$
    PRINT "**"
END SUB

Output of mainpgm.exe:

 

[Andrew Gable]

I think I just spotted what I need to do

SHARED a$

would i include that like this


SHARED a$

Public sub PrintTerminalNumber
SHARED TerminalNumber 
Print TerminalNumber
End sub

 

[mikrom]

then your issue seems to be resolved