MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Studio .NET (alle Produkte: C#, VB.NET etc.)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 05.03.2018, 19:02   #1
Nimrod_189
Neuer Benutzer
Neuer Benutzer
Standard VB - Einfache Formel in Textbox berechnen

Hallo Leute,

ich möchte eine einfache Formel (o. Klammer) in einer Textbox eingeben und diese soll dann automatisch beim verlassen berechnet werden.

Beispiel:
1+5+4-6 => Ergebnis: 4

Ich möchte nur addieren und subtrahieren, sonst nichts.

Kann man das irgendwie einfach gestallten.

Vielen Dank im Voraus.

Gruß Nimrod_189
Nimrod_189 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.03.2018, 10:04   #2
Nimrod_189
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Für alle mit einem gleichen Problem:

Im Internet habe ich eine Möglichkeit gefunden, die ich etwas angepasst habe. So werden jetzt die Zahlen mit Replace auf zulässige Werte angepasst.
Mit dieser Funktion kann man sogar Klammerrechnung machen.


Code:

'Über Verweise noch auf => Microsoft Script Control 1.0 setzen

    Public Function BerechneFormel(Formula As String) As Double
        Dim SC As New MSScriptControl.ScriptControl
        Dim Result As Double
        'Dim Formula As String = "(2+4)*5"
        'SET LANGUAGE TO VBSCRIPT
        SC.Language = "VBSCRIPT"
        'ATTEMPT MATH

        Formula = Replace(Formula, ".", "")       'mögliche Tausendertrennung
        Formula = Replace(Formula, ",", ".")      'Umwandlung in amerikanische Zahlen
        Try
            Result = Convert.ToDouble(SC.Eval(Formula))
            'SHOW THAT IT WAS VALID
            'MessageBox.Show("Math success, " & Formula & " equals " & Result.ToString)
        Catch ex As Exception
            'SHOW THAT IT WAS INVALID
            MessageBox.Show("Not a valid math formula for a double.")
        End Try
        BerechneFormel = result
    End Function
Gruß Nimrod_189
Nimrod_189 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:00 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.