Você está aqui: VB.NET ::: Dicas & Truques ::: Arrays e Matrix (Vetores e Matrizes) |
Pesquisando valores nos elementos de um array usando o método FindAll e um predicateQuantidade de visualizações: 7550 vezes |
'Este exemplo mostra como pesquisar valores em um 'array usando o método FindAll e um predicate. Uma 'matriz é retornada com todos os valores que se 'encaixam nas condições da pesquisa. 'Neste exemplo vamos obter os valores que começam com 'a letra "C" Module Module1 Sub Main() ' cria um array de strings Dim cidades() As String = {"Goiânia", "Cuiabá", "Curitiba", _ "São Paulo", "Florianópolis"} 'obtém os nomes de cidades que começam com a letra "C" Dim nomes() As String = Array.FindAll(cidades, _ AddressOf Encontrar) 'exibe os valores encontrados For i As Integer = 0 To nomes.Length - 1 Step 1 Console.WriteLine(nomes(i)) Next Console.ReadKey() End Sub Private Function Encontrar(ByVal str As String) As Boolean If str.StartsWith("C") Then Return True Else Return False End If End Function End Module |
![]() |
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: 7107 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 para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- 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 |
VB.NET ::: Dicas & Truques ::: Strings e Caracteres |
Como comparar strings em VB.NET usando o método Compare() da classe String do .NET FrameworkQuantidade de visualizações: 12363 vezes |
Este exemplo mostra como comparar strings em VB.NET usando o método Compare() da classe String. Lembre-se de que a versão do método que usamos neste exemplo diferencia maiúsculas de minúsculas. Veja o código completo: ---------------------------------------------------------------------- Se precisar de ajuda para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) Dim palavra1, palavra2 As String palavra1 = "Visual Basic" palavra2 = "Visual Basic" If String.Compare(palavra1, palavra2) = 0 Then Console.WriteLine("As duas strings são iguais") Else Console.WriteLine("As duas strings são diferentes") End If 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: As duas strings são iguais |
VB.NET ::: Fundamentos da Linguagem ::: Estruturas de Controle |
Como usar a instrução Continue para abandonar a iteração atual de um laço em VB.NETQuantidade de visualizações: 7993 vezes |
A instrução Continue pode ser usada com os laços do VB.NET para abandonar a iteração atual do laço. Veja como isso funciona no trecho de código abaixo:---------------------------------------------------------------------- Se precisar de ajuda para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- For valor As Integer = 1 To 10 Step 1 If valor Mod 2 = 0 Then Continue For End If Console.WriteLine(valor) Next Este trecho de código exibirá os números ímpares de 1 a 10. Os números exibidos serão: 1, 3, 5, 7 e 9. Isso aconteceu porque temos uma instrução If que testa se o valor da variável de controle é par. Se o teste resultar verdadeiro, a instrução Continue é executada e a iteração atual é abandonada, fazendo com que o valor atual não seja exibido na tela. Veja mais um exemplo: ---------------------------------------------------------------------- Se precisar de ajuda para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- Dim valor As Integer = 0 While valor < 10 valor += 1 If valor = 5 Then Continue While End If Console.WriteLine(valor) End While Este trecho de código conta de 1 a 10, mas pula o número 5. Analise-o cuidadosamente e tente descobrir o porquê. |
VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: Arrays e Matrix (Vetores e Matrizes) |
Exercícios Resolvidos de VB.NET - Como verificar quantas vezes um valor é encontrado em um vetor - Como usar vetores e matrizes em VB.NETQuantidade de visualizações: 399 vezes |
Pergunta/Tarefa: Escreva um programa VB.NET que declara, constrói e inicializa um vetor de 10 inteiros. Em seguida peça para que o usuário informe um valor a ser pesquisado. Faça uma varredura no vetor e informe quantas vezes o valor pesquisado é encontrado: ' declara, constrói e inicializa um vetor de 10 inteiros Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10} Informe um valor: 4 O valor foi encontrado: 3 vezes Informe um valor: 8 O valor foi encontrado: 1 vezes Informe um valor: 3 O valor foi encontrado: 0 vezes Veja a resolução comentada deste exercício usando VB.NET: ---------------------------------------------------------------------- Se precisar de ajuda para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- Imports System Module Program ' função principal do programa VB.NET Sub Main(args As String()) ' declara, constrói e inicializa um vetor de 10 inteiros Dim valores As Integer() = {4, 21, 9, 8, 12, 21, 4, 4, 1, 10} ' vamos ler um valor inteiro Console.Write("Informe um valor: ") Dim pesquisa As Integer = Int32.Parse(Console.ReadLine()) ' vamos verificar quantas vezes o valor informado está ' contido no vetor Dim repeticoes As Integer = 0 For i As Integer = 0 To valores.Length - 1 If valores(i) = pesquisa Then ' encontrou? vamos contar esta ocorrência repeticoes = repeticoes + 1 End If Next ' vamos mostrar o resultado Console.WriteLine("O valor foi encontrado: " & repeticoes & " vezes") Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module |
VB.NET ::: Fundamentos da Linguagem ::: Estruturas de Controle |
Como usar o laço Do...While...Loop do VB.NETQuantidade de visualizações: 17603 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 Do...While...Loop é 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 Do...While...Loop que nos permite exibir os números de 0 a 10: ---------------------------------------------------------------------- Se precisar de ajuda para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- Dim numero As Integer = 0 Do While numero <= 10 Console.WriteLine(numero) numero += 1 Loop Veja uma nova versão deste código, desta vez contando de 10 a 0: ---------------------------------------------------------------------- Se precisar de ajuda para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- Dim numero As Integer = 10 Do While numero >= 0 Console.WriteLine(numero) numero -= 1 Loop 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 pára. Veja um exemplo no qual a condição booleana está bem explícita: ---------------------------------------------------------------------- Se precisar de ajuda para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- Dim pode As Boolean = True Dim valor As Integer = 1 Do While pode Console.WriteLine(valor) valor += 1 If valor > 20 Then pode = False End If Loop |
VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: VB.NET Básico |
Exercício Resolvido de VB.NET - Um programa VB.NET que receberá a duração de um evento expresso em segundos e exiba-o expresso em horas, minutos e segundosQuantidade de visualizações: 493 vezes |
Pergunta/Tarefa: Escreva um programa VB.NET que receberá a duração de um evento expresso em segundos e exiba-o expresso em horas, minutos e segundos. Seu programa deverá exibir uma saída parecida com: Informe a duração do evento em segundos: 3712 Duração do evento: 01:01:52 Veja a resolução comentada deste exercício usando VB.NET: ---------------------------------------------------------------------- Se precisar de ajuda para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- Imports System Module Program ' função principal do programa VB.NET Sub Main(args As String()) ' vamos solicitar a duração do evento em segundos Console.Write("Informe a duração do evento em segundos: ") Dim duracao_segundos As Integer = Int32.Parse(Console.ReadLine()) ' vamos obter a quantidade de horas do evento Dim horas As Integer = duracao_segundos \ 3600 ' vamos obter os minutos Dim minutos As Integer = (duracao_segundos \ 60) Mod 60 ' vamos obter os segundos restantes Dim segundos As Integer = duracao_segundos Mod 60 ' vamos exibir a duração do evento em horas, minutos e segundos Console.Write("Duração do evento: {0}:{1}:{2}", horas.ToString("D2"), minutos.ToString("D2"), segundos.ToString("D2")) Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module |
VB.NET ::: Dicas & Truques ::: Strings e Caracteres |
Como inverter o conteúdo de uma string em VB.NET usando os métodos ToCharArray() e Reverse()Quantidade de visualizações: 7845 vezes |
Nesta dica mostrarei como podemos tirar proveito do método ToCharArray() da classe String e do método Reverse() da classe Array do VB.NET para inverter a ordem dos caracteres de uma palavra, frase ou texto. Note que criamos uma função personalizada InverterString() que recebe uma string, a inverte e devolve uma nova string com a ordem dos caracteres invertida. Veja o código completo para o exemplo: ---------------------------------------------------------------------- Se precisar de ajuda para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) ' vamos declarar uma string Dim frase As String = "Gosto de VB.NET" ' mostramos a frase original Console.WriteLine("Frase original: " & frase) ' inverte o conteúdo da string frase = InverterString(frase) ' mostramos a frase invertida Console.WriteLine("A frase invertidade é: " & frase) Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub ' Função que recebe uma string e a devolve invertida Function InverterString(ByVal str As String) As String Dim invertida As String Dim arrChar() As Char = str.ToCharArray() Array.Reverse(arrChar) invertida = arrChar Return invertida End Function End Module Ao executar este código VB.NET nós teremos o seguinte resultado: Frase original: Gosto de VB.NET A frase invertidade é: TEN.BV ed otsoG |
VB.NET ::: Dicas & Truques ::: Strings e Caracteres |
Como concatenar strings em VB.NET usando o método Concat() da classe StringQuantidade de visualizações: 11691 vezes |
Nesta dica mostrarei como podemos concatenar strings em VB.NET por meio do método Concat() da classe String do .NET Framework. Este método recebe uma ou mais strings e retorna um novo objeto da classe String. Veja um exemplo de seu uso: ---------------------------------------------------------------------- Se precisar de ajuda para ajustar o código abaixo de acordo com as suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar) Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar a manter o site livre de anúncios. Ficaremos eternamente gratos ;-) Nosso PIX é: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) ' declara uma variável do tipo String Dim frase, nome, cidade As String nome = "Osmar" cidade = "Goiânia" frase = "Meu nome é " frase = String.Concat(frase, nome) frase = String.Concat(frase, " e eu moro em ", cidade) ' e mostramos o resultado Console.WriteLine(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: Meu nome é Osmar e eu moro em Goiânia |
Vamos testar seus conhecimentos em Engenharia Civil - Construção Civil |
Serviços preliminares e instalações provisórias A instalação de tapumes é obrigatória em atividades de construção, para impedir o acesso de pessoas estranhas ao serviço. Sobre a instalação de tapumes e serviços decorrentes: A) Os tapumes devem ter altura mínima de 2,2 m em relação ao nível do terreno. B) Em edifícios com mais de dois pavimentos, é facultativa a construção de galerias para o tráfego de pedestres sobre o passeio. C) As bordas da galeria para pedestres devem possuir tapumes com altura mínima de 2,0 m e inclinação de 45°. D) Não é obrigatória a instalação de tapume em todo o perímetro da obra, apenas na testada do lote. E) As galerias para o tráfego de pedestres devem ter altura livre mínima de 2,5 m. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Engenharia Civil - Construção Civil |
Esquadrias Selecione a alternativa que mais se encaixa com relação aos padrões necessários para uma esquadria ideal em uma construção. A) Estética. B) Material utilizado. C) Praticidade de instalação e manutenção. D) Todas as alternativas estão corretas. E) Isolação acústica. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Engenharia Civil - Estruturas de Aço e Madeira |
Ações em estruturas: apresentação dos principais carregamentos na análise de estruturas convencionais Uma das formas de produzir energia elétrica é por meio da energia nuclear. A energia nuclear frequentemente é contestada por apresentar dois grandes problemas: a geração de lixo nuclear, de difícil descarte; e a fragilidade estrutural dos reatores nucleares. Quanto ao segundo ponto, é necessário construir uma estrutura no entorno dos reatores que seja capaz de absorver, inclusive, o impacto de uma bomba (em caso de guerra). Uma bomba é um caso de que tipo de ação? A) Permanente direta. B) Excepcional. C) Acidental indireta. D) Acidental direta. E) Permanente indireta. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em |
Vantagens e Desvantagens do Concreto Armado A escolha do sistema estrutural a ser adotado para a edificação a ser executada em determinada região passa pelo estudo da viabilidade técnica e, na sequência, da viabilidade econômica. A viabilidade técnica irá considerar, entre outros itens, as vantagens e desvantagens dos sistemas em análise. Com relação às desvantagens da utilização do concreto armado, analise as afirmações a seguir e indique V para a(s) verdadeira(s) e F para a(s) falsa(s): ( ) A necessidade da utilização de um sistema de formas e escoramentos é uma desvantagem das estruturas de concreto armado que pode ser evitada pela utilização de elementos pré-moldados. ( ) O fato de o concreto produzido não atingir a resistência prevista em projeto é uma desvantagem que não pode ser evitada. ( ) A fissuração de elementos de concreto armado é uma desvantagem inevitável e não pode ser controlada. ( ) Seu elevado peso próprio é uma das principais desvantagens no concreto armado, pois esse fato pode ser penalizante na execução. Assinale a alternativa que contém a sequência correta. A) V - V - F - F. B) F - V - F - V. C) F - V - F - F. D) V - F - F - F. E) F - V - V - F. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em |
Vigas a flexão simples: seções retangulares Quando uma viga é simplesmente armada, significa que o aço está sendo utilizado para resistir às solicitações das regiões da seção que estão sendo submetidas à tração, e o concreto está sendo utilizado para resistir às solicitações de compressão. Considere que uma viga contínua V (15x40) tem uma solicitação de momento fletor de 45,20kN.m. O concreto utilizado nessa viga tem resistência de 25MPa e a agressividade ambiental do local é classe II (considere que é uma viga pouco solicitada). Das alternativas a seguir, assinale aquela que apresenta a área de aço da armadura longitudinal dessa viga. A) 2,93cm2. B) 3,26cm2. C) 4,11cm2. D) 4,57cm2. E) 4,75cm2. 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 |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
1º lugar: Java |