 |
|
Você está aqui: VB.NET ::: Dicas & Truques ::: Trigonometria - Funções Trigonométricas |
Como calcular o comprimento da hipotenusa em VB.NET dadas as medidas do cateto oposto e do cateto adjascenteQuantidade de visualizações: 288 vezes |
Nesta dica mostrarei como é possível usar a linguagem VB.NET para retornar o comprimento da hipotenusa dadas as medidas do cateto oposto e do cateto adjascente. Vamos começar analisando a imagem a seguir: Veja que, nessa imagem, eu já coloquei os comprimentos da hipotenusa, do cateto oposto e do cateto adjascente. Para facilitar a conferência dos cálculos, eu coloquei também os ângulos theta (que alguns livros chamam de alfa) e beta já devidamente calculados. Então, sabendo que o quadrado da hipotenusa é igual à soma dos quadrados dos catetos (Teorema de Pitógoras), tudo que temos a fazer a converter esta fórmula para código VB.NET. Veja: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
Imports System
' Algoritmo VB.NET para calcular o comprimento da hipotenusa
' dadas as medidas do cateto oposto e do cateto adjascente
Module Program
' função principal do programa VB.NET
Sub Main(args As String())
Dim a As Double = 20 ' medida do cateto oposto
Dim b As Double = 30 ' medida do cateto adjascente
' agora vamos calcular o comprimento da hipotenusa
Dim c As Double = Math.Sqrt(Math.Pow(a, 2) + Math.Pow(b, 2))
' e mostramos o resultado
Console.WriteLine("O comprimento da hipotenusa é: " & c)
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: O comprimento da hipotenusa é: 36.05551275463989 Como podemos ver, o resultado retornado com o código VB.NET confere com os valores da imagem apresentada. |
 Link para compartilhar na Internet ou com seus amigos: |
