elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 57
1  Foros Generales / Foro Libre / Re: Atentado en las ramblas de Barcelona en: Hoy a las 14:37
Hay muchos delincuentes caucásicos, latinos, negros y orientales de otros países que entran en España y delinquen, pero nadie va diciendo que echen a los italianos, a los franceses, ingleses, colombianos, mexicanos,  nigerianos o chinos, etc. Pero cuando se trata de moros la cosa cambia porque  en general son musulmanes. Yo creo que así va la cosa, es islamofobia y punto.

Decir que en España los moros tienen muchos hijos y se va a llenar de moros... o sea que si España se llenara de hijos de Ingleses, o norteamericanos caucásicos no pasa nada pero si son moros... entonces hay un problema no. Es racismo.

Creo que este tipo de actitud es justamente o en parte lo que quieren los que adoctrinan terroristas, es fomentar la islamofobia porque esto favorece la redicalización.. Pero es una opinión mía, qué se yo.

2  Foros Generales / Foro Libre / Re: Atentado en las ramblas de Barcelona en: Hoy a las 12:16
Los terroristas no eran inmigrantes sin papales, eran residentes y habían estudiado y criado aquí (aunque no se desde que edad)

Según diversas fuentes, su "radicalismo" comienza con la llegada de un iman, que comienza a lavarles el cerebro a partir de dos años atrás. Realmente les programa.

Según fuentes policiales el sospechoso huido de la furgoneta sería Younes Abauyaaqoub de 22 años.



Según  parece el terrorista huido secuestró vehículo y acuchilló a su conductor un Ford Focus. El coductor era Pablo Pérez Villán, un ingeniero de la Universitat Politècnica de Catalunya (UPC) de 35 años. En su huida el Ford atropelló a varios agentes e hirió  a uno de ellos. El  compañero abrió fuego y encontraron luego el cadáver de Pablo Pérez que en un principio se pensó murió por los disparos pero un análisis forense ha determinado que ya estaba muerto antes de los disparos a causa de ser acuchillado. Se están comparando los restos del Ford Focus y de la furgoneta para determinar si la persona que secuestró el Ford Focus era la misma persona que  conducía la furgoneta que arroyó a la multitud de la Rambla.




Bueno, hay un detalle que a algunos va a escocer, pero es la realidad.

la politica "chulesca" de los separatistas ha hecho que la presencia de la Guardia Civil sea muy pequeña en esa comunidad, y esos son en principio los responsables de detener y deportar a los inmigrantes sin papeles y el seguimiento de los posibles exaltados. Cataluña hace años que se ha llenado de salafistas (incluyendo mezquitas) por una dejación tremenda, y recordemos que los salafistas son una de las ramas mas radicales de esa confesión.

Como apenas hay Guardia Civil, los procedimientos de identificación y deportación son muy muy lentos. Tanto que para cuando llega el momento aducen "arraigo" por los años que llevan y hale... concedido

Precisamente los inmigrantes sin papales entran primero por Andalucía o por Francia. Y en Andalucía sí que hay Guardia Civil que yo sepa. ¿Dónde está ahí el control? ¿Dónde están los controles en Francia?

Aquí el problema no es un problema de inmigración si no de lavado de cerebro, de programación mental especialmente a jóvenes que son más fáciles de manipular.  Perfectamente este fenómeno podría haber ocurrido con otra religión o secta de cualquier tipo, simplemente se necesita una base para poder entrar, manipular y adoctrinarles mediante el lenguaje; trastocando su percepción de lo que está bien o de lo que está mal, lo que tiene prioridad de lo que no. En este caso se usa como base el Islam.
3  Foros Generales / Foro Libre / Re: Atentado en las ramblas de Barcelona en: 18 Agosto 2017, 12:10
¿Por qué justamente en Barcelona y no en la capital que sería lo lógico?

