18.- Procedimentos. SUB

por **Miguel Rocha** Qui Mar 25, 2010 12:52 pm

Dizíamos que um procedimento era uma sub-rotina que se chamava e realizava ações, mas que não devolvia nenhum valor e portanto, não era possível utiliza-la dentro de uma expressão.

Vejamos algum exemplo de procedimento. É uma sub-rotina que escreve na barra de estado uma mensagem. Não é muito complicada, porém tal como a apresentamos aqui não se deveria fazer, visto que utilizamos um loop vazio para que o navegador esteja um pouco mais lento e o texto saia pouco a pouco. Ao invés desse loop deveríamos utilizar uma função chamada setTimeout, porém, não desejamos introduzi-la agora.

Código:: sub mostraAbaixo(texto) dim i for i=0 to len(texto) dim actual actual = left(texto,i) window.status = actual dim j 'loop para frear o navegador deveria utilizar-se a função setTimeOut for j=0 to 20000 j = j next next end sub

Este exemplo utiliza ademais várias funções de cadeias de caracteres, esperamos que não represente muito problema para entende-lo. Basicamente, é um loop que vai percorrendo toda a cadeia de caracteres que recebe por parâmetro. À medida que se realiza o loop vai criando uma sub-cadeia de caracteres da parte esquerda da cadeia original, que cada vez é mais longa. Logo, imprime-se essa cadeia na barra de estado do navegador. Entre execução e execução do loop se realiza um atraso, no segundo loop for que deveria se realizar com um setTimeout.

Podemos ver a seguir como se colocaria um botão na página que chamasse a este procedimento.

Código:: <HTML> <HEAD> <TITLE>Procedimentos em VBS</TITLE> <script language=vbscript> option explicit sub mostraAbaixo(texto) dim i for i=0 to len(texto) dim actual actual = left(texto,i) window.status = actual dim j for j=0 to 20000 j = j next next end sub </script> </HEAD> <BODY> <h1>Procedimentos em VBS</h1> <P> <form> <input type="button" name=b value=colocarAbaixo! onclick="mostrarAbaixo('Abraços de Miguel')" language=vbscript> </form> </P> </BODY> </HTML>