From 311f6fca992ee31e37e2e2771bb2d8a5d64a9c26 Mon Sep 17 00:00:00 2001 From: DarioS Date: Tue, 16 Nov 2021 13:49:58 +0100 Subject: [PATCH] OmagCUT 2.3k4 : - cambiata effettivamente la versione del programma. --- My Project/AssemblyInfo.vb | 4 ++-- NcComm/M_Num.vb | 6 +++++- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index ff00a98..b35a75f 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -62,5 +62,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + + diff --git a/NcComm/M_Num.vb b/NcComm/M_Num.vb index 04717ad..48a0906 100644 --- a/NcComm/M_Num.vb +++ b/NcComm/M_Num.vb @@ -1580,7 +1580,11 @@ Namespace Num Public Overrides Sub DPlcVariables_WriteVariables(sz_var_names As String, sz_values As String) Dim value As Short = 0 If Not Short.TryParse(sz_values, value) Then - EgtOutLog("Write variable: " & sz_var_names & ", value:" & sz_values & " failed!") + If Not IsNothing( sz_values) then + EgtOutLog("Write variable: " & sz_var_names & ", value:" & sz_values & " failed!") + Else + EgtOutLog("Write variable: " & sz_var_names & ", value:nothing failed!") + End If Return End If Dim _ret As Short = objDPlcVariables.WriteVariables(sz_var_names, value)