Ir al contenido principal

Crea tu calculadora con Bloc de Notas

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


5º. Ya tienes tu calculadora
      Quedará mas o menos así

Comentarios

Entradas populares de este blog

Curiosidades sobre el número 5

Muchas cosas de nuestro organismo vienen agrupadas de cinco en cinco: tenemos cinco sentidos y cinco dedos en cada mano y pie. La distancia entre el codo y el extremo de la mano, representa un quinto de la estatura de una persona.La naturaleza también está llena de cincos: las plantas de la familias de las rosáceas tienen flores con cinco pétalos, las estrellas de mar tienen cinco brazos. Asimismo, en nuestro planeta hay cinco continentes habitados: África, América, Asia, Europa y Oceanía. La Antártida también se considera continente, pero no está habitado por civiles.Ludwig van Beethoven, compuso un total de cinco conciertos de piano. Si bien creó nueve sinfonías, la quinta es la más conocida y popular.

Antifaces de Halloween para imprimir

Truenos
 Momia

¿Qué? ¿Simulador de vuelo en Google Earth?

Sabías que... ¿Sabías que con el famoso Google Earth puedes surcar los cielos como si estuvieses en un auténtico avión? Con el simulador de vuelo puedes manejar hacia donde vas ¡Es muy divertido!
¿Cómo se hace? Activar el simulador de vuelo es muy sencillo. Empezar con el simulador de vuelo: -Abre Google Earth y pulsa Ctrl+Alt+A (Windows) o⌘+Opción+A(Mac).  -También puedes abrir Google Earth y hacer clic en Herramientas >Entrar en simulador de vuelo.
Salir del simulador de vuelo Si ya no quieres usar más el simulador de vuelo puedes salir. Hay dos formas de salir del simulador de vuelo: -En la esquina superior derecha de la pantalla, haz clic en Salir del simulador de vuelo. -También puedes pulsar Ctrl+Alt+A (Windows) o ⌘+Opción+A (Mac).