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


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


  Mostrar Mensajes
Páginas: 1 ... 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 [693] 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 ... 1253
6921  Foros Generales / Foro Libre / Ice Bucket Challenge, ¿Que opinas? en: 30 Agosto 2014, 02:41 am
¿Que opinais del Ice Bucket Challenge?



Hola, creo que aun no se ha hablado de este tema en el foro y me gusta ser el primero :D (a pesar de que ello signifique que soy el primer gilipollas en hablar de esta basura) xD

Yo pienso que la deficiencia intelectual mundial va en aumento y cada vez se denotan más pruebas de ello, pues para empezar creo que el dato más obvio sería que no es normal intentar hacer un reto que se llama "cubo de hielo" tirándote por encima un maldito cubo de agua fria (o templada, los que hagan trampa) y sin cubitos de hielo como los de la siguiente imagen, claro está:


Muchos no estarán deacuerdo con lo que voy a decir, pero a mi me parece absurdo que para realizar una donación debas dejarte en ridículo intencionadamente, puede que esa persona no sienta ridículo pero sabe perfectamente que estará provocando el ridículo en muchas personas que vean su "show", y si quieres donar pues donas, no tienes que exhibirte y justificarte con un "reto" ni intentar captar la atención de los demás para obtener tu minuto de gloria,
así que si este "reto" se hiciera sin donación u otra finalidad entonces creo que cualquier profesional de la psicología podria determinar que esa persona es RETRASADA, ¿entonces porque pensamos que existe una diferencia y que esta persona no es retrasada por hacer el ridículo intencionado simplemente porque lo hace con un fin, sea cual sea?, apoyo a los payasos (los profesionales) porque ellos hacen comedia, pero esto son otro tipo de payasos con un problema bien gordo de moralidad.


Aparte, no se porque los retos famosos de internet siempre se tienen que convertir en una especie de exhibición PORNO, ¿que cojones le pasa a la gente del siglo XI?, ¿porque parecen estar todas las mujeres chaladas?, ¿es que acaso el agua es un afrodisiaco para ellas y todavia no lo hemos descubierto?, si no sabeis a lo que me estoy refiriendo os hago saber que hay decenas (o cientos) de videos sobre este reto de la típica mujer casi en pelotas (mujer normal, mujer modelo, mujer playboy, mujer pu... de todo) exhibiendose con el cubito de agua (las hay tapadas, en bikini, desnudas, de todo también), es bonito y sexy de ver al principio (que duda nos cabe a nosotros xD), pero cuando lo piensas bien... ¡decadencia ajena!.


De verdad deseo con todas mis fuerzas que esta moda tóxica se acabe mañana mismo y a ser posible vengan unos hombres de negro y nos borren cualquier recuerdo de nuestras mentes para no recordar tal acontecimiento catastrófico de la historia de la involución evolución humana.


Lo dicho, no le veo sentido a intentar justificar "hacer el tonto" con la finalidad de donar, si el fín de tirarte hielo es sentirse identificado con el ELA pues creo que es más absurdo si cabe, como mínimo yo me sentiria muy ofendido si yo fuese un enfermo de esta enfermedad.

( aunque él no se sintió ofendido y vió como su familia se tiraban cubos de hielo agua )

La única conclusión a la que puedo llegar con todo esto es que el ser humano, a día de hoy, se toma el acto de Donar como una especie de reto o show, y no como una motivación propia para regalar/compartir. Que pena.




PD: Todo lo que he escrito (menos mi conclusión) lo he expresado de forma seria y quizás algo provocativa pero siempre con un tono de broma, porfavor que nadie se sienta ofendido por alguna de las palabras que empleé y si así ocurriese le pido disculpas, tómese mis palabras con humor... ¡ninguna va con mala intención! :P


Voy a dejar que el youtuber Dalas exprese su opinión también (os aviso, contiene bastante excentricismo y palabras indecentes por doquier xD):

Para los subnormales del #IceBucketChallenge (no pretendo insultar, pero es el título del video)











...
...
...


...


