Mensajes

Valla que facilito no   ?    ¡ solo me faltaban dos meses para hacerlo jejejje

funciona 

gracias elektro

Luis

Otra ves al ataque bien tratando con los ejemplos que me diste la otra ves y no doy pie con bola he cambiado todas las variables y nada no me aclaro cual es la que debo mostrar en el listbox

Código (vbnet) [Seleccionar] Expandir

Dim combinations As New List(Of Integer()) <---creo esta es la que tiene las combis
Dim length As Integer = 7 <----------esta es la determina las cantidad
Dim skipStart As Integer = 0 <----------NPI



Estos son las  formas que me enseñaste

Combos.ForEach(Sub(comb As List(Of Integer))
                           ListBox1.Items.Add(String.Join(", ", comb))
                       End Sub)

---------------------------------------------------------------------------


ListBox1.Items.AddRange(
            (From comb As List(Of Integer) In Combos
             Select String.Join(", ", comb)).ToArray
         )



-------------------------------------------------------------------------------------

Combos.ForEach(Sub(comb As List(Of Integer))

                           ' Convierto la Lista a 'String', le añado los ceros, y añado el string formateado al Listbox.
                           ListBox1.Items.Add(String.Join(", ",
                                                          From value As String In comb
                                                          Select If(value.Length = 1I,
                                                                    value.Insert(0I, "0"c),
                                                                    value)))

                       End Sub)

Tu creees que no he estado en ello el ejemplo que me dices es este ,pero de verdad que no logro hacerlo andar

Código (vbnet) [Seleccionar] Expandir

combinations.ForEach(Sub(comb As List(Of Integer))

                           ' Convierto la Lista a 'String', le añado los ceros, y añado el string formateado al Listbox.
                           ListBox1.Items.Add(String.Join(", ",
                                                          From value As String In comb
                                                          Select If(value.Length = 1I,
                                                                    value.Insert(0I, "0"c),
                                                                    value)))
                           ListBox1.Sorted = True


luis

AAAA GGGG no puedo pasarlo a un listbox ? he probado con todas las variables y nada

luis

Gracias elektro

si funciona como queria esta genial ahora estoy tratando de mostrarlo en un listbox pero no me sale, ademas de que tengo que cambiar o introducir  los valores de  " constantValues" los números a mano a través de texbox pero eso creo resolverlo jejej

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    ReadOnly constantValues As New List(Of Integer) From
        {
            1I, 9I, 11, 12, 14, 16, 20, 24, 35, 38,
            40, 44, 50, 58, 59, 60, 68, 70, 77, 80,
            81, 88, 90, 92, 99
        }

    Private Shadows Sub Load() Handles MyBase.Load

        Dim combinations As New List(Of Integer())

        Dim length As Integer = 7
        Dim skipStart As Integer = 0

        Do Until skipStart = (constantValues.Count - length)

            Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
            Dim count As Integer = 0

            Do Until count = (constantValues.Count - length - skipStart)

                combinations.Add(values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray)
                Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))

                count += 1

            Loop ' count = (constantValues.Count - length)

            skipStart += 1

        Loop ' skipStart = (constantValues.Count - length)

        ListBox1.Items.AddRange(????????.Cast(Of Object).ToArray) <-----no y no

    End Sub

End Class



saludos
Luis

¿puedes mostrar como sería el resultado.

Saludos

muestra de numeros a combinar
01 09 11 12 14 16 20   24  35 38 40  44  50  58  59 60 68 70 77 80 81 88 90 92 99


01 09 11 12 14 16 20 24
01 09 11 12 14 16 20 35
01 09 11 12 14 16 20 38
01 09 11 12 14 16 20 40
01 09 11 12 14 16 20 44
01 09 11 12 14 16 20 50
01 09 11 12 14 16 20 58
01 09 11 12 14 16 20 59
01 09 11 12 14 16 20 60
01 09 11 12 14 16 20 68
01 09 11 12 14 16 20 70 hasta el 99

