Comunidad Gambas-es

Procesos externos encadenados. Interfaz gráfica

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. Confused

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

End

Puede 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

ProcesosYBarraDeProgreso-0.0.1.tar.gz (Tamaño: 6.75 KB Descargas: 2)

General Respuestas 7

IIf no funciona como debe, creo.

Grandamakulo 30-03-2024, 17:43

Hola, compañeros:
Al ejecutar este código:

Código:
  Dim i As Integer = 0

  Debug IIf(i <> 0, 1 / i, i - 1)

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.

General Respuestas 1

DirChooser eventos de su FileView interno

Shell 29-03-2024, 22:33

Buenas!.

Para el manipulador de eventos del fileview interno se debe declarar un observador, ¿ no ?.
Por ejemplo, me gustaría abrir uno de los archivos que muestra su fileview.

Lo hice de esta forma:

Código:
Private vigilante As Observer

Public Sub Form_Open()

  vigilante = New Observer(DirChooser1.FileView) As "VigiloFileview"

  DirChooser1.ShowFile = True

  DirChooser1.FileView.View = FileView.Detailed

End

Public Sub VigiloFileview_Click()

  Desktop.Open(DirChooser1.SelectedPath &/ DirChooser1.FileView.Current)

End