Imports EgtUILib
Imports EgtWPFLib5

Public Class Nc_Debug
   Inherits Nc_Parent

   Private m_sDebugFilePath As String = Map.refMainWindowVM.MainWindowM.sConfigDir & "\Nc_Debug.ini"
   Private m_nTime As Integer = 0

   Private IntBuffer As Integer = 0
   Private DoubleBuffer As Double = 0
   Private StringBuffer As String      ' Buffer  

   Friend Overrides Function InitConnection() As Boolean
      Return True
   End Function

   Friend Overrides Sub CloseConnection()
   End Sub

   Friend Overrides Function ReadInt(DBNumber As Integer, Start As Integer, ByRef Value As Integer) As Boolean
      Value = GetPrivateProfileInt(m_nTime.ToString, DBNumber & "." & Start, 0, m_sDebugFilePath)
      Return True
   End Function

   Friend Overrides Function WriteInt(DBNumber As Integer, Start As Integer, Value As Int16) As Boolean
      Return WritePrivateProfileString(m_nTime.ToString, DBNumber & "." & Start, Value.ToString, m_sDebugFilePath)
   End Function

   Friend Overrides Function ReadDInt(DBNumber As Integer, Start As Integer, ByRef Value As Integer) As Boolean
      Value = GetPrivateProfileInt(m_nTime.ToString, DBNumber & "." & Start, 0, m_sDebugFilePath)
      Return True
   End Function

   Friend Overrides Function WriteDInt(DBNumber As Integer, Start As Integer, Value As Integer) As Boolean
      Return WritePrivateProfileString(m_nTime.ToString, DBNumber & "." & Start, Value.ToString, m_sDebugFilePath)
   End Function

   Friend Overrides Function ReadBool(DBNumber As Integer, Start As Integer, ByRef Value As Boolean) As Boolean
      Value = If(GetPrivateProfileInt(m_nTime.ToString, DBNumber & "." & Start, 0, m_sDebugFilePath) <> 0, True, False)
   End Function

   Friend Overrides Function WriteBool(DBNumber As Integer, Start As Integer, Value As Boolean) As Boolean
      Return WritePrivateProfileString(m_nTime.ToString, DBNumber & "." & Start, If(Value, 1, 0).ToString, m_sDebugFilePath)
   End Function

   Friend Overrides Function ReadReal(DBNumber As Integer, Start As Integer, ByRef Value As Double) As Boolean
      Value = GetPrivateProfileDouble(m_nTime.ToString, DBNumber & "." & Start, 0, m_sDebugFilePath)
      Return True
   End Function

   Friend Overrides Function WriteReal(DBNumber As Integer, Start As Integer, Value As Single) As Boolean
      Return WritePrivateProfileString(m_nTime.ToString, DBNumber & "." & Start, DoubleToString(Value, 3), m_sDebugFilePath)
   End Function

   Friend Sub SetTime(nTime As Integer)
      m_nTime = nTime
   End Sub

   Friend Sub IncrementTime()
      m_nTime += 1
   End Sub

End Class