PASOS PARA CREAR UNA CALCULADORA DEL IMC (ÍNDICE DE MASA CORPORAL) DE UNA PERSONA. (SEMANA 28)

 PRIMERAMENTE INICIALIZAMOS VISUAL, LUEGO CREAMOS UN EXE ESTÁNDAR

 SEGUIDAMENTE DISEÑAMOS NUESTRO FORMULARIO CON 3 LABEL, 3 CAJAS DE TEXTO, 2 BOTONES Y UN PICTUREBOX PARA INSERTAR UNA IMAGEN (TABLA IMC EN FORMATO JPG) EN EL DISEÑO DEL FORMULRIO DEBEN ASIGNAR UN NOMBRE AL FORMULARIO EN SU PROPIEDAD CAPTION , LUEGO EN BACKCOLOR ASIGNAR UN COLOR DE FONDO; EL MISMO COLOR SE DEBERÁ ASIGNAR A LAS LABEL.

BUENO AHORA COMENZAR A PROGRAMAR PRIMERAMENTE EL FORMULARIO CON LA SIGUIENTE LINEA DE CODIGO QUE PREVIAMENTE DEBEN ELIMINAR LO QUE COMUNMENTE APARECERA AL DAR DOBLE CLIC EN EL FORMULARIO .

Dim peso, talla, resultado As Double

CÓDIGO DEL BOTON CALCULAR

Private Sub Command1_Click()

peso = Textpeso.Text

talla = Texttalla.Text

resultado = peso / (talla * talla)

Textresultado.Text = resultado

Textpeso.Text = ""

Texttalla.Text = ""

Textpeso.SetFocus

CÓDIGO PARA QUE LA CAJA DE TEXTO DONDE APARECE EL RESULTADO

NO SE PUEDA INGRESAR ABSOLUTAMENTE NADA

Private Sub Form_Load()

Textresultado.Enabled = False

End Sub

CÓDIGO PARA QUE LAS 2 PRIMERAS CAJAS DE TEXTO SOLO SE PUEDA

INGRESAR SOLO NUMEROS (OBIAMENTE CAMBIANDO EL EVENTO QUE

APARECE POR DEFAULT POR KEYPRESS)

Private Sub Textpeso_KeyPress(KeyAscii As Integer)

If (KeyAscii >= 97) And (KeyAscii < 122) Or (KeyAscii >= 67) And (KeyAscii < 90)

Then

MsgBox "Ingrese solo numeros"

KeyAscii = 8

End If

 

Comentarios

Publicar un comentario

Entradas más populares de este blog

Pasos para crear un formulario. (SEMANA 22)

Imagen
    Para que aparezca la frase “Hola chicos de 2 informática “, para eso debemos seleccionar EXE estándar y luego abrir en donde empezaremos a diseñar nuestro formulario.      Como primera acción debemos de cambiar el nombre del formulario en la propiedad NOMBRE y colocar (frm1), luego en la propiedad CAPTION colocar (Practica1).      Posteriormente al formulario damos doble clic , para que nos aparezca la ventana donde Codificaremos el mensaje con el comando msgbox(“Hola estudiantes de 2 informática”), vbInformation, “Hola estudiantes de 2 informática” Cabe indicar que la función vbInformation realiza una interfaz con el signo de Admiración con fondo azul.      Para cambiar la apariencia en la interfaz de ejecución con el comando msgbox(“Hola estudiantes de 2 informática”), Cambiamos(vbInformation) por vbCritical, “Hola estudiantes de 2 informática” Cabe indicar que la función vbCritical realiza una interfaz con el signo de X con f...
Leer más

Pasos para crear una calculadora a grados (SEMANA 33)

Imagen
 1. Iniciamos el programa. 2. Hacer clic en EXE ESTANDAR. 3. Colocar los siguientes objetos en el formulario: 2 Label, 2 TextBox, 1 ScrollBar. 4. En la label 1 le asignaremos el nombre de "ºCentigrado" y en la label 2 le asignaremos el nombre de "ºFarenhein". 5. En el objeto ScrollBar le insertamos el siguiente codigo: OBJETO SCROLLBAR Private Sub ScrollBar1_Change(). Dim dblgrados As Double TextBox1.Text = ScrollBar1.Value dblgrados = 1.8 *  ScrollBar1.Value TextBox2.Text = dblgrados End Sub 6. Ejecutamos la calculadora. 7. Guardamos y salimos.
Leer más

Practicas en Visual Basic 6.0

Imagen
 Crear un formulario     Para que aparezca la frase “Hola chicos de 2 informática “, para eso debemos seleccionar EXE estándar y luego abrir en donde empezaremos a diseñar nuestro formulario.     Como primera acción debemos de cambiar el nombre del formulario en la propiedad NOMBRE y colocar (frm1), luego en la propiedad CAPTION colocar (Practica1).     Posteriormente al formulario damos doble clic , para que nos aparezca la ventana donde Codificaremos el mensaje con el comando msgbox(“Hola estudiantes de 2 informática”), vbInformation, “Hola estudiantes de 2 informática” Cabe indicar que la función vbInformation realiza una interfaz con el signo de Admiración con fondo azul.     Para cambiar la apariencia en la interfaz de ejecución con el comando msgbox(“Hola estudiantes de 2 informática”), Cambiamos(vbInformation) por vbCritical, “Hola estudiantes de 2 informática” Cabe indicar que la función vbCritical realiza una interfaz con el signo de...
Leer más