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?