initial importa of all CSE v2.01 files

CSE status: after Final report, before end delivery

.gitignore

+## Ignore Visual Studio temporary files, build results, and
+## files generated by popular Visual Studio add-ons.
+
+# User-specific files
+*.suo
+*.user
+*.sln.docstates
+
+# Build results
+[Dd]ebug/
+[Dd]ebugPublic/
+[Rr]elease/
+[Rr]eleases/
+x64/
+build/
+bld/
+[Bb]in/
+[Oo]bj/
+
+# Roslyn cache directories
+*.ide/
+
+# MSTest test Results
+[Tt]est[Rr]esult*/
+[Bb]uild[Ll]og.*
+
+#NUNIT
+*.VisualState.xml
+TestResult.xml
+
+# Build Results of an ATL Project
+[Dd]ebugPS/
+[Rr]eleasePS/
+dlldata.c
+
+*_i.c
+*_p.c
+*_i.h
+*.ilk
+*.meta
+*.obj
+*.pch
+*.pdb
+*.pgc
+*.pgd
+*.rsp
+*.sbr
+*.tlb
+*.tli
+*.tlh
+*.tmp
+*.tmp_proj
+*.log
+*.vspscc
+*.vssscc
+.builds
+*.pidb
+*.svclog
+*.scc
+
+# Chutzpah Test files
+_Chutzpah*
+
+# Visual C++ cache files
+ipch/
+*.aps
+*.ncb
+*.opensdf
+*.sdf
+*.cachefile
+
+# Visual Studio profiler
+*.psess
+*.vsp
+*.vspx
+
+# TFS 2012 Local Workspace
+$tf/
+
+# Guidance Automation Toolkit
+*.gpState
+
+# ReSharper is a .NET coding add-in
+_ReSharper*/
+*.[Rr]e[Ss]harper
+*.DotSettings.user
+
+# JustCode is a .NET coding addin-in
+.JustCode
+
+# TeamCity is a build add-in
+_TeamCity*
+
+# DotCover is a Code Coverage Tool
+*.dotCover
+
+# NCrunch
+_NCrunch_*
+.*crunch*.local.xml
+
+# MightyMoose
+*.mm.*
+AutoTest.Net/
+
+# Web workbench (sass)
+.sass-cache/
+
+# Installshield output folder
+[Ee]xpress/
+
+# DocProject is a documentation generator add-in
+DocProject/buildhelp/
+DocProject/Help/*.HxT
+DocProject/Help/*.HxC
+DocProject/Help/*.hhc
+DocProject/Help/*.hhk
+DocProject/Help/*.hhp
+DocProject/Help/Html2
+DocProject/Help/html
+
+# Click-Once directory
+publish/
+
+# Publish Web Output
+*.[Pp]ublish.xml
+*.azurePubxml
+## TODO: Comment the next line if you want to checkin your
+## web deploy settings but do note that will include unencrypted
+## passwords
+*.pubxml
+
+# NuGet Packages Directory
+packages/*
+## TODO: If the tool you use requires repositories.config
+## uncomment the next line
+#!packages/repositories.config
+
+# Enable "build/" folder in the NuGet Packages folder since
+# NuGet packages use it for MSBuild targets.
+# This line needs to be after the ignore of the build folder
+# (and the packages folder if the line above has been uncommented)
+!packages/build/
+
+# Windows Azure Build Output
+csx/
+*.build.csdef
+
+# Windows Store app package directory
+AppPackages/
+
+# Others
+sql/
+*.Cache
+ClientBin/
+[Ss]tyle[Cc]op.*
+~$*
+*~
+*.dbmdl
+*.dbproj.schemaview
+*.pfx
+*.publishsettings
+node_modules/
+
+# RIA/Silverlight projects
+Generated_Code/
+
+# Backup & report files from converting an old project file
+# to a newer Visual Studio version. Backup files are not needed,
+# because we have git ;-)
+_UpgradeReport_Files/
+Backup*/
+UpgradeLog*.XML
+UpgradeLog*.htm
+
+# SQL Server files
+*.mdf
+*.ldf
+
+# Business Intelligence projects
+*.rdl.data
+*.bim.layout
+*.bim_*.settings
+
+# Microsoft Fakes
+FakesAssemblies/
\ No newline at end of file

