Como modificar uma cor

Para modificar uma cor, em Qbasic, você deve usar o comando PALETTE.
Sintaxe: PALETTE numero-da-cor-a-modificar, nova-cor
No SCREEN 0, nova-cor é uma número de 0 a 63.
Exemplo:

SCREEN 0
'Escreve na cor 1, que e' azul-escuro
  COLOR 1: PRINT "Testando o PALETTE"
'Programa parado ate voce apertar uma tecla
  SLEEP                                
'Muda a cor 1 para Ciano Luminoso
  PALETTE 1, 27

OBS.: No SCREEN 7, nova-cor é uma cor de 0 a 15, correspondentes às cores normais do Qbasic Já nos modos de tela 12 e 13, se define a cor nova de um outro modo.
PALETTE cor-a-mudar, (256^2 * B) + (256 * G) + R
Sendo que:
R é a quantidade de vermelho da cor (de 0 a 63).
G é a quantidade de verde (de 0 a 63).
B é a quantidade de azul (de 0 a 63).
Exemplo:

SCREEN 13
COLOR 97: PRINT "PALETTE no SCREEN 13"
SLEEP
'Vermelho + Verde = Amarelo
  PALETTE 97, (256^2 * 0) + (256 * 63) + 63

Outro modo de obter o mesmo efeito, porém com maior velocidade, é assim:

OUT &H3C8, numero-da-cor-a-modificar
 OUT &H3C9, R
 OUT &H3C9, G
 OUT &H3C9, B

R é a quantidade de vermelho da cor (de 0 a 63).
G é a quantidade de verde (de 0 a 63).
B é a quantidade de azul (de 0 a 63).
Atenção! Não altere os números &H3C8 e &H3C9!


	Como modificar uma cor Para modificar uma cor, em Qbasic, você deve usar o comando PALETTE. Sintaxe: PALETTE numero-da-cor-a-modificar, nova-cor No SCREEN 0, nova-cor é uma número de 0 a 63. Exemplo: SCREEN 0 'Escreve na cor 1, que e' azul-escuro COLOR 1: PRINT "Testando o PALETTE" 'Programa parado ate voce apertar uma tecla SLEEP 'Muda a cor 1 para Ciano Luminoso PALETTE 1, 27 OBS.: No SCREEN 7, nova-cor é uma cor de 0 a 15, correspondentes às cores normais do Qbasic Já nos modos de tela 12 e 13, se define a cor nova de um outro modo. PALETTE cor-a-mudar, (256^2 * B) + (256 * G) + R Sendo que: R é a quantidade de vermelho da cor (de 0 a 63). G é a quantidade de verde (de 0 a 63). B é a quantidade de azul (de 0 a 63). Exemplo: SCREEN 13 COLOR 97: PRINT "PALETTE no SCREEN 13" SLEEP 'Vermelho + Verde = Amarelo PALETTE 97, (256^2 * 0) + (256 * 63) + 63 Outro modo de obter o mesmo efeito, porém com maior velocidade, é assim: OUT &H3C8, numero-da-cor-a-modificar OUT &H3C9, R OUT &H3C9, G OUT &H3C9, B R é a quantidade de vermelho da cor (de 0 a 63). G é a quantidade de verde (de 0 a 63). B é a quantidade de azul (de 0 a 63). Atenção! Não altere os números &H3C8 e &H3C9!



	Qbasic FAQ & Dicas