Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Kiara87 on December 16, 2020, 06:57:12 pm

Title: exercise error
Post by: Kiara87 on December 16, 2020, 06:57:12 pm

a new exercise that gives an error in line 6


called by gosub
and after pressing enter a second error in line 14

Code: QB64: [Select]
  1. COLOR 0, 2: CLS: COLOR 14, 4: PRINT SPACE$(240)
  2. LOCATE 2, 30: PRINT "****SCELTA MULTIPLA***";
  3. LOCATE 4, 1: PRINT STRING$(80, "_");: COLOR 0, 2
  4. LOCATE 10, 25: PRINT "Ti stai divertendo con questo programma?";
  6.     PLAY "L62 04 T250 D G G D G# A A 03 D G G D A A# A# 02 D G G D A# B B"
  7.     LOCATE 13, 29, 1: PRINT "<S>i.  <N>o.  <F>orse";
  8.     LOCATE 15, 40
  9.     r$ = UCASE$(INPUT$(1)) 'ottiene input dall'utente
  10.     ON INSTR("SNF", r$) GOSUB Si, No, Forse 'salta a si,no o forse
  11. LOOP WHILE risposta$ = ""
  12. LOCATE 18, 40 - (LEN(risposta$) \ 2)
  13. PRINT risposta$;
  14. PLAY tono$
  16.  
  17. Forse:
  18. tono$ = "T255 L15 01 A D C E F A 02 D E F A E C"
  19. risposta$ = "il tuo suono e' indeciso!"
  21.  
  22. Si:
  23. tono$ = "L8 02 T240 D.. E. P16 ML A G B."
  24. risposta$ = "il tuo suono e' assai positivo!"
  26.  
  27. No:
  28. tono$ = "T200 0314 G C D E L2 F L4 E C L2 D P64 D L4 E L1C"
  29. risposta$ = "il tuo suono e veramente negativo!"
  31.  

Is it possible to learn from this book that I bought on paper if there has always been an error in the examples?
Title: Re: exercise error
Post by: Dav on December 16, 2020, 07:03:12 pm
Those look like 0's (Zero) in the PLAY statements.  That would give an error.  Should probably be the letter O instead.  Change them to like:    PLAY "L62 o4 T250 D G G D G# A A o3 D G G D A A# A# o2 D G G D A# B B" and see if it goes away.

- Dav

Edit:  I changed them and it seems to run now.  Sometimes a Capitol O and 0 (zero) looks alike on paper.  I made them a small o in the code so you can see what was changed.

Code: QB64: [Select]
  1. COLOR 0, 2: CLS: COLOR 14, 4: PRINT SPACE$(240)
  2. LOCATE 2, 30: PRINT "****SCELTA MULTIPLA***";
  3. LOCATE 4, 1: PRINT STRING$(80, "_");: COLOR 0, 2
  4. LOCATE 10, 25: PRINT "Ti stai divertendo con questo programma?";
  6.     PLAY "L62 o4 T250 D G G D G# A A o3 D G G D A A# A# 02 D G G D A# B B"
  7.     LOCATE 13, 29, 1: PRINT "<S>i.  <N>o.  <F>orse";
  8.     LOCATE 15, 40
  9.     r$ = UCASE$(INPUT$(1)) 'ottiene input dall'utente
  10.     ON INSTR("SNF", r$) GOSUB Si, No, Forse 'salta a si,no o forse
  11. LOOP WHILE risposta$ = ""
  12. LOCATE 18, 40 - (LEN(risposta$) \ 2)
  13. PRINT risposta$;
  14. PLAY tono$
  16.  
  17. Forse:
  18. tono$ = "T255 L15 o1 A D C E F A o2 D E F A E C"
  19. risposta$ = "il tuo suono e' indeciso!"
  21.  
  22. Si:
  23. tono$ = "L8 o2 T240 D.. E. P16 ML A G B."
  24. risposta$ = "il tuo suono e' assai positivo!"
  26.  
  27. No:
  28. tono$ = "T200 0314 G C D E L2 F L4 E C L2 D P64 D L4 E L1C"
  29. risposta$ = "il tuo suono e veramente negativo!"
  31.  
  32.  
Title: Re: exercise error
Post by: Kiara87 on December 16, 2020, 07:34:21 pm
Quote from: Dav on December 16, 2020, 07:03:12 pm
Those look like 0's (Zero) in the PLAY statements.  That would give an error.  Should probably be the letter O instead.  Change them to like:    PLAY "L62 o4 T250 D G G D G# A A o3 D G G D A A# A# o2 D G G D A# B B" and see if it goes away.

- Dav

Edit:  I changed them and it seems to run now.  Sometimes a Capitol O and 0 (zero) looks alike on paper.  I made them a small o in the code so you can see what was changed.

Code: QB64: [Select]
  1. COLOR 0, 2: CLS: COLOR 14, 4: PRINT SPACE$(240)
  2. LOCATE 2, 30: PRINT "****SCELTA MULTIPLA***";
  3. LOCATE 4, 1: PRINT STRING$(80, "_");: COLOR 0, 2
  4. LOCATE 10, 25: PRINT "Ti stai divertendo con questo programma?";
  6.     PLAY "L62 o4 T250 D G G D G# A A o3 D G G D A A# A# 02 D G G D A# B B"
  7.     LOCATE 13, 29, 1: PRINT "<S>i.  <N>o.  <F>orse";
  8.     LOCATE 15, 40
  9.     r$ = UCASE$(INPUT$(1)) 'ottiene input dall'utente
  10.     ON INSTR("SNF", r$) GOSUB Si, No, Forse 'salta a si,no o forse
  11. LOOP WHILE risposta$ = ""
  12. LOCATE 18, 40 - (LEN(risposta$) \ 2)
  13. PRINT risposta$;
  14. PLAY tono$
  16.  
  17. Forse:
  18. tono$ = "T255 L15 o1 A D C E F A o2 D E F A E C"
  19. risposta$ = "il tuo suono e' indeciso!"
  21.  
  22. Si:
  23. tono$ = "L8 o2 T240 D.. E. P16 ML A G B."
  24. risposta$ = "il tuo suono e' assai positivo!"
  26.  
  27. No:
  28. tono$ = "T200 0314 G C D E L2 F L4 E C L2 D P64 D L4 E L1C"
  29. risposta$ = "il tuo suono e veramente negativo!"
  31.  
  32.  


thanks you were right changing the 0 to or works perfectly
thanks dav
Text Only | Text with Attachments