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 - luis456

#31
Cita de: luis456 en 16 Marzo 2020, 15:16 PM
Si Aincrad quiero crear el efecto de que esta función hace la ostia de cálculos  :silbar:

gracias probare lo que me dejaste

saludos
luis

No se encontraron archivos  :o :o en el rar ,al  descomprimir me da ese aviso

luis
#32
 Si Aincrad quiero crear el efecto de que esta función hace la ostia de cálculos  :silbar:

gracias probare lo que me dejaste

saludos
luis
#33
Hola
tengo esta función que está tan rápida que hasta a mi me aburre ,por donde tengo que buscar para poner una barra proges (nunca he usado una ) pero que ralentice la función para que parezca que hace mil cálculos  :silbar:

Código (vbnet) [Seleccionar]
'****************combinaciones FUNCIONA DE p**a MADRE
   Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
       Dim input As Integer() = (Result1)

       Dim output As New List(Of Integer)

       For i As Integer = 0 To input.Length - 1
           For j As Integer = 0 To input.Length - 1
               If input(i) <> input(j) AndAlso input(i) < 5 Then
                   Dim result As Integer = (input(i) * 10 + input(j))
                   output.Add(result)
               End If
           Next j
       Next i

       Me.ListBox8.Items.AddRange(output.Cast(Of Object).Distinct().ToArray)

   End Sub


saludos
Luis
#34
Cita de: **Aincrad** en 11 Marzo 2020, 15:24 PM
Let? (output As let ) , bueno , correccion :

Código (vbnet) [Seleccionar]
  Dim input As Integer() = {1, 2, 3, 5, 7}

        Dim output As New List(Of Integer)

        For i As Integer = 0 To input.Length - 1
            For j As Integer = 0 To input.Length - 1
                If input(i) <> input(j) AndAlso input(i) < 5 Then
                    Dim result As Integer = (input(i) * 10 + input(j))
                    output.Add(result)
                End If
            Next j
        Next i



fUNCIONA BIEN
Código (vbnet) [Seleccionar]
'****************combinaciones FUNCIONA DE p**a MADRE
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim input As Integer() = {1, 2, 3, 5, 7}

        Dim output As New List(Of Integer)

        For i As Integer = 0 To input.Length - 1
            For j As Integer = 0 To input.Length - 1
                If input(i) <> input(j) AndAlso input(i) < 5 Then
                    Dim result As Integer = (input(i) * 10 + input(j))
                    output.Add(result)
                End If
            Next j
        Next i

        Me.ListBox8.Items.AddRange(output.Cast(Of Object).ToArray)


Gracias a todos  ;-) ;-)

luis


#35
Cita de: EdePC en 14 Marzo 2020, 00:47 AM
- También depende del Sistema Operativo, Windows 10 es muy pesado, si no tienes un SSD va ha ser difícil trabajar cómodamente, aparte de la cantidad de procesos, subprocesos, servicios y demás que consumen una buena cantidad de GB de Ram.

- Yo trabajo con Windows 8 (no 8.1) que es muy ligero, que porqué me gusta tanto, pues con todo lo que tengo en ejecución y apenas me consume 3 GB de Ram y no pasa de 1GHz de Ram, esto un en sistema de 64-bit, pues es todavía menos en uno de 32-bit XD, además tengo un simple HDD de 1 TB, los SSD son muy caros por la capacidad que traen:



- Dependerá de gustos, pero yo trabajo con muchas ventanas y programas a la vez y necesito una reacción rápida por parte del sistema operativo, yo quiero que la PC siga mi ritmo y no estarle esperando a que trabaje.


Bueno
yo estoy esperando que me llegue la nueva máquina que pedí (china jejje) es un servidor Zeon de 2.500mhz y 32 de ram, son procesadores  que ya han quitado de los dataserver, pero para un mortal como nosotros dicen que es una Bestia, pero lo demas es nuevo tarjeta madre etc ya tengo casi todo,un cajón Nforte tipo gamer  :silbar: teclado ,disco ssd de 450 gb. solo me falta la refrigeración líquida y ya tendría como poder programar sin problema ,por los momentos uso un i3 que va muy bien y uso el Visual estudio 2017.

saludos
Luis

#36
Grcias EdePC por el aporte  ;-)

a ver si entre semanas con esto puedo hacer algo  ;-)

saludos
Luis
#37
Cita de: victor1960 en 12 Marzo 2020, 16:21 PM
Pero eso son juegos para niños no entiendo la finalidad

Ostias tu , dice juego para niños  :laugh: :laugh: :laugh:

Como dice Songoku  "mírate algún gameplay " y te apuesto que te enganchas como algunos que conozco jejje hace mas de 20 años con este "juego para niños "  :silbar:

saludos
Luis
#38
Bueno cuando puedas me envias lo del juego ,si quieres por mensaje privado para no pecar por aca jejej ,y  gracias Songoku por adelantado

saludos
Luis
#39
Cita de: simorg en 11 Marzo 2020, 23:04 PM
jejeje, ¿Viste mi perfil?  :silbar:


Saludos.

Bueno que son 12 años de diferencia  :silbar: :silbar:

saludos
Luis
#40
Cita de: Songoku en 12 Marzo 2020, 00:53 AM
luis456 cuando hablaba del Quake me estaba refiriendo al Quake III Arena claro está. Luego está el Quake 4 que es estupendo para jugar en el modo campaña, pero para online hay incluso menos servidores que en el arena que es básicamente el Quake ideal para online ya que no tiene modo campaña.

Cuando tengas la maquina montada contacta conmigo y si quieres te puedo pasar enlaces de descarga del Quake, mods, etc para si quieres unirte a alguna partidilla en los mencionados servidores.
Aquí unas capturas de algunas victorias  ;D















P.D perdón por desviar el tema del hilo. Para hablar de juegos hay el subforo correspondiente.
Saludos...


Songoku


Ostias  ;-) ;-) ;-)  ya vere de no meterme contigo jajaj ,apenas lo monte me pongo en ello jeje

saludos