Update Pintando como Monet

elenderg · Oct 23, 2023 · 8d0f772 · 8d0f772
1 parent da85091
commit 8d0f772
Showing 1 changed file with 25 additions and 6 deletions.
diff --git a/recursos/Algoritmos de Exemplo/CEL-1000/Pintando como Monet/Pintando como Monet b/recursos/Algoritmos de Exemplo/CEL-1000/Pintando como Monet/Pintando como Monet
@@ -36,6 +36,8 @@ Rotina para que se inicialize a interface:
  Inicialize os bot�es.
  Inicialize o campo de texto.
  Exiba "Ol� Mundo!" na caixa de status.
+ Escreva "Debug: Componentes inicializados." para StdOut.
+ Escreva na pr�xima linha da sa�da padr�o.
 
 Rotina para que se crie o plano de fundo:
  Pinte a caixa desta tela com a cor branca e a cor branca.
@@ -159,14 +161,18 @@ Rotina para que se imprima a obra de arte:
  Avise o usu�rio;
  Retorne.
  Exiba "Imprimindo..." na caixa de status.
+ Escreva "Debug: Imprimindo..." para StdOut.
+ Escreva na pr�xima linha da sa�da padr�o.
  Inicie a impress�o.
  Selecione uma folha para impress�o.
  Centralize a pintura desta obra de arte atual na folha.
  Pinte a pintura desta obra de arte atual.
  Centralize a pintura desta obra de arte atual na caixa desta tela.
  Salve as altera��es pendentes na folha.
  Acabe de imprimir.
- Exiba "Impresso" na caixa de status.
+ Exiba "Impress�o conclu�da" na caixa de status.
+ Escreva "Impress�o conclu�da..." para StdOut.
+ Escreva na pr�xima linha da sa�da padr�o.
 
 Rotina para que se saia do programa:
  Delegue o controle.
@@ -233,7 +239,7 @@ Rotina para que se execute um evento (tecla Enter):
  Se a string deste campo de texto estiver em branco, 
  Avise o usu�rio; 
  Retorne.
- Exiba "Aguarde..." na caixa de status.
+ Exiba "Aguarde..." na caixa de status. 
  Escreva "Debug: Tecla Enter pressionada. Aguarde..." para StdOut.
  Escreva na pr�xima linha da sa�da padr�o.
  Atribua "http://images.google.com/images?q=" para um URL.
@@ -249,12 +255,11 @@ Rotina para que se execute um evento (tecla Enter):
  Crie o obras de arte usando o trecho.
  Se as obras de arte estiverem vazias, 
  Exiba "Erro. N�o foi poss�vel efetuar a pintura a partir dos termos informados" na caixa de status; 
+ Escreva "Erro. N�o foi poss�vel efetuar a pintura a partir dos termos informados" para StdOut; 
  Retorne.
  V� para a primeira obra de arte destas obras de arte.
 
 Rotina para que se crie umas obras de arte usando um trecho:
- Escreva "Debug: Rotina para que se crie umas obras de arte usando um trecho" para StdOut.
- Escreva na pr�xima linha da sa�da padr�o.
  Se a quantidade de caracteres deste trecho for 0, 
  Escreva "Erro. O trecho est� vazio." para StdOut;
  Escreva na pr�xima linha da sa�da padr�o;
@@ -299,6 +304,8 @@ Rotina para que se crie uma obra de arte usando um URL:
 Rotina para que se v� para um obra de arte:
  Se a obra de arte for inexistente, retorne.
  Exiba "Aguarde um momento..." na caixa de status.
+ Escreva "Debug: procurando pr�xima imagem..." para StdOut.
+ Escreva na pr�xima linha da sa�da padr�o.
  Atribua a obra de arte para a obra de arte atual.
  Conclua a obra de arte atual.
  Limpe a caixa de status.
@@ -311,6 +318,8 @@ Rotina para que se conclua uma obra de arte:
  Se a imagem for inexistente, 
  \Avise o usu�rio;
  Exiba "Erro ao encontrar imagem" na caixa de status;
+ Escreva "Erro ao encontrar imagem" para StdOut;
+ Escreva na pr�xima linha da sa�da padr�o;
  Retorne.
  Redimensione a imagem para 528 pixels por 528 pixels.
  Centralize a imagem na caixa desta tela.
@@ -344,6 +353,8 @@ Rotina para que se misture uma cor usando um localiza
 
 Rotina para que se execute um evento (tecla Home):
  Se a obra de arte atual for inexistente, 
+ Escreva "Erro ao encontrar imagem" para StdOut;
+ Escreva na pr�xima linha da sa�da padr�o;
  Avise o usu�rio; 
  Retorne.
  Se a obra de arte atual for a primeira obra de arte destas obras de arte, 
@@ -352,7 +363,9 @@ Rotina para que se execute um evento (tecla Home):
  V� para a primeira obra de arte destas obras de arte.
 
 Rotina para que se execute um evento (tecla End):
- Se a obra de arte atual for inexistente, 
+ Se a obra de arte atual for inexistente,
+ Escreva "Erro ao encontrar imagem" para StdOut;
+ Escreva na pr�xima linha da sa�da padr�o; 
  Avise o usu�rio; 
  Retorne.
  Se a obra de arte atual for a �ltima obra de arte destas obras de arte, 
@@ -362,6 +375,8 @@ Rotina para que se execute um evento (tecla End):
 
 Rotina para que se execute um evento (Tecla Page Down):
  Se a obra de arte atual for inexistente, 
+ Escreva "Erro ao encontrar imagem" para StdOut;
+ Escreva na pr�xima linha da sa�da padr�o;
  Avise o usu�rio; 
  Retorne.
  Se a pr�xima obra de arte desta obra de arte atual for inexistente, 
@@ -370,10 +385,14 @@ Rotina para que se execute um evento (Tecla Page Down):
  V� para a pr�xima obra de arte desta obra de arte atual.
 
 Rotina para que se execute um evento (Tecla Page Up):
- Se a obra de arte atual for inexistente, 
+ Se a obra de arte atual for inexistente,
+ Escreva "Erro ao encontrar imagem" para StdOut;
+ Escreva na pr�xima linha da sa�da padr�o; 
  Avise o usu�rio; 
  Retorne.
  Se a obra de arte anterior desta obra de arte atual for inexistente, 
+ Escreva "Erro ao encontrar imagem" para StdOut;
+ Escreva na pr�xima linha da sa�da padr�o;
  Avise o usu�rio; 
  Retorne.
  V� para a obra de arte anterior desta obra de arte atual.