Yo culpo directamente a los terroristas evidentemente, pero creo que parte de culpa la tienen los Independentistas, la CUP y los de Arran que han centrado la atención mundial y los medios en Catalunya y Barcelona, tanto por el tema político como por el ataque al turismo de esa forma tan radical.

Siempre he pensado que hay abusos por parte del sector turístico y una desatención respecto a este tema porque da dinero y crea puestos de trabajo sin tener en cuenta los efectos negativos que tiene en la población local por diversas circunstancias pero creo que se debería haber tratado el tema de otra manera.

Por otro lado los medios en España, antes incluso del ataque al turismo, cuando se hablaba de terrorismo yihadista sacaron en un reportaje un caso de una chica musulmana en Barcelona, para hacer mención de problemas sociales y cosas así en relación con la población musulmana. Cuando lo vi pensé ¿y por qué mencionan Barcelona? ¿Solo hay musulmanes aquí? ¿Solo detienen a sospechosos y terroristas aquí?  Por aquél entonces pensé que de alguna manera trataban de trasladar la atención sobre Barcelona para que si pasaba algo fuera aquí justamente. De verdad que lo pensé e incluso se lo comenté e una persona y bueno al final así ha sido.

Tampoco entiendo el por qué aquí cuando Catalunya siempre ha tratado bien en general a los extranjeros viniesen donde viniesen, fueran turistas o no. Los musulmanes y de origen árabe están aquí como en su casa. En mi trabajo por ejemplo hay muchos y en mi barrio donde vivo también. También tienen negocios y tiendas. La verdad no lo entiendo.







4  Foros Generales / Foro Libre / Re: Atentado en las ramblas de Barcelona en: 18 Agosto 2017, 00:46
Yo también vivo en Barcelona y a ver si tiene narices quien yo se de este foro para decir que es todo falso y son actores.

Dicen que han cogido a uno pero que el otro está huido. Si veis una foto colgadla porque si lo veo no llamo ni a la policía, yo mismo lo apaño.

Tengo esta de un tal Driss Oukabir Moussa Oukabir  identificado por los Mossos d'esquadra como uno de los posibles autores.




bueno, ya veo que también lo había colgado El_Andaluz.

5  Programación / Programación Visual Basic / Re: Buscar y contar palabras en un listbox en: 14 Agosto 2017, 13:06
A ver si te sirve esto:

Código
  1. 'Recorre los elementos de la lista en busca de valores 1 Y 2
  2. For n = 0 To List1.ListCount - 1
  3. Dim valor As Integer
  4.    valor = Mid(List1.List(n), Len(List1.List(n)) - 1, 1)
  5.    Select Case valor
  6.        Case 1: Unos = Unos + 1
  7.        Case 2: Doses = Doses + 1
  8.    End Select
  9. Next n
  10. MsgBox ("Unos: " & Unos)
  11. MsgBox ("Doses: " & Doses)
  12.  

Código:
List1.ListCount
Obtiene la longitud de la lista. Para generar un bucle que recorra el list uso "List1.ListCount - 1" porque el primer elemento de la lista tiene índice 0

Código:
List1.List(Indice)

Devuelve un elemento de la lista. Por ejemplo "manzana [1]"

Código:
valor = Mid(List1.List(n), Len(List1.List(n)) - 1, 1)
Mid es una función que obtiene un carácter o caracteres dependiendo de el lugar y longitud especificados  según los parámetros de dicha función:

Mid(String, Start As Long, [Length])

por ejemplo:

Mid("camión", 3, 2)

Devolvería "mi"

La primera posición antes de c es 1.


Código:
Len(List1.List(n))
Len devuelve la longitud de la cadena en caracteres.


De modo que :
Código:
   valor = Mid(List1.List(n), Len(List1.List(n)) - 1, 1)

Devuelve el número. que hay entre corchetes [..]


