Schönen guten Abend!
Ein Sachse (eigentlich bin ich Thüringer) hat wieder mal ein Problem oder besser eine Aufgabe mit der er nicht selber zu recht kommt:
Es ist mehr eine Übungsaufgabe, die ich mir stellte und zwar mit dem Ziel mit 4 NumericUpDowns (es heißt wohl global Controls?) einen Umsatzsteuerrechner zu basteln, wobei bei der Eingabe eines Betrages in ein NumericUpDown-Feld in den anderen NumericUpDown-Feldern gleich das Ergebnis angezeigt wird.
Bei zwei Feldern funktioniert es doch bei dem Brutto-Feld gibt es eine Fehlermeldung schon bevor ein Wert eingegeben wird.
Ich vermute, dass das Programm schon beim Starten losrechnet und dass die Variablen dann noch den Wert „0“ oder „Nothing“ haben.
Ist das die Fehlerursache und wenn ja wie behebe ich den Fehler?
Siehe auch die beigelegten Screenshots und den Code (Den Steuerfeldern NumericUpDown habe ich das Präfix „nud“ verliehen.
Beste Grüße!
Hier das Programm:
Ein Sachse (eigentlich bin ich Thüringer) hat wieder mal ein Problem oder besser eine Aufgabe mit der er nicht selber zu recht kommt:
Es ist mehr eine Übungsaufgabe, die ich mir stellte und zwar mit dem Ziel mit 4 NumericUpDowns (es heißt wohl global Controls?) einen Umsatzsteuerrechner zu basteln, wobei bei der Eingabe eines Betrages in ein NumericUpDown-Feld in den anderen NumericUpDown-Feldern gleich das Ergebnis angezeigt wird.
Bei zwei Feldern funktioniert es doch bei dem Brutto-Feld gibt es eine Fehlermeldung schon bevor ein Wert eingegeben wird.
Ich vermute, dass das Programm schon beim Starten losrechnet und dass die Variablen dann noch den Wert „0“ oder „Nothing“ haben.
Ist das die Fehlerursache und wenn ja wie behebe ich den Fehler?
Siehe auch die beigelegten Screenshots und den Code (Den Steuerfeldern NumericUpDown habe ich das Präfix „nud“ verliehen.
Beste Grüße!
Hier das Programm:
VB.NET-Quellcode
- Option Explicit On
- Option Strict On
- Imports System.IO
- Imports System.Drawing
- Imports System.Windows.Forms
- Imports System.Drawing.Printing
- Imports System.Windows.Forms.DataFormats
- Public Class frmUmsatzsteuer
- Dim Netto, UmsatzsteuerEuro, UmsatzsteuerProzent, Brutto As Double
- Private Sub nudUmsatzsteuerEuro_ValueChanged(sender As Object, e As EventArgs) Handles nudUmsatzsteuerEuro.ValueChanged
- UmsatzsteuerProzent = nudUmsatzsteuerProzent.Value
- UmsatzsteuerEuro = nudUmsatzsteuerEuro.Value
- Netto = UmsatzsteuerEuro / (UmsatzsteuerProzent / 100)
- Brutto = Netto + UmsatzsteuerEuro
- nudNetto.Value = CDec(Netto)
- nudBrutto.Value = CDec(Brutto)
- End Sub
- Private Sub nudUmsatzsteuerProzent_ValueChanged(sender As Object, e As EventArgs) Handles nudUmsatzsteuerProzent.ValueChanged
- UmsatzsteuerProzent = nudUmsatzsteuerProzent.Value
- UmsatzsteuerEuro = Netto * UmsatzsteuerProzent / 100
- Brutto = UmsatzsteuerEuro + Netto
- nudUmsatzsteuerEuro.Value = CDec(UmsatzsteuerEuro)
- nudBrutto.Value = CDec(Brutto)
- End Sub
- Private Sub nudNetto_ValueChanged_1(sender As Object, e As EventArgs) Handles nudNetto.ValueChanged
- Netto = nudNetto.Value
- UmsatzsteuerProzent = nudUmsatzsteuerProzent.Value
- UmsatzsteuerEuro = (UmsatzsteuerProzent / 100) * Netto
- Brutto = Netto + UmsatzsteuerEuro
- nudUmsatzsteuerEuro.Value = CDec(UmsatzsteuerEuro)
- nudBrutto.Value = CDec(Brutto)
- End Sub
- Private Sub nudBrutto_ValueChanged(sender As Object, e As EventArgs) Handles nudBrutto.ValueChanged
- Brutto = nudBrutto.Value
- Netto = Brutto / ((UmsatzsteuerProzent / 100) + 1)
- UmsatzsteuerEuro = Brutto - Netto
- nudNetto.Value = CDec(Netto)
- nudBrutto.Value = CDec(Brutto)
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Uchi-Komi“ ()