Mensajes

[Younes Abauyaaqoub]

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.

[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]

¿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.

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.

[Mid]

A ver si te sirve esto:

Código (vb) [Seleccionar] Expandir


'Recorre los elementos de la lista en busca de valores 1 Y 2
For n = 0 To List1.ListCount - 1
Dim valor As Integer
   valor = Mid(List1.List(n), Len(List1.List(n)) - 1, 1)
   Select Case valor
       Case 1: Unos = Unos + 1
       Case 2: Doses = Doses + 1
   End Select
Next n
MsgBox ("Unos: " & Unos)
MsgBox ("Doses: " & Doses)


Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

List1.List(Indice)
Devuelve un elemento de la lista. Por ejemplo "manzana [1]"

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

Len(List1.List(n))
Len devuelve la longitud de la cadena en caracteres.


De modo que :

Código [Seleccionar] Expandir

   valor = Mid(List1.List(n), Len(List1.List(n)) - 1, 1)

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

[Gegoide]

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.



[youtube=640,360]https://youtu.be/2ythE-hJiNE[/youtube]


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  , 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

[FONDO]

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.


[youtube=640,360]https://www.youtube.com/watch?v=RwUGSYDKUxU[/youtube]

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.

[Convert.ToChar()]

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 (vbnet) [Seleccionar] Expandir


   WriteLine(Convert.ToChar(&HB2))

   WriteLine(Convert.ToChar(178))

   WriteLine("²")



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 (vbnet) [Seleccionar] Expandir

       
       Dim miChar As Char =  Convert.ToChar(178) ' o ChrW(178),
       Console.WriteLine(miChar)
       Console.ReadLine()



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 (vbnet) [Seleccionar] Expandir


 Dim caracter As Integer = ConsoleKey.A
       WriteLine(caracter)
       WriteLine(Convert.ToChar(caracter))


Enter por ejemplo sería el 13

Y si te fijas en el código hay una línea como esta:

Código (vbnet) [Seleccionar] Expandir


Out.NewLine = Convert.ToChar(ConsoleKey.Backspace)


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 [Seleccionar] Expandir

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 (vbnet) [Seleccionar] Expandir


      Console.ForegroundColor = ConsoleColor.Cyan


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

[primero se debe introducir el valor]

puse

Código [Seleccionar] Expandir

writeline (masa)
writeline (kg)
writeline (m)
writeline (m2)

y me sale

0
0
0
0

....  

