Indicador de Masa Corporal

[Arielo]

Hola.
Aquí les traigo un programita utilitario.
Se trata de un indicador de masa corporal. Hecho con Visual Basic 6.0

Para ejecutarlo, lo que tienen que hacer, es copiar el código al bloc de notas (o cualquier procesador de textos), y grabar el archivo como "IMC.FRM"
Luego, desde Visual Basic, sólo tienen que agregar el form a un nuevo proyecto...

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle	 =   3  'Fixed Dialog
   Caption		 =   "Indicador de masa corporal"
   ClientHeight	=   1470
   ClientLeft	  =   45
   ClientTop	   =   330
   ClientWidth	 =   4920
   LinkTopic	   =   "Form1"
   MaxButton	   =   0   'False
   MinButton	   =   0   'False
   ScaleHeight	 =   98
   ScaleMode	   =   3  'Pixel
   ScaleWidth	  =   328
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
	  Caption		 =   "Calcular Otro"
	  Height		  =   525
	  Left			=   1470
	  TabIndex		=   11
	  Top			 =   2820
	  Width		   =   1605
   End
   Begin VB.CommandButton Command1 
	  Caption		 =   "Calcular"
	  Height		  =   525
	  Left			=   2910
	  TabIndex		=   4
	  Top			 =   510
	  Width		   =   1605
   End
   Begin VB.TextBox txtPeso 
	  BeginProperty Font 
		 Name			=   "MS Sans Serif"
		 Size			=   12
		 Charset		 =   0
		 Weight		  =   400
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   420
	  Left			=   1538
	  TabIndex		=   2
	  Text			=   "0"
	  Top			 =   840
	  Width		   =   1065
   End
   Begin VB.TextBox txtAltura 
	  BeginProperty Font 
		 Name			=   "MS Sans Serif"
		 Size			=   12
		 Charset		 =   0
		 Weight		  =   400
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  Height		  =   420
	  Left			=   1538
	  TabIndex		=   0
	  Text			=   "0"
	  Top			 =   240
	  Width		   =   1065
   End
   Begin VB.Label lblIndiceMay 
	  Alignment	   =   2  'Center
	  Appearance	  =   0  'Flat
	  BackColor	   =   &H80000005&
	  BeginProperty Font 
		 Name			=   "MS Sans Serif"
		 Size			=   13.5
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  ForeColor	   =   &H80000008&
	  Height		  =   435
	  Left			=   3765
	  TabIndex		=   8
	  Top			 =   1710
	  Width		   =   975
   End
   Begin VB.Label lblIndiceMen 
	  Alignment	   =   2  'Center
	  Appearance	  =   0  'Flat
	  BackColor	   =   &H80000005&
	  BeginProperty Font 
		 Name			=   "MS Sans Serif"
		 Size			=   13.5
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  ForeColor	   =   &H80000008&
	  Height		  =   435
	  Left			=   2550
	  TabIndex		=   6
	  Top			 =   1710
	  Width		   =   975
   End
   Begin VB.Label lblEtiqueta 
	  Alignment	   =   1  'Right Justify
	  AutoSize		=   -1  'True
	  BackStyle	   =   0  'Transparent
	  Caption		 =   "Diagnóstico:"
	  Height		  =   195
	  Index		   =   4
	  Left			=   1575
	  TabIndex		=   10
	  Top			 =   2340
	  Width		   =   885
   End
   Begin VB.Label lblEtiqueta 
	  Alignment	   =   1  'Right Justify
	  AutoSize		=   -1  'True
	  BackStyle	   =   0  'Transparent
	  Caption		 =   "y"
	  Height		  =   195
	  Index		   =   3
	  Left			=   3600
	  TabIndex		=   9
	  Top			 =   1830
	  Width		   =   75
   End
   Begin VB.Label lblDiagnostico 
	  Alignment	   =   2  'Center
	  Appearance	  =   0  'Flat
	  BackColor	   =   &H80000005&
	  BeginProperty Font 
		 Name			=   "MS Sans Serif"
		 Size			=   13.5
		 Charset		 =   0
		 Weight		  =   700
		 Underline	   =   0   'False
		 Italic		  =   0   'False
		 Strikethrough   =   0   'False
	  EndProperty
	  ForeColor	   =   &H80000008&
	  Height		  =   435
	  Left			=   2550
	  TabIndex		=   7
	  Top			 =   2220
	  Width		   =   2190
   End
   Begin VB.Label lblEtiqueta 
	  Alignment	   =   1  'Right Justify
	  AutoSize		=   -1  'True
	  BackStyle	   =   0  'Transparent
	  Caption		 =   "El índice de masa corporal entre:"
	  Height		  =   195
	  Index		   =   2
	  Left			=   120
	  TabIndex		=   5
	  Top			 =   1830
	  Width		   =   2340
   End
   Begin VB.Label lblEtiqueta 
	  Alignment	   =   1  'Right Justify
	  AutoSize		=   -1  'True
	  BackStyle	   =   0  'Transparent
	  Caption		 =   "Peso:"
	  Height		  =   195
	  Index		   =   1
	  Left			=   945
	  TabIndex		=   3
	  Top			 =   900
	  Width		   =   405
   End
   Begin VB.Label lblEtiqueta 
	  Alignment	   =   1  'Right Justify
	  AutoSize		=   -1  'True
	  BackStyle	   =   0  'Transparent
	  Caption		 =   "Altura:"
	  Height		  =   195
	  Index		   =   0
	  Left			=   945
	  TabIndex		=   1
	  Top			 =   360
	  Width		   =   450
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Me.Height = 3780
difPeso = 0.01	' Error estimado en la medición del Peso
difAltura = 0.5	 ' Error estimado en la medición de la altura

Peso = Val(txtPeso.Text)
Altura = Val(txtAltura.Text)

Masa = (Peso / (Altura * Altura))
eMasa = (((difAltura / Altura) + ((difPeso / Peso) * 2)) * Masa)
IndMen = Masa - eMasa
lblIndiceMen = IndMen
lblIndiceMay = Masa

Select Case IndMen
	   Case Is < 18: lblDiagnostico = "Bajo Peso"
	   Case Is > 25: lblDiagnostico = "Sobrepeso"
	   Case Else: lblDiagnostico = "Peso Normal"
End Select
End Sub

Private Sub Command2_Click()
txtAltura.Text = 0
txtPeso.Text = 0
Me.Height = 1845
End Sub

La altura, debe ingresarse, por ejemplo, como: 1.85
Espero que les sirva de algo...
Saludos