Mensajes

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

Código (python) [Seleccionar] Expandir

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

[27 Julio 2011, 14:56]

   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

Código (php) [Seleccionar] Expandir


;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