LINGUAGEM
DE PROGRAMAÇÃO BASIC PARA OPEN OFFICE – PARTE 7
Nota: As informações
utilizadas na elaboração dessa série de aulas sobre programação
Basic para Open Office - Calc, foram obtidas de fontes
primárias, como manual de programação Basic e o editor de
ajuda do Open Office Basic e sintetizadas com o objetivo de
facilitar a compreensão dos elementos básicos da linguagem de
programação basic e sua utilização na criação de macros e
funções. Vale lembrar que o ambiente de desenvolvimento abordado
aqui se estende aos demais softwares do pacote Open Office, além
de ser compativel com o pacote Office do Windows. (Professor Roni
Márcio Fais, 2014 – www.rmfais.com).
|
CRIAÇÃO
DE FUNÇÕES
Na
linguagem Basic para OpenOffice podem ser criadas funções que
recebem como parâmetro o valor digitado em células do calc
ESTRUTURA
BÁSICA DE UMA FUNÇÃO
Function
NomeFuncao (parametro As Double)
msgBox(parametro)
End Function
|
Onde
parâmetro é uma variável que recebe uma ou várias células
informadas na chamada da função.
Exemplo
1 – Recebendo uma célula como parâmetro:
Function
MostraCelula(celula) As Double
MostraCelula
= celula
End Function
|
Se
em alguma célula do Calc fosse informado “=mostracelula(A1)”,
consequentemente o conteúdo da célula A1 seria mostrado nessa
célula.
Exemplo
2 – Recebendo várias células como parâmetros:
Function
MostraCelulas (range As Variant) As Double
'
percorre as linhas
For
iLin = LBound(range, 1) To UBound(range, 1)
'
percorre as colunas
For
iCol = LBound( range, 2) To UBound(range, 2)
'
recupera o conteudo da célula
dCelula
= range( iLin, iCol )
celulas
= celulas & dCelula & ","
Next
Next
msgBox
celulas
End Function
|
Considere
que “Variant” define a variável “range” como
sendo do tipo vetor, podendo receber várias células que serão
guardadas individualmente na variável “dcelula”,
agrupadas na variável células, separadas por vírgula e mostradas
em uma caixa de texto. Observe que tudo isso é feito com auxílio de
laços de repetição e funções específicas para manipulação da
variável do “range”. O código mostrado no exemplo 2 é
muito útil e pode ser adaptado em várias situações de
programação.
Uma
chamada a essa função poderia ser: “=mostracelulas(A1:D4)”,
o que resultaria na exibição do conteúdo da célula A1 até a
célula D4, em uma caixa de texto.
ATIVIDADES
Monte
uma função que retorne a soma de duas células de uma planilha.
Monte
uma função que retorne a soma de várias células de uma planilha.
Considerando
que para calcular o IMC (índice de massa corporal) de uma pessoa
utiliza-se a seguinte fórmula:
imc
= peso / (altura * altura)
Faça
uma função que calcule o imc de pessoas, com base no peso e altura
fornecidas em células de uma planilha, retornando as seguintes
mensagens:
“magérrimo”,
caso o resultado seja menor que 17;
“magro”,
caso o resultado seja maior ou igual a 17 e menor ou igual a 18;
“magro”,
caso o resultado seja maior que 18 e menor que 24;
“sobrepeso”,
caso o resultado seja maior ou igual a 24 e menor que 30;
“obeso”,
caso o resultado seja maior ou igual a 30 e menor que 35;
“muito
obeso”, caso o resultado seja maior ou igual a 35 e menor que 40;
“obesidade
mórbida”, caso o resultado seja maior que 40.