Exemplo OpenSister
n_soma is int=0
OpenSister(WIN_aguarde,"Aguarde...") nTotal is int=500000 LOOP n_soma++ Gauge(n_soma,nTotal) IF n_soma>nTotal THEN Close(WIN_aguarde) BREAK END END
//Em Frances
n_somaf est entier=0 OuvreSoeur(WIN_aguarde,"Aguarde...") nTotalf est entier=200000 BOUCLE n_soma++ Jauge(n_soma,nTotal) SI n_soma>nTotal ALORS Ferme(WIN_aguarde) SORTIR FIN FIN
//Blog Com Video e Exemplo http://windevdesenvolvimento.blogspot.com.br/2016/07/curso-windev-funcoes-windowsjanela-001.html https://www.youtube.com/watch?v=SBMbxY9FKN8
|