---

Hallo Leute
Ich möchte ein Programm schreiben bei dem man eine Formel in eine „TextBox“ eingeben kann.
Beim drücken der Eingabetaste soll die Formal berechnet werden.

Kann mir vielleicht jemand bei diesem Problem helfe

mfg
Joe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

vielleicht so ?

habe auf einer userform eine textbox (textbox1) und einen button (CommandButton1) plaziert
wenn ich jetzt in die textbox den text 1+2+3+4 eingebe und auf den button drücke errechnet der code das ergebnis (10)

Private Sub CommandButton1_Click()
    Dim math As Object
    Set a = CreateObject("ScriptControl")
    a.language = "VBScript"
   
    MsgBox a.Eval(TextBox1.Text)
    set a = nothing
End Sub

------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Fuchsi

Ich habe eine Fehlermeldung bekommen, muß ich vielleicht einen Verweis aktivieren

Laufzeitfehler 429
Objekterstellung durch ActiveX-Komponente nicht möglich

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

eigentlich nicht wenn du mit createobject arbeitest

aber schau mal ob du den verweis erstellen kannst
"Microsoft Script Control V1.0"

das ist die c:\winnt\system32\msscript.ocx

hängt glaube ich davon ab, ob im IE vb-scripts erlaubt sind

------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Hilfe

mfg
Joe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das ist ja genial, hab ich bisher nicht gekannt.
Ich hab bisher immer nach +, -, etc. gesucht und dann gerechnet, werde ich nun ändern müssen 

------------------
Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ich verwende das um bauteile variantengesteuert zusammenzubauen

z.B.: der schrank (komm aus der büromöbelbranche) K2F1 kann in den 3 massen breite , tiegfe höhe verändert werden. danach muss er natürlich neu zusammengebaut werden. das wird über eine access datenbank gesteuert, dien in etwa so ausschaut:

"K2F1";"QUADER";"ALLGEMEIN";"A3_RCKW__V";"12";"0";"12";"axBreiteKunde_i -24";"12";"axHoeheKunde_i - 24";"0";;;;
"K2F1";"QUADER";"ALLGEMEIN";"A3_HAUPT_R";"axBreiteKunde_i - 12";"0";"12";"12";"axTiefeKunde_i - 12";"axHoeheKunde_i - 24";"0";;;;

1. zeile der block K2F1 besteht unter anderem aus einem block QUADER aus der bibliothek ALLGEMEIN am layer a3_rckw mit den rel einfügekoordinaten 12,0,12 und den skalierfaktoren
x = axbreitekunde_i - 24 ,
y= 12
Z= axHoeheKunde_i - 24

um jetzt x und z faktor zu berrchene  verwende ich dieses teil

(setq kf_math (vlax-create-object "ScriptControl"))
(vlax-put-property kf_math "LANGUAGE" "JScript")

(vlax-invoke kf_math "AddCode" "var axBreitekunde_i = 1200")
(vlax-invoke kf_math "AddCode" "var axHoehekunde_i = 1600")
(vlax-invoke kf_math "AddCode" "var axTiefekunde_i = 445")

(setq xf (vlax-invoke kf_math "axHoeheKunde_i - 24"))

natürlich nicht wie hier geschrieben mit "festen" formeln, sondern über variablen, die ich aus der datenbank auslese.

und  so wird variantengesteuert, ca über 40.000 Artikeln (büromöbel) variabel zusammengebaut.

------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP