VECTO 2.0.0-pre0

* Removed pre-header from .vmod and .vsum files
* Updated Graph  for new .vmod format

VECTO/GUI/F_Graph.vb

@@ -93,9 +93,9 @@ Public Class F_Graph
 
                 Channels.Clear()
 
-                For i = 1 To 4
-                    file.ReadLine()
-                Next
+                'For i = 1 To 4
+                '    file.ReadLine()
+                'Next
 
                 'Header
                 line = file.ReadLine

VECTO/MODcalc/cMOD.vb

@@ -500,10 +500,10 @@ Public Class cMOD
         Next
 
 
-        f.WriteLine("VECTO modal results")
-        f.WriteLine("VECTO " & VECTOvers)
-        f.WriteLine(Now.ToString)
-        f.WriteLine("Input File: " & JobFile)
+        'f.WriteLine("VECTO modal results")
+        'f.WriteLine("VECTO " & VECTOvers)
+        'f.WriteLine(Now.ToString)
+        'f.WriteLine("Input File: " & JobFile)
 
 
         '***********************************************************************************************

VECTO/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by entering "*" in them:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.5.0.0")> 
-<Assembly: AssemblyFileVersion("1.5.0.0")> 
+<Assembly: AssemblyVersion("2.0.0.0")> 
+<Assembly: AssemblyFileVersion("2.0.0.0")> 

VECTO/VECTO_Global.vb

@@ -12,7 +12,7 @@ Imports System.Collections.Generic
 
 Module VECTO_Global
 
-    Public Const VECTOvers As String = "1.5.0-pre1"
+    Public Const VECTOvers As String = "2.0.0-pre0"
     Public Const LicSigAppCode As String = "VECTO-Release-0093C61E0A2E4BFA9A7ED7E729C56AE4"
     Public MyAppPath As String
     Public MyConfPath As String

VECTO/cVSUM.vb

@@ -459,15 +459,15 @@ Class cVSUM
         ResList = New List(Of Dictionary(Of String, Object))
 
         'Info
-        Fvsum.WriteLine("VECTO results")
-        Fvsum.WriteLine("VECTO " & VECTOvers)
-        Fvsum.WriteLine(Now.ToString)
-        Fvsum.WriteLine("air density [kg/m3]: " & Cfg.AirDensity)
-        If Cfg.DistCorr Then
-            Fvsum.WriteLine("Distance Correction ON")
-        Else
-            Fvsum.WriteLine("Distance Correction OFF")
-        End If
+        'Fvsum.WriteLine("VECTO results")
+        'Fvsum.WriteLine("VECTO " & VECTOvers)
+        'Fvsum.WriteLine(Now.ToString)
+        'Fvsum.WriteLine("air density [kg/m3]: " & Cfg.AirDensity)
+        'If Cfg.DistCorr Then
+        '    Fvsum.WriteLine("Distance Correction ON")
+        'Else
+        '    Fvsum.WriteLine("Distance Correction OFF")
+        'End If
 
         'Close file (will open after each job)
         Fvsum.Close()