Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

ManelJaquim

Help escolher cor (random)

Mensagens Recomendadas

ManelJaquim

Boas,

queria mudar as cores da letra de modo aleatório mas excluindo algumas cores,

usei o seguinte codigo

Procedure escrever (c :integer);
  //sub sub programa
  procedure rodarcor;
  var cor : integer;
  Begin
   randomize;
  (*
   1 - azul escuro
   2 - verde
   3 - azul marinho escuro
   4 - vermelho escuro
   5 - roxo
   6 - amarelo torrado
   7 - cinza claro
   8 - cinza escuro
   9 - azul
   10- verde claro
   11- azul marinho claro
   12- vermelho
   13- cor de rozinha
   14- amarelo
   15- branco
   16- preto 
   *)
   //escolher cor
   cor := random(16);
   while (cor=16) or (cor=8) or (cor=5) or (cor=3) or (cor=2) do cor := random (16);   
   textcolor(cor);
  end; 

mas continuam a aparecer , pelo menos, a cor preta escrita...

alguém sabe uma maneira de fazer isso, ou corrigir a minha sff

[move]Obrigado malta =D[/move]

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
NCS_One

Boas.

Já não me lembro muito bem disso, mas não era do 0 (zero) a 15 ?

E quando fazes :

cor := random(16);

O 0 (zero) também pode ser escolhido.


Se a vida te voltar as costas aproveita e apalpa-lhe o cu.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ManelJaquim

okok entao tenho so que adicionar mais uma condição no ciclo pro 0 para dar certo??

edit:

ja corrigi adicionando mais "(cor=0) or " ao while bgd =D

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.