Code development platform for open source projects from the European Union institutions

Skip to content
Snippets Groups Projects
Commit 5cb84827 authored by Martin Dippold's avatar Martin Dippold
Browse files

* Release candidate output

parent 32e625c0
No related branches found
No related tags found
No related merge requests found
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="AirDrag.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="AirDrag.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<runtime>
......
......@@ -223,9 +223,12 @@ Public Class F_Main
logme(7, False, "Background operation ended with ERROR.")
Else
logme(7, False, "Background operation ended OK.")
If RELEASE_CANDIDATE Then
logme(7, False, "ATTENTION: RELEASE CANDIDATE, Not FOR CERTIFICATION!")
End If
End If
Dim asyncJob As cAsyncJob = e.Result
Dim asyncJob As cAsyncJob = e.Result
If asyncJob.IsCalibration Then Me.ButtonEval.Enabled = True
If asyncJob.IsEvaluation And SelMode = 1 Then Me.ButtonGenVECTO.Enabled = True
doSaveJob(False)
......
......@@ -172,13 +172,20 @@ Public Class F_VECTOInput
End Function
Protected Function CreateAirdrag(ns As XNamespace)
Dim AppVersx As String
If RELEASE_CANDIDATE Then
AppVersx = AppVers + " - RELEASE CANDIDATE, NOT FOR CERTIFICATION!"
Else
AppVersx = AppVers
End If
Return New XElement(ns + "AirDrag",
New XElement(tns + "Data",
New XElement(tns + "Manufacturer", VECTOconf.Manufacturer),
New XElement(tns + "Model", VECTOconf.Model),
New XElement(tns + "CertificationNumber", VECTOconf.CertNum),
New XElement(tns + "Date", XmlConvert.ToString(DateTime.Now, XmlDateTimeSerializationMode.Utc)),
New XElement(tns + "AppVersion", "VECTOAirDrag_" + AppVers),
New XElement(tns + "AppVersion", "VECTOAirDrag_" + AppVersx),
New XElement(tns + "CdxA_0", Math.Round(VECTOconf.CdxA, 2, MidpointRounding.AwayFromZero).ToString("0.00")),
New XElement(tns + "TransferredCdxA", Math.Round(VECTOconf.CdxA + VECTOconf.TransfR, 2, MidpointRounding.AwayFromZero).ToString("0.00")),
New XElement(tns + "DeclaredCdxA", Math.Round((VECTOconf.CdxA + VECTOconf.TransfR + VECTOconf.WorstCase), 2, MidpointRounding.AwayFromZero).ToString("0.00"))))
......
......@@ -8,10 +8,10 @@ Imports System.Runtime.InteropServices
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Air Drag")>
<Assembly: AssemblyTitle("Air Drag")>
<Assembly: AssemblyDescription("Air Drag Tool for VECTO")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Air Drag")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Air Drag")>
<Assembly: AssemblyCopyright("Copyright © 2014 European Commission")>
<Assembly: AssemblyTrademark("")>
......
......@@ -12,9 +12,10 @@
Module declaration_public
' Description of the form
Public Const AppName As String = "Air Drag" ' Name of the programm
Public Const AppName As String = "Air Drag - RC" ' Name of the programm
Public AppVers As String = Reflection.Assembly.GetExecutingAssembly().GetName().Version.ToString() '"3.1.0" ' Version of the Programm
Public AppDate As String ' Date of the compilation of the programm
Public RELEASE_CANDIDATE As Boolean = True
' Control variables
Public Const komment = "#" ' Symbol for a comment in the input files
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment