Zitat:

Erstelle eine Basisklasse "Axis" unbd leite spezifische Achsenklassen davon ab.

'Definition der Achsen 
  Dim X As New Axis(Axis.Type.A, Port1, "0", 100, 1) 'z.B. vom Typ A
  Dim Y As New Axis(Axis.Type.A, Port2, "0", 100, 1) 'z.B. vom Typ A
  Dim Z As New Axis(Axis.Type.B, Port3, "0", 100, 1) 'z.B. vom Typ B

'Definition der Achsen 
  Dim X As New AxisA(Port1, "0", 100, 1) 'z.B. vom Typ A
  Dim Y As New AxisA(Port2, "0", 100, 1) 'z.B. vom Typ A
  Dim Z As New AxisB(Port3, "0", 100, 1) 'z.B. vom Typ B

Public Class Main
 
	Private Sub Main()
                'Definition der Achsen 
		Dim X As New Axis(Axis.Type.A, Port1, "0", 100, 1) 'z.B. vom Typ A
		Dim Y As New Axis(Axis.Type.A, Port2, "0", 100, 1) 'z.B. vom Typ A
		Dim Z As New Axis(Axis.Type.B, Port3, "0", 100, 1) 'z.B. vom Typ B, andere 
' Routinen nötig
 
                'Befehle zu den Achsen
		X.Home()
		Y.Home()
		Z.Home()
	End Sub
 
End Class

Public Class Axis
 
    Sub New(Typ as .., ByVal Port As SerialPort, ByVal ...)
 
        'Hier wird je nach Typ (A oder B) die Variable Achse definiert
        Select Case Typ
            Case Type.A
		 Dim Achse As New A(Port, ,...)
            Case Type.B
		 Dim Achse As New B(Port, ...)
            Case Type.Zaber
        End Select
 
    End Sub
 
 
    Sub Home()
          'Je nach Typ (A oder B) wird hier die Routine A.Home() oder B.Home() 
          ' aufgerufen
	  Achse.Home()
    End Sub
 
 
End Class

   X.Home()
   Y.Move(20)
   Z.Speed = 100
   ...

		Dim X As New Axis(Axis.Type.A, Port1) 'z.B. vom Typ A
		Dim Y As New Axis(Axis.Type.A, Port2) 'z.B. vom Typ A
		Dim Z As New Axis(Axis.Type.B, Port3) 'z.B. vom Typ B

Public Class Axis
 
    Sub New(Typ as .., ByVal Port As SerialPort, ByVal ...)
 
        'Hier wird je nach Typ (A, B ,,,, ) die Variable Achse definiert
        Select Case Typ
            Case Type.A
		 Dim Achse As New A(Port, ,...)
            Case Type.B
		 Dim Achse As New B(Port, ...)
            '....
            '.... ca. 6-7 mögliche Achsen-Typen 
 
        End Select
 
    End Sub
 
 
    Sub Home()
          'Je nach Typ von "Achse" wird hier die Routine A.Home() oder B.Home() 
          ' ...  aufgerufen
	  Achse.Home()
    End Sub
 
    Sub Move()
          Achse.Move()
    End Sub
 
    '....
    '....  ca. 10-15 mögliche Befehle
 
 
End Class

Public Interface AxisMethods
    Sub Home()
End Interface
 
Public MustInherit Class Axis
    Implements AxisMethods
 
    Public MustOverride Sub Home() Implements AxisMethods.Home
 
End Class
 
Public Class AxisA
    Inherits Axis
 
    Public Overrides Sub Home()
        MsgBox("Home in A")
    End Sub
End Class
 
Public Class AxisB
    Inherits Axis
 
    Public Overrides Sub Home()
        MsgBox("Home in B")
    End Sub
End Class
 
 
Public Class Motor
    Dim _axe As Axis
 
    Public Sub New(axe As Axis)
        _axe = axe
    End Sub
 
    Public Sub Home()
        _axe.Home()
    End Sub
End Class

