dominic
/
Leitungslaengenberechnung
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Veröffentlichung

Browse Source
master
Dominic Reich 9 years ago
parent ea791999f9
commit 1ba8010955
6 changed files with 1089 additions and 1054 deletions
Show Stats Download Patch File Download Diff File

359
Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj
Unescape View File

@ -1,163 +1,198 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <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')" /> <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup> <PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{AA6CFF3E-0565-4A31-BBE1-20988A610746}</ProjectGuid> <ProjectGuid>{AA6CFF3E-0565-4A31-BBE1-20988A610746}</ProjectGuid>
<OutputType>WinExe</OutputType> <OutputType>WinExe</OutputType>
<StartupObject>Leitungslaengenberechnung.My.MyApplication</StartupObject> <StartupObject>Leitungslaengenberechnung.My.MyApplication</StartupObject>
<RootNamespace>Leitungslaengenberechnung</RootNamespace> <RootNamespace>Leitungslaengenberechnung</RootNamespace>
<AssemblyName>Leitungslaengenberechnung</AssemblyName> <AssemblyName>Leitungslaengenberechnung</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion> <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
<PublishUrl>publish\</PublishUrl> <IsWebBootstrapper>true</IsWebBootstrapper>
<Install>true</Install> <PublishUrl>Z:\Leitungslaengenberechnung\</PublishUrl>
<InstallFrom>Disk</InstallFrom> <Install>true</Install>
<UpdateEnabled>false</UpdateEnabled> <InstallFrom>Web</InstallFrom>
<UpdateMode>Foreground</UpdateMode> <UpdateEnabled>true</UpdateEnabled>
<UpdateInterval>7</UpdateInterval> <UpdateMode>Foreground</UpdateMode>
<UpdateIntervalUnits>Days</UpdateIntervalUnits> <UpdateInterval>7</UpdateInterval>
<UpdatePeriodically>false</UpdatePeriodically> <UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdateRequired>false</UpdateRequired> <UpdatePeriodically>false</UpdatePeriodically>
<MapFileExtensions>true</MapFileExtensions> <UpdateRequired>false</UpdateRequired>
<ApplicationRevision>0</ApplicationRevision> <MapFileExtensions>true</MapFileExtensions>
<ApplicationVersion>1.0.0.0</ApplicationVersion> <InstallUrl>http://tools.dominicreich.com/Leitungslaengenberechnung/</InstallUrl>
<IsWebBootstrapper>false</IsWebBootstrapper> <UpdateUrl>http://tools.dominicreich.com/Leitungslaengenberechnung/</UpdateUrl>
<UseApplicationTrust>false</UseApplicationTrust> <SupportUrl>http://tmsn.at/%3ftools&amp;leitungslaengenberechnung</SupportUrl>
<BootstrapperEnabled>true</BootstrapperEnabled> <ErrorReportUrl>https://github.com/freefallcid/leitungslaengenberechnung/issues</ErrorReportUrl>
</PropertyGroup> <ProductName>Leitungslängenberechnung</ProductName>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PublisherName>Dominic Reich</PublisherName>
<PlatformTarget>AnyCPU</PlatformTarget> <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
<DebugSymbols>true</DebugSymbols> <ApplicationRevision>1</ApplicationRevision>
<DebugType>full</DebugType> <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<DefineDebug>true</DefineDebug> <UseApplicationTrust>false</UseApplicationTrust>
<DefineTrace>true</DefineTrace> <CreateDesktopShortcut>true</CreateDesktopShortcut>
<OutputPath>bin\Debug\</OutputPath> <ExcludeDeploymentUrl>true</ExcludeDeploymentUrl>
<DocumentationFile>Leitungslaengenberechnung.xml</DocumentationFile> <PublishWizardCompleted>true</PublishWizardCompleted>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget> <PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType> <DebugSymbols>true</DebugSymbols>
<DefineDebug>false</DefineDebug> <DebugType>full</DebugType>
<DefineTrace>true</DefineTrace> <DefineDebug>true</DefineDebug>
<Optimize>true</Optimize> <DefineTrace>true</DefineTrace>
<OutputPath>bin\Release\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Leitungslaengenberechnung.xml</DocumentationFile> <DocumentationFile>Leitungslaengenberechnung.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit> </PropertyGroup>
<UseVSHostingProcess>false</UseVSHostingProcess> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
</PropertyGroup> <PlatformTarget>AnyCPU</PlatformTarget>
<PropertyGroup> <DebugType>pdbonly</DebugType>
<OptionExplicit>On</OptionExplicit> <DefineDebug>false</DefineDebug>
</PropertyGroup> <DefineTrace>true</DefineTrace>
<PropertyGroup> <Optimize>true</Optimize>
<OptionCompare>Binary</OptionCompare> <OutputPath>bin\Release\</OutputPath>
</PropertyGroup> <DocumentationFile>Leitungslaengenberechnung.xml</DocumentationFile>
<PropertyGroup> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<OptionStrict>Off</OptionStrict> <Prefer32Bit>false</Prefer32Bit>
</PropertyGroup> <UseVSHostingProcess>false</UseVSHostingProcess>
<PropertyGroup> </PropertyGroup>
<OptionInfer>On</OptionInfer> <PropertyGroup>
</PropertyGroup> <OptionExplicit>On</OptionExplicit>
<PropertyGroup> </PropertyGroup>
<ApplicationIcon>cable.ico</ApplicationIcon> <PropertyGroup>
</PropertyGroup> <OptionCompare>Binary</OptionCompare>
<ItemGroup> </PropertyGroup>
<Reference Include="System" /> <PropertyGroup>
<Reference Include="System.Data" /> <OptionStrict>Off</OptionStrict>
<Reference Include="System.Deployment" /> </PropertyGroup>
<Reference Include="System.Drawing" /> <PropertyGroup>
<Reference Include="System.Windows.Forms" /> <OptionInfer>On</OptionInfer>
<Reference Include="System.Xml" /> </PropertyGroup>
<Reference Include="System.Core" /> <PropertyGroup>
<Reference Include="System.Xml.Linq" /> <ApplicationIcon>cable.ico</ApplicationIcon>
<Reference Include="System.Data.DataSetExtensions" /> </PropertyGroup>
</ItemGroup> <PropertyGroup>
<ItemGroup> <ManifestCertificateThumbprint>528486DB0FBE19A685C8460B46BA67E50BDFB669</ManifestCertificateThumbprint>
<Import Include="Microsoft.VisualBasic" /> </PropertyGroup>
<Import Include="System" /> <PropertyGroup>
<Import Include="System.Collections" /> <ManifestKeyFile>Leitungslaengenberechnung_TemporaryKey.pfx</ManifestKeyFile>
<Import Include="System.Collections.Generic" /> </PropertyGroup>
<Import Include="System.Data" /> <PropertyGroup>
<Import Include="System.Drawing" /> <GenerateManifests>true</GenerateManifests>
<Import Include="System.Diagnostics" /> </PropertyGroup>
<Import Include="System.Windows.Forms" /> <PropertyGroup>
<Import Include="System.Linq" /> <SignManifests>true</SignManifests>
<Import Include="System.Xml.Linq" /> </PropertyGroup>
<Import Include="System.Threading.Tasks" /> <ItemGroup>
</ItemGroup> <Reference Include="System" />
<ItemGroup> <Reference Include="System.Data" />
<Compile Include="frm_Main.vb"> <Reference Include="System.Deployment" />
<SubType>Form</SubType> <Reference Include="System.Drawing" />
</Compile> <Reference Include="System.Windows.Forms" />
<Compile Include="frm_Main.Designer.vb"> <Reference Include="System.Xml" />
<DependentUpon>frm_Main.vb</DependentUpon> <Reference Include="System.Core" />
<SubType>Form</SubType> <Reference Include="System.Xml.Linq" />
</Compile> <Reference Include="System.Data.DataSetExtensions" />
<Compile Include="My Project\AssemblyInfo.vb" /> </ItemGroup>
<Compile Include="My Project\Application.Designer.vb"> <ItemGroup>
<AutoGen>True</AutoGen> <Import Include="Microsoft.VisualBasic" />
<DependentUpon>Application.myapp</DependentUpon> <Import Include="System" />
</Compile> <Import Include="System.Collections" />
<Compile Include="My Project\Resources.Designer.vb"> <Import Include="System.Collections.Generic" />
<AutoGen>True</AutoGen> <Import Include="System.Data" />
<DesignTime>True</DesignTime> <Import Include="System.Drawing" />
<DependentUpon>Resources.resx</DependentUpon> <Import Include="System.Diagnostics" />
</Compile> <Import Include="System.Windows.Forms" />
<Compile Include="My Project\Settings.Designer.vb"> <Import Include="System.Linq" />
<AutoGen>True</AutoGen> <Import Include="System.Xml.Linq" />
<DependentUpon>Settings.settings</DependentUpon> <Import Include="System.Threading.Tasks" />
<DesignTimeSharedInput>True</DesignTimeSharedInput> </ItemGroup>
</Compile> <ItemGroup>
</ItemGroup> <Compile Include="frm_Main.vb">
<ItemGroup> <SubType>Form</SubType>
<EmbeddedResource Include="frm_Main.resx"> </Compile>
<DependentUpon>frm_Main.vb</DependentUpon> <Compile Include="frm_Main.Designer.vb">
</EmbeddedResource> <DependentUpon>frm_Main.vb</DependentUpon>
<EmbeddedResource Include="My Project\Resources.resx"> <SubType>Form</SubType>
<Generator>VbMyResourcesResXFileCodeGenerator</Generator> </Compile>
<LastGenOutput>Resources.Designer.vb</LastGenOutput> <Compile Include="My Project\AssemblyInfo.vb" />
<CustomToolNamespace>My.Resources</CustomToolNamespace> <Compile Include="My Project\Application.Designer.vb">
<SubType>Designer</SubType> <AutoGen>True</AutoGen>
</EmbeddedResource> <DependentUpon>Application.myapp</DependentUpon>
</ItemGroup> </Compile>
<ItemGroup> <Compile Include="My Project\Resources.Designer.vb">
<None Include="My Project\Application.myapp"> <AutoGen>True</AutoGen>
<Generator>MyApplicationCodeGenerator</Generator> <DesignTime>True</DesignTime>
<LastGenOutput>Application.Designer.vb</LastGenOutput> <DependentUpon>Resources.resx</DependentUpon>
</None> </Compile>
<None Include="My Project\Settings.settings"> <Compile Include="My Project\Settings.Designer.vb">
<Generator>SettingsSingleFileGenerator</Generator> <AutoGen>True</AutoGen>
<CustomToolNamespace>My</CustomToolNamespace> <DependentUpon>Settings.settings</DependentUpon>
<LastGenOutput>Settings.Designer.vb</LastGenOutput> <DesignTimeSharedInput>True</DesignTimeSharedInput>
</None> </Compile>
<None Include="App.config" /> </ItemGroup>
</ItemGroup> <ItemGroup>
<ItemGroup> <EmbeddedResource Include="frm_Main.resx">
<Content Include="cable.ico" /> <DependentUpon>frm_Main.vb</DependentUpon>
<Content Include="tmsnat.ico" /> </EmbeddedResource>
</ItemGroup> <EmbeddedResource Include="My Project\Resources.resx">
<ItemGroup> <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<BootstrapperPackage Include=".NETFramework,Version=v4.5"> <LastGenOutput>Resources.Designer.vb</LastGenOutput>
<Visible>False</Visible> <CustomToolNamespace>My.Resources</CustomToolNamespace>
<ProductName>Microsoft .NET Framework 4.5 %28x86 and x64%29</ProductName> <SubType>Designer</SubType>
<Install>true</Install> </EmbeddedResource>
</BootstrapperPackage> </ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1"> <ItemGroup>
<Visible>False</Visible> <None Include="Leitungslaengenberechnung_TemporaryKey.pfx" />
<ProductName>.NET Framework 3.5 SP1</ProductName> <None Include="My Project\Application.myapp">
<Install>false</Install> <Generator>MyApplicationCodeGenerator</Generator>
</BootstrapperPackage> <LastGenOutput>Application.Designer.vb</LastGenOutput>
</ItemGroup> </None>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <None Include="My Project\Settings.settings">
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <Generator>SettingsSingleFileGenerator</Generator>
Other similar extension points exist, see Microsoft.Common.targets. <CustomToolNamespace>My</CustomToolNamespace>
<Target Name="BeforeBuild"> <LastGenOutput>Settings.Designer.vb</LastGenOutput>
</Target> </None>
<Target Name="AfterBuild"> <None Include="App.config" />
</Target> </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> </Project>

