diff --git a/EgtInterface.vb b/EgtInterface.vb index a23242f..b7c6888 100644 --- a/EgtInterface.vb +++ b/EgtInterface.vb @@ -5339,6 +5339,62 @@ Public Function EgtShowOnlyTable(ByVal bVal As Boolean) As Boolean End If End Function + +Private Function EgtSimStart_32() As Boolean +End Function + +Private Function EgtSimStart_64() As Boolean +End Function +Public Function EgtSimStart() As Boolean + If IntPtr.Size = 4 Then + Return EgtSimStart_32() + Else + Return EgtSimStart_64() + End If +End Function + + +Private Function EgtSimMove_32() As Boolean +End Function + +Private Function EgtSimMove_64() As Boolean +End Function +Public Function EgtSimMove() As Boolean + If IntPtr.Size = 4 Then + Return EgtSimMove_32() + Else + Return EgtSimMove_64() + End If +End Function + + +Private Function EgtSimSetStep_32(ByVal dStep As Double) As Boolean +End Function + +Private Function EgtSimSetStep_64(ByVal dStep As Double) As Boolean +End Function +Public Function EgtSimSetStep(ByVal dStep As Double) As Boolean + If IntPtr.Size = 4 Then + Return EgtSimSetStep_32(dStep) + Else + Return EgtSimSetStep_64(dStep) + End If +End Function + + +Private Function EgtSimStop_32() As Boolean +End Function + +Private Function EgtSimStop_64() As Boolean +End Function +Public Function EgtSimStop() As Boolean + If IntPtr.Size = 4 Then + Return EgtSimStop_32() + Else + Return EgtSimStop_64() + End If +End Function + '---------- Scene -------------------------------------------------------------- diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 5b52d82..35260c0 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices ' utilizzando l'asterisco (*) come descritto di seguito: ' - - + +