Num funzionante

2021-11-03 18:51:05 +01:00
parent 95d5baebc9
commit fa0bdaba59
14 changed files with 1488 additions and 417 deletions
@@ -40,7 +40,7 @@

 End Class

-Class ThreadCommand
+Public Class ThreadCommand

   Private m_CommandType As CommandTypes
   Public ReadOnly Property CommandType As CommandTypes
@@ -119,7 +119,7 @@ Class ThreadCommand
   End Function
   Public Shared Function CreateReadCommand(sVariable As String) As ThreadCommand
      Dim NewCommand As ThreadCommand = New ThreadCommand
-      NewCommand.m_CommandType = CommandTypes.READ
+      NewCommand.m_CommandType = CommandTypes.READ_TPA
      NewCommand.m_sVariables(0) = sVariable
      Return NewCommand
   End Function