Aplicaciones/Fragmentos de Código :: Calcula El Indice De Masa Corporal.

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Miercoles, 15 May 2024, 05:10 • Todas las horas son UTC + 1 Hora

Calcula El Indice De Masa Corporal.

Página 1 de 2
Ir a la página 1, 2 Siguiente

Calcula El Indice De Masa Corporal.

Autor	Mensaje
portaro Ingeniero Programador Registrado: Abril 2014 Mensajes: 215 Edad: 39 Ubicación: Portugal	Calcula El Indice De Masa Corporal. Estuve haciendo un programilla que calcule la masa corporal pero me lo puse a hacer en texto y me gustaria pasarlo a grafico a ver si alguien le ve si esta bien o no la operacion y no tiene errores- Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] ' Calcula IMC Public Sub Main() Dim Peso As Float Dim Altura As Float Dim recolhe As Float Dim divide As Float Print " Introduza seu peso" Line Input Peso Print Peso Print Print " Introduza sua altura" Line Input Altura Print Altura Print 'operação recolhe = Altura ^ 2 divide = Peso / recolhe Print " O seu índice de massa corporal é igual a : " & divide End Como paso esto a un formulario?
#1 Viernes, 10 Abril 2015, 16:12

shordi Analista Programador Registrado: Septiembre 2009 Mensajes: 4982 Edad: 64 Ubicación: Albacete	Re: Calcula El Indice De Masa Corporal. Fácil: - Crea un proyecto nuevo indicándole que es un proyecto gráfico (preferiblemente gráfico QT). Él solo te creará un formulario que se llama fMain. - Coloca en él tres valuebox y llámalos vbPeso, vbAltura y vbMasa, por ejemplo. - Coloca un botón y haz doble-click sobre él. Se te abrirá el código de su evento por defecto que es _Click Luego rellena el código de ese evento: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] vbMasa.value=vbPeso / vbAltura ^ 2 - Añade un poco de cosmética: labels con aquello de "introduzca su peso", etc. y cambia los colores y demás. y ya está. Fácil.
#2 Viernes, 10 Abril 2015, 16:31

portaro Ingeniero Programador Registrado: Abril 2014 Mensajes: 215 Edad: 39 Ubicación: Portugal	Re: Calcula El Indice De Masa Corporal. Me da error type mismatch, quiere un numero y tiene un entero.
#3 Viernes, 10 Abril 2015, 17:56

vuott Analista Programador Registrado: Agosto 2013 Mensajes: 2086 Edad: 60 Ubicación:	Re: Calcula El Indice De Masa Corporal. portaro escribió: [Ver mensaje] Me da error type mismatch, quiere un numero y tiene un entero. Hacen falta las propiedades .Value: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] Public Sub Button1_Click() vbMasa.value = vbPeso.Value / vbAltura.Value ^ 2 End
#4 Viernes, 10 Abril 2015, 19:20

shordi Analista Programador Registrado: Septiembre 2009 Mensajes: 4982 Edad: 64 Ubicación: Albacete	Re: Calcula El Indice De Masa Corporal. Ejj que escribo muuu rápido, oiga...
#5 Viernes, 10 Abril 2015, 20:09

portaro Ingeniero Programador Registrado: Abril 2014 Mensajes: 215 Edad: 39 Ubicación: Portugal	Re: Calcula El Indice De Masa Corporal. vuott escribió: [Ver mensaje] portaro escribió: [Ver mensaje] Me da error type mismatch, quiere un numero y tiene un entero. Hacen falta las propiedades .Value: Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] Public Sub Button1_Click() vbMasa.value = vbPeso.Value / vbAltura.Value ^ 2 End Gracias.
#6 Viernes, 10 Abril 2015, 21:10

vuott Analista Programador Registrado: Agosto 2013 Mensajes: 2086 Edad: 60 Ubicación:	Re: Calcula El Indice De Masa Corporal. shordi escribió: [Ver mensaje] Ejj que escribo muuu rápido, oiga... ......escurres como una..... Python !
#7 Viernes, 10 Abril 2015, 23:21

portaro Ingeniero Programador Registrado: Abril 2014 Mensajes: 215 Edad: 39 Ubicación: Portugal	Re: Calcula El Indice De Masa Corporal. Tuve que hacerlo de otra manera porque no sabía como mostrar el resultado lo hice así (no tengo mucha idea de modo gráfico en gambas y como no se mucho me suelo dar con confusiones ) Código: [Descargar] [Ocultar] [Seleccionar] Código: [Descargar] [Mostrar] ' Calcula imc Public Sub Form_Open() End Public Sub Peso_MouseDown() End Public Sub Altura_MouseDown() End Public Sub resultado_MouseDown() End Public Sub Massa_Click() Dim kg As Float Dim Alto As Float kg = CFloat(Peso.value) Alto = CFloat(Altura.value) 'operação resultado.value = (kg / Alto ^ 2) End Public Sub TextLabel1_MouseDown() End Por si no es molestia alguien podria ver si hace bien los cálculos o sea si el programa esta bien para poder difundirlo a otros? última edición por portaro el Viernes, 10 Abril 2015, 23:53; editado 1 vez
#8 Viernes, 10 Abril 2015, 23:52

shordi Analista Programador Registrado: Septiembre 2009 Mensajes: 4982 Edad: 64 Ubicación: Albacete	Re: Calcula El Indice De Masa Corporal. Si. Parece correcto. Tan sólo elimina de tu código esas funciones vacías, que no hacen nada y son feas...
#9 Sabado, 11 Abril 2015, 08:40

jsbsan Analista Programador Registrado: Septiembre 2009 Mensajes: 4175 Edad: 51 Ubicación: dos hermanas, sevilla	Re: Calcula El Indice De Masa Corporal. Portano: Me ha gustado mucho tu programa, y he hecho mi propia versión: http://jsbsan.blogspot.com.es/2015/...-indice-de.html El código fuente lo puedes descargar para estudiarlo. Link =================== Blog personal Web: SoloGambas seleccion de articulos dedicados a Gambas Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
#10 Sabado, 11 Abril 2015, 14:27

Mostrar mensajes anteriores:

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
Como Borrar Tabla Y Dejar Su Id De Indice ...	v3ctor	Bases de Datos	4	Martes, 24 Marzo 2015, 22:48 v3ctor
Problema Con Indice De Busqueda Mysql	desoljor	Aplicaciones/Fragmentos de Código	4	Lunes, 11 Enero 2016, 20:16 desoljor
Problema Con Campo Indice Autoincremental ...	chaskux	Bases de Datos	8	Martes, 13 Septiembre 2016, 22:18 chaskux
Error Indice En Tabla Sqlite3?[Resuelto]	v3ctor	Bases de Datos	5	Domingo, 25 Junio 2017, 23:15 mckaygerhard

Página 1 de 2
Ir a la página 1, 2 Siguiente

Fecha y hora actual: Miercoles, 15 May 2024, 05:10 • Todas las horas son UTC + 1 Hora

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

Lista de permisos

No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.2054s (PHP: -47% SQL: 147%)
Consultas SQL: 30 - Debug off - GZIP Activado

Design by Mighty Gorgon