Pascal/Delphi Como colocar o Login e Senha para piscar?

[Luiz Paulo Escobar]

Fiz um programinha de Armazenamento de Tarefas  para treinar meus conhecimentos de  1 mes de pascal e queria fazer o login e senha piscar.

Segue o Código, ( "aceito notas e dicas"  haha) :

	          { Objetivo --> Usar tudo o que aprendi }



Program Diaria ;
Var  i, V: integer;
Login, Senha, BV: String;
Procedure Armazem;
Var Day : Array[1..100] of string; 
Valor, i : integer;
Continuar : String;

Begin
  GotoXY(50,22); 
	TextBackGround(10); 
	TextColor(14);
  Write ('LUIZ, QUANTAS TAREFAS DESEJA ARMAZENAR HOJE ? (1,2,3,4...)   ');
  TextBackground(White); 
	Textcolor(LightBlue);
  Write ('-->'); 
	TextBackGround(Black); Write('   ');  
	Readln(Valor);
  For i:= 1 to valor do                                                               //For
  Begin
    Clrscr;                                                                           //Procedure
    GotoXY(64,22);
    Write ('Digite a - ',i,' - tarefa: '); 
		Readln(Day[i]);                                                                    //Array
    Clrscr;                                                                           //Case
  End;                                                                                //If
  Repeat                                                                              //Repeat
    GotoXY(64,24);
    Write ('QUAL TAREFA DESEJA CONSULTAR ? (1,2,3,4...)   '); 
		Readln(i);
    GotoXY(64,26); 
		TextBackGround(14); 
		TextColor(LightRed);
    Writeln ('A tarefa a fazer é: ', Day[i]);
    TextBackGround(Black); 
		TextColor(14);
    GotoXY(64,28);
    Write ('Deseja continuar ? (SIM/NAO) -> '); 
		Readln(Continuar);
    
    Clrscr;
  Until (Upcase(Continuar)) = 'NAO';
  end;
  /////
  Begin
   GotoXY(74,3);
   BV:= 'BEM VINDO LUIZ !!! :D ';
     TextBackground(Black);
    For i:= 1 to Length(BV)do
     Begin
       TextColor(12);
      Write (BV[i]);
      Delay(150);  
     end;
  
    GotoXY(3,6);
    TextBackGround(1);
    TextColor(blink+Black);
    Write ('||||||||||||||||||||| Digite seu Login:   '); 
		TextColor(White);
    TextBackGround(Black);
    Write('  ');
    TextBackGround(4);
    Write (' >>> ');
    TextBackGround(Black);
    TextColor(2);
    Write('  ');
    TextColor(Red);
    Read (Login);
    TextBackGround(Black);
    
     If (Upcase(Login)) = 'ANONYMOUSLPH' then
		   Begin
		    GotoXY (70,6);
		    TextBackGRound(BLUE);
		    TextColor(LightGreen);
		    Write (' V ');
		      V:= 1;
			 end
			Else
			 Begin
			  GotoXY (70,6);
			  TextBackGround(BLUE);
			  TextColor(LightRed);
			  Write (' X ');
			    V:= 2;
			 end; 
			Readln;  
    
    GotoXY(3,8);
    TextBackGround(1);
    TextColor(Black+Blink);
    Write ('||||||||||||||||||||| Digite sua Senha:   '); 
		TextColor(White);
    TextBackGround(Black);
    Write('  ');
    TextBackGround(4);
    Write (' >>> ');
    TextBackGround(Black);
    TextColor(2);
    Write('  ');
    TextColor(Red);
    Readln(Senha);
    TextBackGround(Black);
    
      If (Upcase(Senha)) = '9637ZX' then
		   Begin
		    GotoXY (70,8);
		    TextBackGRound(BLUE);
		    TextColor(LightGreen);
		    Write (' V ');
		      V:= 1;
			 end
			Else
			 Begin
			  GotoXY (70,8);
			  TextBackGround(BLUE);
			  TextColor(LightRed);
			  Write (' X ');
			    V:=2;
			 end; 
			 
    Writeln;
    TextColor(Red+Blink);
    GotoXY(20,12);
    TextBackGround(LightRed);
    Textcolor(White+Blink);
    Writeln('---Press Enter---');
    Readkey;
    
      Case V of
        1:
        Begin
         Armazem;
        end
       Else
			  Begin
			   GotoXY(60,10);
			   Writeln('Senha ou Login incorretos...');
				end; 
      End;
			  
 End.

 

[Simon Viegas]

Olá.

 

Talvez o recurso de piscar nem funcione. Só lembro de funcionar no antigo Turbo Pascal... no PascalZim e FreePascal não funcionou aqui. Mas vamos lá:

 

 

Sobre:

12 horas atrás, KXSY disse:

To meio com pressa, mas e só colocar

TextColor(blink);

 

Creio eu que precisa definir a cor, ou seja: só definindo como "blink", vai piscar com a cor padrão (e não fazer piscar a atual).

 

 

 

Sobre:

12 horas atrás, KXSY disse:

você pode fazer

TextColor(blink+red);

vai fazer o texto piscar na cor vermelha.

 

Justamente.. para piscar em branco, usaria algo como:

TextColor(White + blink);

Por aí vai...

 

 

 

Sobre:

12 horas atrás, KXSY disse:

Lembre-se de repor a cor para para de piscar no próximo.

 

Para voltar a cor original, é só definir uma nova cor. Ex.:

TextColor(White);

 

 

Outros pontos...

Para pegar os atributos atuais para as cores, pode usar a variável TextAttr. É nesta que está as configurações da cores do texto e do fundo da tela. Inclusive dá para alterá-la diretamente.

 

Segue um exemplo:

program TesteCores;
uses
  CRT;
BEGIN
TextColor(White);
writeln('Texto em branco');
TextColor(Blue);
writeln('Texto em azul');
TextAttr := TextAttr + Blink;
writeln('Texto em azul piscando');
TextAttr := TextAttr - Blink;
writeln('Texto em azul');
ReadKey();
END.

 

RESUMINHO:

 

- TextAttr = variável que tem as configurações das cores do texto e do fundo;

- TextColor() = altera a cor da letra (altera TextAttr de modo que fique com a nova cor + o fundo atual);

- TextBackground() = altera a cor do fundo (altera TextAttr de modo que fique com o novo fundo + cor atual).

- É possível definir os atributos diretamente ao TextAttr, como no exemplo acima.

- Cada cor é representado por uma número, ou seja: ao usar White, Blue, Green etc, na verdade está utilizando o valor que cada uma destas constantes tem... Usar elas servem para facilitar o compreendimento a compreensão do programador. Ex.: White = 15. Poderia usar TextColor(15) que vai ficar branco, mas usando White já fica claro que é branco ("mais claro que o padrão, que é do código 7").

etc