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,130 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+  Persistable = 0  'NotPersistable
+  DataBindingBehavior = 0  'vbNone
+  DataSourceBehavior  = 0  'vbNone
+  MTSTransactionMode  = 0  'NotAnMTSObject
+END
+Attribute VB_Name = "CEinbauplatz"
+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   : Einbauplatz.cls
+' Date   : 24.03.1999
+' Version: 1.00
+' Author : Reinhard Henning, Andreas Schmidt, lindner&partner
+'
+'==============================================================================
+'
+' Abstraktion eines Einbauplatzes in der Prüfstation
+'
+'==============================================================================
+'
+' History:
+'
+' Date   : 24.03.1999
+' Version: 1.00
+' Author : Reinhard Henning, Andreas Schmidt, lindner&partner
+'
+' Erste dokumentierte Version.
+'
+'==============================================================================
+
+Option Explicit
+
+' Private Member
+' --------------
+Private m_nEinbauplatz As Integer
+Private m_Pruefzaehler As CPruefzaehler
+Private m_bPPWarning As Boolean
+
+Private m_Aktiv As Boolean
+
+
+Public m_Versuche As Integer
+Public m_ImpulseQM As Long
+Public m_ImpulseLwl As Long
+Public m_AnzahlPeriodenPZ As Long
+Public m_strEinbaulage As String
+Private m_Zusatz As String ' FabNr
+Public intErkannteQp As Integer
+
+Public m_lngPruefzeit As Long
+Public m_Status As Integer
+
+Public m_iComport As Integer
+Public m_strMapfile As String
+Public m_strCompareFile As String
+Public m_strFW2LogFile As String
+
+Public fw2_u8_scaling As Integer
+
+Public m_blnPruefbar As Boolean
+Public m_blnJustierbar As Boolean
+
+Public eRegister As CeRegister           ' Verweis auf eRegister
+Public eRegister_inactive As CeRegister  ' Verweis auf eRegister, wenn inaktiv durch Fehler bei der Programmieerung
+
+Public Sub setAktiv(bAktiv As Boolean)
+   m_Aktiv = bAktiv
+End Sub
+
+' @return Nr. des Einbauplatzes
+'
+Public Function getAktiv() As Boolean
+   getAktiv = m_Aktiv
+End Function
+
+Public Sub setZusatz(sDaten As String)
+   m_Zusatz = sDaten
+End Sub
+
+Public Function getZusatz() As String
+   getZusatz = m_Zusatz
+End Function
+
+' @param nEinbauplatzNr Nr. des Einbauplatzes
+'
+Public Sub setNr(nEinbauplatzNr As Integer)
+   m_nEinbauplatz = nEinbauplatzNr
+End Sub
+
+' @return Nr. des Einbauplatzes
+'
+Public Function getNr() As Integer
+   getNr = m_nEinbauplatz
+End Function
+
+' @param Pruefzaehler   Prüfzähler in dem Einbauplatz
+'
+Public Sub setPruefzaehler(Pruefzaehler As CPruefzaehler)
+   Set m_Pruefzaehler = Pruefzaehler
+End Sub
+
+' @return Prüfzähler in dem Einbauplatz
+'
+Public Function getPruefzaehler() As CPruefzaehler
+   Set getPruefzaehler = m_Pruefzaehler
+End Function
+
+' @param bPPWarning true  = Einbauplatz hat einen Prüfpunkt-Problem
+'                   false = Einbauplatz-Status ist OK
+'
+Public Sub setPPWarning(bPPWarning As Boolean)
+    m_bPPWarning = bPPWarning
+End Sub
+
+Public Function getPPWarning() As Boolean
+    getPPWarning = m_bPPWarning
+End Function
+
+
+Private Sub Class_Initialize()
+    m_Aktiv = True
+End Sub