Mensajes

Muy buenas a todos, en esta ocasión he realizado un sorteo en mi canal de youtube en el que se sortean (válgase la redundancia jajaja) LICENCIAS DEL ANTIVIRUS ESET.
Tal como digo en el vídeo, en un principio sorteo 3 licencias aunque estas pueden aumentar o disminuir dependiendo de cuantas personas participen en el mismo.
El sorteo TERMINA el MIÉRCOLES 21 de Diciembre.

Sin más preámbulos os dejo el vídeo donde explico como puedes participar!

https://www.youtube.com/watch?v=GJkDTZsdX0Y

¡MUCHA SUERTE A TODOS!

pagando supongo, ¿eso es legal?

No se cuanto vale una licencia de Eset antivirus. Pongamos que 35 € , por 3, serían 105 € lo que te cuestan. Luego haces el sorteo, y pongamos que participan 3000 personas aportando ¿1€?, ganas 2895€.  Madre mía, que 'listos'- Aquí el que no corre vuela 

[Pero se podría hacer desde 0 a 3]

Código (vbnet) [Seleccionar] Expandir


    Dim Matriz(4, 4) As Integer
       Dim SR(4) As Integer
       Dim SC(4) As Integer
       Dim DP, DI, F, C As Integer

       For F = 1 To 4
           For C = 1 To 4
               Matriz(F, C) = CType(InputBox("Dame el valor: " & _
                                             "Matriz[" & F & "," & C & "]: "), Integer)
               '//Suma de filas
               SC(C) += Matriz(F, C)
           Next
       Next

       Dim Dc As Integer = 4
       For C = 1 To 4
           For F = 1 To 4
               '//Suma de columnas
               SR(F) += Matriz(F, C)
           Next

           '//Suma diagonal principal A11 + A22 + A33+ + A44
           DP += Matriz(C, C)

           '//Suma diagonal invertida  A14 + A23 + A32+ + A41
           DI += Matriz(C, Dc)
           Dc -= 1
       Next



       ' Suma de filas
       MessageBox.Show("Suma de filas:  " & String.Join(", ", SC))

       ' Suma de columnas
       MessageBox.Show("Suma de columnas:  " & String.Join(", ", SR))

       ' Suma de diagonal principal  (De izquierda a derecha)
       MessageBox.Show("Suma de diagonal principal:  " & String.Join(", ", DP))

       ' Suma de diagonal invertida (de derecha a izquierda)
       MessageBox.Show("Suma de diagonal invertida:  " & String.Join(", ", DI))



Supongo que lo sabes pero por si acaso te lo comento, ten en cuenta que las variables array empiezan por 0, 1, 2...

Así que el messagebox muestra 0, 32, 36, 40, 16, o sea, cinco números en SR y SC. Esto es debido a que no se mete ningún valor en SR(0) y SC(0), estos últimos hay que ignorarlos. Pero se podría hacer desde 0 a 3

He usado el messagebox simplemente para mostrar los resultados de forma rápida



De esta manera ya no aparecerá el 0 y SR y SC devuelve sólo cuatro valores

Código (vbnet) [Seleccionar] Expandir

     
   Dim Matriz(4, 4) As Integer
       Dim SR(3) As Integer
       Dim SC(3) As Integer
       Dim DP, DI, F, C As Integer

       For F = 1 To 4
           For C = 1 To 4
               Matriz(F, C) = CType(InputBox("Dame el valor: " & _
                                             "Matriz[" & F & "," & C & "]: "), Integer)
               '//Suma de filas

               SC(C - 1) += Matriz(F, C)
           Next
       Next

       Dim Dc As Integer = 4
       For C = 1 To 4
           For F = 1 To 4
               '//Suma de columnas
               SR(F - 1) += Matriz(F, C)
           Next

           '//Suma diagonal principal A11 + A22 + A33+ + A44
           DP += Matriz(C, C)

           '//Suma diagonal invertida  A14 + A23 + A32+ + A41
           DI += Matriz(C, Dc)
           Dc -= 1
       Next



       ' Suma de filas
       MessageBox.Show("Suma de filas:  " & String.Join(", ", SC))

       ' Suma de columnas
       MessageBox.Show("Suma de columnas:  " & String.Join(", ", SR))

       ' Suma de diagonal principal  (De izquierda a derecha)
       MessageBox.Show("Suma de principal: " & String.Join(", ", DP))

       ' Suma de diagonal invertida (de derecha a izquierda)
       MessageBox.Show("Suma de invertida:   " & String.Join(", ", DI))




[DataTable]

Conviene que no interactues con el control para construir las columnas y filas, en su lugar puedes definir un DataTable y construir la tabla allí, y entonces usar la propiedad DataSource del DataGridView. Recuerda, cuanta menos interacción directa exista por parte de tu código con los controles, mejor.

