Existem todos os tipos de luzes de néon piscando na noite urbana. Entre elas, as mais utilizadas são provavelmente as luzes de água corrente. Seu efeito fluido traz vitalidade à noite tranquila. Que tipo de efeito teria se adicionássemos uma série de luzes de água cintilantes à interface do software multimídia que criamos? Siga as etapas abaixo para adicionar uma série de luzes de água corrente com efeito de perseguição ao seu programa multimídia.
1. Crie um novo formulário. Entre no ambiente do sistema Visual5asic4.0, crie um novo formulário (FORM1) e defina a propriedade Backcolor do FORM1 como RGB (192.192.192).
2. Construa a primeira lanterna. Clique em "Label" na "Barra de controle de formulário" com o mouse e retire uma caixa retangular (LABEL1) no FORM1. Defina seu atributo Caption como "★" (também podem ser outros caracteres, o "★" aqui pode ser encontrado no "Mapa de Caracteres" de "Acessórios" do WINDOWS95), Autosize para .T., Backstyle para 0 e Forecolor para vermelho, tamanho de fonte 18.
3. Crie outras 29 lanternas. Clique em LABEL1 com o mouse, pressione a tecla CTRL C (copiar) e, em seguida, pressione a tecla CTRL V (colar) para criar outro rótulo (LABEL1 (1)) com o mesmo título de LABEL1 no FORM1. Selecione 'SIM' quando solicitado. na tela se deseja criar uma matriz de controle '. Repita esta cópia para criar um total de 30 etiquetas e organize essas 30 etiquetas em uma caixa retangular em ordem.
4. Crie um cronômetro. Clique em “Timer” na “Barra de controle de formulário” com o mouse e, a seguir, clique uma vez no FORM1 para criar um timer (TIMER1) no FORM1. Defina sua propriedade Intervalo como 400.
5. Clique duas vezes em FORM1 e escreva o processo de carregamento do FORM1 da seguinte forma:
PRivateSubForm_Load()
eu=0
Forj=0To9
Label1(j*3).ForeColor=&HFF&'vermelho
Label1(j*3 1).ForeColor=&HFF00&'verde
Label1(j*3 2).ForeColor=&HFFFF&'amarelo
Próximoj
Fim Sub
6. Clique duas vezes em TIMER1 e escreva o processo de temporizador de TIMER1 da seguinte forma:
PrivateSubTimer1_Timer()
Se eu = 30 então
eu=0
FimSe
eu = eu 1
ParaJ=0To29
Rótulo1(J).Visível=Falso
PróximoJ
SeIMod3=2Então
ParaJ=0To9
Rótulo1(J*3 1).Visível=Verdadeiro
PróximoJ
Outro
SeIMod3=0Então
ParaJ=0To9
Rótulo1(J*3 2).Visível=Verdadeiro
PróximoJ
Outro
ParaJ=0To9
Rótulo1(J*3).Visível=Verdadeiro
PróximoJ
FimSe
FimSe
Fim Sub
Depois de executar o formulário, você pode ver que as luzes vermelha, verde e azul acendem alternadamente. Ajustar o valor do atributo Intervalo do Timer1 pode alterar a velocidade do ciclo dos três grupos de luzes.
O programa acima é executado com sucesso em VisualBasic5.0 e Windows95. ->