CSE2.01.sln

+
+Microsoft Visual Studio Solution File, Format Version 11.00
+# Visual Studio 2010
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CSE2.01", "CSE2.01\CSE2.01.vbproj", "{6845E24A-D1E7-4B28-92E7-2EBF850F044B}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|x86 = Debug|x86
+		Release|x86 = Release|x86
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{6845E24A-D1E7-4B28-92E7-2EBF850F044B}.Debug|x86.ActiveCfg = Debug|x86
+		{6845E24A-D1E7-4B28-92E7-2EBF850F044B}.Debug|x86.Build.0 = Debug|x86
+		{6845E24A-D1E7-4B28-92E7-2EBF850F044B}.Release|x86.ActiveCfg = Release|x86
+		{6845E24A-D1E7-4B28-92E7-2EBF850F044B}.Release|x86.Build.0 = Release|x86
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal

CSE2.01/App.config

+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client" />
+    </startup>
+</configuration>
\ No newline at end of file

CSE2.01/CSE2.01.vbproj

+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
+    <ProductVersion>
+    </ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{6845E24A-D1E7-4B28-92E7-2EBF850F044B}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>CSE2._01.My.MyApplication</StartupObject>
+    <RootNamespace>CSE2._01</RootNamespace>
+    <AssemblyName>CSE2.01</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>WindowsForms</MyType>
+    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkProfile>Client</TargetFrameworkProfile>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
+    <PlatformTarget>x86</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>CSE2.01.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
+    <PlatformTarget>x86</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>CSE2.01.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>Resources\CSE.ico</ApplicationIcon>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="vectolic, Version=1.1.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>bin\Release\vectolic.dll</HintPath>
+    </Reference>
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Drawing" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Windows.Forms" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Export\Minor_routines_output.vb" />
+    <Compile Include="Export\output.vb" />
+    <Compile Include="Export\OutputTest.vb" />
+    <Compile Include="Calculation\Minor_routines_calculate.vb" />
+    <Compile Include="Calculation\main_calculation_call.vb" />
+    <Compile Include="Calculation\Signal_identification.vb" />
+    <Compile Include="Calculation\sub_linear_regression.vb" />
+    <Compile Include="Import\read_input.vb" />
+    <Compile Include="GUI\Export_GUI.vb" />
+    <Compile Include="GUI\minor_routines_GUI.vb" />
+    <Compile Include="GUI\cFileBrowser.vb" />
+    <Compile Include="GUI\CSE_Config.designer.vb">
+      <DependentUpon>CSE_Config.vb</DependentUpon>
+    </Compile>
+    <Compile Include="GUI\CSE_Config.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="GUI\CSE_Info.Designer.vb">
+      <DependentUpon>CSE_Info.vb</DependentUpon>
+    </Compile>
+    <Compile Include="GUI\CSE_Info.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="declaration_public.vb" />
+    <Compile Include="GUI\FB_Dialog.Designer.vb">
+      <DependentUpon>FB_Dialog.vb</DependentUpon>
+    </Compile>
+    <Compile Include="GUI\FB_Dialog.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="GUI\FB_FavDlog.Designer.vb">
+      <DependentUpon>FB_FavDlog.vb</DependentUpon>
+    </Compile>
+    <Compile Include="GUI\FB_FavDlog.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="GUI\CSEMain.Designer.vb">
+      <DependentUpon>CSEMain.vb</DependentUpon>
+    </Compile>
+    <Compile Include="GUI\CSEMain.vb">
+      <SubType>Form</SubType>
+    </Compile>
+    <Compile Include="Classes\cGenShp.vb" />
+    <Compile Include="Classes\cUTMCoord.vb" />
+    <Compile Include="Classes\CResult.vb" />
+    <Compile Include="Classes\csKey.vb" />
+    <Compile Include="Classes\cMSC.vb" />
+    <Compile Include="Classes\cValidSec.vb" />
+    <Compile Include="Classes\cVehicle.vb" />
+    <Compile Include="Classes\cVirtMSC.vb" />
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <Compile Include="Tools\ApplicationEvents.vb" />
+    <Compile Include="Tools\Minor_routines.vb" />
+    <Compile Include="Tools\cFile_v3.vb" />
+    <Compile Include="CSE_Globals.vb" />
+    <Compile Include="CSE_Types.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="GUI\CSE_Config.resx">
+      <DependentUpon>CSE_Config.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="GUI\CSE_Info.resx">
+      <DependentUpon>CSE_Info.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="GUI\FB_Dialog.resx">
+      <DependentUpon>FB_Dialog.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="GUI\FB_FavDlog.resx">
+      <DependentUpon>FB_FavDlog.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="GUI\CSEMain.resx">
+      <DependentUpon>CSEMain.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Beenden.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\CSE.ico" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\export_excel.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\FVT_91x39.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Help.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Icon.ico" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Info.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\IVT_About.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\JRC-About.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Log-File.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\minus-circle-icon.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Neu.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Öffnen.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Optionen.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\plus-circle-icon.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Speichern.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Speichern_unter.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\TUG_91x34.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\VECTO_LOGO.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\VECTO-About.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Licencefile.png" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>
\ No newline at end of file

