Wie kann ich in VB einen Double mit Punkt auslesen?

Hey, ich habe ein Problem, ich will (in VB) mit einem double Komma Zahlen rechnen (das Funktioniert auch so) aber wenn ich sie zu einem String konvertiere (.toString) dann bekomme ich nur soetwas raus: "123456", also ohne Punkt :/ Kann mir jemand helfen? Danke im Voraus :)

Code: Dim Verbrauch As Double = Double.Parse(Wert2a.Text & "." & Wert2b.Text) - Double.Parse(Wert1a.Text & "." & Wert1b.Text)

3 Antworten

CrystalixXx

01.09.2015, 23:33

Ich vermute, dass es an deiner Culture-Einstellung liegt. Im deutschen werden Gleitkommazahlen durch ein Komma getrennt, im englischen durch einen Punkt. Der Punkt wird bei der Konvertierung einfach geschluckt.

Ersetze also deinen Punkt durch ein Komma oder wenn du es gleich richtig machen willst, verwende das passende Culture-Objekt bei Konvertierungen von Gleitkommazahlen.

Fitje

17.08.2015, 19:06

Mach zwar Basic nur mit Excel, aber da hab ich ein ähnliches Problem.

Ich lese den Wert zuerst als String aus, und dann stelle ich fest, wo das Komma im Text sitzt, das tausche ich dann gegen einen Punkt aus.

Erst dann konvertiere ich das ganze in andere Formate. Das ist das blöde an Basic, das kann nur Strings mit Punkten zu Zahlen verarbeiten, nicht mit Kommas. Vielleicht hilft dir das weiter.

Geh mal auf www.programmierer-forum.de und guck dir die

VBA - Seiten an. Vielleicht hilft dir das weiter. Da hab ich ein paar Excel-Tabellen zum lernen hingestellt.

Viel Glück

David3103

17.08.2015, 20:53

Verwende einfach NunericUpDown an stelle der TextBox. Mit

Dim ZahlA As Double = NumericUpDown1.Value

Kannst du dann den Inhalt direkt als Double auslesen.

Ich folgendes Problem:

Der Wert vom Typ String() kann nicht in String konventiert werden.

Meine definierte Variable: Dim file As String = Desktop.notepad_file

In desktop.vb:

>> Setzung: Public notepad_file As String

>> Nutzung: notepad_file = Label1.Text

...zur Frage

Double Wert aus TXT Datei auslesen in Java?

Habe eine TXT Datei mit nur einem Wert wie zum Beispiel 5.5

Wie kann ich diese Datei nicht als String sondern direkt als Double auslesen?

...zur Frage

Was heißt diese C# Fehlermeldung und wie löst man das Problem?

Hallo,

Ich bekomme immer diese Fehlermeldung beim ausführen:

System.ArgumentException: "Format of the initialization string does not conform to specification starting at index 0."

Das ist mein Code:

using System;
using MySql.Data.MySqlClient;
namespace Database_projekt
{
  class Program
  {
    static void Main(string[] args)
    {
      string verbindungsdaten = "SERVER=localhost;" + "DATABASE=dtbs;" + "UID=admin;" + "PASSWORD=Wasd200!;";
      MySqlConnection verbindung = new MySqlConnection("verbindungsdaten");

      Console.WriteLine("Bitte geben sie die Artikelnummer ein.");
      int artikelnummer = int.Parse(Console.ReadLine());

      Console.WriteLine("Bitte geben sie den Fahrradtyp ein.");
      string typ = Console.ReadLine();

      Console.WriteLine("Bitte geben sie die Farbe ein.");
      string farbe = Console.ReadLine();

      Console.WriteLine("Bitte geben sie den Preis ein.");
      Console.WriteLine("Euro: ");
      double preisEuro = double.Parse(Console.ReadLine());
      Console.WriteLine("Cent: ");
      double preisCent = double.Parse(Console.ReadLine());



      string befehl = "INSERT INTO fahrraeder VALUES(" +
        artikelnummer + ",' " +
        typ + " ' ,'" +
        farbe + "' ," +
        preisEuro + "." + preisCent + ");";

      MySqlCommand befehlsobjekt = new MySqlCommand(befehl);
      befehlsobjekt.Connection = verbindung;

      verbindung.Open();
      befehlsobjekt.ExecuteNonQuery();
      verbindung.Close();

      string befehl2 = "SELECT * FROM fahrraeder;";

      MySqlCommand befehlsobjekt2 = new MySqlCommand(befehl2);
      befehlsobjekt.Connection = verbindung;

      MySqlDataReader Reader;
      verbindung.Open();

      Reader = befehlsobjekt2.ExecuteReader();
      while (Reader.Read())
      {
        string zeile = "";
        for (int i = 0; i < Reader.FieldCount; i++) 
        zeile += Reader.GetValue(i).ToString() + " ";
        Console.WriteLine(zeile);
      }


      verbindung.Close();


    }
  }
}

