guizans 31-03-2024, 18:01
¿Es cosa mía o cada vez que cargo un programa en el IDE se escucha unos segundos de música? ¿O son sonidos que sólo oigo en mi cabeza? Decidme que también os pasa...
Shell 31-03-2024, 14:39
Buenas!.
Tengo una barra de progreso y me gustaría que a medida que los procesos van finalizando,
se fuese incrementando la barra de progreso.
El problema es que parece que cada cosa va por un lado.
Quiero decir que a lo mejor la barra de progresos ha finalizado ( que ni me he enterado como va aumentando)
y por otro lado se siguen mostrando los directorios en el TextArea. Un descontrol.
Puede que falte un wait, ok, pero puede no ser suficiente. Controlar los procesos no parece fácil.
Adjunto el código fuente.
Saludos
Tengo una barra de progreso y me gustaría que a medida que los procesos van finalizando,
se fuese incrementando la barra de progreso.
El problema es que parece que cada cosa va por un lado.
Quiero decir que a lo mejor la barra de progresos ha finalizado ( que ni me he enterado como va aumentando)
y por otro lado se siguen mostrando los directorios en el TextArea. Un descontrol.
Código:
Private hProc As Process
Private adirectorios As New String[]
Private incrementos As Integer
Public Sub Form_Open()
adirectorios = Dir(User.Home, "*", gb.Directory).Sort()
incrementos = 1 / adirectorios.Count
ProgressBar1.Value = 0
End
Public Sub Button1_Click()
For j As Integer = 0 To adirectorios.Max
hProc = Shell "ls -l " & adirectorios[j] For Input As "Proceso"
Next
End
Public Sub Proceso_Read()
Dim scad As String
Read #Last, scad, -1024
TextArea1.Text &= scad
End
Public Sub Proceso_Kill()
'El progresos de la barra debería aumentar cada vez que acaba un proceso. A cada lectura de un directorio
Wait 0.1
incrementos += 1
ProgressBar1.Value += incrementos
EndPuede que falte un wait, ok, pero puede no ser suficiente. Controlar los procesos no parece fácil.
Adjunto el código fuente.
Saludos
Archivos adjuntos
IIf no funciona como debe, creo.
Grandamakulo 30-03-2024, 17:43
Hola, compañeros:
Al ejecutar este código:
Me sale el error de división por cero y no debería ser así, debería salir por la consola un escueto y humilde «-1».
¿Os pasa también a vosotros?
Un saludo y gracias de antemano.
Al ejecutar este código:
Código:
Dim i As Integer = 0
Debug IIf(i <> 0, 1 / i, i - 1)¿Os pasa también a vosotros?
Un saludo y gracias de antemano.
Bienvenido, Invitado
Últimos temas
Problemas con las interru...
Foro: GeneralÚltimo mensaje por: guizans, 14-12-2025, 18:40
Respuestas: 5 - Vistas: 239
Scrolling un ScrollArea
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, 12-12-2025, 07:24
Respuestas: 5 - Vistas: 249
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 945
Resultados dispares según...
Foro: Bases de DatosÚltimo mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 400
Mover un Result a una pos...
Foro: Bases de DatosÚltimo mensaje por: guizans, 30-11-2025, 19:25
Respuestas: 2 - Vistas: 224