option explicit

[Ivan]

Hi,

Although I'm in the middle in a program, I can't resist trying out features in qb64. I'm very pleased to discover, that I don't have to use percent or dollar signs. These signs gives me lot of headache in my current basic, because I overlook them.

And indentions in subs are great. My current basic also lack that.

Option explicit could for my behalf be even more strict. I would welcome forced variable name after next and after end sub. The latter is not allowed.

I have to figure out how I change the error color, when typing something wrong. The colors contrast is hard for me to distinguish between.

String argument to sub..?

Regards,

Ivan

Code: QB64: [Select]

1. option _explicit
2. dim start_int, end_int, counter, step_val as integer
3. dim abc as string * 2
4.  
5. start_int = 2
6. end_int   = 5
7. counter   = 1
8. step_val  = 1
9. abc       = "de"
10.  
11. call test(counter, start_int, end_int, abc)
12.  
13. sub test(num1, num2, num3, text1)
14.   for num1 = num2 to num3
15.     'print num1;","; abc
16.     print num1
17.   next num1
18. end sub test
19.  

[bplus]

You can't change red line for IDE error spotting, but you can change background IDE color?

Some fixes and comments

Code: QB64: [Select]

1. Option _Explicit
2. 'Dim start_int, end_int, counter, step_val As Integer ' <<<<<<<<<<<<<< do you want all these Integers?
3. Dim As Integer start_int, end_int, counter, step_val
4. Dim abc As String * 2 ' fixed string at 2 chars
5.  
6. start_int = 2
7. end_int = 5
8. counter = 1
9. step_val = 1
10. abc = "de"
11.  
12. 'call test(counter, start_int, end_int, abc)    ' <<<< don't need call with ()
13. test counter, start_int, end_int, abc ' <<< without call and without () around arguments
14.  
15. ' just to show you something important when use variables of proper type they could be changed by sub
16. Print "counter now at"; counter
17.  
18.  
19. Sub test (num1 As Integer, num2 As Integer, num3 As Integer, text1 As String) ' <<< looking for a types , best not to depend on default = Single usually
20.     For num1 = num2 To num3
21.         'print num1;","; abc
22.         Print num1
23.     Next num1
24.     'end sub test     ' <<< no test
25. End Sub
26.  
27.  
28.  

Oh man! @Ivan I just noticed all your keywords are lower case and your = signs are lined up like ducks in a row! :O

[Ivan]

No problem - I'm trying to minimize my misreading and this lining up is helping me. I love ducklings... :o) And thanks for helping.

I have not figured out how to concantenate text variables, increment/decrement in short notation and using global variables.

Code: QB64: [Select]

1. ' trying qb64 v2
2. ' Status line says in green: "OK (1 warning - click here or Ctrl to view)
3. ' But I can't find the error...
4.  
5. option _explicit
6. dim number as integer
7. dim abc as string * 8
8. dim as integer num1                                                  ' if not initialized then default value = 0
9. dim as single num3                                                   ' how do I declare globel variables?
10.  
11. number = 2
12. abc    = "de"
13.  
14. print "number before call: "; number
15. print "abc before call   : "; abc
16. call test1(number, abc)
17. print "number after call : "; number
18. print "abc after call    : "; abc
19.  
20.  
21. print
22. print "num1 before sub: "; num1
23. print "abc before sub : "; abc
24. test2 num1, abc
25. print "num1 after sub : "; num1
26. print "abc after sub  : "; abc
27.  
28.  
29. sub test1 (num, text as string)                                      ' num is regarded as local aka call by value
30.   print "1. inside test: num = "; num
31.   num = num + 1                                                      ' how do I increment? (I'm used to: += add one to a variable)
32.   print "2. inside test: num = "; num
33.   text = text + "hj"                                                 ' used to: text += "hj"
34.   print "text: "; text
35. end sub 'test
36.  
37. sub test2 (num2 as integer, text2 as string)                         ' call by reference
38.   num2  = num2 + 5
39.   print "a. text2: "; text2
40.   text2 = text2 + "fg"
41.   print "b. text2: "; text2                                          ' print de     fg     I exspected defg
42. end sub

[bplus]

I have not figured out how to concantenate text variables, increment/decrement in short notation and using global variables.

Concatenate
text3$ = text1$ + text2$ ' "add" as many as you want

Global Variables use SHARED with DIM or REDIM:
DIM (or REDIM for Dynamic Arrays) SHARED x$, arr$(1 to 60), ...

STATIC in a SUB will preserve value between calls to that SUB (I consider that a little more advanced).

increment/decrement in short notation

Not sure what you mean
x += increment   ' <<< does not work in QB64

[bplus]

' Status line says in green: "OK (1 warning - click here or Ctrl to view)
' But I can't find the error...

It also says on line 9 num3 and means nothing wrong you just haven't used that variable yet (it's pretty smart heh? LOL)

Code: QB64: [Select]

1. Dim Shared As Single num3 ' <<<<  declare global variables
2.