24
Leitungslaengenberechnung/Leitungslaengenberechnung.vbproj.user
Unescape View File

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

70
Leitungslaengenberechnung/My Project/AssemblyInfo.vb
Unescape View File

@ -1,35 +1,35 @@
Imports System Imports System
Imports System.Reflection Imports System.Reflection
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following ' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information ' set of attributes. Change these attribute values to modify the information
' associated with an assembly. ' associated with an assembly.
' Review the values of the assembly attributes ' Review the values of the assembly attributes
<Assembly: AssemblyTitle("Leitungslaengenberechnung")> <Assembly: AssemblyTitle("Leitungslaengenberechnung")>
<Assembly: AssemblyDescription("")> <Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")> <Assembly: AssemblyCompany("Dominic Reich")>
<Assembly: AssemblyProduct("Leitungslaengenberechnung")> <Assembly: AssemblyProduct("Leitungslaengenberechnung")>
<Assembly: AssemblyCopyright("Copyright © 2014")> <Assembly: AssemblyCopyright("Copyright © 2014 Dominic Reich")>
<Assembly: AssemblyTrademark("")> <Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM 'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("871e19c6-2dcd-494b-ba8b-2fb8a05db8ee")> <Assembly: Guid("871e19c6-2dcd-494b-ba8b-2fb8a05db8ee")>
' Version information for an assembly consists of the following four values: ' Version information for an assembly consists of the following four values:
' '
' Major Version ' Major Version
' Minor Version ' Minor Version
' Build Number ' Build Number
' Revision ' Revision
' '
' You can specify all the values or you can default the Build and Revision Numbers ' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below: ' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.*")> <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

