Mensajes

A simple vista, no hay nada erroneo en la instrucción.

comprueba si la linea que me has mostrado es la misma que hace referencia a esta:

Código [Seleccionar] Expandir

Form1.vb   78  

Comprueba que todos los valores que usas en el método de LINQ seán Integers, no longs no shorts no otra cosa, y prueba así, sin especificar el datatype de retorno:

Código (vbnet) [Seleccionar] Expandir

Result11 = Result11.Select(Function(Value) If(Value < MAX, Value, Rand.Next(0, MAX)))

De todas formas aún sigo esperando a que des un maldito detalle sobre el tipo de excepción de la que se trata, si en tiempo de ejecución o un error de compilación, aunque está claro que es de compilación pero bueno... para la próxima vez.

PD: Siempre puedes ponerle un par de breakpoints para inspeccionar más detalládamente los sucesos si se trata de una excepción en tiempo de ejecución.

saludos

seguimos
error de resolucion de sobre carga pongo codigo entero

Código [Seleccionar] Expandir

Result11 = Result11.Select(Function(Value As Integer) If(Value < MAX, Value, Rand.Next(0, MAX))) <----------------------aca

Veo que has marcado el error en la misma linea ...pero con la modificación que te puse arriba debería funcionar corréctamente.

Esto que dijiste la verdad es que no me sirve de nada:

error de resolucion de sobre carga

Si puedes modifica el lenguaje de la IDE para mostrar el mensaje de error en Inglés, pero muestra el mensaje completo no como has hecho las dos veces anteriores xD, debes mostrar el tipo de excepción además de los detalles del error y el número de linea donde te salta la excepción.


saludos

El código de arriba lo escribí al vuelo, no me di cuenta de un fallo muy grande, en lugar de un Return le puse ReadOnly xD, déjalo asi:

Código (vbnet) [Seleccionar] Expandir

Result11 = Result11.Select(Function(Value As Integer) If(Value < MAX, Value, Rand.Next(0, MAX)))

Y por cierto, esto tal vez quieras revisarlo...:

Código (vbnet) [Seleccionar] Expandir

