A estrutura If... Then... é utilizada ao nível da programação tal como a estrutura Select Case, ambas já aplicadas nos meus pequenos projetos :)
Este projeto serve, um pouco, para consolidar conhecimentos.
No primeiro formulário do projeto apresentam-se três botões. Em primeiro lugar clique-se em Exercício 1. Este botão redireciona-nos para um segundo formulário, a seguir apresentado.
Neste formulário encontra-se o botão Introduza a classificação:, e clicando neste botão aparece uma InputBox onde é suposto introduzir-se, na caixa de texto, uma classificação entre 0 e 20 e clicando em OK aparece uma mensagem com a classificação qualitativa correspondente. Clicando em Cancelar, a InputBox fecha-se.
Caso se insira uma classificação entre 0 e 9 aparece Insuficiente!
Entre 10 e 13 aparece Suficiente!
Entre 14 e 17 aparece Bom!
Entre 18 e 20 aparece Muito Bom!
No entanto, caso se insira uma classificação menor que 0 ou maior que 20, aparece uma mensagem de erro com Nota Inválida!
Clicando no botão OK da mensagem que aparece com a classificação qualitativa, esta fecha-se, ficando apenas aberto o formulário do Exercício 1.
Neste formulário, pressionando o botão Regressar, este redireciona-nos, automaticamente, para o primeiro formulário.
Agora neste primeiro formulário, clique-se em Exercício 2. Este botão direciona-nos para um terceiro formulário, a seguir apresentado.
Este segundo exercício tem como objetivo determinar a nota final de uma determinada disciplina, através de uma componente teórica e de uma prática, com pesos de 60 e 40%, respetivamente.
Em primeiro lugar inserem-se as notas dos respetivos testes e do trabalho prático nas caixas de texto correspondentes. Essas notas têm que estar compreendidas entre 0 e 20, inclusive. Depois de inseridas as notas, clica-se em Calcular e a classificação obtida pelo programa através da média aritmética das duas componentes, aparece na respetiva caixa de texto.
Contudo, caso se insira uma classificação menor que 0 ou maior que 20, quando se pressionar o botão Calcular, aparecerá uma mensagem de erro.
Clicando no botão OK da mensagem de erro, esta fecha-se.
Para limpar as caixas de texto pressiona-se Limpar e clicando em Regressar volta-se ao primeiro formulário.
Por fim, neste formulário, apresenta-se um botão Sair, que quando pressionado faz aparecer uma Message Box com a pergunta "Deseja sair?" e com o botão Sim para fechar o projeto e o botão Não para permanecer no mesmo.
Clique aqui para experimentar o ficheiro executável!
Sem comentários:
Enviar um comentário