Fantástica idea, tampoco se me había ocurrido, muchas gracias. Ahora se muestra todo directamente.  Lo utilizaré a partir de ahora incluso con un listbox o un listview, aunque sea una lista, para evitar el proceso de llenado poco a poco del control. es mejor con datasource

[intersección]

Yo creo que te equivocas, la filosofía no engloba la ciencia, más bien la ciencia, estaría en una intersección, entre lo que sería el método científico y la filosofía. El método científico es un 'sistema' o 'método de investigación'.

La Filosofía se basa simplemente en el puro razonamiento, que engloba diferentes métodos de razonamiento como el deductivo, la inductivo, subinductivo, el sintético o el analógico.

Los atomistas griegos consideraron que todo estaba constituido por pequeñas partículas indivisibles, 'átomos'. Es una deducción a la que llegaron por puro razonamiento. Fue un razonamiento afortunado pero no es ciencia. Simplemente se llegó a la conclusión de que si yo rompo algo, por la mitad quedan dos trozas ,y si parto cada trozo salen 4 trozos y así indefinidamente y que llegado un momento ya no podría romper en más trozos, quedando solo partículas indivisibles "átomos" (que significaba que no se puede dividir, en griego). Esto no es ciencia.

[Padding]

Sí, puedes evitar que sean redimensionables, una a una. Tienes que ir a editar columnas y ahí ves todas sus propiedades.

También tiene el DataGridView unos campos que son los "default", que afectan a todas las columnas, filas y celdas que no tengan un "valor explícito".

Todo lo puedes hacer, échale un ojo a las propiedades detenidamente.

claro que puedo evitar que sea redimensionable si ajusto establezco:

Código [Seleccionar] Expandir

DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells

Pero entonces ya no puedo establecer el ancho, aunque lo haga lo ignora.



Vale, la solución es usar Padding junto con DisplayedCells

Código (vbnet) [Seleccionar] Expandir

             
  DataGridView1.DefaultCellStyle.Padding = New Padding(5, 2, 5, 2)
           DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells


Donde:
Padding(X(izquierdo), Y(Arriba), X(derecho), Y(abajo))

Código (vbnet) [Seleccionar] Expandir


Public Class Form1
   Dim DataGridView1 As New DataGridView
   Sub New()
       ' Llamada necesaria para el diseñador.
       InitializeComponent()
       ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
       Me.Controls.Add(Me.DataGridView1)
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       With DataGridView1

           .DefaultCellStyle.WrapMode = DataGridViewTriState.True
           .RowHeadersVisible = False
           .ColumnHeadersVisible = False
           .ReadOnly = True
           .RowCount = 1
           .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells
           .DefaultCellStyle.Padding = New Padding(5, 2, 5, 2)
           .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
           .MultiSelect = True
           .ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText 'Permite copiar el texto
           .RowsDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 'coloca los valores en el centro
           .Size = New Size(New Point(400, 240))
       End With

       Dim nvars As Integer = 20
       DataGridView1.ColumnCount = nvars
       Task.Factory.StartNew(Sub()
                                 For I As Integer = 0 To nvars - 1
                                     Dim Integ As Integer = I
                                     Me.Invoke(DirectCast(Sub()
                                                              DataGridView1.Item(Integ, 0).Value = Serie1()
                                                              System.Threading.Thread.Sleep(50)
                                                          End Sub, MethodInvoker))

                                 Next
                             End Sub)

   End Sub
   Public Function Serie1() As String
       Dim col(16) As String
       Dim Rand As New Random
       For index As Integer = 1 To col.Count - 1
           col(index) = CStr(Rand.Next(0, 16).ToString("00"))
       Next
       Return CStr(String.Join(Environment.NewLine, col).TrimStart)
   End Function
End Class





Bueno, pues GRACIAS a los dos. Lo doy por solucionado  

[no es una broma]

Humillar a una persona y dejarla en ridículo públicamente no es una broma , es acoso.

[no sean redimensionables]

Gracias

El DataGridView va perfecto. No se me ocurrió utilizarlo porque lo usaba para base de datos, modificar tablas .

Código (vbnet) [Seleccionar] Expandir


