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


 


Tema destacado: 4n4lDetector v1.3: herramienta de análisis estático de malware


  Mostrar Temas
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13
1  Programación / .NET (C#, VB.NET, ASP) / Otra de combinaciones pero ahora condicionadas en: 5 Abril 2020, 17:29
Hola y espero que todos estén bien

Yo como toda España encuevado para frenar el Mega Bicho  >:D

Y claro frente al pc ahora que puedo jejej

Bueno tengo este código que me combina sin error,ni duplicados etc etc, pero me da tres números y necesito aumentar los números de tres a cuatro ,cinco y sucesivamente con solo cambiar la condición ,no se implementar lo de los números  o si se debe hacer un " sele case " o en su defecto por código cada ves que quiera cambiar  :silbar:


ahora me entrega los resultados de esta forma :

tengo estos números base  {2, 6, 10, 11, 17, 20, 24, 34}  ejecuto y me da :
(solo las 3 primeras)
02.06.10
02.06.11
02.06.20
02.06.24

bien necesito que me forme resultados pero de cuatro números cinco números etc etc donde por supuesto sean números únicos o resultados

Ejemplo:

Bien:
01.05.16.25
01.05.16.26
01.05.16.30

Mal:

01.05.16.16
01.05.05.26
01.01.16.30

Código
  1. Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
  2.        Dim intCol As IEnumerable(Of Integer) = {2, 6, 10, 11, 17, 20, 24, 34}
  3.        Dim pairsCol As IEnumerable(Of String) =
  4.            From value1 As Integer In intCol
  5.            From value2 As Integer In intCol
  6.            Select String.Join(Environment.NewLine, (
  7.                               From value3 As Integer In intCol
  8.                               Where (value1 <> value2) AndAlso
  9.                                     (value1 <> value3) AndAlso
  10.                                     (value2 <> value3) AndAlso
  11.                                     (value3 > value2) AndAlso
  12.                                     (value2 > value1)
  13.                               Select String.Format("{0:00}, {1:00}, {2:00}",
  14.                                                    value1, value2, value3)))
  15.  
  16.  
  17.        Dim ClearRep As New List(Of String)
  18.  
  19.        For Each pairs As String In pairsCol
  20.            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
  21.                ListBox4.Items.Add(line)
  22.            Next line
  23.        Next pairs
  24.  
  25.        MessageBox.Show(ListBox1.Items.Count)
  26.  
  27.  
  28.  
  29.    End Sub


Saludos
LUIS
QUÉDATE EN CASA ENTRE TODOS PODREMOS














 
2  Informática / Hardware / se puede hacer esto ? a un i3 550 overclocked y llevarlo a 4.5Ghz en: 2 Abril 2020, 19:47

Pues eso, ahora estoy afanado con mas potencia mientras preparo un pc nuevo y tengo este i3 Viejito y queria experimentar con el ,se puede hacer overclocked  sin reventar nada jejej

saludos
Luis
3  Media / Multimedia / Programa para mezcla de audios o música en: 31 Marzo 2020, 22:04
Hola

Que programa para crear o mesclar audios tipo Dj hay ahora ? y ya sabéis de los facilitos de usar jejje no pienso vender CD es para crear pistas de audio para mis loco vídeos

gracias
Luis
4  Programación / .NET (C#, VB.NET, ASP) / Eliminar registros iguales condicionados :( en: 23 Marzo 2020, 14:17
Trabajando con este código de combinaciones o permutas ?? quiero eliminar los registros que dupliquen los números o que tengan los mismos números en diferente orden dejando solo uno de ellos ya que me repite muchos registros donde tienen los mismos numeros:
ejemplo

Código
  1. Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
  2.        Dim Elementos As IEnumerable(Of Integer) = {1, 4, 5, 8, 33, 44, 45, 68, 98}
  3.        Dim EleX As Integer = 0
  4.        Dim EleX1 As Integer = 0
  5.        Dim EleX2 As Integer = 0
  6.        Dim EleX3 As Integer = 0
  7.        Dim EleX4 As Integer = 0
  8.        ListBox4.Items.Clear() 'Limpia el ListBox
  9.        For I1 As Integer = 0 To Elementos.Count - 1 : EleX += 1
  10.            For I2 As Integer = EleX To Elementos.Count - 1
  11.                For I3 As Integer = EleX To Elementos.Count - 2
  12.                    For I4 As Integer = EleX To Elementos.Count - 3
  13.                        For I5 As Integer = EleX To Elementos.Count - 4
  14.                            For I6 As Integer = EleX To Elementos.Count - 5
  15.                                If Elementos(I2) <> Elementos(I3) And Elementos(I3) <> Elementos(I2) < Elementos(I4) < Elementos(I5) Then
  16.                                    ListBox4.Items.Add(String.Format(Format1, Elementos(I1), Elementos(I2), Elementos(I3), Elementos(I4), Elementos(I5), Elementos(I6)))
  17.                                End If
  18.  
  19.                            Next
  20.                        Next
  21.                    Next
  22.                Next
  23.            Next
  24.        Next
  25.        MessageBox.Show("Combinaciones: " & ListBox4.Items.Count)
  26.    End Sub


estoy tratando de implentarle esta funcion pero no me sale

Código
  1. '//QUITAR ELEMENTOS REPETIDOS --------------------funciona bien con otra funcione con esta me da error
  2.        Dim nuevaLista As New List(Of Integer)
  3.        For Each elemento In ListBox4.Items
  4.            nuevaLista.Add(elemento)
  5.        Next
  6.  
  7.        nuevaLista = nuevaLista.Distinct.ToList() 'elimina repetidos
  8.        nuevaLista.Sort() 'Ordena la lista
  9.        ListBox4.Items.Clear() 'limpia el listbox (no funciona con DataSource)
  10.        'ListBox4.DataSource= Nothing 'usar solo si es se usó datasource para llenar el listbox
  11.        For Each Elemento As String In nuevaLista
  12.            ListBox4.Items.Add(Elemento)
  13.        Next


saludos
Luis



5  Programación / .NET (C#, VB.NET, ASP) / Otra de las mias jeje Barra de progreso lento o rápido :) en: 16 Marzo 2020, 10:55
Hola
tengo esta función que está tan rápida que hasta a mi me aburre ,por donde tengo que buscar para poner una barra proges (nunca he usado una ) pero que ralentice la función para que parezca que hace mil cálculos  :silbar:

Código
  1. '****************combinaciones FUNCIONA DE p**a MADRE
  2.    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
  3.        Dim input As Integer() = (Result1)
  4.  
  5.        Dim output As New List(Of Integer)
  6.  
  7.        For i As Integer = 0 To input.Length - 1
  8.            For j As Integer = 0 To input.Length - 1
  9.                If input(i) <> input(j) AndAlso input(i) < 5 Then
  10.                    Dim result As Integer = (input(i) * 10 + input(j))
  11.                    output.Add(result)
  12.                End If
  13.            Next j
  14.        Next i
  15.  
  16.        Me.ListBox8.Items.AddRange(output.Cast(Of Object).Distinct().ToArray)
  17.  
  18.    End Sub

saludos
Luis
6  Media / Multimedia / programas para convertir formatos de videos en: 11 Marzo 2020, 07:34
Hola a todos
alguien me puede orientar para conseguir un programa para convertir mp4 a otros formatos que no tenga limitaciones ni marcas de agua ?

saludos

Luis
7  Programación / .NET (C#, VB.NET, ASP) / Otra duda con combinatorias de numeros :( en: 9 Marzo 2020, 18:29
Hola chicos aca os traigo otra de mis chapuzas de combinatorias :
introduzco ejemplo estos números " 1, 2 , 3 , 5 , 7 " necesito formar con estos números  el 12 , 13 , 15 , 17 ,21 ,23 , 25, 27 etc etc menos 51 osea todo lo que tenga el 5 adelante o el 7,

lo de la limitación de los números  tengo la idea con esta rutina :

Código
  1. Return If(Value < MAX, Value, Rand.Next(0, MAX))


Adonde tengo la pega es con este :)

Código
  1. '--combis para reparar nesecita un boton y un trxbox TRABAJANDO EN ELLO AHORA
  2.    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
  3.  
  4.        ' Dim intCol As IEnumerable(Of Integer) = {2, 3, 4, 7}
  5.        Dim intCol As IEnumerable(Of Integer) = (Result1)  '<---aca convierto las variables que trae los numeros pueden ser del 1 al 9
  6.        ' lo que nesecito es formar combinaciones pares y que no pase del numero 50
  7.  
  8.        Dim pairsCol As IEnumerable(Of String) =
  9.            From value1 As Integer In intCol
  10.            From value2 As Integer In intCol
  11.            Select String.Join(Environment.NewLine, (
  12.                               From value3 As Integer In intCol
  13.                               Where (value1 <> value2) AndAlso
  14.                                     (value1 <> value3) AndAlso
  15.                                     (value2 <> value3)
  16.                               Select String.Format("{0:00}, {1:00}, {2:00}",
  17.                                                    value1, value2, value3)))
  18.  
  19.  
  20.  
  21.        For Each pairs As String In pairsCol
  22.  
  23.  
  24.            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries).Distinct().ToArray
  25.                ' MsgBox(pairs.Count)
  26.                ' MsgBox(line.Count)
  27.  
  28.                Me.ListBox3.Items.Add(line)
  29.            Next line
  30.  
  31.        Next pairs
  32.    End Sub

si alguno sabria como modificarlo me ayudaria mucho

saludos
Luis
8  Programación / .NET (C#, VB.NET, ASP) / pasar datos de una variable a otra ??? en: 1 Marzo 2020, 14:18
Hola

bien tengo otra pregunta tonta ;( tengo una variable llamada  "Result " y quiero pasar estos datos a otra :    Public ListaDeNumeros As String = "1,2,3,4,5,7" ' ,no encuentro mis apuntes ,,perdi todo en el otro pc

Código
  1. Dim Rand As New Random
  2.        ' Concateno, y...
  3.        ' Elimino duplicados, y...
  4.        ' Selecciono los números inferiores a MAX, y...
  5.        ' Convierto los números mayores a MAX a números aleatorios entre 0 y MAX.
  6.        Dim Result As IEnumerable(Of Integer) =
  7.            (Result1.Concat(Result2).Concat(Result3).Concat(Result4).Concat(Result5)).
  8.            Distinct.
  9.            Select(Function(Value As Integer)
  10.                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
  11.                   End Function)


quiero pasar los datos que trae " Result " a " Public ListaDeNumeros As String = "

saludos
Luis


mas simple no pudo se jeje
Código
  1. ' Dim intCol As IEnumerable(Of Integer) = {2, 3, 4, 7}
  2.        Dim intCol As IEnumerable(Of Integer) = (Result1)
9  Programación / .NET (C#, VB.NET, ASP) / Como evitar se muestren números con el signo negativo en un ListBox ? en: 15 Febrero 2020, 21:39
Hola a todos

lo tenia pero no encuentro la rutina como se eliminan los numeros con  signos negativos en un listbox .

ejemplo :

         -1
         -3

uso este codigo que funciona bien para mostrar los resultados pero a veces salen numeros con negativo


Código
  1. Dim Result As IEnumerable(Of Integer) =
  2.            (Result1.Concat(Result2).Concat(Result3).Concat(Result4).Concat(Result5)).
  3.            Distinct.
  4.            Select(Function(Value As Integer)
  5.                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
  6.                   End Function)
  7.  
  8.  
  9.  
  10.        ListBox7.Items.AddRange(Result.Cast(Of Object).ToArray)

saludos
Luis




10  Programación / .NET (C#, VB.NET, ASP) / como tomar la parte de un numero de dos digitos en: 10 Febrero 2020, 18:35
Hola a Todos

Despues de algun tiempo he vuelto a este vicio de programar jeje pero ando muy quemado ;(

lo que quiero hacer es que a un número de dos dígitos tomar solo uno de ellos :

explico tengo unos texbox donde introdusco estos numeros:
Código
  1. ReadOnly Property Num1 As Int32
  2.        Get
  3.            Return CInt(TextBox1.Text)
  4.        End Get
  5.    End Property

se supone que de ahi va para la función que paso por estos números etc etc .lo que quiero es modificar que si pongo por ejemplo el numero 20 pueda solo tomar el de la derecha o sea el 0 o viceversa ,esto lo envio a una variable l:

Código
  1. Result1 = {Num1 + 1, Num1 + 3} _
  2.                  .Distinct().ToArray ' Elimino duplicados


He probado en propiedades del texbox pero no es lo que quiero ,quiero es fracionar el numero sea al derecho o la isquierda


saludos
Luis
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines