QB64SOURCECODE.COM

[TerryRitchie]

All of the links in what I have uploaded now work (tasks 1 through 10). The link to the forward now works and I added links to the QB64 site areas of interest on the bottom of the home page.

It's been taking me anywhere from 1 to 4 days to get each task completed so if you check once a week you'll probably see a few more tasks added. I will also get the asset files download working tonight and as I add more tasks the asset file will get updated with the new content. I'll post an announcement and date on the home page when the asset file needs to be downloaded to get the latest content.

By the way, it was an email from qbkiller101 about a month ago that led me to update the tutorial. He enjoyed doing the "Your Turn" sections of the tutorials and was hoping I would add the ones that were not there. Awesome that someone his age wants to learn programming.

[Dimster]

Thank you very much for this site Terry. I know you are still working on the site, would have any plans for a section on QB64 and mouse control? I haven't gone through the site completely, maybe there is something on working the mouse in there already.

[TerryRitchie]

Task 9: Gathering Input. I cover all aspects of mouse input with example code. The asset file can now be downloaded as well which contains the .BAS files of all code seen in the tasks. Go to Task 1 to download the asset file.

[Dimster]

ah yes - thanks again.

[TerryRitchie]

Task 11 has been added and the asset file updated.

[bplus]

Really great work, glad you are working to complete the lessons, thumbs up!

[Dimster]

Hi Terry - again, sorry if I have missed this but is there a section/paragraph on Sound or String Math? Would you have any plans to add a Search feature? I think it's the color, common sense or just the layout of your Source Code site that has me. Not to mention, when you are not strong in coding, the "ah ha" moments it provides.

[Pete]

Did I hear someone mention string math? Hey Terry, if you want to add that at some point, and if you don't have a routine of your own, you are welcome to look into using mine.

Pete

[TerryRitchie]

Yep, a sound and math section are coming too. I figure there will be 25 sections when completed. The first math tutorial which I happen to working on right now will be the basic commands and their usage.

I'm designing the tutorials to be beginner oriented for the first half. The second half will be advanced topics building on what was learned in the first half. When I get to the advanced topics I'm sure I'll be asking for help and code examples, especially for the higher math, physics, and 3D related topics.

@Dimster Do you mean a section on search engines or a search engine for the site?

@Dimster @Pete String math?

This is what I have laid out for now

Task 1 - Install and setup QB64
Task 2 - Introducing the IDE
Task 3 - Your first program
Task 4 - Introducing variables
Task 5 - Conditions and branching
Task 6 - Looping
Task 7 - Graphics
Task 8 - Subroutines and functions
Task 9 - Gathering input
Task 10 - Variable arrays
Task 11 - String manipulation
Task 12 - Math functions
Task 13 - File input and output
Task 14 - Music and sound effects (end of beginner course)
Task 15 - Game design concepts
Task 16 - Advanced graphics
Task 17 - Sprites and sprite sheets
Task 18 - Collision detection and avoidance
Task 19 - Physics and timing
Task 20 - 3D and OpenGL
Task 21 - Recursion                         (end of advanced course)
Task 22 - Beginner build: Hangman (start of build series)
Task 23 - Intermediate build: Pong
Task 24 - Advanced build: Missile command
Task 25 - Expert build: Pac-Man

[TerryRitchie]

Really great work, glad you are working to complete the lessons, thumbs up!

Thanks :-)

[Pete]

String math as is using string variables instead of numeric variables to get around base 2 computer math errors.

From the thread: https://www.qb64.org/forum/index.php?topic=1093.30 or https://www.tapatalk.com/groups/qbasic/working-on-some-ideas-for-base-10-math-operations--t39442.html

Pete

[OldMoses]

I'm really looking forward to tasks 18 & 19. I've been bumping into those sorts of thorny issues lately.

[Dimster]

Terry - Search the site is what I meant - aka Wiki on Steroids
        - Pete's String Math. Finding some useful uses as it's more forgiving if I didn't DIM the variable correctly or math routine takes the result into Sc Note. Also a little handier with _PrintString
           then covering numeric to string and _Printstring. But I'm unsure of how to get the most out of it.

[TempodiBasic]

Hi Terry
your work is wonderful!
I like the new style of your site!
I like your long project to bring until game building in the last chapters.

If you agree I must stress that the information about _PRESERVE option of REDIM seems to me uncomplete!  (chapter 10)
For now it seems to me that it works only on monodimensional arrays, both of simple type of data both of UDT. In the future it peharps can be extended to multidimensionale arrays.

here a demonstration

Code: QB64: [Select]