1546
Leitungslaengenberechnung/frm_Main.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

144
Leitungslaengenberechnung/frm_Main.vb
Unescape View File

@ -1,72 +1,72 @@
Public Class frm_Main Public Class frm_Main
Private Sub btn_beenden_Click(sender As Object, e As EventArgs) Handles btn_beenden.Click Private Sub btn_beenden_Click(sender As Object, e As EventArgs) Handles btn_beenden.Click
End End
End Sub End Sub
Private Sub btn_berechnen_Click(sender As Object, e As EventArgs) Handles btn_berechnen.Click 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_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) 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 End Sub
Private Sub btn_beenden400_Click(sender As Object, e As EventArgs) Handles btn_beenden400.Click Private Sub btn_beenden400_Click(sender As Object, e As EventArgs) Handles btn_beenden400.Click
End End
End Sub End Sub
Private Sub btn_berechnen400_Click(sender As Object, e As EventArgs) Handles btn_berechnen400.Click 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_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) 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 End Sub
Private Sub btn_beendenAus_Click(sender As Object, e As EventArgs) Handles btn_beendenAus.Click Private Sub btn_beendenAus_Click(sender As Object, e As EventArgs) Handles btn_beendenAus.Click
End End
End Sub End Sub
Public Sub checkSettings() Public Sub checkSettings()
If check_unter32A.Checked = False Then If check_unter32A.Checked = False Then
iAus_faktor.Text = "3,5" iAus_faktor.Text = "3,5"
iAus_nennspannung.SelectedIndex = 1 iAus_nennspannung.SelectedIndex = 1
If CDec(iAus_nennstrom.Text) < 32 Then If CDec(iAus_nennstrom.Text) < 32 Then
iAus_nennstrom.Text = "32" iAus_nennstrom.Text = "32"
End If End If
Else Else
If iAus_type.Text = "Schmelz" Or iAus_type.Text = "C" Then If iAus_type.Text = "Schmelz" Or iAus_type.Text = "C" Then
iAus_faktor.Text = "10" iAus_faktor.Text = "10"
ElseIf iAus_type.Text = "B" Then ElseIf iAus_type.Text = "B" Then
iAus_faktor.Text = "5" iAus_faktor.Text = "5"
ElseIf iAus_type.Text = "D" Then ElseIf iAus_type.Text = "D" Then
iAus_faktor.Text = "20" iAus_faktor.Text = "20"
End If End If
End If End If
End Sub End Sub
Private Sub check_unter32A_CheckedChanged(sender As Object, e As EventArgs) Handles check_unter32A.CheckedChanged Private Sub check_unter32A_CheckedChanged(sender As Object, e As EventArgs) Handles check_unter32A.CheckedChanged
checkSettings() checkSettings()
End Sub End Sub
Private Sub check_ueber32A_CheckedChanged(sender As Object, e As EventArgs) Handles check_ueber32A.CheckedChanged Private Sub check_ueber32A_CheckedChanged(sender As Object, e As EventArgs) Handles check_ueber32A.CheckedChanged
checkSettings() checkSettings()
End Sub End Sub
Private Sub iAus_nennspannung_SelectedIndexChanged(sender As Object, e As EventArgs) Handles iAus_nennspannung.SelectedIndexChanged Private Sub iAus_nennspannung_SelectedIndexChanged(sender As Object, e As EventArgs) Handles iAus_nennspannung.SelectedIndexChanged
checkSettings() checkSettings()
End Sub End Sub
Private Sub iAus_type_SelectedIndexChanged(sender As Object, e As EventArgs) Handles iAus_type.SelectedIndexChanged Private Sub iAus_type_SelectedIndexChanged(sender As Object, e As EventArgs) Handles iAus_type.SelectedIndexChanged
checkSettings() checkSettings()
End Sub End Sub
Private Sub frm_Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frm_Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
iAus_nennspannung.SelectedIndex = 0 iAus_nennspannung.SelectedIndex = 0
iAus_type.SelectedIndex = 0 iAus_type.SelectedIndex = 0
End Sub End Sub
Private Sub btn_berechnenAus_Click(sender As Object, e As EventArgs) Handles btn_berechnenAus.Click Private Sub btn_berechnenAus_Click(sender As Object, e As EventArgs) Handles btn_berechnenAus.Click
checkSettings() checkSettings()
oAus_ausschaltstrom.Text = CDec(iAus_nennstrom.Text) * CDec(iAus_faktor.Text) 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 If CDec(iAus_nennspannung.Text) >= CDec(iAus_schleife.Text) * CDec(oAus_ausschaltstrom.Text) Then
oAus_ergebnis.BackColor = Color.Green oAus_ergebnis.BackColor = Color.Green
Else Else
oAus_ergebnis.BackColor = Color.Red oAus_ergebnis.BackColor = Color.Red
End If 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) 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 Sub
End Class End Class

BIN
cable.ico
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 9.4 KiB

Write Preview
Loading…
Cancel
Save