Gambas France BETA


Pas de compte ? Incription

Shell

Ce sujet est résolu.

12
AuteurMessages
valaquarus#16 Posté le 24/3/2021 à 20:05:06
-- Unus Ex Altera --Bonsoir Sphéris,
j'allais te répondre que j'ai testé et que ça ne fonctionne pas exactement comme espéré par contre la commande PV que tu as trouvée fait exactement ce que je souhaitais même si j'ai trouvé un contournement strictement en gambas.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
hProc = SHELL (Comm) FOR READ AS "Scan"
TournProc 'tant que le processus tourne on fait fonctionner un timer
PUBLIC SUB Scan_read() 'affichage dans terminal
DIM sLine AS STRING
' sline = Read #hProc, Lof(hProc) ' ou suivant
READ #hProc, sline, Lof(LAST) ' ou précédent
FMain.txSalida.Text &= sLine
FMain.txSalida.EnsureVisible()
END
PUBLIC SUB TournProc() 'tant que tourne le process
DIM i AS INTEGER
FMain.Timer1.Start
WHILE hProc.state = hProc.Running
WAIT 1
MouseWait() 'procédure d'affichage du curseur d'attente
FMain.txSalida.ScrollBar = Scroll.None
FMain.txSalida3.Text = (" Trabajo en curso... ") & "[ " & CStr(FMain.dTemps) & " ] " 'dTemps += Date(0, 0, 0, 0, 0, 1)
FMain.txSalida2.Text &= "#"
i += 1
IF i > CInt(FMain.txSalida2.Width / 9) THEN
i = 0
FMain.txSalida2.Clear
ENDIF
WEND
FMain.Timer1.Stop
FMain.txSalida2.Clear
FMain.txSalida.ScrollBar = Scroll.Both
END

ça oblige a avoir trois terminaux qui ne se distinguent pas l'un des autres mais ça fait le job en affichant le temps défilant et un curseur # qui s'incrémente visuellement.
En tout cas merci pour la commande PV que j'ai mis au chaud précieusement.
Philippe
Le site ne veux pas que je dépose d'image tant pis.

Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.5