Port oder Alias an Funktion als Parameter?

[luvat]

jo soll ne sub sein keine funktion. sorry.
Das mit der 0 kann ich dir sogar erklären   Das hat damit zu tun, dass ein String nichts anders als ein char array ist. und diese fangen mit 0 an zu zählen.

Also zum topic: ich möchte einen RGB Fader proggen. Dafür brauche ich eine SUB, an welche ich die beiden LEDs bzw. ports übergeben kann, welche gedimmt werden sollen.

wenn ich es so machen kann, dass port und pin jeweils als string übergeben werden kann, müsste die sub folgendermaßen aussehen?!:


Könnte ich dann in der sub als beispiel so die leds schalten?

Sub Dimmen(byval port1in As String, Byval pin1in As String, byval port2in As String, Byval pin2in As String)
For X = 0 To 500
   For Y = 1 To 500
      If X > Y Then
         port1in.pin1in = Onoff1
         port2in.pin2in = Onoff2
      Else
         port1in.pin1in = Not Onoff1
         port2in.pin2in = Not Onoff2
      End If
   Next
Next
port1in.pin1in = Onoff1
port2in.pin2in = Onoff2
Waitms 1000
end sub

Falls ja, wäre das ja die Lösung. ... muss ich dann heute abend ma testen :>