Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Ivan on May 09, 2021, 05:08:04 am

Title: option explicit
Post by: Ivan on May 09, 2021, 05:08:04 am
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]
  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.  

Title: Re: option explicit
Post by: bplus on May 09, 2021, 12:03:25 pm
You can't change red line for IDE error spotting, but you can change background IDE color?

Some fixes and comments
Code: QB64: [Select]
  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
  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
Title: Re: option explicit
Post by: Ivan on May 10, 2021, 04:26:06 am
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.  
  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.  
  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


Title: Re: option explicit
Post by: bplus on May 10, 2021, 12:35:51 pm
Quote
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).

Quote
increment/decrement in short notation
Not sure what you mean
x += increment   ' <<< does not work in QB64
Title: Re: option explicit
Post by: bplus on May 10, 2021, 12:38:46 pm
Quote
' 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.  
Text Only | Text with Attachments