vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im vb@rchiv
Workshop 48: Interpreter für Mathematische Ausdrücke 
Autor: Nextasy
 Workshop anzeigenDatum: 13.09.08 13:53

Hallo allerseits,
ich habe beim Workshop 48: Interpreter für Mathematische Ausdrücke ein Problem.
Und zwar gibt es an mehreren Stellen einen Aufruf einer Funktion mit dem Namen "FindOperator":
  If FindOperator(Mid(Formel, 2), AlleOperatoren) = 0 Then
    MDHPM = Formel
    Exit Function
  End If
Ich jetzt ist diese Funktion aber nirgends definiert und der ganze Workshop klappt bei mir nicht.

Hat jemand diese Funktion oder kann mir erklären was ich übersehen habe?

Grüße Nextasy
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Interpreter für Mathematische Ausdrücke 
Autor: ModeratorDieter (Moderator)
Datum: 15.09.08 07:36

Hier der Code der Funktion "FindOperator":
Function FindOperator(Text As String, Operator As String) As Long
  Dim i As Long
 
  FindOperator = 0
  For i = 1 To Len(Operator)
    If InStr(Text, Mid(Operator, i, 1)) > 0 Then
      FindOperator = InStr(Text, Mid(Operator, i, 1))
      Exit Function
    End If
  Next
 
End Function
P.S.: Das vollständige Beispielprojekt findest Du auf unserer vb@chiv CD Vol.5

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Interpreter für Mathematische Ausdrücke 
Autor: Nextasy
Datum: 22.09.08 21:58

Vielen Dank, jetzt klappt der Code auch!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Interpreter für Mathematische Ausdrücke 
Autor: Nextasy
Datum: 23.09.08 16:40

Ich gebe es auf, jetzt kommen falsche Ergebnisse raus. :S
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Interpreter für Mathematische Ausdrücke 
Autor: Jan5366
Datum: 01.11.08 10:10

Schön ich bekomme immer 0.0000 raus ^^

Destiny of the Galaxy:
http://www.cendesia.de
http://www.facebook.com/Cendesia
- Weltraum RPG mit Vb.Net und DirectX9
- jetzt kostenlos die Pre-Alpha testen

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Interpreter für Mathematische Ausdrücke 
Autor: Tenconi
Datum: 25.09.18 22:38

a propos Interpreter für Mathematische Ausdrücke
habe ein komplete Project Name :

Ein Project mit VB 6 ohne Dialog Control SP6 die Fuction File OPEN / Save sind mit API
geschrieben, damit das Proframm mit alle Rechner fuctionier von Windows Xp bis Windows 10 !!!
Damit OHNE MS Sevicce Pack X^N probleme !!!

Project : Rech_525_Digits_GRF_01.vbp

Rech_525_Digits_GRF_01.vbp"
Datei_Verarbeiten_24_03_2018.bas" Project Datei werden Gelesen, aufbereitung zu INTERPRETER
TE_Fraktion_24_03_2018.bas" Fraction Format Lösung
TE_Parser_Vers_03_24_03_2018.bas" INTERPRETER !!
TE_X_Number_525_Digits.bas" Überwachungsfilter
TE_Zahl_Ing_Format_24_03_2018.bas" Konvertier alle Zahl in Ing. Format 1,258E3 12,528E600
X_File_Open_API.bas" File OPen Dialog über API
X_File_Save_As_API.bas" File Save Dialog über API
TE_Rechner_525_Digits_GRF_01.frm"

Und Auch :
#Einleitung_Video_Rech_525_Digits_GRF_01 ( Bilder sagen mehr als 10^30...0 Bla bla bla )

Eingenchaft
# Parser Eibgabe, auch Programmierbar mit Variable als Symbol mit Formel.

# Alle Functionen Sin Cos Asin Acos Tan Atan Cot Acot Ln Exp GGT KGV PrimZahl Fraction
PI Fakutät bis 9270 !
# Result auflösung von 12 bis 525 Digits einstelbar!

#Beispiel :
Fakultät von 9270! = 2,004111968861.....3270886E32751 ( 525 Digits )
EXP( 5,0 ) = 148,4131591025.....0564247E0 ( 525 Digits )

#Beispiel Project: ( Kann geladen werden File Open... oder Gespeichert werden )
'————————————————————————————————————————————————————————————————————————————
' D:\BCD_Rechner_Parser\Project\Grundlage\Var_Definition_und_Gleichung.txt
'————————————————————————————————————————————————————————————————————————————
' Variable Definition :
A := 25,0 ' A Name := Werte zuwissung
B := 5,0 ' B .. := ... ......
C := 7,5 ' . .. .. ... ......
D := 8,3 ' . .. .. ... ......
E := 100,0 ' . .. .. ... ......
'————————————————————————————————————————————————————————————————————————————
' Gleichung mit Symbole aus der oben genannte Variable Definition :
' Gleichung mit # aktiviert nur eine Gleichung ! hier sind 5 Gleichung wählbar
Y = A + B / 5
Y = ( A + B ) / 5 ' Kommentar
Y = ( A + B / 5 )
Y = ( A + B / 5 ) * 100 ' = +2,600E3
Y = A + B / 5 * 100 ' = +125,0E0

#Y = Sqrt( ( A + B / D ) * 100 ) ' = 50,5988237398402541832187E0

Y = Sqrt( A + B / D * 100 ) ' = +9,3541434E0


Omega : = 2 * Pi ' Neu Variable Definiert !
'————————————————————————————————————————————————————————————————————————————
' << Ende Porject >>

=========================================================================================
zu finden Meine Freigegeben Google Drive unter:

https://drive.google.com/drive/folders/1C5m6REixX39Zlr60b3lBWtjVH7yFnp-a?usp=sharing
=========================================================================================

Viele Spass wünche euch Bernard Tenconi

hier ist meine E Mail bernard.tenconi@googlemail.com

Auf Antwort hier oder bei mein E mail mit vorchläge für erweiterung des Programme würde mich freuen.

< DIESER PROGRAMM IST FREI >

bis dann!

Bernard
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel