this is just not my day why does this happen

[badger]

Hello

If i run the following code the program works but the second code posting does not work why LOL

Again Thanks in Advance

Badger

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.  

Code: QB64: [Select]

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

[Richard Frost]

The problem is the variable "i".  You've got it defined as an INTEGER and it needs to be SINGLE.

It is SINGLE by default in the top bit of code, since the DEFINE is commented out.

[bplus]

I fixed the openScr code as SUB in a .BM file (NOT .BI) in the other thread.

https://www.qb64.org/forum/index.php?topic=3146.msg124160#msg124160

[badger]

hey

slap me please i did not catch that. ugg my mind is slow today

Badger

[bplus]

Yeah I missed something in my fix, sorry I forgot to call openScr before starting the inputs, fixed now.

Also added some advice of when to use .BI and .BM and when not.