Você está aqui: VB.NET ::: Dicas & Truques ::: Rotinas de Conversão

Convertendo strings em números usando a função Val

Quantidade de visualizações: 22363 vezes


Podemos usar a função Val para converter explicitamente os dígitos em uma string para um número. Esta função lê a string até encontrar um caractere que não seja um dígito, um espaço, tabulação, quebra de linha, ou um ponto. As sequencias "&O" e "&H" alteram a base do sistema de numeração e finalizam a leitura. Até parar de ler, a função Val converte todos os caracteres em um valor numérico. Veja um exemplo:
Dim str As String = "120.05"
Dim valor As Double = Val(str)
Console.WriteLine(valor)
O resultado será 120,05.

Veja que quando o Visual Basic converte uma string para um valor númerico, ele usa a definições de Opções Regionais no painel de controle do Windows para interpretar os separadores de milhares e o de decimal, assim como o símbolo de moeda. Eis porque a string "120.05" foi convertida para 120,05.

Link para compartilhar na Internet ou com seus amigos:

VB.NET ::: Dicas & Truques ::: Trigonometria - Funções Trigonométricas

Como calcular o cosseno de um ângulo em VB.NET usando a função Cos() da classe Math - Calculadora de cosseno em VB.NET

Quantidade de visualizações: 1082 vezes
Em geral, quando falamos de cosseno, estamos falando do triângulo retângulo de Pitágoras (Teorema de Pitágoras). A verdade é que podemos usar a função cosseno disponível nas linguagens de programação para calcular o cosseno de qualquer número, mesmo nossas aplicações não tendo nenhuma relação com trigonometria.

No entanto, é sempre importante entender o que é a função cosseno. Veja a seguinte imagem:



Veja que temos um triângulo retângulo com as medidas já calculadas para a hipotenusa e os dois catetos, assim como os ângulos entre eles.

Assim, o cosseno é a razão entre o cateto adjascente e a hipotenusa, ou seja, o cateto adjascente dividido pela hipotenusa. Veja a fórmula:

\[\text{Cosseno} = \frac{\text{Cateto adjascente}}{\text{Hipotenusa}} \]

Então, se dividirmos 30 por 36.056 (na figura eu arredondei) nós teremos 0.8320, que é a razão entre o cateto adjascente e a hipotenusa (em radianos).

Agora, experimente calcular o arco-cosseno de 0.8320. O resultado será 0.5881 (em radianos). Convertendo 0.5881 radianos para graus, nós obtemos 33.69º, que é exatamente o ângulo em graus entre o cateto adjascente e a hipotenusa na figura acima.

Pronto! Agora que já sabemos o que é cosseno na trigonometria, vamos entender mais sobre a função Cos() da linguagem VB.NET. Esta função, que é um método da classe Math, recebe um valor numérico Double e retorna um valor Double, ou seja, também numérico) entre -1 até 1 (ambos inclusos). Veja:

----------------------------------------------------------------------
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 calcular o cosseno de três números
    Console.WriteLine("Cosseno de 0 = " & Math.Cos(0))
    Console.WriteLine("Cosseno de 1 = " & Math.Cos(1))
    Console.WriteLine("Cosseno de 2 = " & Math.Cos(2))

    Console.WriteLine("\nPressione 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:

Cosseno de 0 = 1
Cosseno de 1 = 0,5403023058681397
Cosseno de 2 = -0,4161468365471424

Note que calculamos os cossenos dos valores 0, 1 e 2. Observe como os resultados conferem com a curva da função cosseno mostrada abaixo:




VB.NET ::: Dicas & Truques ::: Strings e Caracteres

Como converter uma string para letras maiúsculas em VB.NET usando o método ToUpper() da classe String

Quantidade de visualizações: 10425 vezes
Nesta dica mostrarei como podemos usar o método ToUpper() da classe String do VB.NET para converter todos os caracteres de uma palavra, frase ou texto para letras maiúsculas.

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())
    Dim frase As String = "VejA esta FRASe"

    ' vamos mostrar a frase original
    Console.WriteLine("Frase original: " & frase)

    ' transforma tudo em letras maiúsculas
    frase = frase.ToUpper()

    ' agora mostramos a frase em letras maiúsculas
    Console.WriteLine("Em letras maiúsculas: " & frase)

    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:

Frase original: VejA esta FRASe
Em letras maiúsculas: VEJA ESTA FRASE


VB.NET ::: Dicas & Truques ::: Strings e Caracteres

Como inverter uma string em VB.NET usando a função StrReverse()

Quantidade de visualizações: 10770 vezes
Em algumas situações nós precisamos inverter a ordem dos caracteres de uma palavra, frase ou texto em VB.NET. Para isso nós podemos usar a função StrReverse().

Veja um exemplo completo de seu uso:

----------------------------------------------------------------------
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())
    Dim frase As String = "Gosto de VB.NET"

    ' vamos mostrar a frase original
    Console.WriteLine("A frase original é: " & frase)

    ' vamos inverter a string
    frase = StrReverse(frase)

    ' mostramos a frase invertida
    Console.WriteLine("A frase invertida é: " & frase)

    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 frase original é: Gosto de VB.NET
A frase invertida é: TEN.BV ed otsoG


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á 79 usuários muito felizes estudando em nosso site.