Dim a As New AxisA
Dim m1 As New Motor(a)
m1.Home()
 
Dim b As New AxisB
Dim m2 As New Motor(b)
m2.Home()

'das geht ja leider nicht:
select case typ_m1
   case "A":  Dim a As New AxisA
   case "B":  Dim a As New AxisB
end select
 
select case typ_m2
   case "A":  Dim b As New AxisA
   case "B":  Dim b As New AxisB
end select
 
Dim m1 As New Motor(a)
Dim m2 As New Motor(b)
 
m1.Home()
m2.Home()

Zitat:

Wie kann ich bei der Erzeugung einer neuen Instanz einer Klasse eine Variable definieren (Name fest, Typ aber vorher unbekannt), die dann in der Klasse zur Verfügung steht?

Public Class Beispiel(Of T)
 
  Sub New(ByVal ValueIN As T)
 
  End Sub
 
End Class

Public Class Motor
    Implements AxisMethods
 
    Dim _axe As Axis
 
    Public Sub New(axe As Axis)
        _axe = axe
    End Sub
 
    Public Property axe() As Axis
        Set(value As Axis)
            _axe = value
        End Set
        Get
            Return _axe
        End Get
    End Property
 
 
    Public Sub Home() Implements AxisMethods.Home
        _axe.Home()
    End Sub
End Class

'Achse ab Werk (A)
Dim a As New AxisA
Dim m1 As New Motor(a)
m1.Home()
 
'Auswechslung der Achse (B)
Dim b As New AxisB
m1.axe = b
m1.Home()

Public Class AxisA
    Inherits Axis
 
    'eine interne Referenz der fest zugeordneten Hardware-bezogenen Klasse
    Private _hwa As HardwareAchseA
 
    'Übergabe einer Instanz von HardwareAchseA
    Public Sub New(hwa as HardwareAchseA)
        _hwa = hwa
    End Sub
 
    Public Overrides Sub Home()
 
        '_hwa.home oder ähnlich
        'Aufruf der Methoden von hwa, 
        'die Home ermöglichen
    End Sub
End Class

Public Class Axis
    Private Achse As Object
    Sub New(Typ as TypA, ByVal Port As SerialPort, ByVal ...)
 
 
    End Sub
    Sub New(Typ as TypB, ByVal Port As SerialPort, ByVal ...)
 
 
    End Sub
    Sub New(Typ as TypC, ByVal Port As SerialPort, ByVal ...)
 
    End Sub
    Sub Home()
 
    End Sub
 
 
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus

Public Class Form 1
 
Dim a As New AxisA
Dim m1 As New Motor(a)
m1.Home()
 
Dim b As New AxisB
Dim m2 As New Motor(b)
m2.Home()
 
End Class

Public Class Form1
 
   'Formular-Ebene
   Dim a As New AxisA
   Dim m1 As New Motor(a)
 
   Dim b As New AxisB
   Dim m2 As New Motor(b)
 
 
   Private Sub Form1_Load(sender As System.Object, _
                e As System.EventArgs) Handles MyBase.Load  
 
      'Routinen-Ebene
      m1.Home()
      m2.Home() 
 
      m1.axe = b 'Einbau einer anderen Achse per Property
      m1.Home()
 
  End Sub
 
End Class

Zitat:

"Functions" und "Subs" können nur innerhalb des Codes von "Functions", "Subs" oder "Properties" gerufen werden.

   Dim m1 As New Motor("A")
   Dim m2 As New Motor("B")
 
   m1.Home()
   m2.Home()

Public Class Motor
    Implements AxisMethods
 
    Dim _axe As Axis
 
    Public Sub New(ByVal t As String)
        Select Case t
            Case "A"
                Dim a As New AxisA
                _axe = a
            Case "B"
                Dim b As New AxisB
                _axe = b
        End Select
    End Sub
 
 
    Public Sub Home() Implements AxisMethods.Home
        _axe.Home()
    End Sub
 
End Class