 |
|
Você está aqui: VB.NET ::: Dicas & Truques ::: Matemática e Estatística |
Como testar se um número é par ou ímpar em VB.NETQuantidade de visualizações: 20678 vezes |
|
Em várias situações nós lidamos com códigos VB.NET nos quais precisamos verificar se um determinado valor é par ou ímpar. Para efetuar este teste, nós só precisamos usar o operador Mod, que retorna o resto de uma divisão envolvendo inteiros. Assim, se o resto da divisão for 0, sabemos que o número é par e, em caso contrário, será ímpar. Veja o código completo para o exemplo que lê um número e informa se ele é par ou ímpar: ----------------------------------------------------------------------
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 valor As Integer
Console.Write("Informe um número inteiro: ")
valor = Val(Console.ReadLine())
If valor Mod 2 = 0 Then
Console.WriteLine("O número é par")
Else
Console.WriteLine("O número é ímpar")
End If
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: Informe um número inteiro: 38 O número é par Pressione qualquer tecla para sair... |
 Link para compartilhar na Internet ou com seus amigos: |
VB.NET ::: Dicas & Truques ::: Strings e Caracteres |
Como declarar e inicializar uma string em VB.NET usando o operador NewQuantidade de visualizações: 8379 vezes |
|
Nesta dica mostrarei como podemos usar o operador New para criar e inicializar um novo objeto da classe String em VB.NET. 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())
' declara uma variável do tipo String
Dim frase As String
' inicializa a string usando New
frase = New String("Você já conhece o site Arquivo de Códigos?")
' vamos mostrar o resultado
Console.WriteLine("A frase é: " & 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 é: Você já conhece o site Arquivo de Códigos? |
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 ::: Dicas & Truques ::: Arrays e Matrix (Vetores e Matrizes) |
Como copiar todos os elementos de um vetor para outro em VB.NET usando o método CopyTo() da classe ArrayQuantidade de visualizações: 7148 vezes |
|
Nesta dica eu mostro como podemos usar o método CopyTo() da classe Array do VB.NET para copiar todos os elementos de um array para um outro array. 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())
' cria um array de inteiros
Dim valores() As Integer = {1, 2, 3, 4, 5}
' exibe os valores do primeiro array
For Each valor As Integer In valores
Console.WriteLine(valor)
Next
' cria um segundo array e copia os elementos
' do primeiro para o segundo
Dim valores2() As Integer = {6, 7, 8, 9, 10, 15, 20}
valores.CopyTo(valores2, 0)
Console.WriteLine()
' exibe os valores do segundo array
For Each valor As Integer In valores2
Console.WriteLine(valor)
Next
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: 1 2 3 4 5 1 2 3 4 5 15 20 |
Vamos testar seus conhecimentos em AutoCAD Civil 3D |
| Questões de Certificação em AutoCAD Civil 3D Quando selecionamos um objeto do Civil 3D na janela de desenho, uma nova aba (ou ribbon) é exibida, com opções relacionadas ao tipo de objeto selecionado. Estamos falando da aba: A) Modify tab. B) Insert tab. C) Context tab. D) Manage tab. E) Analyze tab. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Hidrologia |
| O método racional é muito utilizado na determinação de vazão máxima de projeto para pequenas bacias hidrográficas. Uma bacia hidrográfica com área de 100 ha, coeficiente de escoamento médio de 0,6, recebeu uma precipitação intensa de 120 mm/h, resultando em uma vazão de pico de 20 m3/s. Qual a vazão de pico para a mesma bacia hidrográfica se ocorresse uma precipitação de 90 mm/h. A) 30 m3/s. B) 20 m3/s. C) 10 m3/s. D) 5 m3/s. E) 15 m3/s. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Ética e Legislação Profissional |
| Ética profissional, social, política Várias profissões, principalmente aquelas que implicam os direitos humanos à vida, à justiça, à igualdade, seguem códigos de ética que são frutos precisamente da ética deontológica normativa: "um código de ética não poderá cobrir todas as situações que se levantam à medida que uma disciplina expande e tenta encontrar as necessidades em mudança de um tipo de serviço entre as pessoas na sociedade" (BLACKWELL et al. apud DIAS, 2008, p. 54). De acordo com o trecho citado, assinale a alternativa correta: A) A deontologia presume um código de ética universal para todas as profissões. B) A deontologia abre espaços para que o profissional possa agir arbitrariamente. C) A deontologia recusa mudanças em seus códigos de ética. D) A deontologia serve como um guia reflexivo que orienta mesmo em situações inusitadas. E) A deontologia responsabiliza o profissional pelas consequências de todo agir. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Fenômeno de Transportes e Hidráulica |
| Tipos de Escoamentos Um conduto cilíndrico interliga dois tanques de cerveja artesanal a uma velocidade constante e com diferença de 10 metros entre suas cotas. O fluido dentro dos tanques é mantido a uma pressão de 101.325 Pa e ocupa 95% da área do conduto quando transportado. Defina que tipo de escoamento ocorre nesse conduto e quais são os principais parâmetros que devem ser levados em consideração em seu cálculo de dimensionamento ou verificação. A) Ocorre escoamento em conduto forçado, pois o fluido está confinado sob uma pressão diferente da atmosférica. Os principais parâmetros para cálculo do conduto são a vazão que se deseja escoar e a energia total do escoamento. B) Ocorre escoamento à superfície livre, pois, mesmo tendo uma pressão diferente da atmosférica, o conduto não está completamente preenchido pelo fluido. Os principais parâmetros para cálculo do conduto são a vazão que se deseja escoar e a energia total do escoamento. C) Ocorre escoamento em conduto forçado, pois 95% preenchem praticamente toda a área do contorno sólido que confina a cerveja. Os principais parâmetros para cálculo do conduto são a vazão que se deseja escoar e a diferença de cota entre os tanques. D) Ocorre escoamento à superfície livre, pois 101.325 Pa é o valor médio da pressão atmosférica, além disso o conduto não está completamente preenchido pelo fluido. Os principais parâmetros para cálculo do conduto são a vazão que se deseja escoar e a energia total do escoamento. E) Ocorre escoamento à superfície livre, pois 101.325 Pa é o valor médio da pressão atmosférica, além disso o conduto não está completamente preenchido pelo fluido. Os principais parâmetros para cálculo do conduto são a vazão que se deseja escoar e a diferença de cota entre os tanques. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em JavaScript |
| Qual das seguintes instruções JavaScript é uma definição correta de um array? A) a = new Array[100]; B) var a = new Array(100); C) var[] a = new String[100]; D) var a = new Array[100]; 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 |
|
Delphi - Como retornar o caractere a partir de um determinado código ASCII em Delphi usando a função Chr() |
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 |
