Textboxen mit Steuer assieren

Viddi · 28. Oktober 2015, 14:05

Hallo an alle,

sorry für meie Frage und bitte entschuldigt, ich bin ein Anfänger, der mal mit Basic 6 oder so vor 10 Jahren zu tn hatte.
Mittlerweile habe ich auch schon das ganze Forum "durchgewühlt"

Ich habe gesamt 3 Text boxen txt_netto, txt_steuer, txt_ gesamt. Gern möchte ich, das ich in die beiden ersten eine Zahl mit Komma eingebe und dann bei einem Tab automatisch das Ergebnis oder Click auf diese Textbox die Summe erscheint.

Ich hatte auch schon Dim txt_netto As Integer etc. eingegeben und Codes von Euch, aber es klappt nicht. Vielleicht könnt ihr mir ja helfen. Wäre sehr dankbar.

Gibt es vielleicht auch eine Möglichkeit, wenn ich den Print Button drücke, das die Form 1 gleich zweimal gedruckt wird?

Jede Menge Fragen ....

Danke Viddi aus Hamburg

Edit by ~blaze~:
*Thema aus Offtopic verschoben*

Schamash · 28. Oktober 2015, 14:13

Da txt_Netto eine TextBox ist kann sie nicht als Variable "Integer" deklariert werden

VB.NET-Quellcode

Dim NettoWert as Integer = convert.ToInt32(txt_Netto.text)

Das Automatische Rechnen könntest du im Leave Event des Elements txt_Steuer unterbrinden

VB.NET-Quellcode

txt_gesammt.text = convert.ToInt32(txt_netto.text) + convert.ToInt32(txt_steuer.text)

shaebich · 28. Oktober 2015, 14:16

Bisschen Eigeninitiative zeigen

So schwer isses nicht und wenn du schonmal Programmiert hast, solltest du es auch hinbekommen.

Zeig doch einfach mal was du bisher hast und man kann dir helfen dies zu verbessern. Aber dir alles vorzulegen hilft keinem hier

Viddi · 28. Oktober 2015, 15:00

So bisher hatte ich folgenden Code lt Foru eingegeben.

VB.NET-Quellcode

Private Sub TextBox29_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox29.TextChanged
Dim inhalt2 As Double
inhalt2 = TextBox29.Text
If TextBox28.Text = "0" Then TextBox32.Text = Val(TextBox30.Text) + Val(TextBox29.Text)
End Sub

Das Val hatte ich gegen CDbl ausgetauscht. Klappte leider nicht, dasautomatisch in die txt_gesamt das Ergebnis rauskommt. Bezüglich der MwSt ist es kein Problem, da ich rechnen kann

Na

Bei button_click - drucken fogender Code: PrintForm1.Print()
Hatte schon verschiedenes versucht, mit Copie etc. doch leider klappte es nicht. Hoffe @ shaebich - Eigeninitiative ist da, mehr als genug, doch manchmal sieht man den Wald vor lauter Bäumen nicht mehr.

Liebe Grüße aus Hamburg

VB-Tags eingefügt. ~Thunderbolt

shaebich · 28. Oktober 2015, 15:17

Immer mit Variablen arbeiten anstatt mit den Controls.

TextTox32 ?!?! Was planst denn du da?

Nimm einfach ein paar Klassenvariablen, welchen du im TextBoxChangedEvent die neuen Werte zuweist.

z.B. so:

VB.NET-Quellcode

Dim betragNetto As Double
Dim steuersatz As Integer
Dim betragSteuer As Double
Dim betragGesamt As Double

Jetzt kannst du in den entsprechenden TextBoxen im Changed Event immer die Passende Variable einfach neu Setzten:

VB.NET-Quellcode

Me.betragNetto = Double.Parse(TextBoxXX.Text)

Für die Berechnung kannst du eine eigene Sub schreiben welche du in jedem Event aufrufst. In dieser wird der neue Gesamt Wert berechnet und in die TextBox geschrieben.

Klingt alles vielleicht ein bisschen kompliziert und umständlich (geht natürlich auch viel viel viel einfacher und schneller) aber ich denke so ist der Lerneffekt dann schon relativ groß

EDIT: kleines Sample Projekt im Anhang

Zitat entfernt. Ausführbare Dateien entfernt. ~Thunderbolt

Viddi · 28. Oktober 2015, 16:54

Hallo shaebich,

Leider kann ich die Datei nicht öffnen, benutze Visual Studio 2012
Vielleicht kannst du mir erklären, oder einen Link geben, wie ich eine eigene sub mit der Steuer schreibe.

Wie gesagt, vor 10 Jahren war ich mal dabei, hatte Spass und möchte gerne wieder reinkommen.

Danke erstmal. Ich weiss das es hier für manche - für mein Problem - "nichts" ist, aber ich stehe vor einem Rätsel.

Grüße aus Hamburg

RodFromGermany · 28. Oktober 2015, 17:40

Viddi schrieb:

Datei nicht öffnen

