Janela ou Borda em Pascal

Para incrementar o seu programa em Pascal criei um procedure que você poderá usar e deixar seu programa mais bonito.

A procedure gera uma janela ou borda, como queiram chamar onde você irá dizer as coordenadas iniciais e finais da sua janela.

Borda Pascal.png

Código Fonte:

 Program Janela_em_Pascal;  
 Uses Crt;  
 //Only for Free Pascal  
 {$MODE OBJFPC}  
 procedure janela (x1,y1,x2,y2 : Integer);  
 var  
  i, j : Integer;  
  s1,r1,s2,r2 : Integer;  
 begin  
  // Controle de posi‡Æo  
  if x1 < x2 then  
  begin  
   s1 := x1;  
   s2 := x2;  
  end  
  else  
  begin  
   s1 := x2;  
   s2 := x1;  
  end;  
  if y1 < Y2 then  
  begin  
   r1 := y1;  
   r2 := y2;  
  end  
  else  
  begin  
   r1 := y2;  
   r2 := y1;  
  end;  
  GotoXY (s1,r1); Write (chr(201)); //É  
  GotoXY (s1,r2); Write (chr(200)); //È  
  for i := s1+1 to s2-1 do  
  begin  
   GotoXY (i,r1); Write (chr(205)); //Í  
   GotoXY (i,r2); Write (chr(205)); //Í  
  end;  
  GotoXY (s2,r1); Write (chr(187)); //»  
  GotoXY (s2,r2); Write (chr(188)); //¼  
  for j := r1+1 to r2-1 do  
  begin  
   GotoXY (s1,j); Write (chr(186)); //º  
   GotoXY (s2,j); Write (chr(186)); //º  
  end;  
 end;  

Teste do Programa:

Border Pascal.png

Se o gráfico não aparecer é por que você mudou a fonte de chamada do Pascal. Retorne a fonte de texto original, feche o Pascal e abra novamente.

Nenhum comentário:

Postar um comentário