Emmanuele Sassi
65 lines
2.6 KiB
VB.net
65 lines
2.6 KiB
VB.net
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
|