ARRAY an Sub ider Function übergeben

[darwin.nuernberg]

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


' À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?