Wie löst man das?

...zur Frage

C# Der +- Operator kann nicht auf Operanden vom Typ "Methodengruppe" und "string" angewendet werden?

Ich bin noch ein Frischling, deshalb ein wäre bisschen Verständnis ganz hilfreich ^^. Typ Methodengruppe dürfte wahrscheinlich double gemeint sein, allerdings ist mein gesamter Programmcode nur noch kaputt, seitdem ich Math.Round(); verwende. Wenn jemand Rat weiß, dann bitte schnell <.>

private void Client_DownloadProgressChanged(object sender, DownloadProgressChangedEventArgs e)
        {
            downProg.Value = 0;
            downProg.Maximum = 100;
            long totalkb = e.TotalBytesToReceive / 1024;
            long byteskb = e.BytesReceived / 1024;
            double totalmb = totalkb / 1024;
            double bytesmb = byteskb / 1024;

            if(totalkb > 9999)
            {
                double w1 = Math.Round(bytesmb, 2).ToString + " MB / " + Math.Round(totalmb, 2).ToString + " MB";
            }
            else
            {
                downSize.Text = 
            }
        }

Wenn es noch offene Fragen gibt, einfach schreiben. Danke ! :)

...zur Frage

Excelformel: Gegeben sind 10.000€ - aufteilen in Scheine (500,200,100, ..etc)?

Hallo,

ich möchte mir das "zur Bank gehen" erleichtern.

Ich habe Budget X (Beispiel: 10.000€), diese sollen nun verteilt werden auf die jeweilig verfügbaren Euro-Scheine.

Die Summe muss insgesamt 100% ergeben.

Also:

Gegeben 10.000€

5x 500€

6x 200€

5x 100€ etc. - Bis zum 5€ Schein.

== 10.000€

Hat der wer eine Excelformel parat?

Danke und liebe Grüße

Folgendes habe ich mir gebastelt:

VBA Code sieht aus wie folgt:

Sub Schaltfläche_Klicken()

    Dim totalBudget As Double
    Dim billValue As Double
    Dim billCount As Integer
    Dim billWeight As Double
    Dim remainingBudget As Double

    'Prompt user for total budget
    totalBudget = InputBox("Enter total budget:")
    remainingBudget = totalBudget
    ActiveSheet.Range("B9").Value = totalBudget

    'Array of bill types and weighting
    billTypes = Array(500, 200, 100, 50, 20, 10, 5)
    billWeights = Array(0.1, 0.2, 0.3, 0.2, 0.1, 0.05, 0.05)

    'Distribute budget based on weighting
    For i = 0 To 6
        billValue = billTypes(i)
        billWeight = billWeights(i)
        billCount = billWeight * (totalBudget / billValue)
        remainingBudget = remainingBudget - (billCount * billValue)
        ActiveSheet.Range("A" & i + 1).Value = billCount
    Next i
End Sub