6  Foros Generales / Foro Libre / Piloto de vuelos profesional afirma que la Tierra es plana + experimento Física en: 27 Julio 2017, 10:27
Decir que la Ciencia no puede demostrar que la Tierra es esférica ya de por sí es un ERROR.

La Ciencia no es una secta, ni una institución, ni una religión. Es "un conjunto de conocimientos" y son los verdaderos científicos mediante el método científico los que amplían ese conjunto de conocimientos demostrados o a espera de una mejora, amplificación o especificación más concisa sobre un hecho en cuestión.

Dentro de este conjunto de conocimientos ya está incluido y DEMOSTRADO que la Tierra es esférica. Otra cosa es que los "anti-ciencia" por el motivo que sea traten de desacreditar la Ciencia a partir de algo tan fundamental pero de por sí necesitado de unos mínimos conocimientos, de medios, que no todo el mundo  posee o en su defecto la posibilidad de salir al espacio a la distancia suficiente como para poder apreciarlo lo cual los anti-ciencia conscientes de ello se alimentan de esta imposibilidad y de la ignorancia para tratar de DESINFORMAR. Creo que este es el caso.

Dicho esto aclaro que realmente la Tierra no es realmente esférica si le quitas los océanos y la atmósfera que es lo que le da ese aspecto esférico.






Existe además en Internet un sin fin de imágenes similares a esta en la que se dice es un Gegoide:



Pero en realidad es un mapa del potencial gravitatorio en cada punto de la superficie.
https://es.wikipedia.org/wiki/Geodesia


Pensar que la Tierra a diferencia de otros planetas es algo como esto:


o esto



es ridículo  :xD, no hace falta demostración de lo absurdo que ya es de por sí.


PD:
Este tema ya empieza a ser cansino  :¬¬.

No entiendo como se vuelve a reabrir una otra vez cada cierto tiempo.

Es mi opinión
7  Foros Generales / Foro Libre / Re: ¿Cómo acabarias vosotros con el terrorismo del islamismo radical? en: 27 Junio 2017, 15:39
Gran error mi joven padawan

Tu prepotencia y arrogancia  al llamarme "aprendiz" resulta molesta. Sobre todo si piensas que soy tan imbécil como para no conocer su significado.


La religión siempre ha estado metida en todas las guerras y es en este caso el FONDO y la BASE, del estado islámico.

La religión se nutre de la miseria y de la ignorancia.

No religión significa LIBERTAD
No religión significa CIENCIA
No religión significa CORDURA

Para mí la religión es locura, directamente.


8  Foros Generales / Foro Libre / Re: ¿Cómo acabarias vosotros con el terrorismo del islamismo radical? en: 26 Junio 2017, 14:19
Lo digo y lo diré siempre, la culpa de todo es de la religión. Siempre ha estado detrás o delante de todas las guerras y la barbarie. Siempre usando un dios como excusa y justificación para matar.

No se como hay tanta gente que adora a Jesús con el daño que ha hecho a este mundo, a la cultura, al conocimiento, a la vida en general.

Más la Iglesia católica también tiene parte de culpa porque, haber, las religiones son invasibas y expansivas. Por pelotas todos tiene que convertirse a su religión, sus creencias, su doctrina.

¿Qué tiene que ver? Pues tiene que ver que la Inglesia Católica no conforme con controlar el mundo entero va y empiza a invadir territorio que hasta hace poco era exclusivamente musulman. Yo creo que esto a influído en el surgimiento del terrorismo islámico, como sistema de autodefensa ante una invasión de su cultura y religión, muy arraigadas en el mundo árabe.

Y el Islam por mucho que se diga es una religión pacífica, algo tendrá cuando por una simple radicalización ya se usa como excusa para matar gente porque sí.

Lo que hay que hacer es borrar las religiones de la faz de la Tierra de un plumazo.
9  Programación / .NET / Re: Ejercicio de invertir un numero en vb.net (algo incomprendido) en: 25 Junio 2017, 20:34
No tengo muy claro para que es exactamente "Convert.ToChar(178)"
"ToUpper"
 y "Cyan"

