Statistics: Posted by burger2227 — Sat May 02, 2020 1:05 pm
Statistics: Posted by MikeHawk — Sat May 02, 2020 10:05 am
Statistics: Posted by Erik — Sat May 02, 2020 3:36 am
Code:
DECLARE SUB test1 ()DECLARE SUB test2 ()DIM something AS STRINGsomething = "anything, really"test1test2ENDSUB test1 SHARED something AS STRING ' SHARED only, not DIM PRINT something ' Prints "anything, really"END SUBSUB test2 PRINT something ' Prints "0", because <something> is undefined in this routine and QB assumes it is an integerEND SUB
Statistics: Posted by MikeHawk — Mon Apr 13, 2020 5:43 am
Code:
DECLARE SUB PrintTerminalNumber()COMMON SHARED TerminalNumber AS STRINGTerminalNumber = "1234"PrintTerminalNumberSUB PrintTerminalNumber PRINT "Terminal Number :"; TerminalNumberEND SUB
Code:
' 1.BASCOMMON myName AS STRINGINPUT "What's your name"; myNameCHAIN "2.BAS"
Code:
' 2.BASCOMMON someName AS STRINGPRINT "So, your name is "; someName
Code:
' 1.BASCOMMON SHARED myName AS STRINGINPUT "What's your name"; myNameCHAIN "2.BAS"
Code:
' 2.BASDECLARE SUB MyRoutine()COMMON SHARED someName AS STRINGMyRoutineSUB MyRoutine PRINT "So, your name is "; someNameEND SUB
Statistics: Posted by MikeHawk — Fri Jan 10, 2020 3:56 pm
Code:
Public sub PrintTerminalNumber Print "Terminal Number :" + TerminalNumberEnd sub
Code:
public sub PrintTermialNumber (byval termID string) Print "Terminal Number :" + termIDEnd sub
Code:
PrintTerminalNumber (TerminalNumber)
Statistics: Posted by gablea — Tue Jan 07, 2020 10:16 am