Correzione scrittura codice

2022-04-28 14:50:29 +02:00
1 changed files with 2 additions and 2 deletions
@@ -553,9 +553,9 @@ Module VacuumCups
   End Function

   ' dall'informazione di extra corsa recupera il valore indicato
-   Public Function GetExtraStrokeValue(sInfo) As Double
+   Public Function GetExtraStrokeValue(sInfo As String) As Double
      Dim dExtraStroke As Double = 0
-      Dim sItems As String() = sInfo.Split("=")
+      Dim sItems As String() = sInfo.Split("="c)
      If sItems.Count = 2 Then
         Dim nStartIndex As Integer = 0
         For Each ItemChar As Char In sItems(1)