Veröffentlichung

master
Dominic Reich 9 years ago
parent ea791999f9
commit 1ba8010955

@ -1,163 +1,198 @@
<?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>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.0</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</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>
<Prefer32Bit>false</Prefer32Bit>
<UseVSHostingProcess>false</UseVSHostingProcess>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>cable.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="cable.ico" />
<Content Include="tmsnat.ico" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.5">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.5 %28x86 and x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</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>
-->
<?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>
<IsWebBootstrapper>true</IsWebBootstrapper>
<PublishUrl>Z:\Leitungslaengenberechnung\</PublishUrl>
<Install>true</Install>
<InstallFrom>Web</InstallFrom>
<UpdateEnabled>true</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<InstallUrl>http://tools.dominicreich.com/Leitungslaengenberechnung/</InstallUrl>
<UpdateUrl>http://tools.dominicreich.com/Leitungslaengenberechnung/</UpdateUrl>
<SupportUrl>http://tmsn.at/%3ftools&amp;leitungslaengenberechnung</SupportUrl>
<ErrorReportUrl>https://github.com/freefallcid/leitungslaengenberechnung/issues</ErrorReportUrl>
<ProductName>Leitungslängenberechnung</ProductName>
<PublisherName>Dominic Reich</PublisherName>
<OpenBrowserOnPublish>false</OpenBrowserOnPublish>
<ApplicationRevision>1</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<CreateDesktopShortcut>true</CreateDesktopShortcut>
<ExcludeDeploymentUrl>true</ExcludeDeploymentUrl>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
</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>
<Prefer32Bit>false</Prefer32Bit>
<UseVSHostingProcess>false</UseVSHostingProcess>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>cable.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>528486DB0FBE19A685C8460B46BA67E50BDFB669</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>Leitungslaengenberechnung_TemporaryKey.pfx</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>true</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<SignManifests>true</SignManifests>
</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="Leitungslaengenberechnung_TemporaryKey.pfx" />
<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="cable.ico" />
<Content Include="tmsnat.ico" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include=".NETFramework,Version=v4.5">
<Visible>False</Visible>
<ProductName>Microsoft .NET Framework 4.5 %28x86 and x64%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup>
<PublishFile Include="tmsnat.ico">
<Visible>False</Visible>
<Group>
</Group>
<TargetPath>
</TargetPath>
<PublishState>Exclude</PublishState>
<IncludeHash>True</IncludeHash>
<FileType>File</FileType>
</PublishFile>
</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>

@ -1,13 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<PublishUrlHistory>publish\</PublishUrlHistory>
<InstallUrlHistory />
<SupportUrlHistory />
<UpdateUrlHistory />
<BootstrapperUrlHistory />
<ErrorReportUrlHistory />
<FallbackCulture>de-DE</FallbackCulture>
<VerifyUploadedFiles>false</VerifyUploadedFiles>
</PropertyGroup>
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<PublishUrlHistory>Z:\Leitungslaengenberechnung\|publish\</PublishUrlHistory>
<InstallUrlHistory>http://tools.dominicreich.com/Leitungslaengenberechnung/</InstallUrlHistory>
<SupportUrlHistory>http://tmsn.at/%3ftools&amp;leitungslaengenberechnung</SupportUrlHistory>
<UpdateUrlHistory />
<BootstrapperUrlHistory />
<ErrorReportUrlHistory>https://github.com/freefallcid/leitungslaengenberechnung/issues</ErrorReportUrlHistory>
<FallbackCulture>de-DE</FallbackCulture>
<VerifyUploadedFiles>false</VerifyUploadedFiles>
</PropertyGroup>
</Project>

@ -1,35 +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")>
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("Dominic Reich")>
<Assembly: AssemblyProduct("Leitungslaengenberechnung")>
<Assembly: AssemblyCopyright("Copyright © 2014 Dominic Reich")>
<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.*")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

File diff suppressed because it is too large Load Diff

@ -1,72 +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
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.

After

Width:  |  Height:  |  Size: 9.4 KiB

Loading…
Cancel
Save