CSE2.01/CSE_Types.vb

+Public Enum tComp
+    t
+    lati
+    longi
+    hdg
+    v_veh_GPS
+    v_veh_CAN
+    vair_ar
+    beta_ar
+    n_eng
+    tq_l
+    tq_r
+    t_amb_veh
+    t_tire
+    p_tire
+    fc
+    trigger
+    user_valid
+    Undefined
+End Enum
+
+Public Enum tCompWeat
+    t
+    t_amb_stat
+    p_amp_stat
+    rh_stat
+    Undefined
+End Enum
+
+Public Enum tCompCali
+    t
+    zone_UTM
+    lati_UTM
+    longi_UTM
+    trigger_c
+    SecID
+    DirID
+    lati_root
+    longi_root
+    v_veh_c
+    vair_ic
+    vair_uf
+    beta_ic
+    beta_uf
+    vwind_ha
+    vwind_c
+    vwind_1s
+    vair_c
+    vair_c_sq
+    beta_c
+    dist
+    dist_root
+    alt
+    slope_deg
+    omega_wh
+    omega_p_wh
+    tq_sum
+    tq_sum_1s
+    t_float
+    tq_sum_float
+    F_trac
+    v_veh_acc
+    a_veh_ave
+    F_acc
+    F_grd
+    F_res
+    v_veh_1s
+    v_veh_float
+    t_amp_veh
+    t_amp_stat
+    p_amp_stat
+    rh_stat
+End Enum
+
+Public Enum tCompErg
+    SecID
+    DirID
+    RunID
+    HeadID
+    delta_t
+    v_veh
+    v_MSC
+    v_MSC_GPS
+    s_MSC
+    v_veh_CAN
+    vair_ar
+    vair_ic
+    vair_uf
+    vair
+    beta_ar
+    beta_ic
+    beta_uf
+    user_valid
+    valid
+    used
+    calcT
+    n_eng
+    v_wind_ave
+    v_wind_1s
+    v_wind_1s_max
+    beta_ave
+    dist
+    omega_wh
+    omega_p_wh
+    tq_sum_1s
+    t_float
+    tq_sum_float
+    F_trac
+    F_res_ref
+    v_veh_ave
+    a_veh_ave
+    F_acc
+    F_grd
+    F_res
+    v_veh_1s
+    v_veh_float
+    t_amb_veh
+    t_amb_stat
+    p_amb_stat
+    rh_stat
+    v_air_sq
+    v_veh_1s_max
+    v_veh_1s_min
+    v_veh_float_max
+    v_veh_float_min
+    beta_abs
+    tq_sum
+    tq_sum_1s_max
+    tq_sum_1s_min
+    tq_sum_float_max
+    tq_sum_float_min
+    vp_H2O
+    rho_air
+    t_tire
+    p_tire
+    F0_ref_singleDS
+    F0_singleDS
+    F2_ref_singleDS
+    RRC_singleDS
+    CdxA_singleDS
+    val_User
+    val_vVeh_ave
+    val_vVeh_1s
+    val_vVeh_f
+    val_vWind
+    val_vWind_1s
+    val_tq_f
+    val_tq_1s
+    val_beta
+    val_dist
+End Enum
+
+Public Enum tCompErgReg
+    SecID
+    DirID
+    F0
+    F0_LS1
+    F0_LS2
+    F0_ref
+    F2_ref
+    F0_LS1_ref
+    F2_LS1_ref
+    F0_LS2_ref
+    F2_LS2_ref
+    roh_air_LS
+    beta_abs_HS
+    RRC
+    RRC_LS1
+    RRC_LS2
+    RRC_valid
+    CdxA
+    delta_CdxA
+    CdxA0
+    F0_95
+    F2_95
+    R_sq
+    t_tire_LS_min
+    t_tire_LS_max
+    t_tire_HS_min
+    t_tire_HS_max
+    valid_t_tire
+    't_amb
+    't_amb_min
+    't_amb_max
+End Enum
+
+

