alessandri 11-12-2021, 16:43
Hola amigos

¿es posible cargar un objeto Result con datos que se encuentran en un Array, o bien con una Struct?

Gracias.
Shell 11-12-2021, 12:25
Buenas!.

Después de ver un ejemplo con Python, busqué algún método para rellanar un array con palabras repetidas.
Encontré el método "Fill", pero este método necesita que el array tenga dimensiones.

No puedes hacer algo como:

Código:
Dim dulces as new String[]

dulces.fill("galletas",comienza desde aquí, rellena n veces el array con la palabra "galletas")
'O también
dulces.fill("galletas", rellena n veces el array con la palabra "galletas")

Y estuve probando distintas maneras de hacerlo. A ver si ustedes conocen una forma mejor que las de abajo.
Hice un test a ver cual era la más rápida.

Código:
Public Sub Main()
 
  Randomize
 
  TestBenchMark("LlenarArray")
  TestBenchMark("LlenarArray2")
  TestBenchMark("LlenarArray3")
 
End

Public Sub TestBenchMark(nombrefuncion As String)
 
  Dim i, t As Float
  Dim afinal As String[]
  Dim ob As Object
  Dim palabras As String[] = ["galletas", "merenges"]
  Dim palabra As String
  Dim veces As Integer
 
  ob = Me
 
  t = Timer
  afinal = New String[]  
  For i = 1 To 10 ^ 6     
    palabra = palabras[Rand(0, palabras.Max)]
    veces = Rand(1, 10)
    If nombrefuncion <> "LlenarArray2" Then
      afinal = Object.Call(ob, nombrefuncion, [afinal, palabra, veces])    
    Else
      afinal.Insert(Object.Call(ob, nombrefuncion, [palabra, veces]))
    Endif
  Next
 
  Print "Tiempo para 10^6 repeticiones, método: " & nombrefuncion & " = " & "\t"; Format(Timer - t, "0.######") & "s"
    
End


Public Function LlenarArray(apalabras As String[], palabra As String, veces As Integer) As String[]

  Dim cadenaconrepeticiones As String

  cadenaconrepeticiones = String(veces, palabra & " ")
  apalabras.Insert(Split(cadenaconrepeticiones, " ", "'", True))

  Return apalabras

End

Public Function LlenarArray2(palabra As String, veces As Integer) As String[]
 
  Dim apalabras As New String[]

  apalabras.Resize(veces)
  apalabras.Fill(palabra)
  Return apalabras

End

Public Function LlenarArray3(apalabras As String[], palabra As String, veces As Integer) As String[]

  If apalabras.Count = 0 Then
    apalabras.Resize(veces)
    apalabras.Fill(palabra)
  Else
    apalabras.Resize(apalabras.Count + veces)
    apalabras.Fill(palabra, apalabras.Count - veces, veces)
  Endif
 
  Return apalabras

End

La respuesta fue:
 
Cita:Tiempo para 10^6 repeticiones, método: LlenarArray =    1,245407s
Tiempo para 10^6 repeticiones, método: LlenarArray2 =   0,960382s
Tiempo para 10^6 repeticiones, método: LlenarArray3 =   0,80571s


Os adjunto el ejemplo:

Saludos
Archivos adjuntos
.gz
LlenadoDeArray-0.0.1.tar.gz (Tamaño: 12.34 KB Descargas: 2)
Shell 10-12-2021, 15:32
Buenas!.

Imaginar una oficina que se ha quedado anticuado un pc y que solo se usa para casos de extrema necesidad.
Pueden pasar años y no se enciende. ¿ Es posible virtualizar ese pc y luego usarlo en una máquina virtual ?.

Cómo convertir una máquina física en máquina virtual compatible con Virtualbox

Aunque no lo he leído del todo el articulo, me surge la primera duda.
La máquina física tendrá una serie de drivers que están instalados en el disco fisico y estos no tienen que ser compatibles con una máquina virtual.
Eso probablemente puede dar problemas.

En Windows existía el arranque seguro en el que podías desinstalar drivers, pero esto dependerá si lo haces antes o después de la virtualización.

¿ Alguien ha hecho este tipo de conversión y le ha ido bien ?.

A ver si encuentro un vídeo. Creo que este es más interesante que otros.



Algo más largo. No es que sea algo difícil, es clonar un disco, en principio.



Saludos
Páginas (567):    1 347 348 349 350 351 567   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 295
Último miembro: ncofre98
Temas del foro: 1,749
Mensajes del foro: 9,073
Últimos temas
Feliz Navidad a todos los...
Foro: General
Último mensaje por: Shordi, Hace 2 horas
Respuestas: 0 - Vistas: 13
Problemas con las interru...
Foro: General
Último mensaje por: guizans, 14-12-2025, 18:40
Respuestas: 5 - Vistas: 264
Scrolling un ScrollArea
Foro: Controles/Librerías/Componentes
Último mensaje por: Shordi, 12-12-2025, 07:24
Respuestas: 5 - Vistas: 285
Ordenar en un TableView
Foro: General
Último mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 970
Resultados dispares según...
Foro: Bases de Datos
Último mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 422
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.