BlueM.DLLAdapter: Difference between revisions

From BlueM
Jump to navigation Jump to search
Line 24: Line 24:


==Anwendungsbeispiel==
==Anwendungsbeispiel==
Beispiel zur Nutzung des Bluem.DLLAdapters zur Simulation mittels BlueM.dll in VB.NET:
Beispiel zur Nutzung des Bluem.DLLAdapters zur Simulation mittels BlueM.dll in VB.NET (Anwendung nur mit einer Simulation - ''SingleDLL''):
<vbnet>
<vbnet>
'Einmal zu Beginn instanzieren
bluem_dll = New BlueM_EngineDotNetAccess("Pfad-zu-BlueM.dll")
bluem_dll = New BlueM_EngineDotNetAccess("Pfad-zu-BlueM.dll")
...


Try
Try

Revision as of 05:22, 10 July 2008

BlueM.DLLAdapter ist ein .NET Wrapper zum Ansprechen des BlueM Rechenkerns in DLL-Form.

Schnittstellendefinitionen

Klassendiagramm

Nachfolgend werden die Schnittstellen-Methoden zur Kommunikation mit der BlueM DLL mit den zugehörigen Übergabe- bzw. Rückgabeparametern aufgelistet.

Falls ein Fehler auftritt wird die Methode CreateAndThrowException aufgerufen (schmeisst einen Fehler).

Basismethoden

Initialize <csharp>public void Initialize(string filePath)</csharp>

filePath ist der Absolute Pfad mit dem Projektnamen ohne die Dateiendung .ALL (Bsp.: "D:\Simulation\TSIM").
Das System wird initialisiert und alle zugehörigen Daten aus den Simulationsdateien geladen.

PerformTimeStep <csharp>public void PerformTimeStep()</csharp>

Berechnet den nächsten Zeitschritt.

Finish / Dispose <csharp>

public void Finish()
public void Dispose()

</csharp>

Schliessen aller Dateien und Freigabe des Speichers

Anwendungsbeispiel

Beispiel zur Nutzung des Bluem.DLLAdapters zur Simulation mittels BlueM.dll in VB.NET (Anwendung nur mit einer Simulation - SingleDLL): <vbnet> 'Einmal zu Beginn instanzieren bluem_dll = New BlueM_EngineDotNetAccess("Pfad-zu-BlueM.dll")

...

Try

   Call bluem_dll.Initialize("Pfad-zu-Datensatz")
   Dim SimEnde As DateTime = BlueM_EngineDotNetAccess.DateTime(bluem_dll.GetSimulationEndDate())
   'Schleife über Simulationszeitraum 
   Do While (BlueM_EngineDotNetAccess.DateTime(bluem_dll.GetCurrentTime) <= SimEnde)
       Call bluem_dll.PerformTimeStep()
   Loop
   'Simulation abschliessen
   Call bluem_dll.Finish()
   'Simulation abgeschlossen
   MsgBox("Simulation erfolgreich!", MsgBoxStyle.Information, "BlueM")
   simOK = True

Catch ex As Exception

   'Simulationsfehler aufgetreten
   MsgBox(ex.Message, MsgBoxStyle.Exclamation, "BlueM")
   'Simulation abschliessen
   Call bluem_dll.Finish()
   simOK = False

Finally

   'Ressourcen deallokieren
   Call bluem_dll.Dispose()

End Try </vbnet>