Buenas amigos, estoy bastante pregunton ultimamente, de antemano gracias por su pasciencia y por su tiempo:

Con relacion a otro hilo me econtraba buscando olgo con lo cual evaluar el resultado de Funciones y demas, lo que encontre fue esta funcion que en principio seria la solucion a todos mis problemas, la sorpresa me la lleve cuando trate de ejecutar la funcion "que pego debajo de Command1_Click()" evaluando funciones con un solo parametro no tenia problemas,pero cuando intento ejecutar o evaluar digamos funciones con mas de un parametro no me da los resultados como por ejemplo la funcion Multiplica que les pego debajo.


Private Declare Function EbExecuteLine Lib "vba6.dll" _
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long


Private Sub Command1_Click()
Dim cadena As String
'En txtformula pongo por ejemplo: Multiplica(10,10)
cadena = "Form1." & Me.txtformula.Text


code = EbExecuteLine(StrPtr(cadena), 0&, 0&, Abs(False)) = 0


End Sub

Public Function Multiplica(Factor1 As Integer, Factor2 As Integer)
Multiplica = msgbox(Factor1 * Factor2)
End Function


Gracias nuevamente por su tiempo.

Hola, probá ahi

Private Declare Function EbExecuteLine Lib "vba6.dll" _
(ByVal pStringToExec As Long, ByVal Foo1 As Long, _
ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long
Private Sub Command1_Click()
txtformula.Text = "Multiplica 5,5"
code = EbExecuteLine(StrPtr("form1." & txtformula.Text), 0&, 0&, Abs(False)) = 0
End Sub

Public Function Multiplica(Factor1 As Integer, Factor2 As Integer)
Multiplica = MsgBox(Factor1 * Factor2)
End Function


----------------

Si lo querés hacer como lo hacias vos, le tenés que agregar el Call ( por que la función la estás definiendo con parentesis ) y sacarle el Me. asludosEdited by: Luciano

Hola luciano, gracias por responder.-

El problema con el metodo que sugeris es que si necesitara aplicar otra funcion tendria que cambiar permantentemente el codigo o agregar un boton por funcion ya que lo que pretendo es llegar a evaluar por ejemplo funciones de esta manera:
Variable=30
Multiplica(suma(2,10),variable) o Suma(10,multiplica(variable,2))


Es por eso que es primordial que no tenga que pre escribir ej: "Multiplica 5,5", no se si queda claro pero gracias por tu tiempo y si tenes alguna otra sugerencia te lo agradecere.

hola,para que no sea predeterminado por codigo las variables y sean escritas por vos en tiempo de ejecucion,solo tenes la linea de codigo siguiente:

txtformula.Text = "Multiplica 5,5"

si le sacas esa linea,haces que vos tenga que escribir el multiplica 5,5 es eso lo que queres o no??,pero sin parentesis lo tenes que escribir.

saludos.
Edited by: seba123neo

Hola, gracias por tu respuesta.

Te cuento que probe ejecutar por ejemplo:

me.txtformula= multiplica 5,5 o sea con multiples parametros que era mi problema al principio y me arroja el resultado esperado pero me resultan algunas dudas:


1- Por que no acepta los parentecis()
2-y en caso de que instale una plicacion en un equipo que no tenga Visual Basic 6.0 el codigo no correra?
3- si no corre,pero si registro la Vba6.dll correra normalmente?

Nuevamente, gracias a todos por sus respuestas.-

Hola nuevamente:

Luego de escribir el mensaje anterior estube realizando algunas otras pruebas y me surgio otro inconveniente:

Cree estas dos funciones

Public Function Multiplica(F1 As Currency, F2 As Currency) As Currency
Multiplica = Format(F1 * F2, "##,##0.00")
End Function

Public Function Suma(F1 As Currency, F2 As Currency) As Currency
Suma = Format(F1 * F2, "##,##0.00")
End Function

Luego intente obtener el resultado de estas funciones complementadas:

Private Sub Command1_Click()
Dim cadena As String

'En txtformula puse: Multiplica 2,suma 2,2 ; que seria el equivalente de Multiplica(2,suma(2,2))
cadena = "Form1." & Me.txtformula.Text

code = EbExecuteLine(StrPtr(cadena), 0&, 0&, 0)

'Luego trate de obtener el resultado de code en el text1 pero
'como resultado me dio:40036 en cualquier calculo como multiplica 2,2 devuelve 0

Me.Text1.Text = code

End Sub

Por otro lado, tube en cuenta el devolver el resultado en el text1 directamente desde la funcion, ej:


Public Function Suma(F1 As Currency, F2 As Currency) As Currency
Suma = Format(F1 * F2, "##,##0.00")
me.text1=Format(Suma , "##,##0.00")
End Function


Public Function Multiplica(F1 As Currency, F2 As Currency) As Currency
Multiplica= Format(F1 * F2, "##,##0.00")
me.text1=Format(Multiplica, "##,##0.00")
End Function


Pero si acoplo una funcion con otra como ya mensione: Multiplica 2,suma 2,2 , cual de los dos resultados de las funciones devolveria por que intente y no realiza el calculo

Hola,mira yo te doy opciones para que sigas con tu ejercicio,podes seguir usando esa api,aca fijate hay algunos ejemplos introductorios que estan buenos leer:

http://www.recursosvisualbasic.com.a...xecuteline.htm

o este post de este foro que se escribio hace mucho y hay ejemplos interesantes para leer y sacar.

http://www.canalvisualbasic.net/foru...TID=23654&PN=1

o tambien podes usar el Microsoft Scipt Control ,que como lo dice la palabra sirve para ejecutar scripts en tiempo de ejecucion tal como queres hacer vos,ejecutar una instruccion,con este control podes hacer los calculos sin tantos problemas y hay mucha documentacion sobre este y ejemplos.probalo(si no lo hiciste todavia)y me contas si te sirve o no,pero yo creo que es mejor que la api que usas,solo tenes que añadir la referencia a ese ocx que se llama msscript.ocx,y lo empezas a usar tranquilo,despues lo que venga es inmaginacion de cada uno.por ejemplo aca te dejo el codigo de un calculo sencillo usando este ocx.

Código:

Private Sub Form_Load()
Dim SC As ScriptControl, Calc As String
Set SC = New ScriptControl
SC.Language = "VBScript"
Calculation = SC.Eval("8*2/4")
MsgBox Calculation
End Sub

o fijate como se usa,en la web de Luciano hay ejemplos buenos:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/203-microsoft-script-control.htm

saludos.

Hola seba, gracias por tu tiempo.

Si tenia entendido que esa api no era lo mas recomendado pero sabes que intento tambien al mismo tiempo con ScriptControl, pero el inconveniente que tengo es el siguiente:


Segun un ejemplo que encontre
[color=#008000 size=2]'Prueba 2 de ScriptControl[/color]
Dim sCodigo As String
Dim vValor As Variant

sCodigo = "Function Multiplica(a, b)" & vbCrLf & _
" Multiplica = a * b" & vbCrLf & _
"End Function"

[color=#008000 size=2]'Por supuesto que también se podría asignar así:[/color]
[color=#008000 size=2]'sCodigo = "Function Multiplica(a, b) Multiplica = a * b End Function"[/color]

[color=#008000 size=2]'Añadimos el código, especificamos el lenguaje y ejecutamos[/color]
With ScriptControl1
.Language = "VBScript"
.AddCode sCodigo

Pero cuando intento meter en una variable una funcion como:

scodigo1 = "Public Function Suma(F1 As Currency, F2 As Currency) As Currency" & vbCrLf & _ 'ya en esta linea me marca error: Se esperaba: Expresion
"Suma = Format(F1 + F2, "##,##0.00")" & vbCrLf & _ 'lo mismo aca debe ser por las """"
"End Function"& vbCrLf & _

Ya la verdad es que no se como hacer para hacerlo marchar a script, si alguien tiene solucion para esteinconvenientebienvenida sea, gracias igual sigo a la espera de mas sugerencias.

Gracias nuevamente.

Hola,tenes razon no lo toma por esas comillas.suponete este ejemplo funciona bien.tenes que agregar el componente de Microsoft Scipt Control al formulario.

Código:

Private Sub Command1_Click()
ScriptControl1.ExecuteStatement "Function Multiplica(a, b)" & vbCrLf & "Multiplica = MsgBox(a * b)" & vbCrLf & "End Function"
ScriptControl1.Run "Multiplica", 3, 3
End Sub

ahi funciona,y con la otra funcion lo unico que se me ocurrio para que te tome el formato de los numeros seria asi:

Código:

Private Sub Command1_Click()
ScriptControl1.ExecuteStatement "Public Function Suma(F1, F2)" & vbCrLf & "Suma = msgbox(Formatnumber(F1 + F2,2,vbfalse))" & vbCrLf & "End Function"
ScriptControl1.Run "suma", 3, 3
End Sub

ahi no te tira error por las comillas me parece.y otra cosa es que no tengo en claro todavia es que los tipos de datos tienen que ser ??,pareceria que las variables no tendrian que estar definidas como por ejemplo currency,ya que me las toma como variant.

o mira aca que me parece que es donde sacaste el ejemplo,que esta re completo.

http://www.elguille.info/vb/ejemplos/MSSCRIPT.HTM

saludos.
Edited by: seba123neo

Hola seba, nuevamente gracias, los ejercicios que me dejastes ahi ya los probe pero sigo teniendo la limitacion de tener que pasar de antemano la funcion que voy a evaluar como en esta linea ScriptControl1.Run "suma", 3, 3 yo necesito poder pasar en tiempo de ejecucion como mensione anteriormente ej.: multiplica(2,suma(4,5),4) por decir algo, el unico inconveniente que encontre por ejemplo con el Sc. es el de meter el la variable la sub o function debido a que me pasa el error por ejemplo con la siguiente linea: Se esperaba fin de la instruccion

Scodigo="Set db = DBEngine.OpenDatabase(DBpath, False, False, "";pwd=28074295"")"

por cada comilla que ya traia el codigo yo le agregue otra en algunas lineas me funciono como por ej.:

" DBpath = App.Path & ""\datos\tablas.mdb"" " & vbCrLf & _

Esto me esta volviendo loko, gracias nuevamente y estoy abierto a cualquier sugerencia que puedan hacer.-

Buenas compañeros, nuevamente les consulto, segui realizando algunas pruebas con EbExecuteLine y obtube lo siguiente:
Private Sub Command1_Click()
Dim cadena As String


cadena = "Form1.text1 =" & Suma(2,2)
code = EbExecuteLine(StrPtr(cadena), 0&, 0&, 0)


End Sub
Como resultado obtube lo esperado:4 pero si en lugar de pre-escribir la linea:


cadena = "Form1.text1 =" & Suma(2,2)
Escribo:


cadena = "Form1.text1 =" & txtformula
Esta no me devuelve resultados, creo que si consigo evitar el tener que pre-escribir las funciones y sus parametros solucionaria el problema con todo esto, entonces por que no puedo hacer referencia a la funcion directamente desde txtformula?, gracias nuevamente.-

Buenas foreros!
Encontre la solucion para el inconveniente aqui planteado:
El problema era que intentaba ejecutar desde un textbox una funcion sin especificar su clase por ej.:

form1.text1 = form1.suma(222,333)
no devolvia valor ,la funcion Suma ahora la puse en un modulo entonces ahora puedo ejecutar desde el textbox la funcion tal como suma(10,10)sin tener que especificar una clasey en el text1 me devuelve el valor esperado = 20.-

Nuevamente gracias a todos por sus comentarios y por su tiempo, pueden cerrar el hilo.-