Mensajes

[falta leve]

  estoy que no me lo creo ¿de verdad va enserio? hombre yo entendería que si fuera por parte de alguien que lo hace constantemente y a mala fe pues se entiende.

Como ya te han comentado debería ser falta leve , luego si es reiterado  en un espacio corto de tiempo y además el trabajador ya ha sido avisado pues entonces si se considera oportuno pues el despido.

Creo que hay que tener en cuenta el espacio de tiempo, porque no es lo mismo una vez o más al día que una vez cada dos semanas, un mes, dos o seis meses.

Ten cuidado porque hay gente que reacciona muy mal con estas cosas, aunque sea algo enecdótico. Un simple ruidito corto y con boca cerrada por arriba o un un simple pedo sonoro (aunque no huela) ya te has ganado un enemigo 

Es solo una mera cuestión cultural y educativa, muchos padres son muy duros con sus hijos cuando realizan este tipo de actos, y cuando son adultos responden de igual  manera con respecto a cualquier persona.

Personalmente te entiendo muy bien, puesto que yo también tengo problemas con los gases y más de una vez se me ha escapado una flatulencia sonora o un eructo espontáneo mientras hablaba con otra persona. No es necesario tener alguna enfermedad para tener eructos involuntarios o espontáneos, simplemente el haber consumido algo que te produzca gases sin querer puedes eructar. Hay personas muy intolerantes con estas cosas que no van ha aceptar de ti ni un "perdón", así que si tienes tendencia a producir gases, procura no comer cosas que produzcan gases, por lo menos para evitar. Pero el simplemente por el hecho de beber agua se traga aire.

Las flatulencias no siempre tienen que ser olorosas, de ser así yo no me aguantaría en pié porque tengo lo menos cinco al día. Todo depende del tipo de alimentación que tengas.

por cierto, haz caso de lo que te he dicho con respecto al último post que pusistes.

chau

Realmente lo que necesitamos es que se oculten las filas que no coinciden con lo buscado y que la búsqueda sea al escribir en el TextBox.

Muchas Gracias

Código (vbnet) [Seleccionar] Expandir

    Private Sub txtBox_TextChanged(sender As Object, e As EventArgs) Handles txtBox.TextChanged
        dtgw.ClearSelection()
        Dim IndexFilaEncontrada As Integer = Nothing
        For Indice As Integer = 0 To dtgw.Rows.Count - 1
            dtgw.Rows(Indice).Visible = True
        Next

        For Each Column As DataGridViewColumn In dtgw.Columns
            For Each row As DataGridViewRow In dtgw.Rows
                Try
                    If txtBox.Text.ToString.ToLower.Equals(row.Cells(Column.Index).Value.ToString.ToLower) Then
                        IndexFilaEncontrada = CInt(row.Index)
                        For Indice As Integer = 0 To dtgw.Rows.Count - 1
                            If Not Indice = IndexFilaEncontrada Then
                                dtgw.Rows(Indice).Visible = False
                            End If
                        Next
                    End If
                Catch ex As Exception
                End Try
            Next
        Next

    End Sub

[Option Strict On/Off]

Para empezar si pones:

Código [Seleccionar] Expandir

i=CInt(val("10 * 25"))
suponiendo que  i sea String, estás pasando Integer a String y no al revés.

Val devolvería el primer valor númerico de la cadena

Que yo sepa NO EXISTE 'Option Strict On/Off' en VB6, pero SÍ en VB.NET

Con Option Strict Off puedes pasar Integer a String sin preblemas.

Código (vbnet) [Seleccionar] Expandir


Option Strict Off
Module Module1

   Sub Main()
       Dim Valor As String = Val("10 * 25")
       Console.WriteLine(Valor)
       Console.ReadLine()
   End Sub

End Module


Si lo que quieres es resolver la ecuación, se me ocurre así

Código (vbnet) [Seleccionar] Expandir


       Dim Valor As String = "10 * 25"
       Dim t() As String
       t = Valor.Split({" "}, StringSplitOptions.RemoveEmptyEntries)
        If Char.IsNumber(t(0)) And Char.IsNumber(t(2)) Then
       Console.WriteLine(t(0) * t(2))
       End If
       Console.ReadLine()




Para otros operadores:

Código (vbnet) [Seleccionar] Expandir

 Dim Valor As String = "10 - 25"
       Dim t() As String
       t = Valor.Split({" "}, StringSplitOptions.RemoveEmptyEntries)
           If Char.IsNumber(t(0)) And Char.IsNumber(t(2)) Then
           Select Case t(1)
               Case "*" : Console.WriteLine(t(0) * t(2))
               Case "/" : Console.WriteLine(t(0) / t(2))
               Case "+" : Console.WriteLine(CInt(t(0)) + CInt(t(2)))
               Case "-" : Console.WriteLine(t(0) - t(2))
           End Select
       End If
       Console.ReadLine()

[AllowUserToAddRows = False]