CSE2.01/Classes/CResult.vb

+Public Class CResult
+    ' Declarations
+    Public Head As String
+    Public Unit As String
+    Public Dic As String
+
+    ' Bild new
+    Public Sub New(ByVal HeadStr As String, ByVal UnitStr As String, ByVal DicStr As String)
+        Head = HeadStr
+        Unit = UnitStr
+        Dic = DicStr
+    End Sub
+End Class

CSE2.01/Classes/cGenShp.vb

+Public Class cGenShp
+    Public veh_class As List(Of Integer)                    ' vehicle class
+    Public veh_conf As List(Of Integer)                     ' vehicle configuration
+    Public fa_pe As List(Of Double)                         ' Fa_pe
+    Public x_val As List(Of Array)                          ' X-Coordinates
+    Public y_val As List(Of Array)                          ' Y-Coordinates
+
+    ' Initialise the parameter
+    Public Sub New()
+        veh_class = New List(Of Integer)
+        veh_conf = New List(Of Integer)
+        fa_pe = New List(Of Double)
+        x_val = New List(Of Array)
+        y_val = New List(Of Array)
+    End Sub
+End Class

CSE2.01/Classes/cMSC.vb

+Public Class cMSC
+    Public meID As List(Of Integer)                      ' Measurement ID
+    Public dID As List(Of Integer)                       ' Direction ID
+    Public len As List(Of Double)                        ' Lenght [m]
+    Public head As List(Of Double)                       ' Heading [°]
+    Public headID As List(Of Double)                     ' Heading ID
+    Public tUse As Boolean                               ' Trigger used (1=Yes, 0=No)
+    Public latS As List(Of Double)                       ' Latitude (start) [mm.mm]
+    Public longS As List(Of Double)                      ' Longitude (start) [mm.mm]
+    Public latE As List(Of Double)                       ' latetude (end) [mm.mm]
+    Public longE As List(Of Double)                      ' Longitude (end) [mm.mm]
+    Public AltPath As List(Of String)                    ' Path to the altitude file [-]
+
+    ' Initialise the parameter
+    Public Sub New()
+        meID = New List(Of Integer)
+        dID = New List(Of Integer)
+        len = New List(Of Double)
+        head = New List(Of Double)
+        headID = New List(Of Double)
+        latS = New List(Of Double)
+        longS = New List(Of Double)
+        latE = New List(Of Double)
+        longE = New List(Of Double)
+        AltPath = New List(Of String)
+
+        meID.Add(0)
+        dID.Add(0)
+        len.Add(0)
+        head.Add(0)
+        headID.Add(0)
+        latS.Add(0)
+        longS.Add(0)
+        latE.Add(0)
+        longE.Add(0)
+        AltPath.Add(0)
+    End Sub
+End Class