VB.NET ::: Fundamentos da Linguagem ::: Estruturas de Controle |
Como usar o condicional If...Then e If...Then...Else em VB.NETQuantidade de visualizações: 17994 vezes |
Uma das estruturas condicionais mais usadas em VB.NET é o If...Then. Esta estrutura avalia uma condição e executa um bloco de códigos baseado no resultado. Veja um exemplo:----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
Dim valor As Integer = 10
If valor > 9 Then
Console.WriteLine("Valor é maior que 10")
End If
Há casos em que queremos que um bloco de códigos seja também executado caso a condição avaliada retorne um valor falso. Para isso podemos usar a estrutura If...Then...Else. Veja: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
Dim valor As Integer = 10
If valor > 10 Then
Console.WriteLine("Valor é maior que 10")
Else
Console.WriteLine("Valor é menor ou igual a 10")
End If
Veja agora como é possível testarmos três condições: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
Dim valor As Integer = 10
If valor > 10 Then
Console.WriteLine("Valor é maior que 10")
ElseIf valor < 10 Then
Console.WriteLine("Valor é menor que 10")
Else
Console.WriteLine("Valor é igual a 10")
End If
Todos os testes efetuados em uma estrutura If precisam retornar um valor True ou False. Veja como isso é verdade no trecho de código a seguir: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
Dim valor As Integer = 15
If (valor > 10) = True Then
Console.WriteLine("Valor é maior que 10")
End If
Veja que usamos parênteses ao redor da condição para deixar claro a quem ler nosso código, que a condição é testada e só então seu resultado é comparado com a palavra-chave True. Podemos usar mais parênteses. Veja: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
Dim valor As Integer = 15
If ((valor > 10) = True) Then
Console.WriteLine("Valor é maior que 10")
End If
O compilador nunca reclama dos parênteses. Podemos usá-los à vontade para tornar o código mais légivel. |
VB.NET ::: VB.NET para Engenharia ::: Geometria Analítica e Álgebra Linear |
Como somar os elementos da diagonal principal de uma matriz em VB.NETQuantidade de visualizações: 192 vezes |
|
A Matriz quadrada é um tipo especial de matriz que possui o mesmo número de linhas e o mesmo número de colunas, ou seja, dada uma matriz Anxm, ela será uma matriz quadrada se, e somente se, n = m, onde n é o número de linhas e m é o número de colunas. Em geral as matrizes quadradas são chamadas de Matrizes de Ordem n, onde n é o número de linhas e colunas. Dessa forma, uma matriz de ordem 4 é uma matriz que possui 4 linhas e quatro colunas. Toda matriz quadrada possui duas diagonais, e elas são muito exploradas tanto na matemática quanto na construção de algorítmos. Essas duas diagonais são chamadas de Diagonal Principal e Diagonal Secundária. A diagonal principal de uma matriz quadrada une o seu canto superior esquerdo ao canto inferior direito. Veja:  Nesta dica veremos como calcular a soma dos valores dos elementos da diagonal principal de uma matriz usando VB.NET. Para isso, só precisamos manter em mente que a diagonal principal de uma matriz A é a coleção das entradas Aij em que i é igual a j. Assim, tudo que temos a fazer é converter essa regra para código VB.NET. Veja um trecho de código VB.NET completo no qual pedimos para o usuário informar os elementos da matriz e em seguida mostramos a soma dos elementos da diagonal superior: ----------------------------------------------------------------------
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 declarar e construir uma matriz de três linhas
' e três colunas
Dim matriz(2, 2) As Integer
' guarda a soma dos elementos na diagonal principal
Dim soma_diagonal As Integer = 0
For i As Integer = 0 To matriz.GetUpperBound(0)
For j As Integer = 0 To matriz.GetUpperBound(1)
Console.Write("Informe o valor para a linha " & i & " e coluna " _
& j & ": ")
' lê o número e guarda na linha e coluna especificadas
matriz(i, j) = Integer.Parse(Console.ReadLine())
Next
Next
' vamos mostrar a matriz da forma que ela foi informada
Console.WriteLine(vbCrLf & "Valores na matriz: " & vbCrLf)
For i As Integer = 0 To matriz.GetUpperBound(0)
For j As Integer = 0 To matriz.GetUpperBound(1)
Console.Write(matriz(i, j).ToString().PadLeft(5) & " ")
Next
' passa para a próxima linha
Console.WriteLine()
Next
' vamos calcular a soma dos elementos da diagonal
' principal
For i As Integer = 0 To matriz.GetUpperBound(0)
For j As Integer = 0 To matriz.GetUpperBound(1)
If i = j Then
soma_diagonal = soma_diagonal + matriz(i, j)
End If
Next
Next
' finalmente mostramos a soma da diagonal principal
Console.WriteLine(vbCrLf & "A soma dos elementos da diagonal principal é: " _
& soma_diagonal)
Console.WriteLine(vbCrLf & 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: Informe o valor para a linha 0 e coluna 0: 3 Informe o valor para a linha 0 e coluna 1: 7 Informe o valor para a linha 0 e coluna 2: 9 Informe o valor para a linha 1 e coluna 0: 2 Informe o valor para a linha 1 e coluna 1: 4 Informe o valor para a linha 1 e coluna 2: 1 Informe o valor para a linha 2 e coluna 0: 5 Informe o valor para a linha 2 e coluna 1: 6 Informe o valor para a linha 2 e coluna 2: 8 3 7 9 2 4 1 5 6 8 A soma dos elementos da diagonal principal é: 15 |
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: 7021 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 |
Vamos testar seus conhecimentos em Fenômeno de Transportes e Hidráulica |
| Equação da continuidade Um avião está se movendo pelo ar com velocidade de 220 m/s. As linhas de fluxo acima da asa estão comprimidas em 88% de sua área original. As linhas de fluxo abaixo da asa não estão comprimidas. Qual é a velocidade do ar acima da asa do avião em relação a esta? A) 220 m/s B) 26,4 m/s C) 414 m/s D) 194 m/s E) 250 m/s Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Ética e Legislação Profissional |
| Noções de licitação pública Modalidade de licitação é a forma específica de conduzir o procedimento licitatório a partir de critérios definidos em lei. Sobre as modalidades da licitação pública, analise as afirmativas a seguir: I. São modalidades de licitação taxativamente expressas tanto no texto da Lei n.º 8.666/1993 quanto no da Lei n.º 14.133/2021: a concorrência, a tomada de preços, o convite, o concurso, o leilão e o pregão. II. Na modalidade convite, vigente na Lei n.º 8.666/1993, mas suprimida na Lei n.º 14.133/2021, o instrumento convocatório carta-convite prescinde de publicação, mas não de publicidade. III. Concurso é a modalidade de licitação que visa a selecionar candidatos concorrentes a um cargo efetivo de uma entidade governamental. IV. Leilão é a modalidade de licitação utilizada para a venda de bens. Estão corretas: A) I, II e IV. B) II e III. C) II e IV. D) I, III e IV. E) I, II, III e IV. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em JavaScript |
| Qual das instruções JavaScript abaixo envolve um array? A) var a = b ^ i; B) var a = b(i); C) var a = b[i]; D) var a = b >> i; Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Ética e Legislação Profissional |
| A responsabilidade moral A ética leva o homem a questionar constantemente suas ações e as atitudes alheias, tentando definir se elas são boas ou más, corretas ou incorretas. Na condição de disciplina, essa ciência se preocupa com a análise das ideias que envolvem a produção do bem e do mal, ou seja, dedica-se aos seus aspectos teóricos. Em tal perspectiva, pode-se afirmar que o conceito de ética se refere a: A) quando o ser humano não pode falhar. B) um conjunto de conhecimentos extraídos dos meios de comunicação. C) um conjunto de conhecimentos extraídos da investigação do comportamento humano. D) um conjunto de conhecimentos extraídos da investigação da moral. E) quando o ser humano falha. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Python |
| Qual das formas abaixo é usada para criar um SET em Python? A) valores = set{3, 6, 1, 7, 6, 3} B) valores = (3, 6, 1, 7, 6, 3) C) valores = [3, 6, 1, 7, 6, 3] D) valores = {3, 6, 1, 7, 6, 3} E) valores = set(3, 6, 1, 7, 6, 3) Verificar Resposta Estudar Cards Todas as Questões |
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 |
 Software de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimentoDiga 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 funcionalidadesTenha 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 |