no entendí muy bien lo que pides. Entiendo que es el típico buscar donde pones un texto, le das a un botón y te selecciona el contenido que buscas.

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Dim WithEvents dtgw As New DataGridView
   Dim WithEvents bSearch As New Button
   Dim WithEvents txtBox As New TextBox
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       With Me
           .Controls.AddRange({dtgw, bSearch, txtBox})
           .Width = 510

           With .dtgw
               .Size = New Size(500, 150)
               .ColumnCount = 3
               .Columns.Item(0).Name = "Nombre"
               .Columns.Item(1).Name = "Apellido"
               .Columns.Item(2).Name = "País"
           End With

           bSearch.Location = New Point(155, 160)
           bSearch.Text = "Buscar"
           txtBox.Location = New Point(50, 160)
           txtBox.Width = 100

           .dtgw.Rows.Add("Julio", "Hernández", "Puerto Rico")
           .dtgw.Rows.Add("Alicia", "Casanova", "España")
           .dtgw.Rows.Add("Manuel", "Pérez", "México")


       End With
   End Sub

   Private Sub bSearch_Click(sender As Object, e As EventArgs) Handles bSearch.Click
       dtgw.ClearSelection()
       For Each Column As DataGridViewColumn In dtgw.Columns
           For Each row As DataGridViewRow In dtgw.Rows
               Try
                   If txtBox.Text.ToString.ToLower.Equals(row.Cells(Column.Index).Value.ToString.ToLower) Then
                       row.Cells(Column.Index).Selected = True
                   End If
               Catch ex As Exception
               End Try
           Next
       Next
   End Sub
End Class

Si te fijas he usado el Try Catch ya que al haber filas vacías se produciría un error.

Si no quieres filas vacías al final del datagrid establece la propiedad AllowUserToAddRows = False al DataGridView para evitar que el usuario pueda crear nuevas filas  y no se creará una nueva fila vacía. En este caso ya no te hace falta el control de errores Try Catch

Código (vbnet) [Seleccionar] Expandir


With .dtgw
               .Size = New Size(500, 150)
                .AllowUserToAddRows = False  '<-------
               .ColumnCount = 3
               .Columns.Item(0).Name = "Nombre"
               .Columns.Item(1).Name = "Apellido"
               .Columns.Item(2).Name = "País"
           End With


.....

   Private Sub bSearch_Click(sender As Object, e As EventArgs) Handles bSearch.Click
       dtgw.ClearSelection()
       For Each Column As DataGridViewColumn In dtgw.Columns
           For Each row As DataGridViewRow In dtgw.Rows
               If txtBox.Text.ToString.ToLower.Equals(row.Cells(Column.Index).Value.ToString.ToLower) Then
                   row.Cells(Column.Index).Selected = True
               End If
           Next
       Next
   End Sub


si quieres quitar el triángulito indicador [►   ] de la fila tan solo debes agregar el siguiente código:

Código (vbnet) [Seleccionar] Expandir

   Private Sub dtgw_RowPrePaint(sender As Object, e As DataGridViewRowPrePaintEventArgs) Handles dtgw.RowPrePaint
      e.PaintHeader(DataGridViewPaintParts.Background _
                      Or DataGridViewPaintParts.Border _
                      Or DataGridViewPaintParts.Focus _
                      Or DataGridViewPaintParts.SelectionBackground _
                      Or DataGridViewPaintParts.ContentForeground)
       e.Handled = True
   End Sub
   Private Sub dtgw_CellFormatting(sender As Object, e As DataGridViewCellFormattingEventArgs) Handles dtgw.CellFormatting
       'Texto de la cabecera de la fila
       'dtgw.Rows(e.RowIndex).HeaderCell.Value = "Fila-" & e.RowIndex.ToString()
   End Sub

FUENTE:

Help removing indicator/pointer in row header of datagridview

¿me lo parece a o este tema se ha desvirtuado?

Solo por aclarar NO todas las mantis se comen al macho según la página que enlacé sólo entre el 13-28% lo hace.

Si hay hambre, pues hay hambre 

[comen hojas de plantas,]

Pero aparte de insectos y polillas, comen hojas de plantas, no necesitan decapitar al macho
Eso es maldad...Maldad en Estado Puro,  y me da igual que sea pequeña, ese comportamiento tan depravado, esa cópula tan macabra .......sería Un renglón MUY torcido de la Naturaleza, que viendo esto y otras cosas empiezo a cuestionarme que no es perfecta

Para mi, es el "Summum de la Crueldad" decapitar al compañero que amas, que va a ser el padre de tus hijos

No puedo entenderlo y mucho menos justificarlo ..

El que no necesite hacerlo o no es irrelevante, cada especie desarrolla una serie de comportamientos escritos o marcados durante su evolución. Quizás en algún memento de escasez de alimento por parte de esta especie o de una especie evolutiva anterior desarrolló este tipo de comportamiento. Los que lo hacían garantizaron la progenie, De X descendientes varios heredaron el comportamiento éstos a su vez se reprodujeron aumentando el número  con este comportamiento.  Es decir, pura evolución.


