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
gracias probare lo que me dejaste
saludos
luis
No se encontraron archivos
![:o :o](https://forum.elhacker.net/Smileys/navidad/shocked.gif)
![:o :o](https://forum.elhacker.net/Smileys/navidad/shocked.gif)
luis
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ú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
gracias probare lo que me dejaste
saludos
luis
'****************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
Cita de: **Aincrad** en 11 Marzo 2020, 15:24 PM
Let? (output As let ) , bueno , correccion :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
'****************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)
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.
Cita de: victor1960 en 12 Marzo 2020, 16:21 PM
Pero eso son juegos para niños no entiendo la finalidad
Cita de: simorg en 11 Marzo 2020, 23:04 PM
jejeje, ¿Viste mi perfil?
Saludos.
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
P.D perdón por desviar el tema del hilo. Para hablar de juegos hay el subforo correspondiente.
Saludos...
Songoku