Array in eine Subroutine packen

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,
ich brauche mal kurz Hilfe für ein wahrlich triviales Problem:
Ich habe ein Array ‚rfnummerbw‘ mit sehr vielen Einträgen. Ich möchte aus Gründen der Übersichtlichkeit das Array in ein Modul verschieben und es in den u.g. Code irgendwie einbinden.

Dim rfnummer(6 to 10) as integer, garnnummer(0 to 4) as integer,
rfgewicht(0 to 4) as single
For x = 0 To 4
garnnummer(x) = Round(Val(c20(x).Text), 0)

'das folgende Array soll weg in ein Modul:

rfnummerbw(6) = 450
rfnummerbw(8) = 355
rfnummerbw(10) = 28

’ Und dann hier wieder rein

If Int(garnnummer(x)) / 2 - Int(Int(garnnummer(x)) / 2) 0 Then
rfgewicht(x) = rfnummerbw(garnnummer(x) - 1)
Else
rfgewicht(x) = rfnummerbw(garnnummer(x))
End If
Next x

**Total auf dem Schlauch steh**

Gruß
Wolf-Dieter

#2

Hallo,

wenn Du auf das Array von überall aus zugreifen möchtest, mußt Du es im Modul als Public deklarieren.

Public rfnummerbw() As Integer … etwa.

Gruß, Rainer

#3

Hallo Rainer,
das ist klar (public sub rfnummerbw()), aber wie?
Ich scheitere immer an der Variablenübergabe. :frowning:

Gruß
Wolf-Dieter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Hallo,

wenn Du auf das Array von überall aus zugreifen möchtest, mußt
Du es im Modul als Public deklarieren.

Public rfnummerbw() As Integer … etwa.

Gruß, Rainer

Hallo Rainer,
das ist klar (public sub rfnummerbw()), aber wie?
Ich scheitere immer an der Variablenübergabe. :frowning:

nein, Mißverständnis.

Nicht ‚Public Sub‘, das wäre ja eine Prozedur.

Statt ‚Dim rfnummerbw(6 to 10)‘ (Die Zahlen sind vermutlich anders, das spielt hier aber keine Rolle)
schreibst Du im Modul in der Deklaration:

‚Public rfnummerbw(6 to 10)‘

Das macht das Selbe wie ‚Dim …‘, aber eben global für das gesamte Programm. Du kannst dann auf das Array aus dem gesamten Programm zugreifen eine ‚Übergabe‘ brauchst Du nicht.

Gruß, Rainer

#5

nein, Mißverständnis.

Nicht ‚Public Sub‘, das wäre ja eine Prozedur.

Statt ‚Dim rfnummerbw(6 to 10)‘ (Die Zahlen sind vermutlich
anders, das spielt hier aber keine Rolle)
schreibst Du im Modul in der Deklaration:

‚Public rfnummerbw(6 to 10)‘

Das macht das Selbe wie ‚Dim …‘, aber eben global für das
gesamte Programm. Du kannst dann auf das Array aus dem
gesamten Programm zugreifen eine ‚Übergabe‘ brauchst Du nicht.

Gruß, Rainer

Hallo Rainer,
funktioniert prima. Vielen Dank für den Tipp!

Gruß
Wolf-Dieter