1º. Abre el Bloc de Notas
2º. Copia este código
Dim Expresion, Resultado
On Error Resume Next
Expresion="1"
While Expresion<>""
Expresion=InputBox("Ingresa el cálculo a efectuar","Calculator Beta","" )
If Expresion<>"" then
Resultado=Eval(Expresion)
If Err.Number<>0 Then
Call Msgbox("Error",0,"Error" )
Else
Call Msgbox(Resultado,0,"Resultado" )
End if
End if
Wend
3º. Guárdalo como Calculator Beta.vbs
4º. Aparecerá un icono como este
2º. Copia este código
Dim Expresion, Resultado
On Error Resume Next
Expresion="1"
While Expresion<>""
Expresion=InputBox("Ingresa el cálculo a efectuar","Calculator Beta","" )
If Expresion<>"" then
Resultado=Eval(Expresion)
If Err.Number<>0 Then
Call Msgbox("Error",0,"Error" )
Else
Call Msgbox(Resultado,0,"Resultado" )
End if
End if
Wend
3º. Guárdalo como Calculator Beta.vbs
4º. Aparecerá un icono como este
5º. Ya tienes tu calculadora
Quedará mas o menos así
Comentarios
Publicar un comentario