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,107 @@
+Attribute VB_Name = "modPruefformel"
+Option Explicit
+
+
+Global g_objExternePruefformel As ExternePruefformeln.CPruefformeln
+
+Public Function Instanziere_ExternePruefformel_Objekt(ByRef strError As String) As Boolean
+   Dim strGrund As String
+   Dim lngErrNum As Long
+   Dim strErrDesc As String
+   Dim strBenoetigteVersion As String
+   
+   On Error GoTo Errorhandler
+   Set g_objExternePruefformel = Nothing
+   
+   If g_objExternePruefformel Is Nothing Then
+      Set g_objExternePruefformel = New ExternePruefformeln.CPruefformeln
+      
+      
+      Instanziere_ExternePruefformel_Objekt = True
+      
+      ' Überprüfungen
+      strBenoetigteVersion = GetGlobaleEinstellung("Pruefstation_Pruefformeln_DLL", "Benoetigte_Version")
+      If strBenoetigteVersion = "" Then
+         strErrDesc = "Benoetigte Version [GetGlobaleEinstellung Pruefstation_Pruefformeln_DLL / Benoetigte_Version] der externen DLL ist unbekannt! "
+         LogIntoDB strErrDesc, "MEN"
+         MsgBox strErrDesc, vbCritical, "Globale Einstellung fehlt"
+         End
+      End If
+      
+      If g_objExternePruefformel.GetVersion <> strBenoetigteVersion Then
+         strError = "Externe Prüfformel DLL:" & vbCrLf & "Benöigte Version " & strBenoetigteVersion & " <> " & g_objExternePruefformel.GetVersion & " !"
+         Instanziere_ExternePruefformel_Objekt = False
+         Exit Function
+      ' falsche Version
+      Else
+      ' alles OK
+      End If
+      
+      Exit Function
+   End If
+   Exit Function
+Errorhandler:
+   lngErrNum = Err.Number
+   strErrDesc = Err.Description
+   
+   Select Case lngErrNum
+      Case 429
+         strGrund = "Mögliche Ursache: ActiveX-Komponente 'ExternePruefformeln' ist nicht registriert. "
+      Case -2147024894
+         strGrund = "Mögliche Ursache: Die Assembly (ExternePruefformeln.CPruefformeln) ist zwar registriert aber die DLL-Datei (ExternePruefformeln.dll) konnte nicht am registrierten Ort gefunden werden. "
+      Case -2147220999
+         
+      Case 430
+      
+      Case Else
+      
+   End Select
+   
+   strError = "Fehler " & lngErrNum & ": " & strErrDesc & vbCrLf & strGrund
+   
+   DebugMsg "ExternePruefformeln Objekt konnte nicht erzeugt werden. Fehler " & lngErrNum & ": " & strErrDesc & IIf(strGrund <> "", vbCrLf & strGrund, "")
+   LogIntoDB "ExternePruefformeln: Fehler " & lngErrNum & ": " & strErrDesc, "MEN"
+   
+   ' Fehler 430: Klasse unterstützt keine Automatisierung oder unterstützt erwartete Schnittstelle nicht
+   ' Fehler 429: Objekterstellung durch ActiveX-Komponente nicht möglich
+   
+   Exit Function
+   Resume
+End Function
+
+
+'Public Function Errechne_Dichte_Von_Wasser_in_kg_pro_m3(Temperatur As Double) As Double
+'   If g_objExternePruefformel Is Nothing Then
+'      Errechne_Dichte_Von_Wasser_in_kg_pro_m3 = ModMain.DichteVonWasser(Temperatur)
+'      DebugMsg "Interne Berechnung: " & Errechne_Dichte_Von_Wasser_in_kg_pro_m3 & "( T = " & Temperatur & ") = " & Errechne_Dichte_Von_Wasser_in_kg_pro_m3
+'   Else
+'      Errechne_Dichte_Von_Wasser_in_kg_pro_m3 = g_objExternePruefformel.Dichte_Von_Wasser_in_kg_pro_m3(Temperatur)
+'      DebugMsg g_objExternePruefformel.GetLogText
+'   End If
+'End Function
+
+Public Function Errechne_Volumen_Von_Wasser_in_m3(Gewicht As Double, Temperatur As Double) As Double
+   If g_objExternePruefformel Is Nothing Then
+      LogIntoDB "Fataler Fehler in Errechne_Volumen_Von_Wasser_in_m3(): g_objExternePruefformel is nothing.", "MEN"
+      ErrorMsg "Fataler Fehler in Errechne_Volumen_Von_Wasser_in_m3(): g_objExternePruefformel is nothing. Bitte Programmierer benachrichtigen!"
+      End
+      'Errechne_Volumen_Von_Wasser_in_m3 = Gewicht / DichteVonWasser(Temperatur)
+      'DebugMsg "Interne Berechnung: Volumen(Gewicht=" & Gewicht & " kg, Temperatur=" & Temperatur & "°C) = " & Errechne_Volumen_Von_Wasser_in_m3 & " m³"
+   Else
+      Errechne_Volumen_Von_Wasser_in_m3 = g_objExternePruefformel.Volumen_Von_Wasser_in_m3(Gewicht, Temperatur)
+      DebugMsg g_objExternePruefformel.GetLogText
+   End If
+End Function
+
+ ' Fehlerberechnung in Externer DLL, neu RH 30.5.2017
+Public Function Errechne_Relative_Messabweichung_in_Prozent(Messwert As Double, ReferenzWert As Double, ReferenzFehlerInProzent As Double) As Double
+'  Ergebnis = 100 * (Messwert - Referenzwert) / Referenzwert + ReferenzfehlerInProzent;
+   If g_objExternePruefformel Is Nothing Then
+      LogIntoDB "Fataler Fehler: g_objExternePruefformel is nothing", "MEN"
+      ErrorMsg "Fataler Fehler in Errechne_Relative_Messabweichung_in_Prozent(): g_objExternePruefformel is nothing. Bitte Programmierer benachrichtigen!"
+      End
+   Else
+      Errechne_Relative_Messabweichung_in_Prozent = g_objExternePruefformel.GetRelativeMessabweichungInProzent(Messwert, ReferenzWert, ReferenzFehlerInProzent)
+   End If
+End Function
+