CSE2.01/Classes/cUTMCoord.vb

+Public Class cUTMCoord
+    Public Easting As Double
+    Public Northing As Double
+    Public Zone As Integer
+End Class

CSE2.01/Classes/cValidSec.vb

+Public Class cValidSec
+    Public NameSec As List(Of String)                   ' Name of the section
+    Public AnzSec As List(Of Integer)                   ' Number of valid sections
+    Public ValidSec As List(Of Boolean)                 ' Verify if enough sections in both directions
+
+    ' Initialise the parameter
+    Public Sub New()
+        NameSec = New List(Of String)
+        AnzSec = New List(Of Integer)
+        ValidSec = New List(Of Boolean)
+    End Sub
+End Class

CSE2.01/Classes/cVehicle.vb

+Public Class cVehicle
+    Public ID As Integer                        ' Vehicle class code [1-16]
+    Public veh_conf As Integer                  ' Vehicle configuration
+    Public mveh_ref As Double                   ' Vehicle test mass [kg]
+    Public I_wheels As Double                   ' Wheels inertia [kgm2]
+    Public rat_axl As Double                    ' Axle ratio
+    Public rat_gh As Double                     ' Gear ratio high speed
+    Public rat_gl As Double                     ' Gear ratio low speed
+    Public ha As Double                         ' Anemomenter height [m]
+    Public hv As Double                         ' Vehicle height [m]
+    Public wm As Double                         ' mask width [m]
+End Class

CSE2.01/Classes/cVirtMSC.vb

+Public Class cVirtMSC
+    Public meID As List(Of Integer)                      ' Measurement ID
+    Public dID As List(Of Integer)                       ' Direction ID
+    Public KoordA As List(Of Array)                      ' Latetude (start) [mm.mm]
+    Public KoordE As List(Of Array)                      ' latetude (end) [mm.mm]
+    Public NewSec As List(Of Boolean)                    ' Variable to detect if a new section is started
+    Public tUse As Boolean                               ' Variable to detect if a trigger is used
+    Public Head As List(Of Double)                       ' Heading
+
+    ' Initialise the parameter
+    Public Sub New()
+        meID = New List(Of Integer)
+        dID = New List(Of Integer)
+        KoordA = New List(Of Array)
+        KoordE = New List(Of Array)
+        NewSec = New List(Of Boolean)
+        Head = New List(Of Double)
+
+        meID.Add(0)
+        dID.Add(0)
+        KoordA.Add({0})
+        KoordE.Add({0})
+        NewSec.Add(0)
+        Head.Add(0)
+    End Sub
+End Class

CSE2.01/Classes/csKey.vb

+Public Class csKey
+    Public Weather As New csKeyWeather
+    Public Meas As New csKeyMeas
+End Class
+
+Public Class csKeyWeather
+    Public t As String = "<T>"
+    Public t_amb_stat As String = "<T_AMB_STAT>"
+    Public p_amb_stat As String = "<P_AMB_STAT>"
+    Public rh_stat As String = "<RH_STAT>"
+End Class
+
+Public Class csKeyMeas
+    Public t As String = "<T>"
+    Public lati As String = "<LAT>"
+    Public longi As String = "<LONG>"
+    Public hdg As String = "<HDG>"
+    Public v_veh_GPS As String = "<V_VEH_GPS>"
+    Public v_veh_CAN As String = "<V_VEH_CAN>"
+    Public v_air As String = "<V_AIR>"
+    Public beta As String = "<BETA>"
+    Public n_eng As String = "<N_ENG>"
+    Public tq_l As String = "<TQ_L>"
+    Public tq_r As String = "<TQ_R>"
+    Public t_amb_veh As String = "<T_AMB_VEH>"
+    Public t_tire As String = "<T_TIRE>"
+    Public p_tire As String = "<P_TIRE>"
+    Public fc As String = "<FC>"
+    Public trigger As String = "<TRIGGER>"
+    Public valid As String = "<VALID>"
+End Class
\ No newline at end of file