1. ' monodimensional single element array
2. REDIM a(1 TO 10) AS INTEGER
3. PRINT " Initialize array a(1 to 10)"
4. _DELAY .3
5. FOR b = 1 TO 10 STEP 1
6.     a(b) = b * 11
7. NEXT b
8.  
9. PRINT "Showing array a(1 to 10)"
10. _DELAY .3
11. FOR b = 1 TO 10 STEP 1
12.     PRINT a(b); " ";
13. NEXT b
14. PRINT
15. PRINT "REDIM array a(1 to 15)"
16. _DELAY .3
17. REDIM _PRESERVE a(1 TO 15)
18. PRINT "Re showing array a(1 to 15)"
19. _DELAY .3
20. FOR b = 1 TO UBOUND(a) STEP 1
21.     PRINT a(b); " ";
22. NEXT
23. PRINT
24.  
25. TYPE poli
26.     a AS INTEGER
27.     b AS STRING * 3
28.     c AS DOUBLE
29. END TYPE
30. REDIM z(1 TO 10) AS poli
31. PRINT "initialize array z(1 to 10) of UDT"
32. _DELAY .3
33. FOR b = 1 TO 10 STEP 1
34.     z(b).a = b
35.     z(b).b = STR$(b)
36.     z(b).c = b / 20
37. NEXT b
38. PRINT "showing z array..."
39. _DELAY .3
40. FOR b = 1 TO 10 STEP 1
41.     PRINT z(b).a; " "; z(b).b; " "; z(b).c; "---"
42. NEXT b
43. PRINT "REDIM z(1 to 15) of UDT"
44. _DELAY .3
45. REDIM _PRESERVE z(1 TO 15) AS poli
46. PRINT "Re showing z(1 to 15) of UDT"
47. _DELAY .3
48. FOR b = 1 TO UBOUND(z) STEP 1
49.     LOCATE 8 + b, 40: PRINT z(b).a; " "; z(b).b; " "; z(b).c; "---"
50. NEXT b
51. _DELAY 3
52. CLS
53. PRINT " now we create a polidimensional array of integer"
54. REDIM z1(1 TO 10, 1 TO 10, 1 TO 10) AS INTEGER
55. PRINT "initialize array z1(1 to 10, 1 to 10, 1 to 10) of integer"
56. _DELAY .3
57. FOR b = 1 TO 10 STEP 1
58.     FOR c = 1 TO 10 STEP 1
59.         FOR d = 1 TO 10 STEP 1
60.             z1(b, c, d) = b
61.             z1(b, c, d) = b * 10
62.             z1(b, c, d) = b * 20
63. NEXT d, c, b ' in multiple next the order is inverse to the entry
64.  
65. PRINT "showing z1 array..."
66. _DELAY .3
67. FOR b = 1 TO 10 STEP 1
68.     FOR c = 1 TO 10 STEP 1
69.         FOR d = 1 TO 10 STEP 1
70.  
71.             PRINT z1(b, c, d); " "; z1(b, c, d); " "; z1(b, c, d); "/";
72. NEXT d, c, b
73. _DELAY 3
74. PRINT "REDIM z1(1 to 15) of UDT"
75. _DELAY .3
76. REDIM _PRESERVE z1(1 TO 15, 1 TO 15, 1 TO 15) AS INTEGER
77. PRINT "Re showing z1(1 to 15,1 to 15 , 1 to 15) integer"
78. _DELAY .3
79. FOR b = 1 TO UBOUND(z1) STEP 1
80.     FOR c = 1 TO UBOUND(z1)
81.         FOR d = 1 TO UBOUND(z1)
82.             PRINT z1(b, c, d); " "; z1(b, c, d); " "; z1(b, c, d); "/";
83. NEXT d, c, b
84.  

Sorry for my pedantry but if you teach with passion and love to transmit knowledge , as I can see, this feedback can be useful.
Thanks to read

[TempodiBasic]

Again a feedback but first a good music to hear
https://www.youtube.com/watch?v=QkF3oxziUI4&list=RDEM0rsUWBCDujUhieAggSXK-g&index=4
please read this only if you have so many patience otherwise go further

about the tip of null string  found by INSTR (chapter 11)  in an any string

Code: QB64: [Select]

1. '-------------------------------
2. ' Variable Declaration Section -
3. '-------------------------------
4.  
5. DIM Answer$
6.  
7. '--------------------------
8. ' Main Program Begins Here-
9. '--------------------------
10. Again:
11. PRINT "Press only Enter key to see the tip"
12. INPUT "Do you play again ?(Y/N)", Answer$
13. PRINT INSTR("Y", UCASE$(Answer$))
14. IF INSTR("Y", UCASE$(Answer$)) GOTO Again ELSE PRINT "Goodbye"

Thanks to read