include directive

[badger]

Hello

I have put some code in a .bi file. i cant gosub the routine it gives label not define how to i get arount this


Badger

[TempodiBasic]

Hi badger

try this code and say me if it works for you

1. create a file saved as included.bm in the same folder of  main code file
opern QB64 and paste this code

Code: QB64: [Select]

1. CLS , 1
2. PRINT "I am here... before TRY1"
3. Try1:
4.  
5. FOR a = 1 TO 5
6.     PRINT a
7. NEXT a
8. IF go = 1 THEN RETURN
9.  
10.  

now save it as included.bm, and then press Ctrl+N to get a new file and paste this other code into it

Code: QB64: [Select]

1. '$include:'included.bm'
2. go = 1
3. SLEEP 2
4. CLS , 4
5. PRINT "I am in main.."
6. SLEEP 1
7. PRINT " Now I go to TRY1"
8. GOSUB Try1
9. END
10.  
11.  

now press F5 to run code! It works fine...

[badger]

hey there

yes that worked here is the code i am trying to use

badger

include file is opening.bi

Code: QB64: [Select]

1. REM ***********************************************************
2. REM **** variable defines for all programs ********************
3. REM ***********************************************************
4. _DEFINE S AS STRING : _DEFINE I AS INTEGER : _DEFINE D AS DOUBLE
5. _DEFINE X AS _INTEGER64 : _DEFINE Z AS _UNSIGNED _INTEGER64
6. _DEFINE L AS LONG : _DEFINE Y AS _UNSIGNED INTEGER
7. _DEFINE Z AS _UNSIGNED LONG
8. REM ***********************************************************
9.  
10. REM ***********************************************************
11. REM **** opening screen ***************************************
12. REM ***********************************************************
13. opnscr:
14. SCREEN 12
15. DIM irow AS INTEGER, icnt AS INTEGER, icstart AS SINGLE, icend AS SINGLE
16. DIM ixrot AS INTEGER, iyrot AS INTEGER, iscale AS INTEGER
17. _FULLSCREEN 'full screen optional
18. icstart = 0: icend = 8 * ATN(1)
19. ixrot = 6: iyrot = 60: iscale = 4
20. irow = 1
21. CIRCLE (320, 240), 15, 9: PAINT STEP(0, 0), 9
22. DO
23.     FOR i = icstart TO icend STEP .04
24.         x = 300 + (iscale * 40 - (irow * ixrot)) * COS(i)
25.         y = 200 + (iscale * 40 - (irow * iyrot)) * SIN(i)
26.         icnt = icnt + 1
27.         COLOR 7: _PRINTSTRING (x, y), "Joyce's Bridal", 0 'display
28.         IF icnt = LEN(text$) * 8 THEN icnt = 0: EXIT DO
29.         _DISPLAY
30.         COLOR 0: _PRINTSTRING (x, y), "Joyce's Bridal", 0 'erase
31.         _DELAY 0.06
32.     NEXT
33. LOOP UNTIL INKEY$ = CHR$(27) 'escape key exit
34. COLOR 15
35. RETURN
36.  
37.  

here is the code i am trying to run

Code: QB64: [Select]

1. REM ********************************************************
2. REM **** test to save one to many records ******************
3. REM ********************************************************
4.  
5. REM ********************************************************
6. REM **** include statements go here ************************
7. REM ********************************************************
8. 'include: 'opening.bi'
9. REM ********************************************************
10. GOSUB opnscr
11. INPUT "first name "; sa
12. INPUT "last name  "; sb
13. INPUT "some data  "; sc
14.  
15.  
16.  
17.  
18.  
19. END
20.  

[bplus]

GOSUBs have to be in same same module or SUB or FUNCTION routine as the call to it.

[badger]

bplus

i was thinking that i will change my way of thinking


badger

my mind is molasses today

[bplus]

You could make openScr a SUB (not GOSUB) and then INCLUDE file (usu .BM) at the bottom of the code using the .BM file.

[badger]

