Error in Functions in QB64

Here without function_Title "Qbasic64"
Screen _NewImage(700, 740, 256)
_Delay .25
_ScreenMove 20, 30

Dim terno(60)
For i = 1 To 60
   terno(i) = 0
Next i
dezenas$ = "071940074042153542154042151942154042071935193542193542154042151935071542073540153542071535071940071940071519071542071940071540151935151935354042193540193540"
For i = 1 To Len(dezenas$) Step 2
   dezena$ = Mid$(dezenas$, i, 2)
   dezena = Val(dezena$)
   terno(dezena) = terno(dezena) + 1
Next i
For i = 1 To 50
   If terno(i) > 0 Then
       Print "Dez "; TS2$(i); " h  "; TS2$(terno(i)); " repetidas"
   End If
Next i
Function TS2$ (nn As Long)
   TS2$ = Right$("00" + LTrim$(Str$(nn)), 2)
End Function


AP is correct, you don't need array

_Title "carlos code fix"
Screen _NewImage(700, 600, 32)
_ScreenMove 20, 30

d$ = "071940074042153542154042151942154042071935193542193542154042151935071542073540153542071535071940071940071519071542071940071540151935151935354042193540193540"
For i% = 1 To 50
   count = ContarRepeticoes%(i%, d$)
   If count <> 0 Then Print i%, count
Next i%
Function ContarRepeticoes% (dez, dezenas$)
   For I% = 1 To Len(dezenas$) Step 2
       If Val(Mid$(dezenas$, I%, 2)) = dez Then Contar% = Contar% + 1
   Next
   ContarRepeticoes% = Contar%
End Function


also it might good idea NOT to call the function with the same variable names you used to define the function (you only need that in GOSUBs)
that is the beauty of functions and subs, once they are working you can use them in any program without worry of matching variable names in main code.

also we are using QB64 and would be good idea not to call anything here Qbasic with or without the 64, QBasic was DOS stuff.

Once again, thank you immensely, Bplus. Your example was perfect, just the way I wanted. I will be careful not to use the title 'QBasic' anymore. Thanks for the contribution!"

Carlos

Good evening, Bplus.

This function example is perfect. I have a lot of difficulty creating functions. I'm trying to create the same function, but using an array. In this example it uses string, I'm trying with array

For i% = 1 To 50
   count = ContarRepeticoes%(i%, d$)
   If count <> 0 Then Print i%, count
Next i%
Function ContarRepeticoes% (dez, dezenas$)
   For I% = 1 To Len(dezenas$) Step 2
       If Val(Mid$(dezenas$, I%, 2)) = dez Then Contar% = Contar% + 1
   Next
   ContarRepeticoes% = Contar%
End Function



Try implementing this, I know it's far from working:

Function ContarRepeticoes% (nt() As String, dez As Integer)
   For i% = 1 To UBound(nt())
       For i% = 1 To 44 Step 3
           If Val(Mid$(nt(i%), j%, 2)) = dez Then Contar% = Contar% + 1
       Next
        ContarRepeticoes% = Contar%
End Function
Next i%





For i = 1 To 3
   For j = 1 To 44 Step 3
       num = Val(Mid$(nt$(i), j, 2))
       count(num) = count(num) + 1
   Next j
Next i

For i = 1 To 25
   Locate 4 + i, 6: Color 46: Print TS2$(i); " = ";
   Color 30: Print TS4$(count(i))

Next i
Therefore, I ask again for your help.

Carlos

Bplus, the function is perfect. I really liked it, but, unlike the post that is as a string, I can use it in any part of the code or in other codes. Is this example limited to this code only?
Carlos