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

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Mensajes
Páginas: 1 ... 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 [33] 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 ... 80
321  Foros Generales / Foro Libre / Re: Sorteo Internacional de Licencias ESET Antivirus en: 16 Diciembre 2016, 14:33 pm
Cita de: CNait en 16 Diciembre 2016, 11:20 am
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  :¬¬
322  Programación / .NET (C#, VB.NET, ASP) / Re: Suma de filas y columnas de una matriz en: 15 Diciembre 2016, 22:22 pm
Código
  1.      Dim Matriz(4, 4) As Integer
  2.         Dim SR(4) As Integer
  3.         Dim SC(4) As Integer
  4.         Dim DP, DI, F, C As Integer
  5.  
  6.         For F = 1 To 4
  7.             For C = 1 To 4
  8.                 Matriz(F, C) = CType(InputBox("Dame el valor: " & _
  9.                                               "Matriz[" & F & "," & C & "]: "), Integer)
  10.                 '//Suma de filas
  11.                 SC(C) += Matriz(F, C)
  12.             Next
  13.         Next
  14.  
  15.         Dim Dc As Integer = 4
  16.         For C = 1 To 4
  17.             For F = 1 To 4
  18.                 '//Suma de columnas
  19.                 SR(F) += Matriz(F, C)
  20.             Next
  21.  
  22.             '//Suma diagonal principal A11 + A22 + A33+ + A44
  23.             DP += Matriz(C, C)
  24.  
  25.             '//Suma diagonal invertida  A14 + A23 + A32+ + A41
  26.             DI += Matriz(C, Dc)
  27.             Dc -= 1
  28.         Next
  29.  
  30.  
  31.  
  32.         ' Suma de filas
  33.         MessageBox.Show("Suma de filas:  " & String.Join(", ", SC))
  34.  
  35.         ' Suma de columnas
  36.         MessageBox.Show("Suma de columnas:  " & String.Join(", ", SR))
  37.  
  38.         ' Suma de diagonal principal  (De izquierda a derecha)
  39.         MessageBox.Show("Suma de diagonal principal:  " & String.Join(", ", DP))
  40.  
  41.         ' Suma de diagonal invertida (de derecha a izquierda)
  42.         MessageBox.Show("Suma de diagonal invertida:  " & String.Join(", ", DI))
  43.  
  44.  
  45.  
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
  1.  
  2.     Dim Matriz(4, 4) As Integer
  3.         Dim SR(3) As Integer
  4.         Dim SC(3) As Integer
  5.         Dim DP, DI, F, C As Integer
  6.  
  7.         For F = 1 To 4
  8.             For C = 1 To 4
  9.                 Matriz(F, C) = CType(InputBox("Dame el valor: " & _
  10.                                               "Matriz[" & F & "," & C & "]: "), Integer)
  11.                 '//Suma de filas
  12.  
  13.                 SC(C - 1) += Matriz(F, C)
  14.             Next
  15.         Next
  16.  
  17.         Dim Dc As Integer = 4
  18.         For C = 1 To 4
  19.             For F = 1 To 4
  20.                 '//Suma de columnas
  21.                 SR(F - 1) += Matriz(F, C)
  22.             Next
  23.  
  24.             '//Suma diagonal principal A11 + A22 + A33+ + A44
  25.             DP += Matriz(C, C)
  26.  
  27.             '//Suma diagonal invertida  A14 + A23 + A32+ + A41
  28.             DI += Matriz(C, Dc)
  29.             Dc -= 1
  30.         Next
  31.  
  32.  
  33.  
  34.         ' Suma de filas
  35.         MessageBox.Show("Suma de filas:  " & String.Join(", ", SC))
  36.  
  37.         ' Suma de columnas
  38.         MessageBox.Show("Suma de columnas:  " & String.Join(", ", SR))
  39.  
  40.         ' Suma de diagonal principal  (De izquierda a derecha)
  41.         MessageBox.Show("Suma de principal: " & String.Join(", ", DP))
  42.  
  43.         ' Suma de diagonal invertida (de derecha a izquierda)
  44.         MessageBox.Show("Suma de invertida:   " & String.Join(", ", DI))
  45.  
  46.  
  47.  
323  Programación / .NET (C#, VB.NET, ASP) / Re: ListView con salto de línea /multilinea en: 15 Diciembre 2016, 11:07 am
Cita de: Eleкtro en 13 Diciembre 2016, 14:47 pm
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
324  Foros Generales / Foro Libre / Re: Que es y que no es ciencia en: 15 Diciembre 2016, 11:02 am
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.
325  Programación / .NET (C#, VB.NET, ASP) / Re: ListView con salto de línea /multilinea en: 12 Diciembre 2016, 23:17 pm
Cita de: ivancea96 en 12 Diciembre 2016, 22:58 pm
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:
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
  1.  
  2.    DataGridView1.DefaultCellStyle.Padding = New Padding(5, 2, 5, 2)
  3.             DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
  4.  

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

Código
  1. Public Class Form1
  2.     Dim DataGridView1 As New DataGridView
  3.     Sub New()
  4.         ' Llamada necesaria para el diseñador.
  5.         InitializeComponent()
  6.         ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
  7.         Me.Controls.Add(Me.DataGridView1)
  8.     End Sub
  9.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  10.         With DataGridView1
  11.  
  12.             .DefaultCellStyle.WrapMode = DataGridViewTriState.True
  13.             .RowHeadersVisible = False
  14.             .ColumnHeadersVisible = False
  15.             .ReadOnly = True
  16.             .RowCount = 1
  17.             .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells
  18.             .DefaultCellStyle.Padding = New Padding(5, 2, 5, 2)
  19.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
  20.             .MultiSelect = True
  21.             .ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText 'Permite copiar el texto
  22.             .RowsDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 'coloca los valores en el centro
  23.             .Size = New Size(New Point(400, 240))
  24.         End With
  25.  
  26.         Dim nvars As Integer = 20
  27.         DataGridView1.ColumnCount = nvars
  28.         Task.Factory.StartNew(Sub()
  29.                                   For I As Integer = 0 To nvars - 1
  30.                                       Dim Integ As Integer = I
  31.                                       Me.Invoke(DirectCast(Sub()
  32.                                                                DataGridView1.Item(Integ, 0).Value = Serie1()
  33.                                                                System.Threading.Thread.Sleep(50)
  34.                                                            End Sub, MethodInvoker))
  35.  
  36.                                   Next
  37.                               End Sub)
  38.  
  39.     End Sub
  40.     Public Function Serie1() As String
  41.         Dim col(16) As String
  42.         Dim Rand As New Random
  43.         For index As Integer = 1 To col.Count - 1
  44.             col(index) = CStr(Rand.Next(0, 16).ToString("00"))
  45.         Next
  46.         Return CStr(String.Join(Environment.NewLine, col).TrimStart)
  47.     End Function
  48. End Class
  49.  




Bueno, pues GRACIAS a los dos. Lo doy por solucionado  ;-)
326  Foros Generales / Foro Libre / Re: ¿Hay delitos en el vídeo viral de MrGranBomba y 'caraanchoa'? en: 12 Diciembre 2016, 22:53 pm
Humillar a una persona y dejarla en ridículo públicamente no es una broma , es acoso.
327  Programación / .NET (C#, VB.NET, ASP) / Re: ListView con salto de línea /multilinea en: 12 Diciembre 2016, 22:45 pm
Gracias

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

Código
  1. Public Class Form1
  2.     Dim DataGridView1 As New DataGridView
  3.     Sub New()
  4.         ' Llamada necesaria para el diseñador.
  5.         InitializeComponent()
  6.         ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
  7.         Me.Controls.Add(Me.DataGridView1)
  8.     End Sub
  9.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  10.         With DataGridView1
  11.             .DefaultCellStyle.WrapMode = DataGridViewTriState.True
  12.             .RowHeadersVisible = False
  13.             .ColumnHeadersVisible = False
  14.             .ReadOnly = True
  15.             .RowCount = 1
  16.             .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCells
  17.             ' .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells
  18.             .MultiSelect = True
  19.             .ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText 'Permite copiar el texto
  20.             .RowsDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 'coloca los valores en el centro
  21.             .Size = New Size(New Point(400, 235))
  22.         End With
  23.         'Configuración de las cabeceras de las columna
  24.         With DataGridView1.ColumnHeadersDefaultCellStyle
  25.             .Font = New Font("Lucida Console Unicode", FontStyle.Bold)
  26.             .Alignment = DataGridViewContentAlignment.MiddleCenter 'coloca el texto en el centro
  27.         End With
  28.  
  29.         Dim nvars As Integer = 20
  30.         DataGridView1.ColumnCount = nvars
  31.         Task.Factory.StartNew(Sub()
  32.                                   For I As Integer = 0 To nvars - 1
  33.                                       Dim Integ As Integer = I
  34.                                       Me.Invoke(DirectCast(Sub()
  35.  
  36.                                                                DataGridView1.Columns(Integ).Width = 30
  37.                                                                DataGridView1.Item(Integ, 0).Value = Serie1()
  38.  
  39.                                                                System.Threading.Thread.Sleep(50)
  40.                                                            End Sub, MethodInvoker))
  41.  
  42.                                   Next
  43.                               End Sub)
  44.  
  45.     End Sub
  46.     Public Function Serie1() As String
  47.         Dim col(16) As String
  48.         Dim Rand As New Random
  49.         For index As Integer = 1 To col.Count - 1
  50.             col(index) = CStr(Rand.Next(0, 16))
  51.         Next
  52.         Return CStr(String.Join(Environment.NewLine, col).Trim)
  53.     End Function
  54. End Class
  55.  
  56.  



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.
328  Foros Generales / Foro Libre / Senador estadounidense y sus ayudantes aseguran haber visto 2 Ovnis en la antigu en: 12 Diciembre 2016, 18:02 pm
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.
329  Foros Generales / Foro Libre / Senador estadounidense y sus ayudantes aseguran haber visto 2 Ovnis en la antigu en: 12 Diciembre 2016, 16:29 pm
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.
330  Programación / .NET (C#, VB.NET, ASP) / ListView con salto de línea /multilinea en: 12 Diciembre 2016, 01:13 am
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.
Páginas: 1 ... 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 [33] 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 ... 80
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines