Folge 3 – Unterschied SUB / FUNCTION

In dieser Episode geht es um den Unterschied zwischen einer Sub und einer Function.

Und an dieser Stelle der Code der im Makro vorhanden ist.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Dim intFlaeche As Integer
Sub main()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    Debug.Print "Vor Zuweisung: " & intFlaeche
    'intFlaeche = flaeche(5)
    flaeche2 6
    Debug.Print "Nach Zuweisung: " & intFlaeche
End Sub
Function flaeche(intSeitenlaenge As Integer)
    flaeche = intSeitenlaenge * intSeitenlaenge
End Function
Sub flaeche2(intSeitenlaenge As Integer)
    intFlaeche = intSeitenlaenge * intSeitenlaenge
End Sub
1
2
3
4
5
6
7
8
9
Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    solidworks_object swApp
End Sub
Sub solidworks_object(swApp As SldWorks.SldWorks)
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
End Sub

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert