bueno no se si esto te ayude. realmente no se que hace la función.  


lo que si te puedo decir que se cumple (vbaStrVarVal)en esta parte de codigo

Text1.Text = Format(10, "Currency")


pero solo si se asigna a un control directamente.

si se hace de esta forma no se cumple (vbaStrVarVal)
dim x as courrency
x = Format(10, "Currency")


cuando digo se cumple quiero decir que si se usa.

saludos

este es bueno

Abronsius Code Obfuscator v0.4
http://www.sendspace.com/file/x64mx6

saludos

usa un loop.

crea una funcion para que quede mas ordenado

def calculadora():
 
 print "escoge una opcion"
 print "(+)"
 print "(-)"
 print "(/)"
 print "(*)"
 
 operacion = raw_input ("teclea la operacion a usar, y luego presiona enter    ")
 numeroA = float (raw_input("escriba un numero:    "))
 numeroB = float (raw_input("teclea otro numero:    "))
 
 if operacion == "+":
    resultado = numeroA + numeroB
 
 if operacion == "-":
    resultado = numeroA - numeroB
 
 if operacion == "/":
    resultado = numeroA / numeroB
 
 if operacion == "*":
    resultado = numeroA * numeroB
 
 return resultado
 
 
while 1: #así queda infinitamente
 calculadora()
 

saludos

   revivir un tema del 2006.

el usuario que pregunto no se conecta desde 27 Julio 2011, 14:56


Gracias por la explicación LeandroA no lo sabia.

saludos

y el codigo?

y lo estas haciendo con base de datos o como? 

mira

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/462-cargar-archivos-de-recursos-personalizado.htm

luego lo escribes en temp o lo ejecutas con un RunPE

saludos

Colócalo en los recursos y luego los copias a %temp% y los corres.

la otra opción es que los corras en memoria usando algun RunPE.


saludos

Bueno uno fácil. Una función que retorne el factorial de un numero dado.

Bueno ahí dejo la mía en Autoit

;Función Max Version Autoit
 
Func Max($n1,$n2)
Select
	Case $n1 > $n2
		Return $n1
    Case $n1 < $n2
		Return $n2
	Case Else
		Return ""
EndSelect
EndFunc

saludos

Saludos

Esperando el Primer reto