Un saludo!
Elektro
6922  Informática / Software / Re: Evitar doble click con click simple. (Fallo mecánico) en: 30 Agosto 2014, 01:06 am
@Saberuneko
A mi me pasa lo mismo, ¡ lo que has compartido es algo muy util !, te doy las gracias por que vas a alargar la vida de mi mouse actual (y de los próximos).




TL;DR:
No se como no se me habia ocurrido esto antes (a mi o a cualquier otra persona quiero decir), esto es algo muy práctico y por lo que veo autohotkey te lo expone de una manera muy sencilla (por algo se llama así el lenguaje) pero esto en otros lenguajes requeriría muchísimo más código (y experiencia con Windows), he estado buscando alguna alternativa más simple (en la WinAPI) pero al parecer no existe ninguna función nativa en Windows para asignar el intervalo mínimo en el sistema para que un doble-click se considere como tal (por el lado contrario, si que existe la función SetDoubleClickTime que sirve para especificar el intervalo máximo entre click y click para que se considere doble-click), todo esto lo comento porque me habria gustado compartir una versión del mismo código que has expuesto pero en otro lenguaje, el caso es que no es plan de compartir 500 lineas de un extenso código de un hook aquí y/o quitarle protagonismo a nadie sin querer, en autohotkey parece ser lo más práctico y en pocas lineas, sin duda un buen aporte y la mejor elección del lenguaje en el que llevarlo a cabo, ¡gracias de nuevo!.



Saludos!
6923  Programación / .NET (C#, VB.NET, ASP) / Re: Mis malas combinaciones :( en: 29 Agosto 2014, 18:16 pm
Hola pongo el código entero, lo de poner los números en la variable es como difícil sin tener que cortar el código, que como veras hace una serie de cálculos con 20 dígitos que introduzco y saber cuantos números salen de esa ecuación es un poco difícil

ya, el programa hace el cálculo, ¿pero para que pueda buscar el error no puedes ponerme algo así?:

Código:
Dim fixedvalues as integer() = {1,2,3 etc,...}

Si no no se con que números debería probar en el for...

cuando pueda le echo un ojo

saludos
6924  Programación / .NET (C#, VB.NET, ASP) / Re: Mis malas combinaciones :( en: 29 Agosto 2014, 17:33 pm
1) pon el código entero que estás usando

2) a la variable FixedValues asignale manualmente los numeros que tocan ( que no lo tenga q hacer yo porque no los se :-/ ) para probar el For.

3) pon el output que debería dar al menos las primeras 3 combinaciones para saber por donde corregir el problema...