CSE2.01/Export/OutputTest.vb

+Public Module OutputTest
+    Function fOuttest(ByVal Datafile As String) As Boolean
+        ' Declaration
+        Dim i As Integer
+        Dim NameOutFile, key As String
+        Dim FileOut As New cFile_V3
+        Dim first As Boolean
+        Dim s As New System.Text.StringBuilder
+
+        ' Initialise
+        first = True
+        ErgEntriesI = New Dictionary(Of tComp, CResult)
+        ErgEntryListI = New List(Of tComp)
+        ErgEntriesIU = New Dictionary(Of String, CResult)
+        ErgEntryListIU = New List(Of String)
+        ErgEntriesC = New Dictionary(Of tCompCali, CResult)
+        ErgEntryListC = New List(Of tCompCali)
+        GenErgOutDataTest()
+
+        ' Exit function if error is detected
+        If BWorker.CancellationPending And FileBlock Then
+            Return False
+        End If
+
+        ' Write on GUI
+        fInfWarErrBW(5, False, "Write output-file (*.csv)")
+
+        ' Generate the file name
+        NameOutFile = OutFolder & fName(Datafile, False) & "_test.csv"
+
+        ' Anlegen der Datei
+        FileOut.OpenWrite(NameOutFile, , False)
+
+        ' Filekopf
+        FileOut.WriteLine("Resultfile Programm " & AppName & " " & AppVers & " Comp " & AppDate)
+        FileOut.WriteLine("Datafile: ", Datafile)
+        FileOut.WriteLine("")
+
+        ' Write the head
+        FileOut.WriteLine(ErgHead("InputData") + "," + ErgHead("CalcData"))
+
+        ' Write the units
+        FileOut.WriteLine(ErgUnits("InputData") + "," + ErgUnits("CalcData"))
+
+        ' Write the data
+        For i = 0 To InputData.Item(tComp.t).Count - 1
+            For Each key In ErgEntryListI
+                If Not first Then s.Append(",")
+                s.Append(InputData(key)(i))
+                first = False
+            Next
+            For Each key In ErgEntryListC
+                If Not first Then s.Append(",")
+                s.Append(CalcData(key)(i))
+                first = False
+            Next
+            FileOut.WriteLine(s.ToString)
+            s.Clear()
+            first = True
+        Next i
+
+        ' Close the file
+        FileOut.Close()
+
+        ' Ausgabe bei blockierter Datei
+        If BWorker.CancellationPending And FileBlock Then
+            fInfWarErrBW(9, False, "Can´t write in file " & NameOutFile & ". File is blocked by another process!")
+        End If
+
+        Return True
+    End Function
+
+    ' Generate the output dictionary (for calculate)
+    Private Sub GenErgOutDataTest()
+        ' Declaration
+        Dim sKV As New KeyValuePair(Of String, List(Of Double))
+
+        ' Input data
+        AddToErg(tComp.t, fCompName(tComp.t), Units(tComp.t)(0), "InputData")
+        AddToErg(tComp.lati, fCompName(tComp.lati), Units(tComp.lati)(0), "InputData")
+        AddToErg(tComp.longi, fCompName(tComp.longi), Units(tComp.longi)(0), "InputData")
+
+        ' Undefined input data
+        For Each sKV In InputUndefData
+            AddToErg(sKV.Key, sKV.Key, UnitsUndef(sKV.Key)(0), "InputUndefData")
+        Next
+
+        ' Calculated data
+        AddToErg(tCompCali.zone_UTM, fCompName(tCompCali.zone_UTM), fCompUnit(tCompCali.zone_UTM), "CalcData")
+        AddToErg(tCompCali.lati_UTM, fCompName(tCompCali.lati_UTM), fCompUnit(tCompCali.lati_UTM), "CalcData")
+        AddToErg(tCompCali.longi_UTM, fCompName(tCompCali.longi_UTM), fCompUnit(tCompCali.longi_UTM), "CalcData")
+    End Sub
+End Module