bplus

thats an idea thanks it will only be used once so that will work


Badger

[bplus]

Here's how it works:

Code: QB64: [Select]

1. ' save as open.bm
2. SUB openScr
3.     SCREEN 12
4.     DIM irow AS INTEGER, icnt AS INTEGER, icstart AS SINGLE, icend AS SINGLE
5.     DIM ixrot AS INTEGER, iyrot AS INTEGER, iscale AS INTEGER
6.     _FULLSCREEN 'full screen optional
7.     icstart = 0: icend = 8 * ATN(1)
8.     ixrot = 6: iyrot = 60: iscale = 4
9.     irow = 1
10.     CIRCLE (320, 240), 15, 9: PAINT STEP(0, 0), 9
11.     DO
12.         FOR i = icstart TO icend STEP .04
13.             x = 300 + (iscale * 40 - (irow * ixrot)) * COS(i)
14.             y = 200 + (iscale * 40 - (irow * iyrot)) * SIN(i)
15.             icnt = icnt + 1
16.             COLOR 7: _PRINTSTRING (x, y), "Joyce's Bridal", 0 'display
17.             IF icnt = LEN(text$) * 8 THEN icnt = 0: EXIT DO
18.             _DISPLAY
19.             COLOR 0: _PRINTSTRING (x, y), "Joyce's Bridal", 0 'erase
20.             _DELAY 0.06
21.         NEXT
22.     LOOP UNTIL INKEY$ = CHR$(27) 'escape key exit
23.     COLOR 15
24. END SUB
25.  
26.  
27.  

Code: QB64: [Select]

1. REM ********************************************************
2. REM **** test TO save one TO many records ******************
3. REM ********************************************************
4.  
5. openScr
6.  
7. INPUT "first name "; sa
8. INPUT "last name  "; sb
9. INPUT "some data  "; sc
10.  
11. REM ********************************************************
12. REM **** include .BM files go here ************************
13. REM ********************************************************
14. '$include: 'open.bm'
15. REM ********************************************************
16.  

[bplus]

thats an idea thanks it will only be used once so that will work

Yeah I am thinking only code you might want to use in different app to put that in .BI's and .BM's

Code unique to app should just be used in the app maybe as SUB to get it out of way or unclutter main module.

[Richard Frost]

I have never used INCLUDE because I have enough trouble keeping track of the data files
my programs require.  To split up source code is, methinks, only for way advanced coders.

[TempodiBasic]

Hi badger

I think that the fantastic suggestions of Bplus and RichardFrost are the real solution of your issue!

Nevertheless standing on your original code and on the will to use a GOSUB and a included file...
your first mistake is the line 8 of the main program

Code: QB64: [Select]

1. 'include: 'opening.bi'  

you have eaten $ at the beginning of (mistyping) $include'namefile'
after this correction now if you double click on this line of code in QB64 IDE you get a second window that show you the included file.
BUT if you compile this code you get ERROR return without GOSUB.... so you must run the RETURN instruction into the included file at line 35 of it only after a call to it... to do this you must follow my example using an IF THEN with a flag activated each time you call GOSUB to that label...
this feedback is just to show the logic that you have used behind the construction of your program with GOSUB and $include:'  '.

At the place of doing all these workaround you can use a closed block of code like SUB/END SUB or FUNCTION / END FUNCTION, more  flexible and powered by local variables.

Good Coding

[badger]

TempodiBasic

Thanks for your input. I figured out that i left out the $ symbol. I also needed to use a .bm file instead it would have worked i think. I have an logic error i am tracking down i need to setup what i call a flag veriable to direct the software to ware it needs to go. I have not been feeling well due to arthritis and the weather ugg i hate multiple long rainy days it hurts and my mind turns to mush due to the fact i get really tired and sleepy all day.

i will be back in the sadle i hope tomorrow LOL

Just want to take a minute to say Thanks for all your and every ones help. Your grasp on the qb64 environment is amazing as well as your grasp on programming abilities in general.

Badger