Initial commit 3

2021-10-01 11:11:04 +02:00
parent 8d9b529721
commit 70e2645059
486 changed files with 279955 additions and 0 deletions
@@ -0,0 +1,54 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior  = 0  'vbNone
+  MTSTransactionMode  = 0  'NotAnMTSObject
+END
+Attribute VB_Name = "CServo"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
+Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
+'==============================================================================
+'
+' File   : Servo.cls
+' Date   : 30.03.1999
+' Version: 1.00
+' Author : Andreas Schmidt, lindner&partner
+'
+'==============================================================================
+'
+' Abstraktion von Servo
+'
+'==============================================================================
+'
+' History:
+'
+' Date   : 30.03.1999
+' Version: 1.00
+' Author : Andreas Schmidt, lindner&partner
+'
+' Erste Version.
+'
+'==============================================================================
+
+Option Explicit
+
+' Private Member
+' --------------
+Private m_nNr As Integer
+Private m_nNennweite As Integer
+Private m_nStellbereich As Integer
+
+' Alle Member neu vorgeben
+'
+Public Sub setMember(nNr%, nNennweite%, nStellbereich%)
+    m_nNr = nNr
+    m_nNennweite = nNennweite
+    m_nStellbereich = nStellbereich
+End Sub
+