y después sigue con el segundo numero

09 11 12 14 16 20 24 35
09 11 12 14 16 20 24 38

y haci hasta acabar con todos


Luis

Hola
bien esto de las combinaciones me esta volviendo adicto a lo imposible jejej

tengo 25 números de dos dígitos y como siempre desde el 00 hasta el 99 y quiero hacer o formar grupos de 7 y 8 números donde estén todos los números de entre estos 25 .

ejemplo: 01 09 11 12 14 16 20 24 35 38 40 44 50 58 59 60 68 70 77 80 81 88 90 92 99

alguna idea

Luis

Hoy sabado a programar mm como me gusta jejejej

Solucionado

Archivo = System.IO.File.Create("c:\asi\Prueba.txt") ya lo crea lo que pasa creo yo es que como siempre que quiero hacer algo  en c: siempre me pide permisos de administrador y de esta forma no me lo pide ,bien ahora a ver como me la monto para abrir el que tiene los datos


luis

????


c:\Prueba.txt

Excepción del tipo 'System.IO.DirectoryNotFoundException' en mscorlib.dll

Bueno en el poquito rato he modificado para crear el archivo pero no se que hago mal .ya que me da error de ruta y la he cambiado varias veces ?? y voy a pie jeje

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Shadows Sub Load() Handles MyBase.Load

       Dim sb As New System.Text.StringBuilder
       Dim Values As New List(Of Integer()) From
           {
               ({1I, 20, 1I}),
               ({7I, 22, 4I}),
               ({8I, 27, 11}),
               ({20, 29, 17}),
               ({23, 33, 22}),
               ({39, 46, 31})
           }

       For Each ValueCol() As Integer In Values

           Dim Value1 As Integer = ValueCol(0)
           Dim Value2 As Integer = ValueCol(1)
           Dim Value3 As Integer = ValueCol(2)
           Dim Diff1 As String = GetDifferenceExpression(Value1, Value2)
           Dim Diff2 As String = GetDifferenceExpression(Value2, Value3)

           sb.AppendLine(String.Format("{0} -> {1} = {2}",
                         Value1.ToString("00"), Value2.ToString("00"), Diff1))

           sb.AppendLine(String.Format("{0} -> {1} = {2}",
                         Value2.ToString("00"), Value3.ToString("00"), Diff2))

           sb.AppendLine()

       Next ValueCol

       MessageBox.Show(sb.ToString)

       Application.Exit()

       
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, _
                      ByVal e As System.EventArgs) Handles MyBase.Load
       Try
           Dim Archivo As System.IO.FileStream
           ' crea un archivo vacio prueba.txt  
           Archivo = System.IO.File.Create("c:Documentos\Prueba.txt")
           ' error  
       Catch oe As Exception
           MsgBox(oe.Message, MsgBoxStyle.Critical)
       End Try
   End Sub
 
   ' Get Difference expression
   ' ( By Elektro )
   '
   ' Usage Examples:
   ' MessageBox.Show(GetDifferenceExpression(5, 10))
   '
   ''' <summary>
   ''' Gets the arithmetic sum/rest difference expression between two values.
   ''' </summary>
   ''' <param name="Value1">The first value.</param>
   ''' <param name="Value2">The second value.</param>
   ''' <returns>The arithmetic expression.</returns>
   Friend Function GetDifferenceExpression(ByVal Value1 As Long, ByVal Value2 As Long) As String

       Select Case Value2

           Case Is > Value1 ' Value2 is bigger than Value1.
               Return String.Format("+{0}", CStr(Value2 - Value1))

           Case Is < Value1 ' Value2 is lower than Value1.
               Return String.Format("-{0}", CStr(Value1 - Value2))

           Case Else ' Value2 is equals to Value1.
               Return "0"

       End Select

   End Function

End Class




ya que en programacion no da error solo una pantalla que dice " no se puede encontrar parte de la ruta ) lo que me estraña es que dice " PARTE " no lo habia visto antes

luis