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

Luiz Paulo Escobar · 2 de setembro de 2019

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.

KXSY · 2 de setembro de 2019

To meio com pressa, mas e só colocar

TextColor(blink);

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

ou você pode fazer

TextColor(blink+red);

vai fazer o texto piscar na cor vermelha.

qualquer coisa de uma olhada aqui TextColor FPC

Simon Viegas · 2 de setembro de 2019

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

KXSY · 3 de setembro de 2019

10 horas atrás, Simon Viegas disse:

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

Com o FreePascal 3.2 funciona aqui ainda no windows (95 com kernelEx, 98, 2000 e usável (mais fica bem feio), xp (e o melhor) e 7 (service pack 1)) no linux (terminal com fbdev, Konsole (fica bem estranho), mate terminal e gnome console).

Um jeito bacana de brincar com isso e com o turbo pascal no dosbox.