Hay que tener en cuenta que en un entorno con muchos depredadores por ejemplo es importantísimo una cópula rápida. Si copulan y luego la hembra debe entretenerse buscar hojas otros insectos para comer, reunir los nutrientes necesarios para luego poner los huevos, en ese tiempo pueden ser comidos por un depredador y no podría poner lo huevos a tiempo.

Así que así evita un gasto de energía y tiempo innecesarios.


El bien o el mal en la naturaleza no existe, es un mero concepto humano.  El concepto de lo que está bien o mal puede cambiar según la cultura o época. Piensa en las cosas de extrema crueldad que se hacían en la antigüedad y se consideraban normales y hoy pensamos que eran unos bárbaros.  Como por ejemplo quemar a mujeres vivas por pura superstición.

[sí]

Esta Cópula Macabra que mezcla Apareamiento y Canibalismo...no piensas que sea algo en lo que la Naturaleza se ha columpiado??

A mí sí me lo PARECE

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

Busca información y encontrarás que la Mantis Religiosa se come la cabeza del macho con el fin de obtener nutrientes para el desarrollo de sus crias. Según unos estudios los aminoácidos esenciales para el desarrollo de las crias, la mantis hembra los obtiene al ingerir la cabeza del macho y se aportan a los huevos.


https://ardeainiciativasambientales.wordpress.com/2016/08/24/desvelan-el-canibalismo-sexual-de-la-mantis/

http://news.aconde.es/la-explicacion-del-canibalismo-de-la-mantis-religiosa/

[no es adaptacion,]

Pero esas mutaciones, ranas con tres cabezas, personas con dos penes, clitoris que salen de labios vaginales.....eso no es adaptacion, en realidad les va a costar adaptarse mucho más al entorno, porque juegan con mucha desventaja el juego de la supervivencia

Rebates una cita en la que 'cito' juega a prueba y error. ¿qué no entiendes?  

Se entiende que si acierta se adapta y si no pues no se adapta.

Yo creo que los seres humanos no nacen con una condición sexual....un niño de 3 años no es heterosexual, porque no sabe lo que es la sexualidad. Lo
APRENDERÄ cuando sea adulto, pero no NACE con ello

Si que nacemos con una condición sexual pues está escrita en los genes (predisposición genética). Otra cosa es que no se manifieste hasta alcanzar cierta edad.

La homosexualidad está escrita en los genes

Código [Seleccionar] Expandir

Si vale, lo lógico es si una mujer tiene útero y un hombre pene y testículos lo lógico es que se apareen entre ellos con el fin de procrear.
El objetivo único por el cual el hombre tiene pene y la mujer vagina es ese, procrear. Por cierto los conejos también tienen pene y vagina.  Otra cosa es que racionalmente decidas hacerlo o no.

Código [Seleccionar] Expandir

Muchas veces se ha oído eso de 'la Naturaleza es sabia'.  Efectivamente, podría considerarse que la homosexualidad tiene su por qué.  
Imagina que nunca hubiera existido la homosexualidad, en la actualidad según
censos somos unos 7000 millones (redondeando) de seres humanos en el mundo. Si nunca hubiera existido la homosexualidad seguramente a estas
alturas hubiéramos superado en miles de millones esa cifra y ya nos hubiéramos cargado el planeta del todo dejándolo sin recursos naturales para
nuestra subsistencia.

Pero eso no significa que sea natural, si no que es una opción que ayuda a regular la población, como lo pueda hacer un control de natalidad ...

No doy una explicación de que esa sea la razón de que sea natural sino que es una función aleatoria que a mi ver nos resulta beneficioso. De todos modos sostener que NO es natural estás sosteniendo que es artificial cuando es algo que genera o produce la propia naturaleza.

Tu no puedes juzgar las acciones de otra persona, si a ti no te afectan, como en el caso de la homosexualidad, pero sí que puedes tener una opinión sobre ellas

Como tampoco eres quien para obligar a alguien que nace sin pelo a que lleve peluca o a quien tiene pelo en el pecho a que se lo afeite, pero si puedes darle tu opinión si te la pide ..y yo le diria ponte peluca que estás mejor y rasurate todo el vello del cuerpo que no lo necesitas ....independientemente de que luego él o ella Decida

Si yo tengo pelo en el pecho no puedes decirme que no me lo afeite, porque si lo tengo me tengo que aguantar. Del mismo modo no puedes decirle a otra persona que quiere cambiar de sexo que no lo haga porque como lo tiene así que se aguante.

Hay una diferencia entre dar una opinión estética y otra cosa es decirle a alguien que como tiene pene que no lo quite. No le estás diciendo que le queda mejor, le estás diciendo como debe vivir y que se aguante con lo que tiene, que es distinto a dar una opinión.