ARRAY an Sub ider Function übergeben

Hallo Bascomler,

ich versuche verzweifelt nach einem Weg,
wie ich ein Zahlenarray an eine Sub oder Function übergeben kann.

(In anderen Basic Dialekten geht es so oder ähnlich, nur Bascom ist da wieder etwas anders)

Egal was ich mache, immer wieder andere Probleme.

Ist das nicht möglich oder übersehe ich da was.

Keine genaue Dokumataion in der Hilfe


Ich verwende das Bascaom 1.11.8.1

Code:

---

' Àrray Demo
'
'

  $regfile = "m32def.dat"
  Baud = 19200

  Dim B_ar_werte(5) As Byte
  Dim X As Byte

  Declare Sub Arrayanzeigen(b_array(5) As Byte)



  For X = 1 To 5                                            ' einfache Schleife
    B_ar_werte(x) = X                                      ' Dem Array Werte Zuweisen
  Next X


  Print "Von Mainroutine aus :"                            ' Zum Beweis dass es hier funktioniert
  For X = 1 To 5                                          ' einfache Schleife
      Print "Folgender Wert ist in B_ar_werte(";
      Print X;
      Print ") enthalten :";
      Print B_ar_werte(x)                                      ' Inhalt des Arrays anzeigen.
      Print
  Next X

  Call Arrayanzeigen(b_ar_werte(5))                        ' Sub aufrufen und Array übergeben




  Do                                                      ' nur damit der Simulator weiter läuft
      nop
  Loop

  End                                                      'end program

  ' --------------------------------------------------------------------------

  Sub Arrayanzeigen(b_array(5) As Byte)
  Local Y As Byte

  Print "Von Suboutine aus :"

  For Y = 1 To 5                                          ' einfache Schleife
      Print "Folgender Wert ist in B_ar_werte(";
      Print Y;
      Print ") enthalten :";
      Print B_array(y)                                      ' Inhalt des Arrays anzeigen.
            ' Beim Compilieren kommt (nur in der SUB) Numeric parameter expected ???
      Print
  Next Y


  End Sub

  ' --------------------------------------------------------------------------

  End

---

Ich habe die Sub auch schon mit BYVAL (Sub Arrayanzeigen(Byval b_array(5) As Byte)) deklariert dann geht es auch nicht.
Kann mir jemand helfen?