Gracias elektro

Ya esta solucionado el error, lo tenia en el contador que habia puesto en configuracion y que en ves de integer habia puesto double 


de nuevo gracias
Luis
 

Hola a todos tengo este error cuando genero un programa en exe y al ejecutarlo me sale la ventanita que me dice  " InvalidCastException " seguir o cancelar,  si sigo el programa se ejecuta normalmente, he compilado muchos exes y es la primera ves que me pasa ,

************** Texto de la excepción **************
System.InvalidCastException: La conversión de la cadena "" en el tipo 'Double' no es válida. ---> System.FormatException: La cadena de entrada no tiene el formato correcto.

************** Depuración JIT **************
Para habilitar la depuración Just In Time (JIT), el archivo de configuración de esta
aplicación o equipo (machine.config) debe tener el
valor jitDebugging establecido en la sección system.windows.forms.
La aplicación también se debe compilar con la depuración
habilitada

Por ejemplo:

<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>

Cuando esté habilitada la depuración JIT, cualquier excepción no controlada
se enviará al depurador JIT registrado en el equipo
en lugar de controlarlo mediante el cuadro de diálogo.

Luis

Bueno a ver si esto te vale

http://www.jc-mouse.net/proyectos/ejemplo-de-aplicacion-android-y-sqlite

Luis

bueno a ver lo que quiero es tomar de dos en dos la cantidad de numeros en la variable
enpezando desde el split que de paso aclaro que es el 0

tengo en la variable estos numeros lo hare corto

 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,12, 13, 14,15 y quiero que los split los tomen de esta manera, para el ejemplo estoy poniendo numeros correlativos pero suelen ser diferentes (1 4 6 10 15 22 26 28 )  etc


 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,12, 13, 14,15

split(0)=1 y 3
split(1)=2 y 4
split(2)=5 y 7
split(3)=6 y 8
split(4)=7 y 9
split(5)=8 y 10
split(6)=9 y 11
split(7)=10 y 12
split(9)=12 y 14
 ........y con todos igual  se me paso jejje ( 55 ya no son tan buenos )

Normalmente la variable que tiene el arreglo ordena los numeros de menor a mayor desde 0 en adelante y los split los toma en ese orden pero no me valen cuando son correlativos 1, 2, 3 etc. nesecito un salto entre ellos


Luis

Dificil no?

que sera para mi ?   

Luis

Bueno mientras no me jales de las orejas,de las patillas ,no me des con la regla en los dedos ni me pongas de rodillas con una tapas de refrescos jejej como era antes, 

bueno aca esta la version cortita

Public Class Form1
    ReadOnly MAX As Integer = 99
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Dim arregloSumasa() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21}
 
 
 
        Dim split As IEnumerable(Of IEnumerable(Of Integer)) =
          SplitIntoParts(collection:=arregloSumasa, amount:=2, fillEmpty:=True)
 
        ' *****************************************************************************************************
        Dim Bz990 As IEnumerable(Of Integer) =
(
From Value As Integer In split(0).Concat(split(1)).Concat(split(2)).Concat(split(3)).Concat(split(4))
Where (Value <= MAX AndAlso Value > 0)).Distinct
 
 
        Dim Sl990 As IEnumerable(Of Integer) = Bz990
        Dim SM990 As List(Of Integer) = Bz990.Take(10).ToList
        SM990.Sort()
 
        Me.ListBox1.Items.AddRange((From value As Integer In SM990 Where value <> 0).Cast(Of Object).ToArray)
        ' *******************************************************************************************************
        'este codigo ahora
        ' muestra -------> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
 
        ' yo quiero mostrar --> 1, 3, 5, 7, 9, 11,13,15,17, 19 <--- ojo no son numeros pares ni impares, es por posiciones
        ' yo quiero mostrar --> 2, 4, 6, 8, 10, 12,14,16,18.20 <---estan ordenados para el ejemplo 
 
 
 
 
    End Sub
    Public Shared Function SplitIntoParts(Of T)(ByVal collection As IEnumerable(Of T),
                                                 ByVal amount As Integer,
                                                 ByVal fillEmpty As Boolean) As IEnumerable(Of IEnumerable(Of T))
 
        Return From index As Integer In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / amount)))
               Select If(Not fillEmpty,
                         collection.Skip(index * amount).Take(amount),
                         If((collection.Count() - (index * amount)) >= amount,
                            collection.Skip(index * amount).Take(amount),
                            collection.Skip(index * amount).Take(amount).
                                                            Concat(From i As Integer
                                                                   In Enumerable.Range(0, amount - (collection.Count() - (index * amount)))
                                                                   Select DirectCast(Nothing, T))))
 
    End Function
 

Si hay muy buenos profresores  en este foro ,algunos medio cascarabias pero bien jejej en esto de net he aprendido mucho gracias a ellos

Luis 

otro intento pero nunca he liado con esto . y esta funcion me parece que es la que me serviria


el operador '<<' no está definido para los tipos 'System.Collections.Generic.List(Of Integer)' y 'Integer'.

  Dim var As IEnumerable(Of Integer) = {15, 45, 48, 47, 33, 43, 60, 65, 88}
        Dim shift As Integer = 2
 
        Dim Sl As IEnumerable(Of Integer) = var
        Dim SM As List(Of Integer) = var.ToList
 
        SM <<= shift
 
        Me.ListBox2.Items.AddRange((From value As Integer In SM Where value <> 0).Cast(Of Object).ToArray)  

elimine el error pero no funciona como quiero, me corta el arreglo y me deja las combinaciones sin numeros para completar los diez numeros ?????


Luis

A si estaria Bien

lo estoy probando pero tengo que quitar unas claves ya que me da conflito o este error pero ya creo saber que tengo que eliminar

error

No se puede convertir un objeto de tipo '<ConcatIterator>d__71`1[System.String]' al tipo 'System.Collections.Generic.IEnumerable`1[System.Int32]'.

esto es lo que he echo

Dim suma = From num In alia1 _
                         Select num
 
        For num As Integer = 0 To 99 Step 2
 
            Dim split As IEnumerable(Of IEnumerable(Of Integer)) =
        SplitIntoParts(collection:=suma, amount:=2, fillEmpty:=True)
 
        Next num 

Luis