(Result1.Concat(Result3).Concat(Result3)

(concatenas dos veces Result3).

Saludos

Me puse a jugar con el efecto de Pixelado de la librería de pago ImageDraw ~> http://www.neodynamic.com/products/image-draw/sdk-vb-net-csharp/ ...y al final acabé escribiendo un ayudante de casi 2.000 lineas.

Aquí pueden ver el código completo ~> http://pastebin.com/Ha8tG3cA

Le añadí métodos de uso genérico para realizar las siguientes acciones (no están todos los efectos):

Código [Seleccionar] Expandir

' -------
' Methods
' -------
'
' Properties.Brightness
' Properties.Contrast
' Properties.Gamma
' Properties.HSL
' Properties.Hue
' Properties.Opacity
'
' Effects.CameraView
' Effects.ColorSubstitution
' Effects.ConvertToBlackWhite
' Effects.ConvertToNegative
' Effects.ConvertToSepia
' Effects.Crop
' Effects.DistortCorners
' Effects.DropShadow
' Effects.Fade
' Effects.Feather
' Effects.Filmstrip
' Effects.Flip
' Effects.FocalGrayscale
' Effects.GaussianBlur
' Effects.GlassTable
' Effects.Glow
' Effects.MakeTransparent
' Effects.PerspectiveReflection
' Effects.PerspectiveView
' Effects.Pixelate
' Effects.RemoveColor
' Effects.RemoveTransparency
' Effects.Resize
' Effects.Rotate
' Effects.RoundCorners
' Effects.Scale
' Effects.Sharpen
' Effects.Silhouette
' Effects.Skew
' Effects.Solarize
' Effects.Stretch
' Effects.Tint

Ejemplos de uso:

Código (vbnet) [Seleccionar] Expandir

       Dim [ImageElement] As ImageElement = ImageElement.FromFile("C:\Image.png")
       Dim [TextElement] As New TextElement With {.Text = "Hello World!"}

       ImageDrawHelper.Properties.Brightness([ImageElement], 50)
       ImageDrawHelper.Properties.Contrast([ImageElement], 50)
       ImageDrawHelper.Properties.Gamma([ImageElement], 50)
       ImageDrawHelper.Properties.HSL([ImageElement], 50, 50, 50)
       ImageDrawHelper.Properties.Hue([ImageElement], 50)
       ImageDrawHelper.Properties.Opacity([ImageElement], 50)

       ImageDrawHelper.Effects.CameraView([ImageElement], 30, 25)
       ImageDrawHelper.Effects.ColorSubstitution([ImageElement], Color.Black, Color.Fuchsia, 10)
       ImageDrawHelper.Effects.ConvertToBlackWhite([ImageElement], DitherMethod.Threshold, 53, False)
       ImageDrawHelper.Effects.ConvertToNegative([ImageElement])
       ImageDrawHelper.Effects.ConvertToSepia([ImageElement])
       ImageDrawHelper.Effects.Crop([ImageElement], 0, 10, 200, 160)
       ImageDrawHelper.Effects.DistortCorners([ImageElement], -20, -20, 200, 0, 250, 180, -30, 200)
       ImageDrawHelper.Effects.DropShadow([ImageElement], 60, Color.Lime, 270, 6, 10)
       ImageDrawHelper.Effects.Fade([ImageElement], FadeShape.Oval, FillType.Gradient, GradientShape.Path)
       ImageDrawHelper.Effects.Feather([ImageElement], 5, FeatherShape.Oval)
       ImageDrawHelper.Effects.Filmstrip([ImageElement], FilmstripOrientation.Vertical, 150, 180, 0, Color.Yellow, 5)
       ImageDrawHelper.Effects.Flip([ImageElement], FlipType.Horizontal)
       ImageDrawHelper.Effects.FocalGrayscale([ImageElement], FocalShape.Oval, FillType.Gradient, GradientShape.Path, Color.FromArgb(0, 255, 255, 255), Color.FromArgb(0, 0, 0))
       ImageDrawHelper.Effects.GaussianBlur([ImageElement], 5)
       ImageDrawHelper.Effects.GlassTable([ImageElement], 50, 25)
       ImageDrawHelper.Effects.GlassTable([ImageElement], 50, 25, ReflectionLocation.Custom, 2, 10)
       ImageDrawHelper.Effects.Glow([ImageElement], Color.Red, 80, 8)
       ImageDrawHelper.Effects.MakeTransparent([ImageElement])
       ImageDrawHelper.Effects.PerspectiveReflection([ImageElement], 270, 50, 50, 150, 0)
       ImageDrawHelper.Effects.PerspectiveView([ImageElement], 25, PerspectiveOrientation.LeftToRight)
       ImageDrawHelper.Effects.Pixelate([ImageElement], 20, 0)
       ImageDrawHelper.Effects.RemoveColor([ImageElement], Color.White, 10, ScanDirection.All)
       ImageDrawHelper.Effects.RemoveTransparency([ImageElement])
       ImageDrawHelper.Effects.Resize([ImageElement], 256, 256, LockAspectRatio.WidthBased, Drawing2D.InterpolationMode.Bicubic)
       ImageDrawHelper.Effects.Rotate([ImageElement], 90, Drawing2D.InterpolationMode.Bicubic)
       ImageDrawHelper.Effects.RoundCorners([ImageElement], Corners.All, 120)
       ImageDrawHelper.Effects.RoundCorners([ImageElement], Corners.All, 20, 10, Color.Red)
       ImageDrawHelper.Effects.Scale([ImageElement], 50, 50, Drawing2D.InterpolationMode.Bicubic)
       ImageDrawHelper.Effects.Sharpen([ImageElement])
       ImageDrawHelper.Effects.Silhouette([ImageElement], Color.RoyalBlue)
       ImageDrawHelper.Effects.Skew([ImageElement], SkewType.Parallelogram, -10, SkewOrientation.Horizontal, True)
       ImageDrawHelper.Effects.Solarize([ImageElement])
       ImageDrawHelper.Effects.Stretch([ImageElement], 90, 150)
       ImageDrawHelper.Effects.Tint([ImageElement], Color.Orange)

       PictureBox1.BackgroundImage = [ImageElement].GetOutputImage

De todas formas aquí tienes un método (muy simple) de uso genérico:

Código (vbnet) [Seleccionar] Expandir

    ' [ Get Application Path ]
    ' ( By Elektro )
    '
    ' Usage Examples :
    ' MsgBox(GetApplicationPath())
    ' MsgBox(GetApplicationPath(True))
     
    ''' <summary>
    ''' Gets the startup application path.
    ''' </summary>
    ''' <param name="FullPath">
    ''' if set to <c>true</c> returns the full path,
    ''' otherwise only returns the directory path.
    ''' </param>
    ''' <returns>System.String.</returns>
    Private Function GetApplicationPath(Optional ByVal FullPath As Boolean = False) As String

        Select Case FullPath

            Case True
                Return IO.Path.Combine(My.Application.Info.DirectoryPath(),
                                       Process.GetCurrentProcess().MainModule.ModuleName)

            Case Else
                Return My.Application.Info.DirectoryPath

        End Select

    End Function

PD: Utilizo los métodos de My.application porque son compatibles con proyectos de todo tipo sin tener que importar referencias.

Saludos

[EDITO:]

Hola

No es lo mismo el directorio de trabajo actual (WirkingDirectory), que el directorio donde se encuentra el ensamblado, ya que el primero no es estático y se puede modificar.

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.
EDITO: Lo que dijo el compañero El Benjo es lo correcto.

Para obtener el directorio de inciio de la aplicación puedes utilizar este método:

Código (vbnet) [Seleccionar] Expandir

Application.StartupPath

Y para averiguar el directorio de trabajo actual...bueno, esto es complétamente innecesario a menos que modifiques intencionadamente el directorio de trabajo en algun lugar del código y que por ese motivo debas controlar los cambios de directorio.

...Por ejemplo:

Código (vbnet) [Seleccionar] Expandir

Dim Archivo As String = "Archivo.pdf"

...al momento que vayas a usar la variable Archivo para ejecutarlo, cargarlo, pasarlo como parámetro a un método, o lo que estés haciendo, ya se toma en cuenta el directorio de trabajo actual, porque ese es el directorio actual.

Es decir, lo de arriba, es exáctamente lo mismo que hacer esto:

Código (vbnet) [Seleccionar] Expandir

Dim Archivo As String = IO.Path.Combine(IO.Directory.GetCurrentDirectory, "Archivo.pdf")
Dim Archivo As String = IO.Path.Combine(Application.StartupPath, "Archivo.pdf")
Dim Archivo As String = IO.Path.Combine(My.Application.Info.DirectoryPath, "Archivo.pdf")
Dim Archivo As String = IO.Path.Combine(CurDir(), "Archivo.pdf")
Dim Archivo As String = ".\Archivo.pdf"

Dim DirectorioActual As String = "" ' Nada

Así que se puede decir que no necesitas especificar el directorio de trabajo.

Saludos!

ups, ¿pero entonces aquí se habla de la película o del juego?

[2005]

Espero que te sirve

Ay!, señor...

Modificar registro por ms-dos
« en: 7 Marzo 2005, 16:13 »

Revivir posts antiguos está prohibido en el foro.

Saludos!

Nada dos dias y nada no logro hacerlo funcionar  

Porfavor, detalles!.

1. Que significa "no funciona", ¿te salta alguna excepción?.

2. Número de linea exacta en el que te salta la excepción junto al mensaje de error y el stacktrace.

saludos!

[con un acierto de 85%]

O usar Handicappers (Sistemas de predicciones deportivas) como el "Z-Code System"   que es un super ordenador que lleva recolectando estadisticas desde el año 2000 o algo asi y te dice la probabilidad de ganar para cada equipo

con un acierto de 85%
La cosa está en invertir, ahi está el problema (para la mayoria jeje) xD  

Eso si que es una pasada, pero creo que cuesta 200 euros o 300 euros...

Vaya, y yo me pregunto, si esos sistemas son tan efectivos... ¿porque los propietarios del sistema venden y comparten el servicio por internet en lugar de haberse aprovechado de dicho sistema para ellos solitos y así hacerse millonarios y estar viviendo ahora mismo en el sahara con 4 o 5 esposas?, pues digo yo que con unas supuestas probabilidades de acierto del 85%... por más apuestas que pierdas a la larga te harias rico.

Tonterías, más timos ...y más gente ciega que se deja timar.

EDITO: Puffff, acabo de mirar la web del sistema z-code este ...me he parado a leer la sección de "testimonios zcode" por curiosidad ...y es que me parto la caja, de principio a fin cada párrafo se asemeja más a una secta para captar víctimas que a otra cosa, la similitud con la típica empresa fantasma que da la sensación de desesperación por captar nuevos clientes a los que chuparle el dinero es más que impresionante, yo no se en que piensan algunas personas con semejantes chorradas como esta web, de verdad, pero hay que ser imbecil para tragárselo y para no darse cuenta de los pequeños detalles... esa web es para lerdos que no tienen conocimiento, es algo que me saca de mis casillas.

Esto se suele jugar a color, ya que es lo que más probabilidades d eganar te ofrece.
Es un método lento, pero eficaz.

Claro que sigue siendo probabilidad, y sigue existiendo la probabilidad de perder aun habiendo repetido el proceso 100 veces.

Doy fe de que la probabilidad (o mejor dicho, timo) existe.

Los métodos de probabilidades quizás sean excelentes para jugar en un casino real, pero en un casino online puedes perder al mismo color (desesperádamente) más de 50 veces y perder todo el dinero apostado, por mucha paciencia que se tenga y muy precavido que se sea, como sabrás, ese método estadístico índica que cuantas más veces pierdas a un color, debes doblar más la apuesta a ese color para recuperar lo que hayas perdido cuando se acierte el color, y ahí se pueden ir perfectamente en pocas jugadas más de 100 euros sin acertar, subiendo centimo a centimo, euro a euro.

me da verguenza reconocerlo pero soy una victima, quédense con el dato de que yo invertí 100€ en un casino online, para probar como era eso, tenia curiosidad, y ya habia leido libros de métodos estadísticos, en fín jugando a la ruleta y al juego de las fichas de colores llegué a acumular 700€ (600 de ellos eran 'virtuales' o 'ganados' o como quieran decirlo) y perdí todo ese dineral jugando a ese método estadístico de los colores, solo podía quedarme pasmado viendo como por más que apostase a un color, siempre salia el otro, ya no se si llegaron a ser 50 o 70 jugadas o cuantas, pero fueron tantas que nadie se lo creeria...nadie, esto no es cuestión de suerte, es un puto timo los casinos online, todo software manipulado ...pero bueno, yo reálmente no perdí 700, perdí mucho menos, 100, por suerte no fue más. Y ¿Porque no saqué el dinero antes?, por la sencilla razón de que los bancos de los casinos online no te dejan sacar dinero hasta que no superas un límite, y en este caso era una cifra desmesurada, unos 800 euros o más... y en todos los casinos online según me informé siempre te ponen ese tipo de pegas, que cuando te registras para jugar no lo sabes a menos que te leas todas las condiciones de uso con su letra pequeña que siempre suelen ser 800 páginas, en fin, cuanto timo señores.

PD: Historia basada en hechos reales.

No pierdan el tiempo ...hoy en dia casi todo es un timo.

Una imagen tan real como escalofriante, solo puedo decir... :

BRAVO !!