saludos!
6925  Programación / .NET (C#, VB.NET, ASP) / Re: Mis malas combinaciones :( en: 29 Agosto 2014, 15:56 pm
Los índices empiezan por Cero en .Net, así que debes descontarle un 1 a FixedValues.Count (no debes aumentar nada)

Código
  1. For Num As Integer = IndexCounter To (FixedValues.Count - 1I) Step NumStep

Supongo que eso debería solucionar el problema, quizás haya más cosas a tener en cuenta (IndexCounter, NumStep), pero de momento prueba lo que te dije a ver si te da el resultado que tu esperas.

Saludos!
6926  Programación / .NET (C#, VB.NET, ASP) / Re: Mis malas combinaciones :( en: 29 Agosto 2014, 11:47 am
Código
  1.        FixedValues =
  2.            (Result1.Concat(Result2).Concat(Result3)).
  3.            Distinct.
  4.            Select(Function(Value As Integer)
  5.                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
  6.                   End Function).ToArray

PD: esto ponlo fuera del sub
Citar
Código
  1.        Dim Rand As New Random
6927  Programación / .NET (C#, VB.NET, ASP) / Re: Mis malas combinaciones :( en: 28 Agosto 2014, 20:38 pm
Citar
Código
  1.    Private Sub Test() Handles MyBase.Shown

¿Eso no te dice nada?

Todo lo que hay en el interior de ese bloque se ejecuta en el evento Shown.

La finalidad (según me parece a mi tu intención) sería quitarlo de ahí para meterlo/adaptarlo en el bloque del sub Sumar.

Saludos

EDITO: por lo que dices, quizás pueda ser algo como esto:

Código
  1. Imports System.IO
  2. Public Class Form1
  3.  
  4.    Dim maximum As Short = 99
  5.    Dim x As Integer = 0
  6.    Dim Número As Double
  7.    Private TextBoxes As TextBox() = {Nothing}
  8.    Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
  9.    Private _textBox As Object
  10.    Private Property ListBox1Count As Integer
  11.    ReadOnly MAX As Integer = 99
  12.    ReadOnly Randomizer As New Random
  13.    Dim Combo As List(Of Integer) = Nothing
  14.    Dim Combos As New List(Of List(Of Integer))
  15.  
  16.    Dim FixedValues As Integer() = Nothing
  17.    ReadOnly RandomValues As Integer() =
  18.        Enumerable.Range(0, 99).ToArray
  19.  
  20.  
  21.    Private Property Calcular As Object
  22.  
  23.    Private Property TextBoX(ByVal TextBoxCount As Short) As Object
  24.        Get
  25.            Return _textBox
  26.        End Get
  27.        Set(ByVal value As Object)
  28.            _textBox = value
  29.        End Set
  30.    End Property
  31.  
  32.    Public Sub solonumeros(ByRef e As System.Windows.Forms.KeyPressEventArgs)
  33.        ' evitar letras
  34.        If Char.IsDigit(e.KeyChar) Then
  35.            e.Handled = False
  36.        ElseIf Char.IsControl(e.KeyChar) Then
  37.            e.Handled = False
  38.        ElseIf Char.IsSeparator(e.KeyChar) Then
  39.            e.Handled = False
  40.        Else
  41.            e.Handled = True
  42.        End If
  43.  
  44.    End Sub
  45.  
  46.  
  47.    ReadOnly Property Num1 As Int32
  48.        Get
  49.            Return CInt(TextBox1.Text)
  50.        End Get
  51.    End Property
  52.  
  53.    ReadOnly Property Num2 As Int32
  54.        Get
  55.            Return CInt(TextBox2.Text)
  56.        End Get
  57.    End Property
  58.    ReadOnly Property Num3 As Int32
  59.        Get
  60.            Return CInt(TextBox3.Text)
  61.        End Get
  62.    End Property
  63.  
  64.  
  65.    Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  66.  
  67.        Result1 = {Num1 + 1, Num1 + 2, Num1 + 4, Num1 + 6, Num1 - 4, Num1 - 1} _
  68.                  .Distinct().ToArray ' Elimino duplicados
  69.  
  70.        Result2 = {Num2 + 1, Num2 + 2, Num2 + 3, Num2 - 1, Num2 - 2, Num1 - 3} _
  71.                  .Distinct().ToArray ' Elimino duplicados
  72.  
  73.        Result3 = {Num3 - 1, Num3 - 2, Num3 - 3, Num3 + 2, Num3 + 3, Num3 + 5} _
  74.                  .Distinct().ToArray ' Elimino duplicados
  75.  
  76.        Dim Rand As New Random
  77.        FixedValues =
  78.            (Result1.Concat(Result2).Concat(Result3)).
  79.            Distinct.
  80.            Select(Function(Value As Integer)
  81.                       Return If(Value < MAX, Value, Rand.Next(0, MAX))
  82.                   End Function)
  83.  
  84.        Dim IndexCounter As Integer = FixedValues.First ' 1
  85.        Dim LenCounter As Integer = 0I
  86.  
  87.        Const NumStep As Integer = 5I
  88.        Const NumLen As Integer = 6I
  89.  
  90.        Do Until IndexCounter > FixedValues.Last
  91.  
  92.            Combo = New List(Of Integer)
  93.  
  94.            For Num As Integer = IndexCounter To (FixedValues.Count) Step NumStep
  95.  
  96.                LenCounter += 1I
  97.                Combo.Add(FixedValues(Num - 1I))
  98.  
  99.                If LenCounter >= NumLen Then
  100.                    Exit For
  101.                End If
  102.  
  103.            Next Num
  104.  
  105.            If LenCounter < NumLen Then
  106.  
  107.                For RandomNum As Integer = 1I To (NumLen - LenCounter)
  108.  
  109.                    Dim n As Integer = Randomizer.Next(RandomValues.First, RandomValues.Last)
  110.  
  111.                    Do Until Not Combo.Contains(n)
  112.                        n = Randomizer.Next(RandomValues.First, RandomValues.Last)
  113.                    Loop
  114.  
  115.                    Combo.Add(n)
  116.  
  117.                Next ' RandomNum
  118.  
  119.            End If ' LenCounter < NumLen
  120.  
  121. #If DEBUG Then ' #Debug
  122.            Debug.WriteLine(String.Join(", ", Combo))
  123.            ' Stop
  124. #End If
  125.            Combo.Sort()
  126.            Combos.Add(Combo)
  127.            IndexCounter += 1I
  128.            LenCounter = 0I
  129.  
  130.        Loop ' IndexCounter >= FixedValues.Last
  131.  
  132.        ' ******** ordenamiento-------------
  133.        '  Dim values As Integer() = (From n As Integer In Combos Order By n Ascending).ToArray
  134.  
  135.        ' ********
  136.        ' Listbox:
  137.        ' ********
  138.        Combos.ForEach(Sub(comb As List(Of Integer))
  139.  
  140.                           ' Convierto la Lista a 'String', le añado los ceros, y añado el string formateado al Listbox.
  141.                           ListBox1.Items.Add(String.Join(", ",
  142.                                                          From value As String In comb
  143.                                                          Select If(value.Length = 1I,
  144.                                                                    value.Insert(0I, "0"c),
  145.                                                                    value)))
  146.                           ListBox1.Sorted = True
  147.  
  148.  
  149.  
  150.                       End Sub)
  151.  
  152.    End Sub
  153.  
  154.  
  155. End Class

Cosas a tener en cuenta:

1. No le asignes un nombre reservado a una propiedad (TextBox), y asignale el Type de retorno adecuado (no Object)

2. Intenta organizar ese código, es un desastre visual, métodos en medio de propiedades y luego más propiedades, constantes dentro de métodos, algoritmos largos dentro del bloque de un event-handler (aunque bueno, estu último lo añadi yo xD pero ya habia algo ahí de antes), un desastre.

6928  Programación / .NET (C#, VB.NET, ASP) / Re: Mis malas combinaciones :( en: 28 Agosto 2014, 13:49 pm
Solucionado ;)

Bien, pero debes intentar interactuar lo más mínimo con la UI.

Código
  1. Combos.Count

Saludos
6929  Sistemas Operativos / Windows / Re: MSSQL$MSSMLIBZ en: 28 Agosto 2014, 05:30 am
¿piensas que puede ser necesario para algún producto de Office?.
No lo se, nunca habia visto antes ese servicio en particular, y practicamente no hay documentacion sobre ese servicio en Google, pero si dices que tu novia no utiliza SQL, y si tampoco utiliza aplicaciones que dependan de MSSQL pues... creo que lo más lógico es pensar que no es necesario.

¿Hay algún modo de saber que aplicación (ejecutable) hace uso de ese servidor SQL?
Con ProcessExplorer (de SysInternals) puedes comprobar los servicios que están registrados a las aplicaciones actualmente en ejecución.

Inicias los programas de Microsoft (o los que consideres), inicias ProcessExplorer, haces doble click en cada programa y miras la pestaña "Services".

Saludos
6930  Sistemas Operativos / Windows / Re: MSSQL$MSSMLIBZ en: 27 Agosto 2014, 15:40 pm
Si, por el nombre queda claro que es de SQL (MSSQL = Microsoft SQL) y lo más probable es que se te haya instalado sin ningún tipo de aviso junto a algún producto de Microsoft, como por ejemplo VisualStudio, Outlook, Office, no se, algo que te hayas instalado ultimamente (muy típico por parte de Microsoft instalar basura adicional, en fin), deberías poder deshabilitar dicho servicio sin problemas.

Saludos
Páginas: 1 ... 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 [693] 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 ... 1253
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines