Shell 27-04-2023, 12:17
Buenas!.
El tiempo que tarda la copia total la vimos hace ya tiempo en un ejemplo con la barra de progreso.
Pero, ¿ cómo calcularíamos la velocidad en tiempo real de la copia de "x" archivos ?.
En Gambas tenemos la posibilidad de saber cuanto mide un archivo mediante el comando Stat.
Salida:
Imaginar que tenemos 10 archivos iguales como ese. ( Eso puede ser lo más fácil )
Cada vez que termina la copia de uno de esos archivos, ha pasado un tiempo y se ha transferido una cantidad de información.
Cada vez que escribe 4458K en el disco se acaba una copia, tenemos cuando comenzó y cuando terminó y vuelve a repetirse el proceso.
comienzo = Timer
diferenciadetiempo = Timer - comienzo
Es tamaño / tiempo si no recuerdo mal.
En el caso de un archivo si ha tardado 0.25 segundos y su tamaño es 4M, su velocidad podía haber sido:
4M / 0.25 = 16M/s ¿ No ?.
Eso sería lo que tarda en copiarse un archivo. Como son archivos iguales pues sería sencillo de calcular.
Ahora lo interesante sería de que los archivos fueran de distinto tamaño.
Entonce supongo que por la formula anterior iríamos sumando los tiempos que tarda cada copia y dividiríamos por la media del número de archivos.
Eso supongo que es lo que debe mostrarse en el progresos de la copia.
¿ Ustedes que opinan ?. Tranquis el mundo va a seguir ahí.
Saludos
El tiempo que tarda la copia total la vimos hace ya tiempo en un ejemplo con la barra de progreso.
Código:
Public Sub Copiar()
Dim aarchivos As New String[]
Dim unarchivo As String
Dim incrementos As Float
comienzo = Timer
aarchivos.Clear
ProgressBar1.Value = 0
aarchivos = RDir(directoriorigen, "*", gb.File)
incrementos = 1 / aarchivos.Count
For Each unarchivo In aarchivos
ProgressBar1.Value += incrementos
lblStatus.Text = "Copiando " & unarchivo
Wait 0.01
' Para copiar, descomentar
' Copy directoriorigen &/ unarchivo To directoriodestino &/ unarchivo
Next
diferenciadetiempo = Timer - comienzo
Message.Info("Copia completada" & gb.NewLine & "El tiempo que ha tardado en copiar los archivos es: " & Format(diferenciadetiempo, "-#.##") & "s")
Me.Close
EndPero, ¿ cómo calcularíamos la velocidad en tiempo real de la copia de "x" archivos ?.
En Gambas tenemos la posibilidad de saber cuanto mide un archivo mediante el comando Stat.
Código:
Public Sub Main()
Dim rutaarchivo As String
'Uso un nombre de archivo que tengo en el disco
rutaarchivo = User.Home &/ "001 The Present Simple of to be.mp3"
With Stat(rutaarchivo)
Print "Tamaño de archivo: " & Round(.Size / 1024); "K"
Print "Tamaño de archivo: " & Round(.Size / 1024 ^ 2); "M"
End With
EndSalida:
Cita:
Tamaño de archivo: 4458K
Tamaño de archivo: 4M
Imaginar que tenemos 10 archivos iguales como ese. ( Eso puede ser lo más fácil )
Cada vez que termina la copia de uno de esos archivos, ha pasado un tiempo y se ha transferido una cantidad de información.
Cada vez que escribe 4458K en el disco se acaba una copia, tenemos cuando comenzó y cuando terminó y vuelve a repetirse el proceso.
comienzo = Timer
diferenciadetiempo = Timer - comienzo
Es tamaño / tiempo si no recuerdo mal.
En el caso de un archivo si ha tardado 0.25 segundos y su tamaño es 4M, su velocidad podía haber sido:
4M / 0.25 = 16M/s ¿ No ?.
Eso sería lo que tarda en copiarse un archivo. Como son archivos iguales pues sería sencillo de calcular.
Ahora lo interesante sería de que los archivos fueran de distinto tamaño.
Entonce supongo que por la formula anterior iríamos sumando los tiempos que tarda cada copia y dividiríamos por la media del número de archivos.
Eso supongo que es lo que debe mostrarse en el progresos de la copia.
¿ Ustedes que opinan ?. Tranquis el mundo va a seguir ahí.
Saludos
TypeOf...
tincho 25-04-2023, 12:03
Hola amigos.
Si en gambas ponemos:
Esto devolverá 9.
Muy bien. Ahora, sabiendo el 9 ¿Como puedo "imprimir" gb.String?
Si en gambas ponemos:
Código:
Print TypeOf("untextocualquiera")Muy bien. Ahora, sabiendo el 9 ¿Como puedo "imprimir" gb.String?
Shell 24-04-2023, 21:32
Buenas!.
Iba a crear el paquete de instalación de un paquete que tengo traducido para ver si veo algún problema con la nueva versión de Gambas.
Y me ha extrañado que a la hora de querer crear el paquete de instalación me pida antes crear un ejecutable y después de esto pasa
a la creación del paquete de instalación. Eso no lo había visto antes y puede que ese paso no corresponda.
No creo que sea normal ya que editor incluye la opción "concreta" en el menú para crear un ejecutable.
Que por cierto según el formulario de creación, más que decir crear ejecutable dice configurar ejecutable.
En el menú de proyectos de la Gambas 3.18.2 tenemos tanto la opción "crear ejecutable" como "configurar ejecutable".
Es como si enlazaran para comenzar al mismo lugar. Al mismo proceso
Saludos
Iba a crear el paquete de instalación de un paquete que tengo traducido para ver si veo algún problema con la nueva versión de Gambas.
Y me ha extrañado que a la hora de querer crear el paquete de instalación me pida antes crear un ejecutable y después de esto pasa
a la creación del paquete de instalación. Eso no lo había visto antes y puede que ese paso no corresponda.
No creo que sea normal ya que editor incluye la opción "concreta" en el menú para crear un ejecutable.
Que por cierto según el formulario de creación, más que decir crear ejecutable dice configurar ejecutable.
En el menú de proyectos de la Gambas 3.18.2 tenemos tanto la opción "crear ejecutable" como "configurar ejecutable".
Es como si enlazaran para comenzar al mismo lugar. Al mismo proceso
Saludos
Bienvenido, Invitado
Últimos temas
Un interprete de basic en...
Foro: HTML, CSS, JavascriptÚltimo mensaje por: guizans, 03-02-2026, 23:34
Respuestas: 5 - Vistas: 180
El ratón no hace click do...
Foro: InstalaciónÚltimo mensaje por: guizans, 30-01-2026, 20:41
Respuestas: 2 - Vistas: 190
Parámetro de clase y pará...
Foro: GeneralÚltimo mensaje por: guizans, 30-01-2026, 20:40
Respuestas: 8 - Vistas: 375
Gmao-Factory: Aplicación ...
Foro: PythonÚltimo mensaje por: jguardon, 25-01-2026, 15:53
Respuestas: 5 - Vistas: 296
SqetchDB, un proyecto re-...
Foro: GeneralÚltimo mensaje por: guizans, 21-01-2026, 19:57
Respuestas: 8 - Vistas: 441