Ändere / ersetze folgende Dateien durch dies:

BruttoNettoRechner.sln

app.config

BruttoNettoRechner.vbproj

XML-Quellcode

<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.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>{85DE7820-1394-4B15-955B-F21DB3CE8359}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>BruttoNettoRechner.My.MyApplication</StartupObject>
<RootNamespace>BruttoNettoRechner</RootNamespace>
<AssemblyName>BruttoNettoRechner</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<TargetFrameworkProfile />
</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>BruttoNettoRechner.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>BruttoNettoRechner.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>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</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="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.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="Form1.resx">
<DependentUpon>Form1.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>
<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>

shaebich · 28. Oktober 2015, 21:21

Hier der ganze Code

VB.NET-Quellcode

Imports System.Globalization
Public Class Form1
Dim _BetragNetto As Double
Dim _Steuersatz As Integer
Dim _BetragSteuer As Double
Dim _Gesamtbetrag As Double
Private Sub Berechne()
Me._BetragSteuer = (Me._BetragNetto / 100) * Me._Steuersatz
Me.TextBox3.Text = Me._BetragSteuer.ToString("C", CultureInfo.CurrentCulture)
Me._Gesamtbetrag = Me._BetragNetto + Me._BetragSteuer
Me.TextBox4.Text = Me._Gesamtbetrag.ToString("C", CultureInfo.CurrentCulture)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Me._BetragNetto = Double.Parse(TextBox1.Text)
Me.Berechne()
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
Me._Steuersatz = Integer.Parse(TextBox2.Text)
Me.Berechne()
End Sub
End Class

petaod · 29. Oktober 2015, 09:21

Viddi schrieb:

vor 10 Jahren war ich mal dabei, hatte Spass und möchte gerne wieder reinkommen

Dann solltest du vielleicht mit Option Strict On beginnen, damit nicht solche Konstrukte dabei rauskommen.

Visual Basic-Quellcode

Dim inhalt2 As Double
inhalt2 = TextBox29.Text

Vielleicht mal diesen Thread lesen:
Visual Studio - Empfohlene Einstellungen

Viddi · 31. Oktober 2015, 09:57

Vielen Dank für Eure Hilfe. Ich habe es nun mit einem Button gelöst.
Weiter benötigen wir die Mehrwertsteuer nicht.
Hier der Code für das Rechnen:

VB.NET-Quellcode

Private Sub btn_rechnen_Click(sender As Object, e As EventArgs) Handles btn_rechnen.Click
Dim Zahl1 As Double
Dim Zahl2 As Double
Dim Ergebnis As Double
Double.TryParse(txt_netto.Text, Zahl1)
Double.TryParse(txt_summe.Text, Zahl2)
Ergebnis = Zahl1 + Zahl2
txt_gesamt.Text = Ergebnis.ToString()
End Sub

Denke, das es so richtig ist - es funktioniert zumindest.

Liebe Grüße aus Hamburg

VB-Tags eingefügt. ~Thunderbolt

petaod · 31. Oktober 2015, 11:44

Das sieht schon mal fast gut aus.
Beachte, dass TryParse einen Return-Wert zurückgibt, der dir anzeigt, ob der Text überhaupt in eine Zahl umwandelbar ist.
Stell dir vor, du gibst vierhundert in die Textbox ein.

Viddi · 31. Oktober 2015, 11:52

Hallo petaod,

ich habe hier es unterbunden Buchstaben einzugeben:

Private Sub txt_netto_KeyPress( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles txt_netto.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 32, 44
Case Else
e.Handled = True
End Select
End Sub

Das war so die einzige Lösung, die mir einfiel.

petaod · 31. Oktober 2015, 12:08

Auch eine Möglichkeit

Du hättest aber auch ein NumericUpDown-Control verwenden können.
Wenn dich die Pfeile irritieren, kannst du es auch optisch wie eine Textbox konfigurieren.

Viddi · 31. Oktober 2015, 12:12

Hatte ich auch versucht, hatte aber nicht ganz geklappt. Klar ist es besser damit zu arbeiten.

Aber der Newbie muss sich erstmal wieder rantasten, irgendwie haben sich seit VB 6 die Zeiten geändert.
Mennno er nimmt keine Smilis

RodFromGermany · 1. November 2015, 18:36

Viddi schrieb:

unterbunden Buchstaben einzugeben

Wenn das gesichert ist, kannst Du das TryParse weglassen.
Wichtig ist, ob Du die Double-Strings mit Komma oder mit Punkt ausstattest, dann musst Du zum Konvertieren die korrekte Kultur verwenden.

Textboxen mit Steuer assieren

Textboxen mit Steuer assieren

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Viddi schrieb:

Quellcode

XML-Quellcode

XML-Quellcode

VB.NET-Quellcode

Viddi schrieb:

Visual Basic-Quellcode

VB.NET-Quellcode

Viddi schrieb:

Ähnliche Themen

5 Benutzer haben hier geschrieben