 |
|
||||
Você está aqui: VB.NET ::: Dicas & Truques ::: Data e Hora |
Obtendo o números de ticks para a data e hora atualQuantidade de visualizações: 7459 vezes |
'Este exemplo mostra como obter o número de ticks para a
'data e hora atual
'O valor da propriedade Ticks representa o número de
'intervalos de 100 nanosegundos desde a meia-noite de 1º de
'janeiro de 0001.
Module Module1
Sub Main()
Dim ticks As Long = DateTime.Now.Ticks
Console.WriteLine("O número de ticks para a data e hora " _
& "atual é " & ticks)
Console.WriteLine()
Console.WriteLine("Pressione uma tecla para sair...")
Console.ReadKey()
End Sub
End Module
|
 Link para compartilhar na Internet ou com seus amigos: |
VB.NET ::: Fundamentos da Linguagem ::: Estruturas de Controle |
Como usar a instrução Select...Case do VB.NETQuantidade de visualizações: 20785 vezes |
As instruções If...Then e If...Then...Else são muito úteis para testarmos condições em nossos códigos. Porém, há situações em que os caminhos a serem testados são tantos que se torna um pouco tedioso escrever tantos ElseIfs. Para estas situações nós temos a instrução Select...Case. Veja seu uso 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
----------------------------------------------------------------------
Dim valor As Integer = 7
Select Case valor
Case 1 To 5
Console.WriteLine("Entre 1 e 5 (inclusive)")
Case 6, 7, 8
Console.WriteLine("Entre 6 e 8 (inclusive)")
Case 9 To 10
Console.WriteLine("Igual a 9 ou 10")
Case Else
Console.WriteLine("Não encontrado no teste")
End Select
Os valores a serem testados em cada passo da instrução podem ser separados por vírgulas ou por faixa, usando a palavra-chave To. Neste último caso, o valor limite também é incluído no teste. O tipo de dados da variável de teste deve se enquadrar nos tipos: Boolean, Byte, Char, Date, Double, Decimal, Integer, Long, Object, SByte, Short, Single, String, UInteger, ULong e UShort. |
VB.NET ::: Dicas & Truques ::: Data e Hora |
Como adicionar horas à data e hora atual em VB.NET usando a função AddHours() da classe DateTimeQuantidade de visualizações: 12395 vezes |
|
Nesta dica mostrarei como podemos adicionar horas à data e hora atual em VB.NET usando o método AddHours() da classe DateTime. Note que estamos obtendo a data e hora atual usando DateTime.Now. Em seguida nós adicionamos 5 horas e mostramos a nota data e hora. Veja o código VB.NET 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())
Dim agora As DateTime = DateTime.Now
Dim horas As Integer = 5 ' vamos adicionar 5 horas
' exibe a data e hora atual
Console.WriteLine("Agora são: " _
& agora.ToString("dd/MM/yyyy - hh:mm:ss"))
' adiciona as horas
agora = agora.AddHours(horas)
' exibe a nova data e hora
Console.WriteLine("Daqui " & horas & " horas será: " _
& agora.ToString("dd/MM/yyyy - hh:mm:ss"))
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: Agora são: 11/07/2022 - 03:47:01 Daqui 5 horas será: 11/07/2022 - 08:47:01 |
VB.NET ::: Dicas & Truques ::: Matemática e Estatística |
Como testar se um número é primo em VB.NETQuantidade de visualizações: 1329 vezes |
|
O Número Primo é o número maior que 1 e que só pode ser dividido por 1 e por ele mesmo, ou seja, números primos não podem ser divididos por outros números, a não ser por ele mesmo e pelo número 1. Dessa forma, 2, 3, 5, 7, 11, 13, 17, etc, são todos números primos. É importante observar que 0 e 1 não são números primos, e que o número 2 é o único número primo par. Veja agora um código VB.NET completo que pede para o usuário informar um número inteiro positivo e mostra uma mensagem indicando se o número informado é primo ou não: ----------------------------------------------------------------------
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 primo As Boolean = True ' Vamos assumir que o número é primo
' vamos solicitar um número inteiro positivo
Console.Write("Informe um número inteiro positivo: ")
Dim numero As Integer = Integer.Parse(Console.ReadLine())
' o número é negativo?
If numero < 0 Then
Console.WriteLine("Número inválido.")
' é 0 ou 1?
ElseIf ((numero = 0) Or (numero = 1)) Then
Console.WriteLine("Número válido, mas não é primo.")
' passou até aqui. Vamos testar se o número é primo
Else
For i As Integer = 2 To (numero / 2) Step 1
' se passar no teste, não é primo
If (numero Mod i = 0) Then
primo = False ' recebe False
Exit For
End If
Next
If (primo) Then
Console.WriteLine("O número informado é primo")
Else
Console.WriteLine("O número informado não é primo")
End If
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 positivo: 9 O número informado não é primo |
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 ::: Dicas & Truques ::: Geometria, Trigonometria e Figuras Geométricas |
Como calcular o coeficiente angular de uma reta em VB.NET dados dois pontos no plano cartesianoQuantidade de visualizações: 1073 vezes |
|
O Coeficiente Angular de uma reta é a variação, na vertical, ou seja, no eixo y, pela variação horizontal, no eixo x. Sim, isso mesmo. O coeficiente angular de uma reta tem tudo a ver com a derivada, que nada mais é que a taxa de variação de y em relação a x. Vamos começar analisando o seguinte gráfico, no qual temos dois pontos distintos no plano cartesiano:  Veja que o segmento de reta AB passa pelos pontos A (x=3, y=6) e B (x=9, y=10). Dessa forma, a fórmula para obtenção do coeficiente angular m dessa reta é: \[\ \text{m} = \frac{y_2 - y_1}{x_2 - x_1} = \frac{\Delta y}{\Delta x} = tg \theta \] Note que __$\Delta y__$ e __$\Delta x__$ são as variações dos valores no eixo das abscissas e no eixo das ordenadas. No triângulo retângulo que desenhei acima, a variação __$\Delta y__$ se refere ao comprimento do cateto oposto e a variação __$\Delta y__$ se refere ao comprimento do cateto adjascente. Veja agora o trecho de código na linguagem VB.NET que solicita as coordenadas x e y dos dois pontos, efetua o cálculo e mostra o coeficiente angular m da reta que passa pelos dois pontos: ----------------------------------------------------------------------
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())
' x e y do primeiro ponto
Console.Write("Informe a coordenada x do primeiro ponto: ")
Dim x1 As Double = Double.Parse(Console.ReadLine())
Console.Write("Informe a coordenada y do primeiro ponto: ")
Dim y1 As Double = Double.Parse(Console.ReadLine())
' x e y do segundo ponto
Console.Write("Informe a coordenada x do segundo ponto: ")
Dim x2 As Double = Double.Parse(Console.ReadLine())
Console.Write("Informe a coordenada y do segundo ponto: ")
Dim y2 As Double = Double.Parse(Console.ReadLine())
' agora vamos calcular o coeficiente angular
Dim m As Double = (y2 - y1) / (x2 - x1)
' e mostramos o resultado
Console.WriteLine("O coeficiente angular é: " & m)
Console.WriteLine("\nPressione qualquer tecla para sair...")
' pausa o programa
Console.ReadKey()
End Sub
End Module
Ao executar este código em linguagem VB.NET nós teremos o seguinte resultado: O coeficiente angular é: 0,6666666666666666 Veja agora como podemos calcular o coeficiente angular da reta que passa pelos dois pontos usando o Teorema de Pitágoras. Note que agora nós estamos tirando proveito da tangente do ângulo Theta (__$\theta__$), também chamado de ângulo Alfa ou Alpha (__$\alpha__$): ----------------------------------------------------------------------
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())
' x e y do primeiro ponto
Console.Write("Informe a coordenada x do primeiro ponto: ")
Dim x1 As Double = Double.Parse(Console.ReadLine())
Console.Write("Informe a coordenada y do primeiro ponto: ")
Dim y1 As Double = Double.Parse(Console.ReadLine())
' x e y do segundo ponto
Console.Write("Informe a coordenada x do segundo ponto: ")
Dim x2 As Double = Double.Parse(Console.ReadLine())
Console.Write("Informe a coordenada y do segundo ponto: ")
Dim y2 As Double = Double.Parse(Console.ReadLine())
' vamos obter o comprimento do cateto oposto
Dim cateto_oposto As Double = y2 - y1
' e agora o cateto adjascente
Dim cateto_adjascente As Double = x2 - x1
' vamos obter o ângulo tetha, ou seja, a inclinação da hipetunesa
' (em radianos, não se esqueça)
Dim tetha As Double = Math.Atan2(cateto_oposto, cateto_adjascente)
' e finalmente usamos a tangente desse ângulo para calcular
' o coeficiente angular
Dim tangente As Double = Math.Tan(tetha)
' e mostramos o resultado
Console.WriteLine("O coeficiente angular é: " & tangente)
Console.WriteLine("\nPressione qualquer tecla para sair...")
' pausa o programa
Console.ReadKey()
End Sub
End Module
Ao executar este código você verá que o resultado é o mesmo. No entanto, fique atento às propriedades do coeficiente angular da reta: 1) O coeficiente angular é positivo quando a reta for crescente, ou seja, m > 0; 2) O coeficiente angular é negativo quando a reta for decrescente, ou seja, m < 0; 3) Se a reta estiver na horizontal, ou seja, paralela ao eixo x, seu coeficiente angular é zero (0). 4) Se a reta estiver na vertical, ou seja, paralela ao eixo y, o coeficiente angular não existe. |
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: 237 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 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 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 ::: Matemática e Estatística |
Como resolver uma equação do segundo grau em VB.NET - Como calcular Bhaskara em VB.NETQuantidade de visualizações: 519 vezes |
|
Como resolver uma equação do 2º grau usando VB.NET Nesta dica mostrarei como encontrar as raízes de uma equação quadrática, ou seja, uma equação do 2º usando a linguagem VB.NET. Definimos como equação do 2º grau ou equações quadráticas qualquer equação do tipo ax² + bx + c = 0 em que a, b e c são números reais e a ≠ 0. Ela recebe esse nome porque, no primeiro membro da igualdade, há um polinômio de grau dois com uma única incógnita. Note que, dos coeficientes a, b e c, somente o a é diferente de zero, pois, caso ele fosse igual a zero, o termo ax² seria igual a zero, logo a equação se tornaria uma equação do primeiro grau: bx + c = 0. Independentemente da ordem da equação, o coeficiente a sempre acompanha o termo x², o coeficiente b sempre acompanha o termo x, e o coeficiente c é sempre o termo independente. Como resolver uma equação do 2º grau Conhecemos como soluções ou raízes da equação ax² + bx + c = 0 os valores de x que fazem com que essa equação seja verdadeira. Uma equação do 2º grau pode ter no máximo dois números reais que sejam raízes dela. Para resolver equações do 2º grau completas, existem dois métodos mais comuns: a) Fórmula de Bhaskara; b) Soma e produto. O primeiro método é bastante mecânico, o que faz com que muitos o prefiram. Já para utilizar o segundo, é necessário o conhecimento de múltiplos e divisores. Além disso, quando as soluções da equação são números quebrados, soma e produto não é uma alternativa boa. Como resolver uma equação do 2º grau usando Bhaskara Como nosso código VB.NET vai resolver a equação quadrática usando a Fórmula de Bhaskara, o primeiro passo é encontrar o determinante. Veja: \[\Delta =b^2-4ac\] Nem sempre a equação possui solução real. O valor do determinante é que nos indica isso, existindo três possibilidades: a) Se determinante > 0, então a equação possui duas soluções reais. b) Se determinante = 0, então a equação possui uma única solução real. c) Se determinante < 0, então a equação não possui solução real. Encontrado o determinante, só precisamos substituir os valores, incluindo o determinante, na Fórmula de Bhaskara: \[x = \dfrac{- b\pm\sqrt{b^2- 4ac}}{2a}\] Vamos agora ao código VB.NET. Nossa aplicação vai pedir para o usuário informar os valores dos três coeficientes a, b e c e, em seguida, vai apresentar as raizes da equação: ----------------------------------------------------------------------
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())
' os coeficientes
Dim a, b, c As Double
' as duas raizes, a imaginaria e o discriminante
Dim raiz1, raiz2, imaginaria, discriminante As Double
' vamos pedir para o usuário informar os valores dos coeficientes
Console.Write("Valor do coeficiente a: ")
a = Double.Parse(Console.ReadLine())
Console.Write("Valor do coeficiente b: ")
b = Double.Parse(Console.ReadLine())
Console.Write("Valor do coeficiente c: ")
c = Double.Parse(Console.ReadLine())
' vamos calcular o discriminante
discriminante = (b * b) - (4 * a * c)
' a equação possui duas soluções reais?
If discriminante > 0 Then
raiz1 = (-b + Math.Sqrt(discriminante)) / (2 * a)
raiz2 = (-b - Math.Sqrt(discriminante)) / (2 * a)
Console.Write("Existem duas raizes: x1 = " & raiz1 _
& " e x2 = " & raiz2)
ElseIf discriminante = 0 Then
' a equação possui uma única solução real?
raiz1 = raiz2 = -b / (2 * a)
Console.Write("Existem duas raizes iguais: x1 = " _
& raiz1 & " e x2 = " & raiz2)
ElseIf discriminante < 0 Then
' a equação não possui solução real?
raiz1 = raiz2 = -b / (2 * a)
imaginaria = Math.Sqrt(-discriminante) / (2 * a)
Console.Write("Existem duas raízes complexas: x1 = " &
raiz1 & " + " & imaginaria & " e x2 = " & raiz2 _
& " - " & imaginaria)
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: Valor do coeficiente a: 1 Valor do coeficiente b: 2 Valor do coeficiente c: -3 Existem duas raizes: x1 = 1 e x2 = -3 |
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 |
Vamos testar seus conhecimentos em Ética e Legislação Profissional |
| O código de ética profissional: Concorrência A estrutura de mercado denominada "livre concorrência" tem como principal característica a competição empresarial de maneira correta, transparente e honesta. Nesse ambiente, é necessária a regulamentação da economia por parte do Estado, pois isso gera benefícios aos consumidores. Marque a alternativa que apresenta os benefícios decorrentes da regulamentação. A) A coletividade passa a contar com mais opções de produtos importados, preços e qualidade, além de oferecer às empresas um ambiente econômico saudável. B) A coletividade passa a contar com mais opções de produtos, preços e menos rigor na qualidade, além de oferecer às empresas um ambiente econômico saudável. C) A coletividade passa a contar com mais opções de produtos, preços e qualidade, além de oferecer às empresas um ambiente econômico monopolista. D) A coletividade passa a contar com mais opções de produtos, preços e qualidade, além de oferecer às empresas um ambiente econômico saudável. E) Os Estados menos desenvolvidos passam a contar com isenção de impostos, mais opções de produtos, preços e qualidade, além de oferecer às empresas um ambiente econômico saudável. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Python |
| Qual instrução é usada para interromper um laço em Python? A) return B) catch C) break D) continue E) exit Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Engenharia Civil - Instalações Hidráulicas Prediais |
| O projeto de instalação hidrossanitária Os profissionais da área civil devem estar atentos às definições e às funções dos mais diversos sistemas e equipamentos, não apenas do projeto hidrossanitário, mas da obra em um todo. Considere os elementos a seguir e os relacione com o conceito correto: I. Caixa sifonada (CS) II. Subcoletor (SC) III. Ramal de descarga (RD) IV. Ralo (RA) ( ) Tubulação que recebe efluentes dos ramais de esgoto e conduz a um tubo de queda e/ou destes ao coletor predial. ( ) Tubulação que recebe diretamente efluentes de aparelhos sanitários, com exceção dos autossifonados, como mictórios, vasos, etc. ( ) É pequeno e tem apenas uma saída para conduzir a água. ( ) Tem apenas uma saída, mas conta com mais entradas (de 3 a 7). Assinale a alternativa que apresenta a sequência correta: A) II - III - IV - I. B) IV - II - III - I. C) III - II - I - IV. D) II - I - IV - III. E) III - IV - I - II. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em JavaScript |
Qual o resultado da execução do seguinte código JavaScript?document.write(0.1 + 0.2 == 0.3); A) Um erro de execução B) true C) 0.6 D) false Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Fenômeno de Transportes e Hidráulica |
| Viscosidade dos fluidos A velocidade é um fator determinante na viscosidade de um fluido. Muitos estudos apresentam o cálculo da viscosidade a partir da velocidade média de um fluido viscoso. Como é chamado o fluido com viscosidade variável com a velocidade em que a tensão de cisalhamento não é diretamente proporcional à taxa de deformação? A) Fluido compressível. B) Fluido não compressível. C) Fluido newtoniano. D) Fluido não newtoniano. E) Fluido relativo. 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 |