Public Class Form1
    Dim DataGridView1 As New DataGridView
    Sub New()
        ' Llamada necesaria para el diseñador.
        InitializeComponent()
        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Me.Controls.Add(Me.DataGridView1)
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With DataGridView1
            .DefaultCellStyle.WrapMode = DataGridViewTriState.True
            .RowHeadersVisible = False
            .ColumnHeadersVisible = False
            .ReadOnly = True
            .RowCount = 1
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells
            ' .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
            .MultiSelect = True
            .ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText 'Permite copiar el texto
            .RowsDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 'coloca los valores en el centro
            .Size = New Size(New Point(400, 235))
        End With
        'Configuración de las cabeceras de las columna
        With DataGridView1.ColumnHeadersDefaultCellStyle
            .Font = New Font("Lucida Console Unicode", FontStyle.Bold)
            .Alignment = DataGridViewContentAlignment.MiddleCenter 'coloca el texto en el centro
        End With

        Dim nvars As Integer = 20
        DataGridView1.ColumnCount = nvars
        Task.Factory.StartNew(Sub()
                                  For I As Integer = 0 To nvars - 1
                                      Dim Integ As Integer = I
                                      Me.Invoke(DirectCast(Sub()

                                                               DataGridView1.Columns(Integ).Width = 30
                                                               DataGridView1.Item(Integ, 0).Value = Serie1()

                                                               System.Threading.Thread.Sleep(50)
                                                           End Sub, MethodInvoker))

                                  Next
                              End Sub)

    End Sub
    Public Function Serie1() As String
        Dim col(16) As String
        Dim Rand As New Random
        For index As Integer = 1 To col.Count - 1
            col(index) = CStr(Rand.Next(0, 16))
        Next
        Return CStr(String.Join(Environment.NewLine, col).Trim)
    End Function
End Class





Lo malo es que no parece que pueda evitar que las columnas no sean redimensionables y al mismo tiempo en la creación de la columna establecer el ancho de la misma.

La pareidolia se usa en los logos y la publicidad

Cara con sonrisa para provocar positividad



Aquí se supone que pone SEX

La cola es la S
Las patas delanteras y la pata trasera derecha es la E
Y la cabeza  con pata derecha y la otra pata conforma el cruce de rectas para la X
SEX

más




... y cosas curiosas...







... y esto podría parecer un platillo volante






Mirad lo fácil que es crear un falso ovni. En su momento yo pensé que fue el truco que utilizaron en los ovnis de Jerusalem. Pero según parece fue otro tipo de manipulaciones.

Tan solo con un cristal, si es anti-reflectante mejor , cámara y linterna. Aunque se pueden usar objetos auto-iluminados o luces con forma.


como la zona de la derecha está oscura no se refleja nada en el cristal, la luz si que se refleja y se crea una especie de "realidad aumentada" donde se mezcla la imagen real al otro lado del cristal y la luz de la linterna u objeto auto-iluminado.

[O.V.N.I=Objeto Volador No Identificado]

Aclarar una cosa....

O.V.N.I=Objeto Volador No Identificado

¿Esto lo aclara todo no?

Otra cosa, esta foto ilustrativa, dista mucho de la realidad.


Si yo soy ruso de 1951  y ve algo así desde la Plaza Roja de Moscú. Ya de entrada no digo que es un ovni, pienso directamente - nos invaden los americanos -  y menudos cacharos que inventan, o algo así. Y seguramente bajo la influencia de cine, que pudieran ser una nave extraterrestre.

Cuando seguramente debió ser algún bicho de estos.


1900
Primer vuelo de un dirigible rígido. Fue diseñado por Ferdinand von Zeppelin.

http://alasvirtuales.blogspot.com.es/2013/02/la-aviacion-en-fechas-2.html

Un zeppelín de frente  o por detrás también se ve circulares o semicirculares si ladean un poco.


Soviet aerostatic balloon lowered in 1945



Fästningsballong - Fortress balloon 1898




En ningún momento se dice que fueran naves extraterrestres, todo idea surge después de dichas declaraciones  (según pone El_Andaluz, que ya no se si será fake o que  )

Aquí hay un ejemplo clarísimo. Hace tiempo vi un documental sobre platillos volantes, y supuestos avistamientos. Se hablaba de avistamientos de ovnis en forma de cirgarro.

Aquí tenéis una imagen ilustrativa


Que chulo ¿verdad?

Aquí un supuesto avistamiento, según esta página:
https://veritasconexion.blogspot.com.es/2012/11/ovnis-con-formas-de-cigarro.html




Y aquí tenéis señoras y señores un zeppelín dirigible de 1931


Fuente:
http://www.enterate.mx/el-dirigible-graf-zeppelin-realiza-su-primer-vuelo-alrededor-del-mundo/

En las declaraciones se dice que despegaba muy despacio, tal como hacen los globos y que luego iba más rápido. Pero no se determina la velocidad. Los globos aerostáticos despegan muy despacio y luego aumentan la velocidad, por el viento los globos y los zeppelines se propulsan mediante hélices.

[DataGridView]

Gracias @Elektro

Hay que ver como te curras las respuestas, me sabe mal y todo.

el DataGridView parece una buena opción, lo probaré a ver. No se me había ocurrido probar con él.

La verdad es que no entiendo como no se puede. Como aquí en la primera columna:




Lo intenté con API, con SendMessage, y probando conseguí cosas interesantes pero no eso.