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
Me hace falta el dato de ...
Foro: Sobre gambas-es.orgÚltimo mensaje por: jguardon, 30-09-2026, 20:25
Respuestas: 1 - Vistas: 168
El conector de alimentaci...
Foro: Hardware & IoTÚltimo mensaje por: tincho, 23-09-2026, 23:03
Respuestas: 3 - Vistas: 210
Problemas con la versión ...
Foro: GeneralÚltimo mensaje por: Piero71, 19-09-2026, 23:56
Respuestas: 3 - Vistas: 401
GauchoCAD vuelve a las pi...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: tincho, 02-09-2026, 21:41
Respuestas: 21 - Vistas: 22,474
Programando con la IA
Foro: GeneralÚltimo mensaje por: alberto-moyano, 02-09-2026, 18:04
Respuestas: 19 - Vistas: 9,445