Leider finde ich meinen Denkfehler noch nicht, da nicht der gesamteingegebene Wert verarbeitet wird. Häufig bleibt ein unlogisch Rest (bspw: User: 1450€, berechneter Geldwert der Scheine jedoch 1185€, sprich man hätte nochmal 2x 100€ mindestens ausgeben lassen können.

...zur Frage

Console.ReadLine in Double[ ] einlesen?

Guten Tag

Ich will bei meinem Mathematik Programm den Benutzter dazu auffordern in eine ReadLine mehrere Zahlen einzugeben z.B. 232, 123, 1, 1, 4 usw.

Ich habe diese ReadLine in einem String(allezahlen) gespeichert. Ich habe dann ein String Array erstellt und die einzelnen Werte des String Array so eingelesen das der String(allezahlen) mit der Split Funktion bei den Kommas getrennt wird. Ich will also jede einzelne Zahl bei dem Komma trennen. Danach will ich den String Array in einen Double Array wandeln. Beim Debuggen stürzt es immer ab ohne Erklärung warum. Kann mir jemand helfen?

Danke im Voraus

Simon

...zur Frage

Java String split bei punkt und komma?

Hi! Ich habe eine Frage:

Man kann ja in Java mit .split einen String in einen Array teilen. Das geht allerdings damit nur mit einem Zeichen, d.h. nur bei z.B. einem Punkt.

satz.split(".");

Ich muss aber einen Text bei zwei verschiedenen Zeichen teilen, also bei einem Punkt und einem Komma. So was wie das suche ich:

satz.split(".",",")

Gibt es eine möglichkeit, so etwas zu machen? Danke schon mal!

...zur Frage

VBA Programmierung - Automatischer Email versandt Probleme?

Hallo ich hoffe Ihr könnt mir helfen :/

Folgendes Problem: Wenn ich die Mail versende, öffnen sich für jede Zeile eine extra Email und leider auch nur jeweils ein Empfänger und einer in cc.

Was muss ich nun in der Programmierung hinzufügen, um nur eine Email geöffnet zu bekommen, mit mehreren Empfängern (Falls mehrere Kreuze gesetzt worden sind). Ich danke euch echt wenn Ihr mir helfen können :/

Ich habe mir die Bausteine aus dem Internet zusammengesetzt, bin daher kein Profi darin.

Programmtext:

Private Sub Send_Email()
   '-------------< Send_Email() >-------------
   Dim sTitle As String
   sTitle = "Test-HTML Email from Excel"
   '< HMTL holen >
   Dim sTemplate As String
   sTemplate = Sheets("ini_Vorlage").Shapes(1).TextFrame2.TextRange.Text
   '</ HMTL holen >
   '----< Send with Outlook >----
   Dim app_Outlook As Outlook.Application
   Set app_Outlook = New Outlook.Application
   '--< Email einstellen >--
   Dim objEmail As Outlook.MailItem
   Dim sEmail_Addresscc As String
   Dim sEmail_Address As String
   Dim iRow As Integer
   For iRow = 4 To 100
       If Cells(iRow, 21) = "x" Then
           '< get Email Address >
           'Column 2, B
           sEmail_Address = Cells(iRow, 19)
           sEmail_Addresscc = Cells(iRow, 20)
           '</ get Email Address >
           '< Fill Placeholders >
           Dim sHTML As String
           sHTML = Replace(sTemplate, "[@Name]", sEmail_Address)
           '</ Fill Placeholders >
           '--< Send Email >--
           Set objEmail = app_Outlook.CreateItem(olMailItem)
           objEmail.To = sEmail_Address
           objEmail.CC = sEmail_Addresscc
           objEmail.Subject = sTitle
           'objEmail.HTMLBody = sHTML 'use .HTMLBody for HTML
           objEmail.Body = sHTML      'and .body for pure Text
           objEmail.Display
           '--</ Send Email >--
       End If
   Next
   '< Abschluss >
   Set objEmail = Nothing
   Set app_Outlook = Nothing
   '</ Abschluss >
   MsgBox "Emails erstellt", vbInformation, "Fertig"
   '----</ Send with Outlook >----
   '-------------</ Send_Email() >-------------
End Sub

...zur Frage

Wie kann ich mit einer For-Schleife Punkt vor Strich rechnen?

Hallo,

ich habe mir einen Taschenrechner (mit For-Schleife) erstellt.

Er kann alles, außer Punkt vor Strich. Die Funktion ist etwas schwieriger, da ich kein kein DataTable.Compute benutzen darf, sonst wäre es ja zu einfach.

Es muss durch den String selber erfolgen, also etwas komplizierter.

Hier der Code (kann leider nicht den ganzen Code eingeben, daher hier der = Code, der dafür ja auch am wichtigsten ist; ich füge den Rest einzeln hinzu!):

Dim input As String = tb.Text
Dim numbers() As String = input.Split({"+", "-", "*", "/"}, StringSplitOptions.RemoveEmptyEntries)
Dim operators() As String = Regex.Matches(input, "[-+*/]").OfType(Of Match).Select(Function(m) m.Value).ToArray()

For Each op As String In operators
  If op = "*" Then
    Console.WriteLine("Multiplication operator found!")
  ElseIf op = "/" Then
    Console.WriteLine("Division operator found!")
  ElseIf op = "+" Then
    Console.WriteLine("Addition operator found!")
  ElseIf op = "-" Then
    Console.WriteLine("Subtraction operator found!")
  End If
Next

If numbers.Length < 2 OrElse operators.Length < 1 Then
  Return ' Exit the method if we can't perform the calculation
End If

Dim result As Double = Double.Parse(numbers(0))

For i As Integer = 0 To operators.Length - 1
  Dim op As String = operators(i)
  Dim number As Double = Double.Parse(numbers(i + 1))

  Select Case op
    Case "+"
      result += number
      (das Gleiche mit -*/)
  End Select
Next

tb.Text = result.ToString()
Dim containsInvalidCharacters As Boolean = False

For i As Integer = tb.Text.Length - 1 To 0 Step -1
  If Not IsNumeric(tb.Text.Substring(i, 1)) And Not "+-*/".Contains(tb.Text.Substring(i, 1)) Then
    containsInvalidCharacters = True
    Exit For
  End If
Next

' Beibehaltene For-Schleife
For index As Integer = 1 To 2
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 12

For index As Integer = 3 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 321

For index As Integer = 4 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 4321

For index As Integer = 5 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 54321

For index As Integer = 6 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 654321

For index As Integer = 7 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 7654321

For index As Integer = 8 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 87654321

For index As Integer = 9 To 1 Step -1
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 987654321

For index As Integer = 0 To 0
  Debug.Write(index.ToString & "")
Next

Debug.WriteLine("") 'Output: 0

End Sub

Danke schon einmal!

...zur Frage

Swift: Im Textfeld "," eingeben aber trotzdem in float (mit ".")umwandeln und rechnen?

Hi,

Ich habe jetzt eine App in Xcode angefangen, meine erste, und habe ein Problem: Ich will in ein Textfeld Kommazahlen eingeben. In der Form "1.5" klappt auch alles super aber bei "1,5" gibt es einen Fehler (siehe Bild). Liegt also an der Tatsache dass ein Double natürlich kein Komma kann/mag/will, oder?! Jetzt möchte ich aber dass es trotzdem auch mit "," geht. Kann ich den String einfach nach Kommas durchsuchen und diese in "." umwandeln bevor ich den String zum Double mache? Und wenn ja wie?

Danke schonmal für die Hilfe

Max

...zur Frage

Hey, wie bekomme ich via Excel VBA eine Mail bei Lotus Notes geschrieben, sodass ich sie vorher noch bearbeiten kann?

Sobald ich die Mail ohne Bearbeitung verschicke, ist die Mail inklusive des Inhaltes. Sobald ich sie bearbeiten will vorher bzw. noch einmal manuell auf "senden" drücken will (Vorsichtsmaßnahme), ist der komplette Inhalt, bis auf die Betreffzeile, verschwunden.

Beiliegend ist mein Codebeispiel

Sub SendNotesMail2()

Dim UserName As String
Dim MailDbName As String
Dim Recipient As Variant
Dim Maildb As Object
Dim MailDoc As Object
Dim session As Object
Dim stSignature As String



With Application
.ScreenUpdating = False
.DisplayAlerts = False


AWS = ActiveWorkbook.FullName
Set Worksheet = Application.ActiveWorkbook.Worksheets.Item(1)
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
Set MailDoc = Maildb.createdocument
MailDoc.Form = "Memo"
Set Workspace = CreateObject("Notes.NOTESUIWORKSPACE")
stSignature = Maildb.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
Recipient = "f"
MailDoc.display = ""
MailDoc.copyto = "" 
MailDoc.subject = "price update"
MailDoc.SAVEMESSAGEONSEND = saveit
Set ritem = MailDoc.CreateRichTextItem("Body")
For i = 2 To 37
With ritem
        .AppendText ("")
        .AppendText (Cells(i, 2).Value & vbTab & Cells(i, 3).Value & vbTab & Cells(i, 4).Value & vbTab & Cells(i, 5).Value & vbTab)
        .addnewline (1)
End With
Next
For i = 2 To 2
With ritem
        .AppendText ("" & vbCrLf & vbCrLf & stSignature)
End With
Next


Call Workspace.editdocument(True, MailDoc).GOTOFIELD("subject")


MailDoc.PostedDate = Now()

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachMe = Nothing
Set session = Nothing
.ScreenUpdating = True
.DisplayAlerts = True
End With
Range("a1").Select
End Sub

...zur Frage

Von einem Array auslesen in einen String in C#?

Hallo, ich möchte eine Methode schreiben die ein int array übergeben bekommt. Diese Methode soll nun jeden einzelnen eintrag im array in Console.wirteline ausgeben und mit einem Return zurück schicken.

Als beispiel mein array enthält die zahlen 1,2,3,4
Nun soll mir die Textausgabe allerdings die 1,2,3,4 in einem einzigen String ausgeben und das ohne eine Liste oder sonstwas zu benutzen. Sie soll quasi jede zahl zum bestehenden String durch komma getrennt hinzufügen. Geht das überhaupt?

...zur Frage

Excel VBA - Dropdown Kombinationsfeld Test auslesen?

Hallo Community, ich hab zwar etwas Erfahrung in Visual Basic aber verzweifle an VBA. Folgendes Problem habe ich.

Ich habe ein Kombinationsfeld (Formularsteuerelement) „Dropdown 13“

Dieses Kombinationsfeld ist schon mit einer Liste gefüllt.

Bsp. Text1 Text2 Text3 ….

Ich möchte im VBA Code den Wert bzw. Text auslesen, eigentlich ganz einfach.

Bsp.

Dim Wert as String

If Dropdown13.Text = “Text1” Then

Wert = Text1

End If

Irgendwie so in der Art.

Ich möchte mit dem „Wert“ den ich aus dem Dropdown13 herauslese weiter programmieren.

Das funktioniert auf diese Art leider nicht?

Grüße Michael

...zur Frage

String mit vb.net in Unicode wandeln?

Für eine Softwareschnittstelle, die ich gerade selbst in vb.net programmiere muss ich in einen String:

z.B. "Münsterländer Aperitif 16%"

Die Umlaute in Unicode umwandeln. Laut Dokumentation sollte das obige Beispiel dann So aussehen "M\u00fcnsterl\u00e4nder Aperitif 16%"

Zur Zeit versuche ich das so:

  Public Shared Function ToUnicode(Text As String) As String
    Dim UnicodeArray As Byte() = Encoding.Unicode.GetBytes(Text)
    Dim UnicodeString As String = Encoding.UTF8.GetString(UnicodeArray, 0, UnicodeArray.Length)
    Return UnicodeString
  End Function

Leider sieht der Inhalt des Strings dann so aus:

"M" & vbNullChar & "�" & vbNullChar & "n" & vbNullChar & "s" & vbNullChar & "t" & vbNullChar & "e" & vbNullChar & "r" & vbNullChar & "l" & vbNullChar & "�" & vbNullChar & "n" & vbNullChar & "d" & vbNullChar & "e" & vbNullChar & "r" & vbNullChar & " " & vbNu...

Was nicht wirklich hilfreich ist. Ich hab' keine Ahnung warum jedes zweite Zeichen NULL ist und die Coke Bottles "�" sind ja auch wenig hilfreich.

Hat jemand eine Idee für mich

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen