initial commit
This commit is contained in:
Dominic Reich
commit
5a7c97b9bf
30 changed files with 1596 additions and 0 deletions
22
LICENSE
Normal file
22
LICENSE
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
The MIT License (MIT)
|
||||
|
||||
Copyright (c) 2014
|
||||
|
||||
Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||
of this software and associated documentation files (the "Software"), to deal
|
||||
in the Software without restriction, including without limitation the rights
|
||||
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
||||
copies of the Software, and to permit persons to whom the Software is
|
||||
furnished to do so, subject to the following conditions:
|
||||
|
||||
The above copyright notice and this permission notice shall be included in all
|
||||
copies or substantial portions of the Software.
|
||||
|
||||
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
||||
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||||
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
||||
SOFTWARE.
|
||||
|
||||
22
Leitungslaengenberechnung.sln
Normal file
22
Leitungslaengenberechnung.sln
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 2013
|
||||
VisualStudioVersion = 12.0.31101.0
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Leitungslaengenberechnung", "Leitungslaengenberechnung\Leitungslaengenberechnung.vbproj", "{AA6CFF3E-0565-4A31-BBE1-20988A610746}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{AA6CFF3E-0565-4A31-BBE1-20988A610746}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{AA6CFF3E-0565-4A31-BBE1-20988A610746}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{AA6CFF3E-0565-4A31-BBE1-20988A610746}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{AA6CFF3E-0565-4A31-BBE1-20988A610746}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
BIN
Leitungslaengenberechnung.v12.suo
Normal file
BIN
Leitungslaengenberechnung.v12.suo
Normal file
Binary file not shown.
6
Leitungslaengenberechnung/App.config
Normal file
6
Leitungslaengenberechnung/App.config
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
|
||||
</startup>
|
||||
</configuration>
|
||||
133
Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj
Normal file
133
Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj
Normal file
|
|
@ -0,0 +1,133 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProjectGuid>{AA6CFF3E-0565-4A31-BBE1-20988A610746}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>Leitungslaengenberechnung.My.MyApplication</StartupObject>
|
||||
<RootNamespace>Leitungslaengenberechnung</RootNamespace>
|
||||
<AssemblyName>Leitungslaengenberechnung</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>Leitungslaengenberechnung.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>Leitungslaengenberechnung.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>tmsnat.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" />
|
||||
</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" />
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="frm_Main.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frm_Main.Designer.vb">
|
||||
<DependentUpon>frm_Main.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<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>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="frm_Main.resx">
|
||||
<DependentUpon>frm_Main.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>
|
||||
<None Include="App.config" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="tmsnat.ico" />
|
||||
</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>
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="12.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
</Project>
|
||||
38
Leitungslaengenberechnung/My Project/Application.Designer.vb
generated
Normal file
38
Leitungslaengenberechnung/My Project/Application.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,38 @@
|
|||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.36241
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
|
||||
' or if you encounter build errors in this file, go to the Project Designer
|
||||
' (go to Project Properties or double-click the My Project node in
|
||||
' Solution Explorer), and make changes on the Application tab.
|
||||
'
|
||||
Partial Friend Class MyApplication
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.SaveMySettingsOnExit = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.Leitungslaengenberechnung.frm_Main
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
10
Leitungslaengenberechnung/My Project/Application.myapp
Normal file
10
Leitungslaengenberechnung/My Project/Application.myapp
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
<?xml version="1.0" encoding="utf-16"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>frm_Main</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
Leitungslaengenberechnung/My Project/AssemblyInfo.vb
Normal file
35
Leitungslaengenberechnung/My Project/AssemblyInfo.vb
Normal file
|
|
@ -0,0 +1,35 @@
|
|||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("Leitungslaengenberechnung")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("Leitungslaengenberechnung")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2014")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("871e19c6-2dcd-494b-ba8b-2fb8a05db8ee")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.*")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
62
Leitungslaengenberechnung/My Project/Resources.Designer.vb
generated
Normal file
62
Leitungslaengenberechnung/My Project/Resources.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,62 @@
|
|||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.36241
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Leitungslaengenberechnung.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
117
Leitungslaengenberechnung/My Project/Resources.resx
Normal file
117
Leitungslaengenberechnung/My Project/Resources.resx
Normal file
|
|
@ -0,0 +1,117 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
73
Leitungslaengenberechnung/My Project/Settings.Designer.vb
generated
Normal file
73
Leitungslaengenberechnung/My Project/Settings.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,73 @@
|
|||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.36241
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.Leitungslaengenberechnung.My.MySettings
|
||||
Get
|
||||
Return Global.Leitungslaengenberechnung.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
7
Leitungslaengenberechnung/My Project/Settings.settings
Normal file
7
Leitungslaengenberechnung/My Project/Settings.settings
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
Binary file not shown.
|
|
@ -0,0 +1,6 @@
|
|||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
|
||||
</startup>
|
||||
</configuration>
|
||||
Binary file not shown.
|
|
@ -0,0 +1,6 @@
|
|||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
|
||||
</startup>
|
||||
</configuration>
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
|
||||
</requestedPrivileges>
|
||||
</security>
|
||||
</trustInfo>
|
||||
</assembly>
|
||||
773
Leitungslaengenberechnung/frm_Main.Designer.vb
generated
Normal file
773
Leitungslaengenberechnung/frm_Main.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,773 @@
|
|||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frm_Main
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frm_Main))
|
||||
Me.tab1 = New System.Windows.Forms.TabControl()
|
||||
Me.tab_page1 = New System.Windows.Forms.TabPage()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.o230_spannungsabfall = New System.Windows.Forms.TextBox()
|
||||
Me.btn_beenden = New System.Windows.Forms.Button()
|
||||
Me.btn_berechnen = New System.Windows.Forms.Button()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.o230_querschnitt = New System.Windows.Forms.TextBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.i230_leitwert = New System.Windows.Forms.TextBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.i230_abfall = New System.Windows.Forms.TextBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.i230_wirkungsgrad = New System.Windows.Forms.TextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.i230_strom = New System.Windows.Forms.TextBox()
|
||||
Me.i230_spannung = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.i230_laenge = New System.Windows.Forms.TextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.tab_page2 = New System.Windows.Forms.TabPage()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.o400_querschnitt = New System.Windows.Forms.TextBox()
|
||||
Me.btn_beenden400 = New System.Windows.Forms.Button()
|
||||
Me.btn_berechnen400 = New System.Windows.Forms.Button()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.i400_leitwert = New System.Windows.Forms.TextBox()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.i400_abfall = New System.Windows.Forms.TextBox()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.i400_wirkungsgrad = New System.Windows.Forms.TextBox()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.i400_strom = New System.Windows.Forms.TextBox()
|
||||
Me.i400_spannung = New System.Windows.Forms.TextBox()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.o400_spannungsabfall = New System.Windows.Forms.TextBox()
|
||||
Me.i400_laenge = New System.Windows.Forms.TextBox()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.tab3 = New System.Windows.Forms.TabPage()
|
||||
Me.oAus_rechnung = New System.Windows.Forms.Label()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.oAus_ausschaltstrom = New System.Windows.Forms.TextBox()
|
||||
Me.iAus_type = New System.Windows.Forms.ComboBox()
|
||||
Me.Label23 = New System.Windows.Forms.Label()
|
||||
Me.Label22 = New System.Windows.Forms.Label()
|
||||
Me.iAus_faktor = New System.Windows.Forms.TextBox()
|
||||
Me.check_ueber32A = New System.Windows.Forms.RadioButton()
|
||||
Me.check_unter32A = New System.Windows.Forms.RadioButton()
|
||||
Me.iAus_nennspannung = New System.Windows.Forms.ComboBox()
|
||||
Me.btn_beendenAus = New System.Windows.Forms.Button()
|
||||
Me.btn_berechnenAus = New System.Windows.Forms.Button()
|
||||
Me.Label21 = New System.Windows.Forms.Label()
|
||||
Me.iAus_nennstrom = New System.Windows.Forms.TextBox()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.Label19 = New System.Windows.Forms.Label()
|
||||
Me.oAus_ergebnis = New System.Windows.Forms.TextBox()
|
||||
Me.iAus_schleife = New System.Windows.Forms.TextBox()
|
||||
Me.Label20 = New System.Windows.Forms.Label()
|
||||
Me.tab1.SuspendLayout()
|
||||
Me.tab_page1.SuspendLayout()
|
||||
Me.tab_page2.SuspendLayout()
|
||||
Me.tab3.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'tab1
|
||||
'
|
||||
Me.tab1.Controls.Add(Me.tab_page1)
|
||||
Me.tab1.Controls.Add(Me.tab_page2)
|
||||
Me.tab1.Controls.Add(Me.tab3)
|
||||
Me.tab1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.tab1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.tab1.Name = "tab1"
|
||||
Me.tab1.SelectedIndex = 0
|
||||
Me.tab1.Size = New System.Drawing.Size(475, 250)
|
||||
Me.tab1.TabIndex = 0
|
||||
'
|
||||
'tab_page1
|
||||
'
|
||||
Me.tab_page1.Controls.Add(Me.Label8)
|
||||
Me.tab_page1.Controls.Add(Me.o230_spannungsabfall)
|
||||
Me.tab_page1.Controls.Add(Me.btn_beenden)
|
||||
Me.tab_page1.Controls.Add(Me.btn_berechnen)
|
||||
Me.tab_page1.Controls.Add(Me.Label7)
|
||||
Me.tab_page1.Controls.Add(Me.o230_querschnitt)
|
||||
Me.tab_page1.Controls.Add(Me.Label6)
|
||||
Me.tab_page1.Controls.Add(Me.i230_leitwert)
|
||||
Me.tab_page1.Controls.Add(Me.Label5)
|
||||
Me.tab_page1.Controls.Add(Me.i230_abfall)
|
||||
Me.tab_page1.Controls.Add(Me.Label4)
|
||||
Me.tab_page1.Controls.Add(Me.i230_wirkungsgrad)
|
||||
Me.tab_page1.Controls.Add(Me.Label3)
|
||||
Me.tab_page1.Controls.Add(Me.i230_strom)
|
||||
Me.tab_page1.Controls.Add(Me.i230_spannung)
|
||||
Me.tab_page1.Controls.Add(Me.Label2)
|
||||
Me.tab_page1.Controls.Add(Me.i230_laenge)
|
||||
Me.tab_page1.Controls.Add(Me.Label1)
|
||||
Me.tab_page1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tab_page1.Name = "tab_page1"
|
||||
Me.tab_page1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tab_page1.Size = New System.Drawing.Size(467, 224)
|
||||
Me.tab_page1.TabIndex = 0
|
||||
Me.tab_page1.Text = "Wechselstrom (230V)"
|
||||
Me.tab_page1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Location = New System.Drawing.Point(251, 28)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(108, 13)
|
||||
Me.Label8.TabIndex = 18
|
||||
Me.Label8.Text = "Spannungsabfall [ V ]"
|
||||
'
|
||||
'o230_spannungsabfall
|
||||
'
|
||||
Me.o230_spannungsabfall.Location = New System.Drawing.Point(387, 25)
|
||||
Me.o230_spannungsabfall.Name = "o230_spannungsabfall"
|
||||
Me.o230_spannungsabfall.ReadOnly = True
|
||||
Me.o230_spannungsabfall.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.o230_spannungsabfall.Size = New System.Drawing.Size(65, 20)
|
||||
Me.o230_spannungsabfall.TabIndex = 17
|
||||
'
|
||||
'btn_beenden
|
||||
'
|
||||
Me.btn_beenden.Location = New System.Drawing.Point(254, 181)
|
||||
Me.btn_beenden.Name = "btn_beenden"
|
||||
Me.btn_beenden.Size = New System.Drawing.Size(198, 27)
|
||||
Me.btn_beenden.TabIndex = 16
|
||||
Me.btn_beenden.Text = "BEENDEN"
|
||||
Me.btn_beenden.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn_berechnen
|
||||
'
|
||||
Me.btn_berechnen.Location = New System.Drawing.Point(11, 181)
|
||||
Me.btn_berechnen.Name = "btn_berechnen"
|
||||
Me.btn_berechnen.Size = New System.Drawing.Size(197, 27)
|
||||
Me.btn_berechnen.TabIndex = 15
|
||||
Me.btn_berechnen.Text = "BERECHNEN"
|
||||
Me.btn_berechnen.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Location = New System.Drawing.Point(251, 54)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(116, 13)
|
||||
Me.Label7.TabIndex = 13
|
||||
Me.Label7.Text = "Leiterquerschnitt [ mm ]"
|
||||
'
|
||||
'o230_querschnitt
|
||||
'
|
||||
Me.o230_querschnitt.Location = New System.Drawing.Point(387, 51)
|
||||
Me.o230_querschnitt.Name = "o230_querschnitt"
|
||||
Me.o230_querschnitt.ReadOnly = True
|
||||
Me.o230_querschnitt.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.o230_querschnitt.Size = New System.Drawing.Size(65, 20)
|
||||
Me.o230_querschnitt.TabIndex = 12
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(8, 158)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(44, 13)
|
||||
Me.Label6.TabIndex = 11
|
||||
Me.Label6.Text = "Leitwert"
|
||||
'
|
||||
'i230_leitwert
|
||||
'
|
||||
Me.i230_leitwert.Location = New System.Drawing.Point(144, 155)
|
||||
Me.i230_leitwert.Name = "i230_leitwert"
|
||||
Me.i230_leitwert.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i230_leitwert.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i230_leitwert.TabIndex = 10
|
||||
Me.i230_leitwert.Text = "56"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(8, 132)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(109, 13)
|
||||
Me.Label5.TabIndex = 9
|
||||
Me.Label5.Text = "Spannungsabfall [ % ]"
|
||||
'
|
||||
'i230_abfall
|
||||
'
|
||||
Me.i230_abfall.Location = New System.Drawing.Point(144, 129)
|
||||
Me.i230_abfall.Name = "i230_abfall"
|
||||
Me.i230_abfall.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i230_abfall.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i230_abfall.TabIndex = 8
|
||||
Me.i230_abfall.Text = "3"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(8, 106)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(73, 13)
|
||||
Me.Label4.TabIndex = 7
|
||||
Me.Label4.Text = "Wirkungsgrad"
|
||||
'
|
||||
'i230_wirkungsgrad
|
||||
'
|
||||
Me.i230_wirkungsgrad.Location = New System.Drawing.Point(144, 103)
|
||||
Me.i230_wirkungsgrad.Name = "i230_wirkungsgrad"
|
||||
Me.i230_wirkungsgrad.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i230_wirkungsgrad.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i230_wirkungsgrad.TabIndex = 6
|
||||
Me.i230_wirkungsgrad.Text = "0,8"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(8, 80)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(80, 13)
|
||||
Me.Label3.TabIndex = 5
|
||||
Me.Label3.Text = "Leiterstrom [ A ]"
|
||||
'
|
||||
'i230_strom
|
||||
'
|
||||
Me.i230_strom.Location = New System.Drawing.Point(144, 77)
|
||||
Me.i230_strom.Name = "i230_strom"
|
||||
Me.i230_strom.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i230_strom.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i230_strom.TabIndex = 4
|
||||
Me.i230_strom.Text = "16"
|
||||
'
|
||||
'i230_spannung
|
||||
'
|
||||
Me.i230_spannung.Location = New System.Drawing.Point(144, 51)
|
||||
Me.i230_spannung.Name = "i230_spannung"
|
||||
Me.i230_spannung.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i230_spannung.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i230_spannung.TabIndex = 3
|
||||
Me.i230_spannung.Text = "230"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(8, 54)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(78, 13)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "Spannung [ V ]"
|
||||
'
|
||||
'i230_laenge
|
||||
'
|
||||
Me.i230_laenge.Location = New System.Drawing.Point(144, 25)
|
||||
Me.i230_laenge.Name = "i230_laenge"
|
||||
Me.i230_laenge.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i230_laenge.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i230_laenge.TabIndex = 1
|
||||
Me.i230_laenge.Text = "20"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(8, 28)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(96, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Leitungslänge [ m ]"
|
||||
'
|
||||
'tab_page2
|
||||
'
|
||||
Me.tab_page2.Controls.Add(Me.Label16)
|
||||
Me.tab_page2.Controls.Add(Me.o400_querschnitt)
|
||||
Me.tab_page2.Controls.Add(Me.btn_beenden400)
|
||||
Me.tab_page2.Controls.Add(Me.btn_berechnen400)
|
||||
Me.tab_page2.Controls.Add(Me.Label11)
|
||||
Me.tab_page2.Controls.Add(Me.i400_leitwert)
|
||||
Me.tab_page2.Controls.Add(Me.Label12)
|
||||
Me.tab_page2.Controls.Add(Me.i400_abfall)
|
||||
Me.tab_page2.Controls.Add(Me.Label13)
|
||||
Me.tab_page2.Controls.Add(Me.i400_wirkungsgrad)
|
||||
Me.tab_page2.Controls.Add(Me.Label14)
|
||||
Me.tab_page2.Controls.Add(Me.i400_strom)
|
||||
Me.tab_page2.Controls.Add(Me.i400_spannung)
|
||||
Me.tab_page2.Controls.Add(Me.Label15)
|
||||
Me.tab_page2.Controls.Add(Me.Label9)
|
||||
Me.tab_page2.Controls.Add(Me.o400_spannungsabfall)
|
||||
Me.tab_page2.Controls.Add(Me.i400_laenge)
|
||||
Me.tab_page2.Controls.Add(Me.Label10)
|
||||
Me.tab_page2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tab_page2.Name = "tab_page2"
|
||||
Me.tab_page2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tab_page2.Size = New System.Drawing.Size(467, 224)
|
||||
Me.tab_page2.TabIndex = 1
|
||||
Me.tab_page2.Text = "Drehstrom (400V)"
|
||||
Me.tab_page2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Location = New System.Drawing.Point(251, 54)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(116, 13)
|
||||
Me.Label16.TabIndex = 36
|
||||
Me.Label16.Text = "Leiterquerschnitt [ mm ]"
|
||||
'
|
||||
'o400_querschnitt
|
||||
'
|
||||
Me.o400_querschnitt.Location = New System.Drawing.Point(387, 51)
|
||||
Me.o400_querschnitt.Name = "o400_querschnitt"
|
||||
Me.o400_querschnitt.ReadOnly = True
|
||||
Me.o400_querschnitt.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.o400_querschnitt.Size = New System.Drawing.Size(65, 20)
|
||||
Me.o400_querschnitt.TabIndex = 35
|
||||
'
|
||||
'btn_beenden400
|
||||
'
|
||||
Me.btn_beenden400.Location = New System.Drawing.Point(254, 181)
|
||||
Me.btn_beenden400.Name = "btn_beenden400"
|
||||
Me.btn_beenden400.Size = New System.Drawing.Size(198, 27)
|
||||
Me.btn_beenden400.TabIndex = 34
|
||||
Me.btn_beenden400.Text = "BEENDEN"
|
||||
Me.btn_beenden400.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn_berechnen400
|
||||
'
|
||||
Me.btn_berechnen400.Location = New System.Drawing.Point(11, 181)
|
||||
Me.btn_berechnen400.Name = "btn_berechnen400"
|
||||
Me.btn_berechnen400.Size = New System.Drawing.Size(197, 27)
|
||||
Me.btn_berechnen400.TabIndex = 33
|
||||
Me.btn_berechnen400.Text = "BERECHNEN"
|
||||
Me.btn_berechnen400.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Location = New System.Drawing.Point(8, 158)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(44, 13)
|
||||
Me.Label11.TabIndex = 32
|
||||
Me.Label11.Text = "Leitwert"
|
||||
'
|
||||
'i400_leitwert
|
||||
'
|
||||
Me.i400_leitwert.Location = New System.Drawing.Point(144, 155)
|
||||
Me.i400_leitwert.Name = "i400_leitwert"
|
||||
Me.i400_leitwert.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i400_leitwert.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i400_leitwert.TabIndex = 31
|
||||
Me.i400_leitwert.Text = "56"
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Location = New System.Drawing.Point(8, 132)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(109, 13)
|
||||
Me.Label12.TabIndex = 30
|
||||
Me.Label12.Text = "Spannungsabfall [ % ]"
|
||||
'
|
||||
'i400_abfall
|
||||
'
|
||||
Me.i400_abfall.Location = New System.Drawing.Point(144, 129)
|
||||
Me.i400_abfall.Name = "i400_abfall"
|
||||
Me.i400_abfall.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i400_abfall.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i400_abfall.TabIndex = 29
|
||||
Me.i400_abfall.Text = "3"
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Location = New System.Drawing.Point(8, 106)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(73, 13)
|
||||
Me.Label13.TabIndex = 28
|
||||
Me.Label13.Text = "Wirkungsgrad"
|
||||
'
|
||||
'i400_wirkungsgrad
|
||||
'
|
||||
Me.i400_wirkungsgrad.Location = New System.Drawing.Point(144, 103)
|
||||
Me.i400_wirkungsgrad.Name = "i400_wirkungsgrad"
|
||||
Me.i400_wirkungsgrad.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i400_wirkungsgrad.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i400_wirkungsgrad.TabIndex = 27
|
||||
Me.i400_wirkungsgrad.Text = "0,8"
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.AutoSize = True
|
||||
Me.Label14.Location = New System.Drawing.Point(8, 80)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(80, 13)
|
||||
Me.Label14.TabIndex = 26
|
||||
Me.Label14.Text = "Leiterstrom [ A ]"
|
||||
'
|
||||
'i400_strom
|
||||
'
|
||||
Me.i400_strom.Location = New System.Drawing.Point(144, 77)
|
||||
Me.i400_strom.Name = "i400_strom"
|
||||
Me.i400_strom.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i400_strom.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i400_strom.TabIndex = 25
|
||||
Me.i400_strom.Text = "16"
|
||||
'
|
||||
'i400_spannung
|
||||
'
|
||||
Me.i400_spannung.Location = New System.Drawing.Point(144, 51)
|
||||
Me.i400_spannung.Name = "i400_spannung"
|
||||
Me.i400_spannung.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i400_spannung.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i400_spannung.TabIndex = 24
|
||||
Me.i400_spannung.Text = "400"
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.Location = New System.Drawing.Point(8, 54)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(78, 13)
|
||||
Me.Label15.TabIndex = 23
|
||||
Me.Label15.Text = "Spannung [ V ]"
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(251, 28)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(108, 13)
|
||||
Me.Label9.TabIndex = 22
|
||||
Me.Label9.Text = "Spannungsabfall [ V ]"
|
||||
'
|
||||
'o400_spannungsabfall
|
||||
'
|
||||
Me.o400_spannungsabfall.Location = New System.Drawing.Point(387, 25)
|
||||
Me.o400_spannungsabfall.Name = "o400_spannungsabfall"
|
||||
Me.o400_spannungsabfall.ReadOnly = True
|
||||
Me.o400_spannungsabfall.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.o400_spannungsabfall.Size = New System.Drawing.Size(65, 20)
|
||||
Me.o400_spannungsabfall.TabIndex = 21
|
||||
'
|
||||
'i400_laenge
|
||||
'
|
||||
Me.i400_laenge.Location = New System.Drawing.Point(144, 25)
|
||||
Me.i400_laenge.Name = "i400_laenge"
|
||||
Me.i400_laenge.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.i400_laenge.Size = New System.Drawing.Size(64, 20)
|
||||
Me.i400_laenge.TabIndex = 20
|
||||
Me.i400_laenge.Text = "30"
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Location = New System.Drawing.Point(8, 28)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(96, 13)
|
||||
Me.Label10.TabIndex = 19
|
||||
Me.Label10.Text = "Leitungslänge [ m ]"
|
||||
'
|
||||
'tab3
|
||||
'
|
||||
Me.tab3.Controls.Add(Me.oAus_rechnung)
|
||||
Me.tab3.Controls.Add(Me.Label17)
|
||||
Me.tab3.Controls.Add(Me.oAus_ausschaltstrom)
|
||||
Me.tab3.Controls.Add(Me.iAus_type)
|
||||
Me.tab3.Controls.Add(Me.Label23)
|
||||
Me.tab3.Controls.Add(Me.Label22)
|
||||
Me.tab3.Controls.Add(Me.iAus_faktor)
|
||||
Me.tab3.Controls.Add(Me.check_ueber32A)
|
||||
Me.tab3.Controls.Add(Me.check_unter32A)
|
||||
Me.tab3.Controls.Add(Me.iAus_nennspannung)
|
||||
Me.tab3.Controls.Add(Me.btn_beendenAus)
|
||||
Me.tab3.Controls.Add(Me.btn_berechnenAus)
|
||||
Me.tab3.Controls.Add(Me.Label21)
|
||||
Me.tab3.Controls.Add(Me.iAus_nennstrom)
|
||||
Me.tab3.Controls.Add(Me.Label18)
|
||||
Me.tab3.Controls.Add(Me.Label19)
|
||||
Me.tab3.Controls.Add(Me.oAus_ergebnis)
|
||||
Me.tab3.Controls.Add(Me.iAus_schleife)
|
||||
Me.tab3.Controls.Add(Me.Label20)
|
||||
Me.tab3.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tab3.Name = "tab3"
|
||||
Me.tab3.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.tab3.Size = New System.Drawing.Size(467, 224)
|
||||
Me.tab3.TabIndex = 2
|
||||
Me.tab3.Text = "Ausschaltbedingung"
|
||||
Me.tab3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'oAus_rechnung
|
||||
'
|
||||
Me.oAus_rechnung.AutoSize = True
|
||||
Me.oAus_rechnung.Location = New System.Drawing.Point(260, 131)
|
||||
Me.oAus_rechnung.Name = "oAus_rechnung"
|
||||
Me.oAus_rechnung.Size = New System.Drawing.Size(66, 13)
|
||||
Me.oAus_rechnung.TabIndex = 61
|
||||
Me.oAus_rechnung.Text = "Rechnung..."
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.Location = New System.Drawing.Point(260, 80)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(100, 13)
|
||||
Me.Label17.TabIndex = 60
|
||||
Me.Label17.Text = "Ausschaltstrom [ A ]"
|
||||
'
|
||||
'oAus_ausschaltstrom
|
||||
'
|
||||
Me.oAus_ausschaltstrom.Enabled = False
|
||||
Me.oAus_ausschaltstrom.Location = New System.Drawing.Point(387, 77)
|
||||
Me.oAus_ausschaltstrom.Name = "oAus_ausschaltstrom"
|
||||
Me.oAus_ausschaltstrom.Size = New System.Drawing.Size(65, 20)
|
||||
Me.oAus_ausschaltstrom.TabIndex = 59
|
||||
'
|
||||
'iAus_type
|
||||
'
|
||||
Me.iAus_type.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.iAus_type.FormattingEnabled = True
|
||||
Me.iAus_type.Items.AddRange(New Object() {"Schmelz", "B", "C", "D"})
|
||||
Me.iAus_type.Location = New System.Drawing.Point(144, 103)
|
||||
Me.iAus_type.Name = "iAus_type"
|
||||
Me.iAus_type.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.iAus_type.Size = New System.Drawing.Size(64, 21)
|
||||
Me.iAus_type.TabIndex = 58
|
||||
'
|
||||
'Label23
|
||||
'
|
||||
Me.Label23.AutoSize = True
|
||||
Me.Label23.Location = New System.Drawing.Point(8, 106)
|
||||
Me.Label23.Name = "Label23"
|
||||
Me.Label23.Size = New System.Drawing.Size(80, 13)
|
||||
Me.Label23.TabIndex = 57
|
||||
Me.Label23.Text = "Sicherungstype"
|
||||
'
|
||||
'Label22
|
||||
'
|
||||
Me.Label22.AutoSize = True
|
||||
Me.Label22.Location = New System.Drawing.Point(8, 132)
|
||||
Me.Label22.Name = "Label22"
|
||||
Me.Label22.Size = New System.Drawing.Size(105, 13)
|
||||
Me.Label22.TabIndex = 55
|
||||
Me.Label22.Text = "Ausschaltstromfaktor"
|
||||
'
|
||||
'iAus_faktor
|
||||
'
|
||||
Me.iAus_faktor.Location = New System.Drawing.Point(144, 129)
|
||||
Me.iAus_faktor.Name = "iAus_faktor"
|
||||
Me.iAus_faktor.ReadOnly = True
|
||||
Me.iAus_faktor.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.iAus_faktor.Size = New System.Drawing.Size(64, 20)
|
||||
Me.iAus_faktor.TabIndex = 54
|
||||
'
|
||||
'check_ueber32A
|
||||
'
|
||||
Me.check_ueber32A.AutoSize = True
|
||||
Me.check_ueber32A.Location = New System.Drawing.Point(254, 52)
|
||||
Me.check_ueber32A.Name = "check_ueber32A"
|
||||
Me.check_ueber32A.Size = New System.Drawing.Size(140, 17)
|
||||
Me.check_ueber32A.TabIndex = 51
|
||||
Me.check_ueber32A.Text = "Endstromkreis über 32 A"
|
||||
Me.check_ueber32A.UseVisualStyleBackColor = True
|
||||
'
|
||||
'check_unter32A
|
||||
'
|
||||
Me.check_unter32A.AutoSize = True
|
||||
Me.check_unter32A.Checked = True
|
||||
Me.check_unter32A.Location = New System.Drawing.Point(254, 26)
|
||||
Me.check_unter32A.Name = "check_unter32A"
|
||||
Me.check_unter32A.Size = New System.Drawing.Size(143, 17)
|
||||
Me.check_unter32A.TabIndex = 50
|
||||
Me.check_unter32A.TabStop = True
|
||||
Me.check_unter32A.Text = "Endstromkreis unter 32 A"
|
||||
Me.check_unter32A.UseVisualStyleBackColor = True
|
||||
'
|
||||
'iAus_nennspannung
|
||||
'
|
||||
Me.iAus_nennspannung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.iAus_nennspannung.FormattingEnabled = True
|
||||
Me.iAus_nennspannung.Items.AddRange(New Object() {"230", "400"})
|
||||
Me.iAus_nennspannung.Location = New System.Drawing.Point(144, 77)
|
||||
Me.iAus_nennspannung.Name = "iAus_nennspannung"
|
||||
Me.iAus_nennspannung.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.iAus_nennspannung.Size = New System.Drawing.Size(64, 21)
|
||||
Me.iAus_nennspannung.TabIndex = 49
|
||||
'
|
||||
'btn_beendenAus
|
||||
'
|
||||
Me.btn_beendenAus.Location = New System.Drawing.Point(254, 181)
|
||||
Me.btn_beendenAus.Name = "btn_beendenAus"
|
||||
Me.btn_beendenAus.Size = New System.Drawing.Size(198, 27)
|
||||
Me.btn_beendenAus.TabIndex = 48
|
||||
Me.btn_beendenAus.Text = "BEENDEN"
|
||||
Me.btn_beendenAus.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btn_berechnenAus
|
||||
'
|
||||
Me.btn_berechnenAus.Location = New System.Drawing.Point(11, 181)
|
||||
Me.btn_berechnenAus.Name = "btn_berechnenAus"
|
||||
Me.btn_berechnenAus.Size = New System.Drawing.Size(197, 27)
|
||||
Me.btn_berechnenAus.TabIndex = 47
|
||||
Me.btn_berechnenAus.Text = "BERECHNEN"
|
||||
Me.btn_berechnenAus.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label21
|
||||
'
|
||||
Me.Label21.AutoSize = True
|
||||
Me.Label21.Location = New System.Drawing.Point(8, 80)
|
||||
Me.Label21.Name = "Label21"
|
||||
Me.Label21.Size = New System.Drawing.Size(102, 13)
|
||||
Me.Label21.TabIndex = 45
|
||||
Me.Label21.Text = "Nennspannung [ V ]"
|
||||
'
|
||||
'iAus_nennstrom
|
||||
'
|
||||
Me.iAus_nennstrom.Location = New System.Drawing.Point(144, 51)
|
||||
Me.iAus_nennstrom.Name = "iAus_nennstrom"
|
||||
Me.iAus_nennstrom.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.iAus_nennstrom.Size = New System.Drawing.Size(64, 20)
|
||||
Me.iAus_nennstrom.TabIndex = 42
|
||||
Me.iAus_nennstrom.Text = "16"
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.AutoSize = True
|
||||
Me.Label18.Location = New System.Drawing.Point(8, 54)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(91, 13)
|
||||
Me.Label18.TabIndex = 41
|
||||
Me.Label18.Text = "Vorsicherung [ A ]"
|
||||
'
|
||||
'Label19
|
||||
'
|
||||
Me.Label19.AutoSize = True
|
||||
Me.Label19.Location = New System.Drawing.Point(260, 105)
|
||||
Me.Label19.Name = "Label19"
|
||||
Me.Label19.Size = New System.Drawing.Size(85, 13)
|
||||
Me.Label19.TabIndex = 40
|
||||
Me.Label19.Text = "Widerstand OK?"
|
||||
'
|
||||
'oAus_ergebnis
|
||||
'
|
||||
Me.oAus_ergebnis.BackColor = System.Drawing.SystemColors.Window
|
||||
Me.oAus_ergebnis.Enabled = False
|
||||
Me.oAus_ergebnis.Location = New System.Drawing.Point(387, 102)
|
||||
Me.oAus_ergebnis.Name = "oAus_ergebnis"
|
||||
Me.oAus_ergebnis.ReadOnly = True
|
||||
Me.oAus_ergebnis.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.oAus_ergebnis.Size = New System.Drawing.Size(65, 20)
|
||||
Me.oAus_ergebnis.TabIndex = 39
|
||||
'
|
||||
'iAus_schleife
|
||||
'
|
||||
Me.iAus_schleife.Location = New System.Drawing.Point(144, 25)
|
||||
Me.iAus_schleife.Name = "iAus_schleife"
|
||||
Me.iAus_schleife.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.iAus_schleife.Size = New System.Drawing.Size(64, 20)
|
||||
Me.iAus_schleife.TabIndex = 38
|
||||
Me.iAus_schleife.Text = "3"
|
||||
'
|
||||
'Label20
|
||||
'
|
||||
Me.Label20.AutoSize = True
|
||||
Me.Label20.Location = New System.Drawing.Point(8, 28)
|
||||
Me.Label20.Name = "Label20"
|
||||
Me.Label20.Size = New System.Drawing.Size(133, 13)
|
||||
Me.Label20.TabIndex = 37
|
||||
Me.Label20.Text = "Schleifenimpedanz [ Ohm ]"
|
||||
'
|
||||
'frm_Main
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(475, 250)
|
||||
Me.Controls.Add(Me.tab1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.Name = "frm_Main"
|
||||
Me.Text = "Leitungslängenberechnung"
|
||||
Me.tab1.ResumeLayout(False)
|
||||
Me.tab_page1.ResumeLayout(False)
|
||||
Me.tab_page1.PerformLayout()
|
||||
Me.tab_page2.ResumeLayout(False)
|
||||
Me.tab_page2.PerformLayout()
|
||||
Me.tab3.ResumeLayout(False)
|
||||
Me.tab3.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents tab1 As System.Windows.Forms.TabControl
|
||||
Friend WithEvents tab_page1 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents tab_page2 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents o230_querschnitt As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents i230_leitwert As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents i230_abfall As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents i230_wirkungsgrad As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents i230_strom As System.Windows.Forms.TextBox
|
||||
Friend WithEvents i230_spannung As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents i230_laenge As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents btn_beenden As System.Windows.Forms.Button
|
||||
Friend WithEvents btn_berechnen As System.Windows.Forms.Button
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents o230_spannungsabfall As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label16 As System.Windows.Forms.Label
|
||||
Friend WithEvents o400_querschnitt As System.Windows.Forms.TextBox
|
||||
Friend WithEvents btn_beenden400 As System.Windows.Forms.Button
|
||||
Friend WithEvents btn_berechnen400 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||
Friend WithEvents i400_leitwert As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label12 As System.Windows.Forms.Label
|
||||
Friend WithEvents i400_abfall As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label13 As System.Windows.Forms.Label
|
||||
Friend WithEvents i400_wirkungsgrad As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label14 As System.Windows.Forms.Label
|
||||
Friend WithEvents i400_strom As System.Windows.Forms.TextBox
|
||||
Friend WithEvents i400_spannung As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label15 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents o400_spannungsabfall As System.Windows.Forms.TextBox
|
||||
Friend WithEvents i400_laenge As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents tab3 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents Label21 As System.Windows.Forms.Label
|
||||
Friend WithEvents iAus_nennstrom As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label18 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label19 As System.Windows.Forms.Label
|
||||
Friend WithEvents oAus_ergebnis As System.Windows.Forms.TextBox
|
||||
Friend WithEvents iAus_schleife As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label20 As System.Windows.Forms.Label
|
||||
Friend WithEvents btn_beendenAus As System.Windows.Forms.Button
|
||||
Friend WithEvents btn_berechnenAus As System.Windows.Forms.Button
|
||||
Friend WithEvents iAus_nennspannung As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents check_ueber32A As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents check_unter32A As System.Windows.Forms.RadioButton
|
||||
Friend WithEvents Label22 As System.Windows.Forms.Label
|
||||
Friend WithEvents iAus_faktor As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label23 As System.Windows.Forms.Label
|
||||
Friend WithEvents iAus_type As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label17 As System.Windows.Forms.Label
|
||||
Friend WithEvents oAus_ausschaltstrom As System.Windows.Forms.TextBox
|
||||
Friend WithEvents oAus_rechnung As System.Windows.Forms.Label
|
||||
|
||||
End Class
|
||||
195
Leitungslaengenberechnung/frm_Main.resx
Normal file
195
Leitungslaengenberechnung/frm_Main.resx
Normal file
|
|
@ -0,0 +1,195 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAIAEBAAAAEAGABoAwAAJgAAACAgAAABABgAqAwAAI4DAAAoAAAAEAAAACAAAAABABgAAAAAAAAD
|
||||
AAASCwAAEgsAAAAAAAAAAAAAgHt8bmlqVE9QmJOUbmlqWlVWa2ZnZWBhHCQaHCIdPUFCaGtwhIeMb3N0
|
||||
UFZRaHBmYVxdV1JTWlVWdnFyUEtMR0JDXFdYV1JTHiQfO0A/U1ZbW1xmc3R+gYSJaW5tWF5ZWFNUQz4/
|
||||
aGNkY15fU05PU05PXFdYUUxNMDM3S01VVVVhV1ZmdHODlJSgiYuTYWRobWhpQDs8gXx9enV2fnl6b2pr
|
||||
Yl1eVlFSQUJMODhGMjBDWFVrhYKYo6G0qam3g4SOcm1uQz4/l5KToZydk46PX1pbTEdIVVBRNzdDISAw
|
||||
DgwgREBZgn6XtLLGzMvbkpKeX1pbRkFCjYiJr6qrgHt8ODM0MSwtSURFKSo0JSUzCAYZLSpAamd9uLbJ
|
||||
4uLwhYaQXllaTEdIYFtcm5aXc25vR0JDRD9AQDs8QkVKOTpEFxclPDpNYV9ynp6s1tfhfYCFcWxtVVBR
|
||||
MSwtgn1+fHd4fHd4cm1uQDs8bXFyR0pPIyMvX15ubm19fHyIu77DhYmKaWhkUU9OMC8xNjk+b3F8Ymd2
|
||||
g4mcXGN3amdwOjdATElSaWZvUU5XeHV+tbK7dXJ7cG9rU1FQCQgKDxIXMjQ+YGNxkZWnjZOmbWpzTUpT
|
||||
SEVOZGFqe3iBY2BpLis0bWpzZ2ZiUlNRAQEBCAkNEhQcaWt2oqOxvcDPhoSKTUtRPTtBYV9lenh+aGZs
|
||||
AAAEOjg+ZWZkYmNhNzc3LSwwJiYsX15njYyWrKq2l5aaVVRYY2JmjYyQTUxQdnV5Li0xIyImUVJQS0tL
|
||||
TExMGxocEg4TEw8UQT1DYl5kZWRmS0pMXVxelZSWKikrT05QTEtNFxYYaWtrU1NTY2NjKykpJyIjHBYX
|
||||
U0xPjYSHcnJyZmZmPDw8g4ODfX19bGxsQEBAKioqSkxMJScnMDAwHhkaEg0MGBAQPDIyi39/X19fQ0ND
|
||||
DAwMMDAwenp6WlpaAAAAGhoaX2FiNzk5Nzc3SkZFKiUkPDMwNiooh3p4cHFvWltZYWJgQkNBaWpoX2Be
|
||||
GxwaY2RiAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAACgAAAAgAAAAQAAAAAEAGAAAAAAAAAwAABILAAASCwAAAAAAAAAAAACTjo+Ef4B8d3hz
|
||||
bm+Piot4c3SSjY59eHmAgIB3d3d6enp4eHhsbGx0dHR/f392dnZwb3FfX19jY2NYWVd5enhZWlZpamZ+
|
||||
f3tjZmuCg4d8fn6JioiCgX2Df35rZWaXkZKGgYJZVFVcV1hUT1BLRkdtaGl4c3SblpdYWFhQUFBWVlZY
|
||||
WFhNTU1NTU1NTU0+Pj4AAAAAAAAODg4FBQUZGhgLDApCQ0F4eXd+gYZfYmdCQ0djY2NiYGBMR0gwKit6
|
||||
dHWAe3xAOzxeWVpmYWI4MzRvamtcV1iemZpOTk5CQkJISEhPT09ISEhISEhGRkY3NzcbGxsAAAAJCQkn
|
||||
JydeXl5jY2NzcnR5eHqKjJaKi5VydHxqanBhYGRsaWtPSkuFgYCGgYJAOzxcV1hzbm9QS0xqZWZkX2CW
|
||||
kZJVVVVDQ0NISEhUVFRUVFRbW1thYWFYWFgoKSchISE9PT1aWVtgX2NTUlZeXGJqaG5gZG+PkJ6dna18
|
||||
fIpdW2dta3FFQ0N0c2+Mh4hCPT43MjNNSElgW1xQS0x4c3SJhIVFRUU2NjZAQEBTU1NUVFRXV1ddXV1X
|
||||
V1diY2FLTEpTU1NpaGxUUlhQTVZfW2ZqZnJxdoV/gJSjpLmppr+Mip14d4E1NjR9gHeHgoNNSEktKClC
|
||||
PT5+eXpSTU5oY2RfWltISEg8PDxNTU1gYGBXV1dNTU1NTU1ISEheX1swMS8qKipVVFhKR1BaVmJYU2JL
|
||||
RVZ0eo19f5eenrygnb2opb++vspkZ2WFi4B/entWUVI4MzROSUqVkJGIg4RXUlNjXl9ubm5eXl5mZmZu
|
||||
bm5ZWVlJSUlPT09UVFQ8PTkyMzFKSUtxb3U2Mj1DPk1iXG96c4hFTGBiZYGKiKxybZSMh6bOzd1nbGpm
|
||||
bWB7dndQS0wvKis+OTqIg4S+ubpnYmOloKGMjIxzc3NsbGxnZ2dKSko/Pz9UVFRmZmZbXFgqKykcGx1A
|
||||
PkQVER0/OUpjXHF1bYR1e5J4fJmrqtGsqNG1sdTMzN5fZGKEjn55eXlERERAQEA7OztcXFzY2NiioqJ7
|
||||
e3uNhJl1bX6Nho1lX2BsZmGCeXVNQUFoW102Nio4NzkzMUcTETUAABsXFC5OS1RmY15zb4yRkamkq7y5
|
||||
ws/AytHW2t+PjZN8dXyBgYFGRkZbW1tWVlZQUFC6urrCwsKNjY16cYZ1bX5nYGdQSkteWFNuZWFbT09R
|
||||
REY0MipEQ0dNS2EtLE4BACMGAxw2NDpZVlFZVnCIiKCdo7alrruut8Db3ualo6mTjJOAgIA3NzdUVFRa
|
||||
WlpJSUmPj4/W1tacnJx+dYqCeotQSVA2MDE7NTBLQj5aTk42KSsSDwsvLTNGRFoxMFABACAAAA8bGR9P
|
||||
TEdjYHmbnLGvtcipscKosL3S1d2VlJh5dHZ+fn4vLy83NzdPT09dXV1tbW3Hx8e2trZ3boNyantRSlEj
|
||||
HR4VDwo0KydNQUE6LS8PCgwkICswLkQjI0EEBSEAAA0QDxNJRkJjYnaTlKivtMm+xdjByNfV1+GGhYll
|
||||
YWB8fHxHR0c+Pj5VVVVzc3NNTU2YmJjc3NxfVmtGPk9lXmU2MDEZEw5COTVEODhYS01GPklFP1AwLkQe
|
||||
HzkZGzMNDhweHSFPTEhGRlZdXnKAhJy7wdjY3vHm6POWlZeEgX1xcXFdXV1bW1tfX19fX18tLS1dXV3b
|
||||
29t3boNCOkuEfYRxa2xLRUBbUk5DNzdiVVdlW2xfWG0zMUcaHDQtMUQzNUA+PT9pZmJOUFtOUGJjZ3+l
|
||||
qcXKzubY2eePj4+LiYFwcHBWVlZkZGRZWVkyMjIyMjJBQUGlpaWso7hXT2B3cHeUjo91b2pbUk5JPT1W
|
||||
SUtgU2tpYXg6OE4XGi8xNkVBQ01MS012c29kZnBkZ3ZscImXm7ivs8zAwc97e3t1dWl9fX1GRkZdXV1P
|
||||
T08YGBhUVFRJSUlwcHDAt8xVTV5BOkGIgoN7dXBKQT1USEhOQUNjVnB7coxPTGUeIjUtM0A4O0NBQEJr
|
||||
Z2ZTVl5maXh0eJGSlbSnqsbFxtSEhYN2dmp+fn5YWFhra2tfX189PT1FRUVRUVFdXV2Hh4d6eX0rJzJ9
|
||||
eYW7t8OLiJFJSEpUVVN7fIp2dIdUTmU2MElCOU5STFddWFlqZ19aXFZeXWFpZXh/eZjFwOCRkamIjpl/
|
||||
iIt/f39VVVVeXl5GRkYWFhYYGBgoKCg7OzszODeOkZZsbHhiYXFraXyPj52Njph/godbXGpzcoJSTWIZ
|
||||
EyonHjJXUltoY2ReW1NTV0xVVVVhXm1qZn+gnbehorZ8golRW1t6enpTU1NeXl5AQEADAwMAAAADAwMZ
|
||||
GRkoMjJfZ25bYG96fZKMjae1t8+forducoVfYG5WVWU/O042MkVHQE9OSlBeWll7d3KQk4R+fniLiY95
|
||||
doVTUmJtb3pVXF9sdXJycnJSUlJqampUVFQSEhIAAAAAAAALCwswPEA5RExCSVxlaYVMT25ucZCNka6d
|
||||
ob1ra3tOTV1APUxZV2NqZW5PTE5WUlGHgn+Wl4dgX1VzcXB0cngHBg8VGBwQFxSBiYJycnJPT09paWla
|
||||
WlocHBwAAAAAAAAICAgAAAc1Pkx6gJeLj6xlZ4mipcSssM2Mkapzc4Vvbn5YVmJJSU9XVFZaWFhbV1Zn
|
||||
YmFzcmQ3NStNSkVvbW0FBAYRExMAAgBzeXR5eXlISEhYWFhOTk4aGhoBAQEAAAAGBgYAAA0lKD1YWXNg
|
||||
YH5TU3Gys83Gyt23vMufnrJ/fo5WVV5LTU1ZWFRRUExTT05sZmeIgnt0bmd1cG17d3YNCwsNDA4EBgdt
|
||||
b3B8fHxCQkJQUFBSUlItLS0XFxcICAgMDAwEABksJ0KEf5y7ttOjn7i7usqztb3b3+CvrcN1dYNLS1Fd
|
||||
YVx1dm1bW1VYVFOBe3yUioqNhYV1bW15c3QdGBoCAAMAAARjYGl5eXlAQEBVVVVnZ2dNTU03NzcdHR0W
|
||||
FhYhFzUIABwlGzljWnWGf5SsqbJwcW9wc2qAfpR0dIJXWFxRVU90dWuDhHt3dHBvaWqEeXxgVVg6MjOG
|
||||
gIFxbG4aFhwIBA9lYG9/f39KSkpjY2NUVFRYWFhPT09BQUEdHR0KDw4aHx4MERACBwYrMC9cYWBjaGdW
|
||||
W1phYWFmZmZhYWFWVlZbW1tycnKJiYmSkpJWVlY9PT0HBwdsbGx0dHQLCwsAAABsbGx/f386OjpRUVFQ
|
||||
UFBVVVVBQUE5OTkoKCgqKioqKioXFxcBAQEVFRVMTExqampiYmJvb29kZGRcXFxXV1dTU1NbW1t7e3ud
|
||||
nZ1oaGgICAgAAACQkJCZmZklJSULCwtcXFx+fn4wMDBLS0tWVlZaWlo2NjYsLCwlJSUtJygpIyQtJygh
|
||||
GxwiHB1dV1iPiYqFf4CDg4NqampbW1tZWVlPT09MTExzc3OoqKh2dnYmJiYzMzO4uLh5eXkFBQUHBwdb
|
||||
W1t+fn46OjpZWVlfX19fX188PDwsLCwcHBwOAwURBgg1Kiw+MzUzKCppXmCflJaOg4V3d3dfX19JSUk+
|
||||
Pj4yMjIzMzNUVFR9fX2ysrKysrKzs7O5ublBQUEAAAAMDAxnZ2dycnI6OjpTU1NDQ0NDQ0M3NzcyMjIb
|
||||
GxsPBAYPBAYxJig5LjAsISNhVliaj5GQhYd0dHRlZWVKSkovLy8lJSUuLi49PT1GRkZdXV1+fn5ZWVkt
|
||||
LS0AAAAAAAAAAABfX196enpAQEBNTU0vLy8yMjI8PDxNTU0+Pj4GAAEFAAAFAAAFAAAFAAA8Njd6dHWD
|
||||
fX5sbGxjY2NKSkosLCwiIiIqKiorKysiIiI3NzdLS0skJCQMDAwFBQUJCQkFBQV3d3dRUVEKCgoVFRUC
|
||||
AgIGBgYKCgojIyMlJSUJCQkHBwcAAAAAAAALCws2NjZbW1tnZ2deXl5SUlJEREQ4ODgwMDAsLCwvLy80
|
||||
NDRlZWVgYGBUVFRAQEAREREGBgYAAABXV1elpaVVVVVnZ2dnZ2dqampZWVlqamp3d3daX15ma2pgZWRc
|
||||
YWBxdnV+g4J6f353fHuCgoJycnJvb295eXlzc3NkZGRwcHCMjIyCgoJqamp/f39/f39OTk5ubm5ubm6W
|
||||
lpYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
72
Leitungslaengenberechnung/frm_Main.vb
Normal file
72
Leitungslaengenberechnung/frm_Main.vb
Normal file
|
|
@ -0,0 +1,72 @@
|
|||
Public Class frm_Main
|
||||
|
||||
Private Sub btn_beenden_Click(sender As Object, e As EventArgs) Handles btn_beenden.Click
|
||||
End
|
||||
End Sub
|
||||
|
||||
Private Sub btn_berechnen_Click(sender As Object, e As EventArgs) Handles btn_berechnen.Click
|
||||
o230_spannungsabfall.Text = Math.Round(CDec(i230_spannung.Text) * CDec(i230_abfall.Text) / 100, 2)
|
||||
o230_querschnitt.Text = Math.Round((2 * CDec(i230_laenge.Text) * CDec(i230_strom.Text) * CDec(i230_wirkungsgrad.Text)) / (CDec(i230_leitwert.Text) * CDec(o230_spannungsabfall.Text)), 2)
|
||||
End Sub
|
||||
|
||||
Private Sub btn_beenden400_Click(sender As Object, e As EventArgs) Handles btn_beenden400.Click
|
||||
End
|
||||
End Sub
|
||||
|
||||
Private Sub btn_berechnen400_Click(sender As Object, e As EventArgs) Handles btn_berechnen400.Click
|
||||
o400_spannungsabfall.Text = Math.Round(CDec(i400_spannung.Text) * CDec(i400_abfall.Text) / 100, 2)
|
||||
o400_querschnitt.Text = Math.Round((1.732 * CDec(i400_laenge.Text) * CDec(i400_strom.Text) * CDec(i400_wirkungsgrad.Text)) / (CDec(i400_leitwert.Text) * CDec(o400_spannungsabfall.Text)), 2)
|
||||
End Sub
|
||||
|
||||
Private Sub btn_beendenAus_Click(sender As Object, e As EventArgs) Handles btn_beendenAus.Click
|
||||
End
|
||||
End Sub
|
||||
Public Sub checkSettings()
|
||||
If check_unter32A.Checked = False Then
|
||||
iAus_faktor.Text = "3,5"
|
||||
iAus_nennspannung.SelectedIndex = 1
|
||||
If CDec(iAus_nennstrom.Text) < 32 Then
|
||||
iAus_nennstrom.Text = "32"
|
||||
End If
|
||||
Else
|
||||
If iAus_type.Text = "Schmelz" Or iAus_type.Text = "C" Then
|
||||
iAus_faktor.Text = "10"
|
||||
ElseIf iAus_type.Text = "B" Then
|
||||
iAus_faktor.Text = "5"
|
||||
ElseIf iAus_type.Text = "D" Then
|
||||
iAus_faktor.Text = "20"
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub check_unter32A_CheckedChanged(sender As Object, e As EventArgs) Handles check_unter32A.CheckedChanged
|
||||
checkSettings()
|
||||
End Sub
|
||||
|
||||
Private Sub check_ueber32A_CheckedChanged(sender As Object, e As EventArgs) Handles check_ueber32A.CheckedChanged
|
||||
checkSettings()
|
||||
End Sub
|
||||
|
||||
Private Sub iAus_nennspannung_SelectedIndexChanged(sender As Object, e As EventArgs) Handles iAus_nennspannung.SelectedIndexChanged
|
||||
checkSettings()
|
||||
End Sub
|
||||
|
||||
Private Sub iAus_type_SelectedIndexChanged(sender As Object, e As EventArgs) Handles iAus_type.SelectedIndexChanged
|
||||
checkSettings()
|
||||
End Sub
|
||||
|
||||
Private Sub frm_Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
iAus_nennspannung.SelectedIndex = 0
|
||||
iAus_type.SelectedIndex = 0
|
||||
End Sub
|
||||
|
||||
Private Sub btn_berechnenAus_Click(sender As Object, e As EventArgs) Handles btn_berechnenAus.Click
|
||||
checkSettings()
|
||||
oAus_ausschaltstrom.Text = CDec(iAus_nennstrom.Text) * CDec(iAus_faktor.Text)
|
||||
If CDec(iAus_nennspannung.Text) >= CDec(iAus_schleife.Text) * CDec(oAus_ausschaltstrom.Text) Then
|
||||
oAus_ergebnis.BackColor = Color.Green
|
||||
Else
|
||||
oAus_ergebnis.BackColor = Color.Red
|
||||
End If
|
||||
oAus_rechnung.Text = Math.Round(CDec(iAus_nennspannung.Text), 2) & " >= " & Math.Round(CDec(iAus_schleife.Text), 2) & " * " & Math.Round(CDec(oAus_ausschaltstrom.Text), 2) & Chr(13) & Chr(10) & Math.Round(CDec(iAus_nennspannung.Text), 2) & " >= " & Math.Round(CDec(iAus_schleife.Text) * CDec(oAus_ausschaltstrom.Text), 2)
|
||||
End Sub
|
||||
End Class
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1 @@
|
|||
C:\Users\Dominic\AppData\Local\Temporary Projects\Leitungslaengenberechnung\bin\Debug\Leitungslaengenberechnung.exe.config
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
Leitungslaengenberechnung/tmsnat.ico
Normal file
BIN
Leitungslaengenberechnung/tmsnat.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.1 KiB |
4
README.md
Normal file
4
README.md
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
Leitungslaengenberechnung
|
||||
=========================
|
||||
|
||||
Some calculations for electrical engineering - german language
|
||||
Loading…
Reference in a new issue