Te sale ...

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

 
(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 (vbnet) [Seleccionar] Expandir


Imports System.Console
Imports System.ConsoleColor
Module Module1

   Sub Main()
       Dim nom As String
       Dim cm, lb, m, kg, m2 As Decimal
       Dim masa As Decimal

       WriteLine("CALCULADORA DE MASA CORPORAL CMC")
       WriteLine("")
       WriteLine("ESCRIBA SU NOMBRE")
       nom = ReadLine().ToUpper
       WriteLine("ESCRIBA SU ESTATURA EN CENTIMETROS")
       cm = ReadLine()
       WriteLine("ESCRIBA SU PESO EN LIBRAS")
       lb = ReadLine().Replace(".", ",")
       m = cm / 100D
       kg = lb / 2.20462D
       m2 = m * m
       masa = CDec(kg / m2)
       WriteLine()

       WriteLine("===========================================")
       ForegroundColor = Cyan
       WriteLine(String.Format("NOMBRE: {0}", nom))
       WriteLine(String.Format("PESO (KG): {0:0.0000} kg", kg)) '{0} referencia a valor kg y :00.0000 formato a mostrar ej: 45,5899
       WriteLine(String.Format("ESTATURA: {0:0.00} m", m))
       WriteLine(String.Format("M{1}: {0:0.0000} m{1}", m2, Convert.ToChar(178)))
       ForegroundColor = White
       WriteLine("===========================================")
       WriteLine()
       ForegroundColor = White
       WriteLine("SU PORCENTAJE DE MASA CORPORAL ES: ")
       WriteLine()
       BackgroundColor = Yellow
       ForegroundColor = Red
       Write(String.Format("{0:0.0000} %", masa))
       WriteLine()
       WriteLine()

       BackgroundColor = Yellow
       ForegroundColor = Blue
       WriteLine("*---------------------------------------------------------*")
       WriteLine("*Indice de masa             Clasificacion                 *")
       WriteLine("*---------------------------------------------------------*")
       WriteLine("*<16.00___________________Infrapeso: Delgadez Severa______*")
       WriteLine("*16.00 - 16.99____________Infrapeso: Delgadez moderada____*")
       WriteLine("*17.00 - 18.49____________Infrapeso: Delgadez aceptable___*")
       WriteLine("*18.50 - 24.99____________Peso Normal_____________________*")
       WriteLine("*25.00 - 29.99____________Sobrepeso_______________________*")
       WriteLine("*30.00 - 34.99____________Obeso: Tipo I___________________*")
       WriteLine("*35.00 - 40.00____________Obeso: Tipo II__________________*")
       WriteLine("*>40.00___________________Obeso: Tipo III_________________*")
       WriteLine("*---------------------------------------------------------*")


       BackgroundColor = Black
       ForegroundColor = White

       WriteLine()

       Select Case masa
           Case Is < 16D
               WriteLine(nom & "Tiene Infrapeso: Delgadez Severa")
           Case 16D To 16.99D
               WriteLine(nom & "Tiene Infrapeso: Delgadez moderada")
           Case 17D To 18.49D
               WriteLine(nom & " Tiene Infrapeso: Delgadez aceptable")
           Case 18.5D To 24.99D
               WriteLine(nom & " Tiene Peso Normal")
           Case 25D To 29.99D
               WriteLine(nom & " Tiene sobrepeso")
           Case 30D To 34.99D
               WriteLine(nom & " Se encuentra con Obesidad: Tipo I")
           Case 35D To 40D
               WriteLine(nom & " Se encuentra con Obesidad: Tipo II")
           Case Is > 40D
               WriteLine(nom & " Se encuentra con Obesidad: Tipo III")
       End Select
       'If masa > 16 And masa < 16.99 Then
       ' WriteLine("Tiene Infrapeso: Delgadez moderada")
       'End If

       'If masa >= 17 And masa <= 18.49 Then
       '    WriteLine(nom, " Tiene Infrapeso: Delgadez aceptable")
       'End If

       'If masa >= 18.5 And masa <= 24.99 Then
       '    WriteLine(nom, " Tiene Peso Normal")
       'End If


       'If masa >= 25 And masa <= 29.99 Then
       '    WriteLine(nom, " Tiene sobrepeso")
       'End If

       'If masa >= 30 And masa <= 34.99 Then
       '    WriteLine(nom, " Se encuentra con Obesidad: Tipo I")
       'End If

       'If masa >= 35 And masa <= 40 Then
       '    WriteLine(nom, " Se encuentra con Obesidad: Tipo II")
       'End If


       'If masa > 40 Then
       '    WriteLine(nom, " Se encuentra con Obesidad: Tipo III")
       'End If

       ForegroundColor = Yellow
       WriteLine()
       WriteLine("Presione ENTER para salir")

       ReadLine()


   End Sub

End Module


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 [Seleccionar] Expandir

SU PORCENTAJE DE MASA CORPORAL ES:  21 %

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

SU PORCENTAJE DE MASA CORPORAL ES: 21 %")

Simplemente remplazas lo anterior por  esto y listo:

Código (vbnet) [Seleccionar] Expandir


   Out.NewLine = Convert.ToChar(ConsoleKey.Backspace)
        WriteLine("SU PORCENTAJE DE MASA CORPORAL ES:  ")
        BackgroundColor = Yellow
        ForegroundColor = Red
        Out.NewLine = Environment.NewLine
        WriteLine(String.Format("{0:0.0000} %", masa))
        WriteLine()




COMPLETO:

Código (vbnet) [Seleccionar] Expandir


Imports System.Console
Imports System.ConsoleColor
Module Module1

    Sub Main()
        Dim nom As String
        Dim cm, lb, m, kg, m2 As Decimal
        Dim masa As Decimal

        WriteLine("CALCULADORA DE MASA CORPORAL CMC")
        WriteLine("")
        WriteLine("ESCRIBA SU NOMBRE")
        nom = ReadLine().ToUpper
        WriteLine("ESCRIBA SU ESTATURA EN CENTIMETROS")
        cm = ReadLine()
        WriteLine("ESCRIBA SU PESO EN LIBRAS")
        lb = ReadLine().Replace(".", ",")
        m = cm / 100D
        kg = lb / 2.20462D
        m2 = m * m
        masa = CDec(kg / m2)
        WriteLine()

        WriteLine("===========================================")
        ForegroundColor = Cyan
        WriteLine(String.Format("NOMBRE: {0}", nom))
        WriteLine(String.Format("PESO (KG): {0:0.0000} kg", kg)) '{0} referencia a valor kg y :00.0000 formato a mostrar ej: 45,5899
        WriteLine(String.Format("ESTATURA: {0:0.00} m", m))
        WriteLine(String.Format("M{1}: {0:0.0000} m{1}", m2, Convert.ToChar(178)))
        ForegroundColor = White

        WriteLine("===========================================")
        WriteLine()

        ForegroundColor = White
        Out.NewLine = Convert.ToChar(ConsoleKey.Backspace)
        WriteLine("SU PORCENTAJE DE MASA CORPORAL ES:  ")
        BackgroundColor = Yellow
        ForegroundColor = Red
        Out.NewLine = Environment.NewLine
        WriteLine(String.Format("{0:0.0000} %", masa))
        WriteLine()

        BackgroundColor = Yellow
        ForegroundColor = Blue
        WriteLine("*---------------------------------------------------------*")
        WriteLine("*Indice de masa             Clasificacion                 *")
        WriteLine("*---------------------------------------------------------*")
        WriteLine("*<16.00___________________Infrapeso: Delgadez Severa______*")
        WriteLine("*16.00 - 16.99____________Infrapeso: Delgadez moderada____*")
        WriteLine("*17.00 - 18.49____________Infrapeso: Delgadez aceptable___*")
        WriteLine("*18.50 - 24.99____________Peso Normal_____________________*")
        WriteLine("*25.00 - 29.99____________Sobrepeso_______________________*")
        WriteLine("*30.00 - 34.99____________Obeso: Tipo I___________________*")
        WriteLine("*35.00 - 40.00____________Obeso: Tipo II__________________*")
        WriteLine("*>40.00___________________Obeso: Tipo III_________________*")
        WriteLine("*---------------------------------------------------------*")


        BackgroundColor = Black
        ForegroundColor = White

        WriteLine()

        Select Case masa
            Case Is < 16D
                WriteLine(nom & "Tiene Infrapeso: Delgadez Severa")
            Case 16D To 16.99D
                WriteLine(nom & "Tiene Infrapeso: Delgadez moderada")
            Case 17D To 18.49D
                WriteLine(nom & " Tiene Infrapeso: Delgadez aceptable")
            Case 18.5D To 24.99D
                WriteLine(nom & " Tiene Peso Normal")
            Case 25D To 29.99D
                WriteLine(nom & " Tiene sobrepeso")
            Case 30D To 34.99D
                WriteLine(nom & " Se encuentra con Obesidad: Tipo I")
            Case 35D To 40D
                WriteLine(nom & " Se encuentra con Obesidad: Tipo II")
            Case Is > 40D
                WriteLine(nom & " Se encuentra con Obesidad: Tipo III")
        End Select

        ForegroundColor = Yellow
        WriteLine()
        WriteLine("Presione ENTER para salir")

        ReadLine()


    End Sub

End Module


Opino que para despejarte lo mejor es la naturaleza, el aire fresco, nada de tecnología, ordenador, música, vídeo, televisión. Mas bien justo lo contrario; un paseo por la playa o la mantaña, una charla con amigos en un bar o en el parque, hacer footing (running le llaman ahora  ), echar unas canastas en el la zona basket del barrio o jugar al fútbol. Si tienes pareja pues esas cosas que se hacen en pareja, como  ir al cine, a cenar, o echar un casquete. También puedes hacer lo anterior en pareja.

Lo más importante, DORMIR; tapones al oído, persianas o cortinas bajadas, un una buena dormilona de 8h o más y luego una duchita fresquita en verano te deja como nuevo. Después de esto un buen café.

Lo mejor para concentrarse a la hora de programar el SILENCIO.