Convert.ToChar() Convierte un valor Char en un carácter Unicode. Donde Char es un código UTF-16 (16-bits Unicode Transformation Format). En la tabla Unicode se puede encontrar que el superíndice "²" en formato UTF-16 corresponde al número Unicode U+00B2, 0x00B2, o bien &HB2. Donde B2 es el valor hexadecimal de 178. De modo que puedes ponerlo de las dos maneras.

Código
  1.    WriteLine(Convert.ToChar(&HB2))
  2.  
  3.    WriteLine(Convert.ToChar(178))
  4.  
  5.    WriteLine("²")
  6.  


https://en.wikipedia.org/wiki/List_of_Unicode_characters

https://unicode-table.com/es/#00B2
´
También puede ser que lo veas escrito así ChrW(178) en lugar de
Convert.ToChar(). Antiguamente en VB se usaba ChrW(), que es una función de VB6, pero todavía se puede usar en VB.NET.

Para declara una variable de tipo char se hace de la siguiente manera:
Código
  1.  
  2.        Dim miChar As Char =  Convert.ToChar(178) ' o ChrW(178),
  3.        Console.WriteLine(miChar)
  4.        Console.ReadLine()
  5.  


Una forma sencilla de encontrar el valor numérico Unicode de un carácter es usar el miembro Enumeración ConsoleKey

Enumeración ConsoleKey

Código
  1.  Dim caracter As Integer = ConsoleKey.A
  2.        WriteLine(caracter)
  3.        WriteLine(Convert.ToChar(caracter))
  4.  

Enter por ejemplo sería el 13

Y si te fijas en el código hay una línea como esta:
Código
  1. Out.NewLine = Convert.ToChar(ConsoleKey.Backspace)
  2.  

He utilizado el ConsoleKey para obtener el código de retroceso o retorno de carro (ConsoleKey.Backspace). Que es el 8.

De modo que envío un retorno de carro a la consola para subir el valor del porcentaje hacia la línea anterior.


ToUpper es un método que convierte una cadena todo en mayúsculas

Código:
Dim cadena as String= "Hola mundo"
WriteLine(cadena.ToUpper())
ReadLine()

Devuelve "HOLA MUNDO"

Método String.ToUpper ()



Cyan es un color de la lista de colores de System.ConsoleColor. El color azul clarito ▓▓▓ .
Enumeración ConsoleColor

Al principio de código he importado System.ConsoleColor para no tener que escribirlo todo el tiempo. Pero de no haberlo importado tendría que ponerlo así:
Código
  1.      Console.ForegroundColor = ConsoleColor.Cyan
  2.  

Si escribes "ConsoleColor." en el editor de código te aparecerá una lista de colores.

10  Programación / .NET / Re: Ejercicio de invertir un numero en vb.net (algo incomprendido) en: 25 Junio 2017, 14:25
puse

Código:
writeline (masa)
writeline (kg)
writeline (m)
writeline (m2)

y me sale

0
0
0
0

