foro spain

Foro que a decaido, solo para hacer pruebas...
 
ÍndiceÍndice  PortalPortal  FAQFAQ  BuscarBuscar  MiembrosMiembros  RegistrarseRegistrarse  ConectarseConectarse  
Buscar
 
 

Resultados por:
 
Rechercher Búsqueda avanzada
Últimos temas
» hola acabo de yegar
Jue Feb 03, 2011 6:57 am por marionetaww

» Volvi Amigos
Dom Ene 30, 2011 12:07 am por artur000

» me presento
Dom Ene 30, 2011 12:06 am por artur000

» Quien la tiene?
Jue Jul 08, 2010 4:59 pm por Manu nds-extra

» busco programa
Sáb Jul 25, 2009 5:01 pm por Yzaru

» Videos En los k te rajas xDD
Sáb Abr 11, 2009 3:53 pm por DarKSoul

» IMPORTANTE. Redireccionamiento a NDS-EXTRA
Dom Abr 05, 2009 4:34 pm por miniadri

» COD5 World at War
Vie Mar 06, 2009 4:32 pm por DarKSoul

» Videoclips Musicales
Vie Mar 06, 2009 4:29 pm por DarKSoul

Navegación
 Portal
 Índice
 Miembros
 Perfil
 FAQ
 Buscar
Foro
Compañeros
Crear foro
videojuegos
videojuegos

Comparte | 
 

 2ºAplicación una calculadora simple

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Maxpower
Super Moderador
Super Moderador
avatar

Cantidad de envíos : 246
Localización : Desconocida
Fecha de inscripción : 19/06/2008

MensajeTema: 2ºAplicación una calculadora simple   Vie Jun 20, 2008 7:33 pm

Hola , vamos a iniciar nuestra segunda aplicación : una calculadora simple , para hacerla hay que segir los siguientes pasos:

1) Ejecutamos visual basic 6.0 y elegimos EXE estandar , e introducimos tres texbox , 4 options butons y 2 commands butons , a los "Captions" de los options box hay que ponerles Sumar , Restar , Multiplicar , Dividir y a los commands butons Aceptar y nueva operación , deberia ser así:

Seleccionamos los componentes

Los colocamos y les ponemos los nombres

En los textos aparece text1 , text2 y text3 eso se quita haciendo click una vez en el textbox y en la parte de la derecha buscamos el apartado "Texto" y suprimimos lo que halla puesto. Ahora vamos a lo que es el codigo que es el siguiente :

Private Sub Command1_Click()
If Option1 = True Then
Text3 = Val(Text1) / Val(Text2)
ElseIf Option2 = True Then
Text3 = Val(Text1) * Val(Text2)
ElseIf Option3 = True Then
Text3 = Val(Text1) - Val(Text2)
ElseIf Option4 = True Then
Text3 = Val(Text1) + Val(Text2)
End If
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

Explicación

If sirve para hacer una condición y end if para terminarla. Por ejemplo : If option1 = true then significa que si el option button 1 es activado se ejecuta la orden que escribamos debajo de la condición , por eso cuando dice :

Private Sub Command1_Click()
If Option1 = True Then
Text3 = Val(Text1) / Val(Text2)

significa que cuando pulsemos el command1 si el option button 1 esta activado el valor que hallamos escrito en el texto1 se divide por el valor que hallamos escrito en el texto2 y el resultado aparece en el texto 3 por eso : Text3 = Val(Text1) / Val(Text2).
lo mismo ocurre con las demas condiciones

luego en el command2 cuando pone :

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

significa que cuando se pulse ese boton los tres textos se borran : Text1 = "" eso significa que text1 = nada.
Para guardar nuestra aplicación como un ejecutable (.exe) vamos a archivo y generar Proyecto1.exe (Depende del nombre que le deis al formulario) y despues a aceptar.

_________________

Dios nos dio el 0 y el 1 y con eso hemos creado un universo
Volver arriba Ir abajo
Ver perfil de usuario
 
2ºAplicación una calculadora simple
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» El cerebro, elegantemente simple
» aplicación del art. 8 de la Constitución
» Aplicación informática Aneca
» Criterios MAP para la aplicación del EBEP en la Administración Local
» Calculadora de deciBelios

Permisos de este foro:No puedes responder a temas en este foro.
foro spain :: PC :: Visual Basic :: Visual Basic 6.0-
Cambiar a: