Addieren von Zahlen mit NULLEN

Otti · 30. Oktober 2019, 18:06

Hallo zusammen.

Habe mal wieder ein Problem im Thema addieren.
Komme mal direkt zum Problem.

Ich habe ein Label mit dem Wert "0000000000000000000000015"
und möchte mit einem Button, pro Klick +1 rechnen und die NULLEN sollen allerdings stehen bleiben.
Habe das zusammen geschrieben, allerdings wird mein Wert "0000000000000000000000015" nur angehangen "00000000000000000000000150000000000000000000000001" wobei es eigentlich "0000000000000000000000016" ergeben soll.

Quellcode

Dim zahl As Integer = 0
zahl = 1
tDaten.Text += zahl.ToString("00000000000000000000000000000000")

Wer ist so nett und kann mir helfen. Danke schön

Trade · 30. Oktober 2019, 18:17

docs.microsoft.com/de-de/dotne…number-with-leading-zeros

Grüße

Otti · 30. Oktober 2019, 19:07

@Trade

Hey irgendwie komm ich nicht klar....die NULLEN im vorraus klappt, allerdings addiert sich da nix.
Habe ich den Code falsch?

Quellcode

Dim zahl As Integer = 1
Dim decimalLength As Integer = zahl.ToString("D").Length + 31
tDaten.Text = (zahl.ToString("D" & decimalLength.ToString()))

Joshi · 30. Oktober 2019, 19:27

Hi.

Ich mache das meist mittels "PadLeft/PadRight".

VB.NET-Quellcode

Dim ganzzahl As Integer = 15
Dim ausgabezahl As String = ""
ausgabezahl = ganzzahl.ToString.PadLeft(30, CChar("0"))
Debug.WriteLine("Zahl mit führenden Nullen, mit maximaler Auffüllung von 30 Zeichen.")
Debug.WriteLine("Der Zahlenwert der Variable ist 15: " & ausgabezahl)

.PadLeft(30, CChar("0"))
erst einmal muss ein String-Typ vorhanden sein...
Dann wird die anzahl der Auffüllung angegeben und optional das Auffüllzeichen.
Das CChar ist nur weil das auffüllzeichen ein Char-Typ sein muss.

Kann auch mitt leerzeichen aufgefüllt werden dann mittels CChar(" ") ...

Hoffe das Hilft...

c.u Joshi

Otti · 30. Oktober 2019, 19:36

@Joshi
danke, soweit klar...stehe wohl gerade voll auf dem Schlauch...
Wie bekomme ich denn die addition mit meinem vorhandem aus meinem Label hin???
Kann gerade absolut nicht folgen

Joshi · 30. Oktober 2019, 20:19

Hi.

Versuche mal dieses...

VB.NET-Quellcode

Dim ausgabezahl As String = ""
For i = 0 To 15 ' von 0 bis 15
i = i + 1 'addieren mit Eins
ausgabezahl = i.ToString.PadLeft(30, CChar("0"))
Debug.WriteLine("Zahl mit führenden Nullen, mit maximaler Auffüllung von 30 Zeichen.")
Debug.WriteLine(ausgabezahl)
Next

c.u. Joshi

Murmeli81 · 30. Oktober 2019, 20:22

Hallo Otti

VB.NET-Quellcode

Dim i As Integer = 14
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
i += 1
Label1.Text = i.ToString.PadLeft(30, CChar("0"))
End Sub

Gruss
mumeli81

Otti · 30. Oktober 2019, 20:42

@Murmeli81

Danke klappt...

Quellcode

Dim i As Integer = tDaten.Text
i += 1
tDaten.Text = i.ToString.PadLeft(32, CChar("0"))

petaod · 30. Oktober 2019, 20:49

Otti schrieb:

Dim i As Integer = tDaten.Text

Option Strict On!

Eierlein · 30. Oktober 2019, 20:51

VB.NET-Quellcode

Option Strict On
Module Module1
Sub Main()
Dim Text$
Dim zahl As Integer = 0, Zahl2 As Integer = 0
zahl = 1
Text = zahl.ToString("D30")
Debug.Print(Text)
Zahl2 = 15
Text = (Zahl2 + CInt(Text)).ToString("D30")
Debug.Print(Text)
End Sub
End Module

RodFromGermany · 31. Oktober 2019, 09:57

Otti schrieb:

Ich habe ein Label mit dem Wert "0000000000000000000000015"

Sortiere und verstehe zunächst die Begriffe, die Du verwendest, um nicht Äpfel mit Birnen zu vermengen.
Eine Zahl ist ein numerischer Wert, der im Rechner intern durch Einsen und Nullen dargestellt wird.
Dein "Wert" "0000000000000000000000015" ist eine String-Repräsentation des numerischen Wertes 15 mit führenden Nullen.
Die String-Repräsentation eines numerischen Wertes wird generiert durch eine geeignete Formatierung dieses Wertes.
Andersherum kann ein numerischer Wert aus einem String durch Parsen ermittelt werden.
Also:
Trenne Daten und GUI.
Gerechnet wird mit Daten, angezeigt wird deren String-Repräsentation.
Numerische Werte werden in geeigneten Controls (NUD, TextBox-Derivate) zum Editieren angezeigt.
Dies hier ist suboptimal:

Eierlein schrieb:

VB.NET-Quellcode

Text = (Zahl2 + CInt(Text)).ToString("D30")

besser wäre es, diese Un-Zeile in zwei Code-Zeilen zu zerlegen:

VB.NET-Quellcode

Dim Zahl3 = Integer.Parse(Text)
Text = (Zahl2 + Zahl3).ToString("D30")

dann ließe sich der Code auch debuggen, insbesondere, wenn die VAriable Text mit dem Wert "Roullade mit Klößen" befüllt ist.

Addieren von Zahlen mit NULLEN

Addieren von Zahlen mit NULLEN

Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Otti schrieb:

VB.NET-Quellcode

Otti schrieb:

Eierlein schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

7 Benutzer haben hier geschrieben