....  :( :( :( :huh: :huh: :huh: :huh:

Te sale ...
Código:
0
0
0

 porque colocas las operaciones ANTES de que el usuario haya introducido algún valor, y como es de esperar operas con valores nulos


Código:
 
(ANTES)
m = cm / 100
kg = lb / 2.2
m2 = m * m

...
(DESPUÉS)
        WriteLine("ESCRIBA SU ESTATURA EN CENTIMETROS")
        cm = ReadLine()
        WriteLine("ESCRIBA SU PESO EN LIBRAS")
        lb = ReadLine()
...

Como puedes imaginar primero se debe introducir el valor y luego operar.

Por otro lado como operas con DECIMALES debes usar el tipo de variable Decimal

Cuando introduzcas valores numéricos en el código si son decimales añade la letra D para indicar a VB, por ejemplo 2.2D
. De este modo indicas a VB que es un número decimal, y trabajará con el como tal.


Bueno aquí dejo tu código creo que arreglado, espero te sirva y esté correcto. Si ves cualquier problema o no entiendes algo nos comentas ¿ok?.

Código
  1. Imports System.Console
  2. Imports System.ConsoleColor
  3. Module Module1
  4.  
  5.    Sub Main()
  6.        Dim nom As String
  7.        Dim cm, lb, m, kg, m2 As Decimal
  8.        Dim masa As Decimal
  9.  
  10.        WriteLine("CALCULADORA DE MASA CORPORAL CMC")
  11.        WriteLine("")
  12.        WriteLine("ESCRIBA SU NOMBRE")
  13.        nom = ReadLine().ToUpper
  14.        WriteLine("ESCRIBA SU ESTATURA EN CENTIMETROS")
  15.        cm = ReadLine()
  16.        WriteLine("ESCRIBA SU PESO EN LIBRAS")
  17.        lb = ReadLine().Replace(".", ",")
  18.        m = cm / 100D
  19.        kg = lb / 2.20462D
  20.        m2 = m * m
  21.        masa = CDec(kg / m2)
  22.        WriteLine()
  23.  
  24.        WriteLine("===========================================")
  25.        ForegroundColor = Cyan
  26.        WriteLine(String.Format("NOMBRE: {0}", nom))
  27.        WriteLine(String.Format("PESO (KG): {0:0.0000} kg", kg)) '{0} referencia a valor kg y :00.0000 formato a mostrar ej: 45,5899
  28.        WriteLine(String.Format("ESTATURA: {0:0.00} m", m))
  29.        WriteLine(String.Format("M{1}: {0:0.0000} m{1}", m2, Convert.ToChar(178)))
  30.        ForegroundColor = White
  31.        WriteLine("===========================================")
  32.        WriteLine()
  33.        ForegroundColor = White
  34.        WriteLine("SU PORCENTAJE DE MASA CORPORAL ES: ")
  35.        WriteLine()
  36.        BackgroundColor = Yellow
  37.        ForegroundColor = Red
  38.        Write(String.Format("{0:0.0000} %", masa))
  39.        WriteLine()
  40.        WriteLine()
  41.  
  42.        BackgroundColor = Yellow
  43.        ForegroundColor = Blue
  44.        WriteLine("*---------------------------------------------------------*")
  45.        WriteLine("*Indice de masa             Clasificacion                 *")
  46.        WriteLine("*---------------------------------------------------------*")
  47.        WriteLine("*<16.00___________________Infrapeso: Delgadez Severa______*")
  48.        WriteLine("*16.00 - 16.99____________Infrapeso: Delgadez moderada____*")
  49.        WriteLine("*17.00 - 18.49____________Infrapeso: Delgadez aceptable___*")
  50.        WriteLine("*18.50 - 24.99____________Peso Normal_____________________*")
  51.        WriteLine("*25.00 - 29.99____________Sobrepeso_______________________*")
  52.        WriteLine("*30.00 - 34.99____________Obeso: Tipo I___________________*")
  53.        WriteLine("*35.00 - 40.00____________Obeso: Tipo II__________________*")
  54.        WriteLine("*>40.00___________________Obeso: Tipo III_________________*")
  55.        WriteLine("*---------------------------------------------------------*")
  56.  
  57.  
  58.        BackgroundColor = Black
  59.        ForegroundColor = White
  60.  
  61.        WriteLine()
  62.  
  63.        Select Case masa
  64.            Case Is < 16D
  65.                WriteLine(nom & "Tiene Infrapeso: Delgadez Severa")
  66.            Case 16D To 16.99D
  67.                WriteLine(nom & "Tiene Infrapeso: Delgadez moderada")
  68.            Case 17D To 18.49D
  69.                WriteLine(nom & " Tiene Infrapeso: Delgadez aceptable")
  70.            Case 18.5D To 24.99D
  71.                WriteLine(nom & " Tiene Peso Normal")
  72.            Case 25D To 29.99D
  73.                WriteLine(nom & " Tiene sobrepeso")
  74.            Case 30D To 34.99D
  75.                WriteLine(nom & " Se encuentra con Obesidad: Tipo I")
  76.            Case 35D To 40D
  77.                WriteLine(nom & " Se encuentra con Obesidad: Tipo II")
  78.            Case Is > 40D
  79.                WriteLine(nom & " Se encuentra con Obesidad: Tipo III")
  80.        End Select
  81.        'If masa > 16 And masa < 16.99 Then
  82.        ' WriteLine("Tiene Infrapeso: Delgadez moderada")
  83.        'End If
  84.  
  85.        'If masa >= 17 And masa <= 18.49 Then
  86.        '    WriteLine(nom, " Tiene Infrapeso: Delgadez aceptable")
  87.        'End If
  88.  
  89.        'If masa >= 18.5 And masa <= 24.99 Then
  90.        '    WriteLine(nom, " Tiene Peso Normal")
  91.        'End If
  92.  
  93.  
  94.        'If masa >= 25 And masa <= 29.99 Then
  95.        '    WriteLine(nom, " Tiene sobrepeso")
  96.        'End If
  97.  
  98.        'If masa >= 30 And masa <= 34.99 Then
  99.        '    WriteLine(nom, " Se encuentra con Obesidad: Tipo I")
  100.        'End If
  101.  
  102.        'If masa >= 35 And masa <= 40 Then
  103.        '    WriteLine(nom, " Se encuentra con Obesidad: Tipo II")
  104.        'End If
  105.  
  106.  
  107.        'If masa > 40 Then
  108.        '    WriteLine(nom, " Se encuentra con Obesidad: Tipo III")
  109.        'End If
  110.  
  111.        ForegroundColor = Yellow
  112.        WriteLine()
  113.        WriteLine("Presione ENTER para salir")
  114.  
  115.        ReadLine()
  116.  
  117.  
  118.    End Sub
  119.  
  120. End Module
  121.  

Por cierto  según esto tengo peso Normal, sin embargo ya estoy mas que harto que me digan que estoy muy delgado. En fin que le vamos a hacer.




He realizado una arreglo para que esto
Código:
SU PORCENTAJE DE MASA CORPORAL ES:  21 %

quede en una sola línea tal que así:

Citar
SU PORCENTAJE DE MASA CORPORAL ES: 21 %")

Simplemente remplazas lo anterior por  esto y listo:

Código
  1.   Out.NewLine = Convert.ToChar(ConsoleKey.Backspace)
  2.        WriteLine("SU PORCENTAJE DE MASA CORPORAL ES:  ")
  3.        BackgroundColor = Yellow
  4.        ForegroundColor = Red
  5.        Out.NewLine = Environment.NewLine
  6.        WriteLine(String.Format("{0:0.0000} %", masa))
  7.        WriteLine()
  8.  



COMPLETO:
Código
  1. Imports System.Console
  2. Imports System.ConsoleColor
  3. Module Module1
  4.  
  5.    Sub Main()
  6.        Dim nom As String
  7.        Dim cm, lb, m, kg, m2 As Decimal
  8.        Dim masa As Decimal
  9.  
  10.        WriteLine("CALCULADORA DE MASA CORPORAL CMC")
  11.        WriteLine("")
  12.        WriteLine("ESCRIBA SU NOMBRE")
  13.        nom = ReadLine().ToUpper
  14.        WriteLine("ESCRIBA SU ESTATURA EN CENTIMETROS")
  15.        cm = ReadLine()
  16.        WriteLine("ESCRIBA SU PESO EN LIBRAS")
  17.        lb = ReadLine().Replace(".", ",")
  18.        m = cm / 100D
  19.        kg = lb / 2.20462D
  20.        m2 = m * m
  21.        masa = CDec(kg / m2)
  22.        WriteLine()
  23.  
  24.        WriteLine("===========================================")
  25.        ForegroundColor = Cyan
  26.        WriteLine(String.Format("NOMBRE: {0}", nom))
  27.        WriteLine(String.Format("PESO (KG): {0:0.0000} kg", kg)) '{0} referencia a valor kg y :00.0000 formato a mostrar ej: 45,5899
  28.        WriteLine(String.Format("ESTATURA: {0:0.00} m", m))
  29.        WriteLine(String.Format("M{1}: {0:0.0000} m{1}", m2, Convert.ToChar(178)))
  30.        ForegroundColor = White
  31.  
  32.        WriteLine("===========================================")
  33.        WriteLine()
  34.  
  35.        ForegroundColor = White
  36.        Out.NewLine = Convert.ToChar(ConsoleKey.Backspace)
  37.        WriteLine("SU PORCENTAJE DE MASA CORPORAL ES:  ")
  38.        BackgroundColor = Yellow
  39.        ForegroundColor = Red
  40.        Out.NewLine = Environment.NewLine
  41.        WriteLine(String.Format("{0:0.0000} %", masa))
  42.        WriteLine()
  43.  
  44.        BackgroundColor = Yellow
  45.        ForegroundColor = Blue
  46.        WriteLine("*---------------------------------------------------------*")
  47.        WriteLine("*Indice de masa             Clasificacion                 *")
  48.        WriteLine("*---------------------------------------------------------*")
  49.        WriteLine("*<16.00___________________Infrapeso: Delgadez Severa______*")
  50.        WriteLine("*16.00 - 16.99____________Infrapeso: Delgadez moderada____*")
  51.        WriteLine("*17.00 - 18.49____________Infrapeso: Delgadez aceptable___*")
  52.        WriteLine("*18.50 - 24.99____________Peso Normal_____________________*")
  53.        WriteLine("*25.00 - 29.99____________Sobrepeso_______________________*")
  54.        WriteLine("*30.00 - 34.99____________Obeso: Tipo I___________________*")
  55.        WriteLine("*35.00 - 40.00____________Obeso: Tipo II__________________*")
  56.        WriteLine("*>40.00___________________Obeso: Tipo III_________________*")
  57.        WriteLine("*---------------------------------------------------------*")
  58.  
  59.  
  60.        BackgroundColor = Black
  61.        ForegroundColor = White
  62.  
  63.        WriteLine()
  64.  
  65.        Select Case masa
  66.            Case Is < 16D
  67.                WriteLine(nom & "Tiene Infrapeso: Delgadez Severa")
  68.            Case 16D To 16.99D
  69.                WriteLine(nom & "Tiene Infrapeso: Delgadez moderada")
  70.            Case 17D To 18.49D
  71.                WriteLine(nom & " Tiene Infrapeso: Delgadez aceptable")
  72.            Case 18.5D To 24.99D
  73.                WriteLine(nom & " Tiene Peso Normal")
  74.            Case 25D To 29.99D
  75.                WriteLine(nom & " Tiene sobrepeso")
  76.            Case 30D To 34.99D
  77.                WriteLine(nom & " Se encuentra con Obesidad: Tipo I")
  78.            Case 35D To 40D
  79.                WriteLine(nom & " Se encuentra con Obesidad: Tipo II")
  80.            Case Is > 40D
  81.                WriteLine(nom & " Se encuentra con Obesidad: Tipo III")
  82.        End Select
  83.  
  84.        ForegroundColor = Yellow
  85.        WriteLine()
  86.        WriteLine("Presione ENTER para salir")
  87.  
  88.        ReadLine()
  89.  
  90.  
  91.    End Sub
  92.  
  93. End Module
  94.  
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 57
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines