Starting Subs and Functions

@carlos remind me what you were doing before you tried to put this stuff in a Sub.

tell you what, lets start with something very simple.

Input "Please enter your name ";name$
Print "Hello ";names;" welcome to my world."


that's the whole program, now we make a sub about the Print part.

Input "Please enter your name ";name$
Hello name$, "welcome to the world of Subs!"

Sub Hello (yourNamehere$, message$)
  Print "Hello ";yourNameHere$;" ";message$
end sub


' How about we make a deck a n cards
Dim deck(1 To 25)
MakeDeck deck()

' Shuffle n cards
ShuffleDeck deck()

' Pick first 15 cards from deck and order those cards
PrintOrder deck(), 15

Sub MakeDeck (cards()) 'assume base 1, cards start at 1
   For i = 1 To UBound(cards)
       cards(i) = i
   Next

   ' debugg check shuffle
   'For i = 1 To UBound(cards)
   '    Print cards(i);
   'Next
   'Print
End Sub

Sub ShuffleDeck (cards()) 'assume base 1, cards start at 1
   For i = UBound(cards) To 2 Step -1
       Swap cards(i), cards(Int(Rnd * i) + 1)
   Next
   ' debugg check shuffle
   'For i = 1 To UBound(cards)
   '    Print i; "="; cards(i);
   'Next
   'Print: Print
End Sub

Sub PrintOrder (cards(), ncards)
   For i = 1 To UBound(cards)
       For j = 1 To ncards
           If cards(j) = i Then
               count = count + 1
               If count > ncards Then Exit Sub
               Print cards(j);
           End If
       Next
   Next
End Sub


It's easier to understand whats going on when main code is broken into small self contained segments.

Function GerarNumerosdeck (deckOfNumbers As Integer) ' <<< this function is setup to return a default single type
   Randomize Timer
   'Dim deckOfNumbers(25) As Integer
   Dim i As Integer, e As Integer
   Dim count As Integer
   Dim numeros(1 To 15) As Integer
   For i = 1 To 25
       deckOfNumbers(i) = i
   Next
   For i = 25 To 2 Step -1
       Swap deckOfNumbers(i), deckOfNumbers(Int(Rnd * i) + 1)
   Next
   ReDim order(1 To 25) As Integer
   For i = 1 To 15
       order(deckOfNumbers(i)) = True
   Next
   count = 0
   For e = 1 To 25
       If order(e) Then
           count = count + 1
           numeros(count) = e
       End If
   Next
   For i = 1 To 15
       Print #1, "Number inside the function "; i; " : "; numeros(i)
   Next i
   GerarNumerosdeck = deckOfNumbers() ' <<<< in QB64 you can not assign an array to a function
End Function




You can't pass arrays through Function Names*  in QB64. Names* has been edited in after misunderstanding, sorry.
EDIT 2 (2024-08-19 8:53 AM Eastern Standard Time) To be super technically correct, You can't ASSIGN Arrays to Function Names. "Pass" was the wrong word to use. Again I am sorry carlos45 if this caused misunderstanding between us. Assign means setting a Type of Value to a variable and Function Names do act as a kind of variable that has a Type ie you can Print a function name providing the arguments it needs, you can not Print a sub name even if you provide it's arguments.

I am trying to tell you carlos45 to learn subs and functions, you need to play around with less complex things, you are trying to jam a programs worth of code into a function. Your function above can't possibly work.

Functions are usually returning something and if you don't want a default single Type to be return put an % at end of Function name for an Integer, or "&" at end for a Long Integer or an $ at the end of name for a String or a # for a Double Type, and once again you can't pass arrays of any type through the function name.

Once again I think you want a Sub not a Function. Subs can change Shared arrays and you dont have to pass arrays around as arguments, allot easier.

Bplus, does that mean there is no way to call this number generating block with a function? Is that it?


   GerarNumerosdeck% = deckOfNumbers%
End Function

Bplus, I understand that there may be confusion between SUB and function. What I really need is to manipulate array inside a function, not a SUB. The difference is that a function returns a value and can be used in expressions, while a SUB just executes a block of code without returning a value. I'm trying to use a function to manipulate and return results from an array, and not just execute code. Could you help me understand how to implement this correctly?