Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Eleкtro

#6271
¿te refieres a los 3 ejemplos que dí?... no, son 3 ejemplos distintos para conseguir practicamente lo mismo, siendo el primer ejemplo el más elaborado.

saludos.
#6272
Te explicaré la query de LINQ del primer ejemplo:

1) Creo grupos de los números según su primer dígito (habiendo añadido temporalmente un "0" a los números del 1 al 9), es decir, grupo de números que empiezan por 0, o por 1, 2, 3, etc.
   Cada grupo contiene todos los números de la colección que empiecen por ese primer dígito de la regla. por ejemplo el grupo del "0" contendrá { 02, 08, 09 } (el cero es imaginario)

2) Asigno los grupos a la variable/propiedad 'items'.

3) Instancio un objeto 'LuisLibrary.Group' por cada grupo, al que le asigno el primer número del grupo (items(0)) a la propiedad 'First', y el segundo número del grupo (items(1)) a la propiedad 'Second'.

4) Devuelvo una Lista de los objetos 'LuisLibrary.Group'.

Saludos
#6273
Cita de: _Enko en 22 Octubre 2014, 17:21 PM
asp es Server Side Script. Tendrías que tener acceso al FTP para poder descargar la fuente, de lo contrario sería imposible.

vaya, muchas gracias por la reveladora aclaración, entonces carezco de toda esperanza xD :P

Cierro el tema ya que supuestamente no se puede hacer nada (al menos, de forma legal).

Un saludo!
#6274
Código (vbnet) [Seleccionar]
Namespace LuisLibrary

Friend NotInheritable Class Group

   Protected Friend Property First As Integer = 0I
   Protected Friend Property Second As Integer = 0I

End Class

End Namespace


Dim values As New List(Of Integer) From
   {
       2, 8, 9, 10, 11, 15, 21, 22, 28, 50, 55, 58
   }

Dim groupedValues As List(Of LuisLibrary.Group) =
   (From i As Integer In values
   Group By i.ToString("00").First
   Into items = Group Select New LuisLibrary.Group With {
       .First = items(0),
       .Second = items(1)
   }).ToList

For Each g As LuisLibrary.Group In groupedValues

        Dim str As String = String.Format("{0:00}, {1:00}",
                                          g.First,
                                          g.Second)

   MessageBox.Show(str)

Next g


...O bien:
Código (vbnet) [Seleccionar]
' Type anónimo
Dim groupedValues =
   From i As Integer In values
   Group By i.ToString("00").First
   Into items = Group Select New With {
      Key .First = items(0),
      Key .Second = items(1)
   }


...O también:
Código (vbnet) [Seleccionar]
Dim groupedValues As List(Of List(Of Integer)) =
   (From i As Integer In values
    Group By i.ToString("00").First Into items = Group
    Select New List(Of Integer) From {items(0), items(1)}
    ).ToList


Saludos.
#6275
Cita de: ivancea96 en 22 Octubre 2014, 15:40 PM¿qué impide al objeto superar la velocidad de la luz?

¿La naturaleza? (según se dice) :-/

No pretendo desviar el tema, pero creo que debe haber ciertos límites irrebasables, la velocidad tiene un límite impuesto por "la naturaleza", como un límite de capacidad implícito en la computación que no se puede rebasar, algo así debe ser más o menos...

Saludos!
#6276
Para los que tengan Windows 7, debo aclarar que es necesario tener el último SP instlalado para poder instalar Microsoft VisualStudio 2013, al menos esto es lo que dice Microsoft en los requisitos de VS2013.

Cita de: http://www.visualstudio.com/en-us/products/visual-studio-2013-compatibility-vs.aspxVisual Studio supports the listed platforms when used with the latest available service pack for that platform.

Pero personálmente hace poco experimenté un problema con un usuario que no se podia instalar el instalador personalizado de VS2013 en Windows 7, tras revisar el código de error del Log de la instalación fallida nos percatamos del requisito comentado arriba, pero a pesar de haber instalado el SP1 Microsoft seguía mostrando un error indicando que la versión actual de Windows no era compatible con VS2013, algo extraño.

Bajo Windows 8/8.1 no tendrán problemas, pero bajo Windows 7... yo no puedo asegurar nada, es algo que depende de Microsoft, no de mi instalador.

PD: Recuerden revisar el Log que genera el instalador personalizado de VS2013 si la instalación falla en su PC.

Saludos!
#6277
Buenas

He subido a una cuenta en Mediafire el código fuente del proyecto .Net reflector 7.0, desarrollado en C#, para todos aquellos que quieran aprender como ha sido elaborado un programa de tal magnitud de la compañia RedGate que muchos ya conocerán...

http://www.mediafire.com/?g7pp13un8si6wyb

El enlace lo eliminaré cuando decida que ya ha sido compartido durante bastante tiempo apra que todos los interesados hayan podido descargarlo...

PD: Mantengan esto en secreto... ;)

Saludos!
#6278
Cita de: 1quark1 en 22 Octubre 2014, 10:12 AM
Muchas gracias Elektro.

¿Soy el único al que le funcionan los links de mediafire y el resto no (elektrostudios.tk*)?

No, lo siento pero el servidor tk acabó expirando y no pude renovarlo :(

Puedes encontrar esos y más templates en el instalador de recursos de...:
Microsoft Visual Studio 2013 Ultimate + Resource Pack (Actualizado 09-Oct-2014)

Saludos!
#6279

.ToList() Method

Cita de: MSDNCrea un objeto List(Of T) a partir de un objeto IEnumerable(Of T).




Cita de: luis456 en 21 Octubre 2014, 19:37 PMAAA lo que quiero es saber donde ir :)

#6280
Cita de: luis456 en 21 Octubre 2014, 19:37 PMconvertir de integer a lo que sea

Bueno, hay varias maneras de convertir un DataType, cada uno con sus pequeñas diferencias a tener en cuenta.

1)

Utilizando los métodos Parse o TryParse de un DataType.

Código (vbnet) [Seleccionar]
Dim str As String = "1"
Dim num As Integer

Integer.TryParse(str, num)



2)

Utilizando las funciones de conversión de DataTypes:
http://msdn.microsoft.com/en-us/library/s2dy91zy.aspx

Código (vbnet) [Seleccionar]
Dim str As String = "1"
Dim num As Integer

num = CInt(str)



3)

Utilizando los métodos de la Class 'Convert'.

Código (vbnet) [Seleccionar]
Dim str As String = "1"
Dim num As Integer

num = Convert.ToInt32(str, 10I)



4)

Utilizando las funciones CType, TryCast o DirectCast.

Código (vbnet) [Seleccionar]
Dim str As String = "1"
Dim num As Integer

num = CType(str, Integer)



5)

Utilizando la Class 'TypeConverter'.

Código (vbnet) [Seleccionar]
Imports System.ComponentModel

Dim str As String = "1"
Dim num As Integer

Dim converter As TypeConverter = TypeDescriptor.GetConverter(num.GetType)
With converter

   If .CanConvertFrom(str.GetType) Then
       num = .ConvertFrom(str)
   End If

End With


Saludos.