Você está aqui: VB.NET ::: Dicas & Truques ::: Geometria, Trigonometria e Figuras Geométricas

Como calcular a área do trapézio em VB.NET - VB.NET para Geometria Plana

Quantidade de visualizações: 336 vezes
Antes de passarmos ao código VB.NET para o cálculo da área de um trapézio, dê uma olhada na imagem a seguir:



A área do trapézio é a medida correspondente a superfície dessa figura da geometria plana. O cálculo da sua área é o produto entre a soma das medidas das bases (B e b) pela altura (h), e dividindo o resultado por 2.

O trapézio possui quatro lados, por isso ele é também um quadrilátero. Dois lados são as bases, e as bases são paralelas entre si. A base de maior medida é chamada de base maior (B), e a base de menor medida é chamada de base menor (b).

Quais são os tipos de trapézio

Podemos classificar os trapézios de acordo com suas formas e disposição no plano (e marcados na figura acima):

1) Trapézio Isósceles: possui dois lados com as mesmas medidas.

2) Trapézio Retângulo: possui dois ângulos retos (90°). Além disso, o lado que possui os ângulos retos é perpendicular as bases. E é também a altura do trapézio. Fique atento a este tipo de trapézio, pois ele é usado no cálculo numérico (métodos numéricos) para aproximar a integral de uma função usando a regra dos trapézios.

3) Trapézio Escaleno: todos os lados com medidas diferentes.

Como calcular a área do trapézio em VB.NET

Agora que já vimos os três tipos diferentes de trapézios e vimos também a fórmula para o cálculo de sua área (na imagem acima), podemos passar ao código VB.NET que pede para o usuário informar a medida da base maior, da base menor e da altura do trapézio e retornamos a sua área. Veja o exercício:

1) Seja um trapézio medindo 3 cm de altura, base maior medindo 8 cm e base menor medindo 5 cm. Calcule a área do trapézio.

Eis o código VB.NET para a resolução:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim b_maior, b_menor, altura, area As Double

    ' vamos ler a medida da base maior
    Console.Write("Medida da base maior (B): ")
    b_maior = Double.Parse(Console.ReadLine())

    ' vamos ler a medida da base menor
    Console.Write("Medida da base menor (b): ")
    b_menor = Double.Parse(Console.ReadLine())

    ' vamos ler a medida da altura
    Console.Write("Medida da altura (h): ")
    altura = Double.Parse(Console.ReadLine())

    ' e agora calculamos a área do trapézio
    area = ((b_maior + b_menor) * altura) / 2.0

    ' e mostramos o resultado
    Console.WriteLine("A área do trapézio é: " & area &
       " cm quadrados.")

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module

Ao executarmos este código VB.NET nós teremos o seguinte resultado:

Medida da base maior (B): 8
Medida da base menor (b): 5
Medida da altura (h): 3
A área do trapézio é: 19.5 cm quadrados.

Tenha em mente que a área será sempre em centímetros quadrados, metros quadrados, quilômetros quadrados, etc.

Link para compartilhar na Internet ou com seus amigos:

VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: Strings e Caracteres

Exercícios Resolvidos de VB.NET - Como retornar o código ASCII associado a um caractere em VB.NET - Ler um caractere e retornar o código ASCII correspondente

Quantidade de visualizações: 466 vezes
Pergunta/Tarefa:

Escreva um programa VB.NET que pede para o usuário informar um caractere (letra ou número) e mostre o código ASCII correspondente.

Sua saída deverá ser parecida com:

Informe um caractere: A
Você informou o caractere: A
O código ASCII correspondente é: 65
Resposta/Solução:

Veja a resolução comentada deste exercício em VB.NET:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos pedir para o usuário informar uma letra, símbolo ou pontuação
    Console.Write("Informe um caractere: ")

    ' vamos ler o caractere informado
    Dim caractere As Char = Console.ReadLine()(0)

    ' agora vamos obter o código ASCII correspondente
    Dim codigo As Integer = Asc(caractere)

    ' e mostramos o resultado
    Console.WriteLine("Você informou o caractere: " & caractere)
    Console.WriteLine("O código ASCII correspondente é: " & codigo)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

O Código Padrão Americano para o Intercâmbio de Informação (do inglês American Standard Code for Information Interchange - ASCII, pronunciado [áski]) é um sistema de representação de letras, algarismos e sinais de pontuação e de controle, através de um sinal codificado em forma de código binário (cadeias de bits formada por vários 0 e 1), desenvolvido a partir de 1960, que representa um conjunto de 128 sinais: 95 sinais gráficos (letras do alfabeto latino, algarismos arábicos, sinais de pontuação e sinais matemáticos) e 33 sinais de controle, utilizando 7 bits para representar todos os seus símbolos.


VB.NET ::: Fundamentos da Linguagem ::: Estruturas de Controle

Como usar o laço While em VB.NET

Quantidade de visualizações: 11194 vezes
Um instrução de repetição (também chamada de laço ou loop) permite que um bloco de códigos seja executado repetidamente até que uma condição seja satisfeita.

O laço While é usado quando queremos testar uma condição e, executar um bloco de código repetidamente enquanto esta condição for verdadeira. Lembre-se de que, se a condição já for falsa, o laço nunca será executado.

Veja um exemplo de laço While que nos permite exibir os números de 0 a 10:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Dim numero As Integer = 0

While numero <= 10
  Console.WriteLine(numero)
  numero += 1
End While

Veja uma nova versão deste código, desta vez contando de 10 a 0:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Dim numero As Integer = 10

While numero >= 0
  Console.WriteLine(numero)
  numero -= 1
End While

Aqui nós estamos novamente avaliando uma condição, ou seja, se o resultado da condição for True, a execução do laço continua. Se for False, o laço para. Veja um exemplo no qual a condição booleana está bem explícita:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Dim pode As Boolean = True
Dim valor As Integer = 1

While pode
  Console.WriteLine(valor)
  valor += 1

  If valor > 20 Then
    pode = False
  End If
End While



VB.NET ::: Dicas & Truques ::: Sistema

Como retornar a versão do .NET a partir de seus códigos VB.NET usando Environment.Version.ToString()

Quantidade de visualizações: 7064 vezes
Em algumas situações nós precisamos saber qual a versão do .NET Framework no qual nosso programa VB.NET está sendo executado. Para isso nós podemos usar o método Environment.Version.ToString(), que retorna a versão do Runtime do .NET Framework como uma string.

Veja o código completo para o exemplo:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  Sub Main(args As String())
    ' vamos obter a versão do .NET 
    Dim versao As String = Environment.Version.ToString()

    ' vamos mostrar o resultado
    Console.WriteLine("A versão do .NET é: " & versao)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

Ao executar este código VB.NET nós teremos o seguinte resultado:

A versão do .NET é: 3.1.23


Desafios, Exercícios e Algoritmos Resolvidos de VB.NET

Veja mais Dicas e truques de VB.NET

Dicas e truques de outras linguagens

Códigos Fonte

Programa de Gestão Financeira Controle de Contas a Pagar e a Receber com Cadastro de Clientes e FornecedoresSoftware de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimento
Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais
Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidadesControle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidades
Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais

Linguagens Mais Populares

1º lugar: Java
2º lugar: Python
3º lugar: C#
4º lugar: PHP
5º lugar: C
6º lugar: Delphi
7º lugar: JavaScript
8º lugar: C++
9º lugar: VB.NET
10º lugar: Ruby



© 2025 Arquivo de Códigos - Todos os direitos reservados
Neste momento há 73 usuários muito felizes estudando em nosso site.