 |
|
||||
Você está aqui: VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: VB.NET Básico |
Como calcular desconto de INSS em VB.NET - Um programa que calcula Imposto de Renda, INSS e Sindicato em VB.NET - Desafio de Programação Resolvido em VB.NETQuantidade de visualizações: 468 vezes |
|
Pergunta/Tarefa: Escreva um programa VB.NET que pede para o usuário informar o valor por hora trabalhada e a quantidade de horas trabalhadas no mês. Sabendo-se que são descontados 11% para o Imposto de Renda, 8% para o INSS e 5% para o Sindicato, calcule e mostre o total do salário a receber no referido mês. Atenção: Salário Bruto é o salário sem quaisquer descontos, enquanto Salário Líquido é o salário final, já com todos os descontos aplicados. Seu programa VB.NET deverá exibir uma saída parecida com: Valor da hora trabalhada: 22 Número de horas trabalhadas no mês: 60 Seu Salário Bruto: R$ 1.320,00 Desconto de INSS: R$ 105,60 Total de Sindicato: R$ 66,00 Desconto Imposto de Renda: R$ 145,20 Salário Líquido: R$ 1.003,20 Veja a resolução comentada deste exercício usando VB.NET:
Imports System
Module Program
' função principal do programa VB.NET
Sub Main(args As String())
' vamos ler o valor do hora trabalhada
Console.Write("Valor da hora trabalhada: ")
Dim valor_hora As Double = Double.Parse(Console.ReadLine())
' vamos ler o número de horas trabalhadas no mês
Console.Write("Número de horas trabalhadas no mês: ")
Dim horas_trabalhadas As Integer = Int32.Parse(Console.ReadLine())
' vamos calcular o salário bruto
Dim salario_bruto As Double = valor_hora * horas_trabalhadas
' vamos calcular o desconto do INSS
Dim desconto_inss As Double = (8.0 / 100.0) * salario_bruto
' vamos calcular o desconto do Sindicato
Dim desconto_sindicato As Double = (5.0 / 100.0) * salario_bruto
' finalmente vamos calcular o desconto do IR
Dim desconto_ir As Double = (11.0 / 100.0) * salario_bruto
...... |
 Link para compartilhar na Internet ou com seus amigos: |
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: 1056 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:
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())
......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__$):
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
......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 ::: Dicas & Truques ::: Strings e Caracteres |
Como comparar strings em VB.NET usando o método Equals() da classe String do .NET FrameworkQuantidade de visualizações: 8863 vezes |
|
Nesta dica mostrarei como podemos comparar palavras, frases ou textos em VB.NET usando o método Equals() da classe String do .NET Framework. Este método retorna um valor True se as duas strings forem iguais e False em caso contrário. Lembre-se de que o método Equals() diferencia maiúsculas de minúsculas. Veja um exemplo completo de seu uso:
Imports System
Module Program
Sub Main(args As String())
Dim palavra1, palavra2 As String
palavra1 = "Visual Basic"
palavra2 = "Visual Basic"
If palavra1.Equals(palavra2) Then
Console.WriteLine("As duas strings são iguais")
......Ao executar este código VB.NET nós teremos o seguinte resultado: As duas strings são iguais |
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: 7092 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:
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)
......Ao executar este código VB.NET nós teremos o seguinte resultado: A versão do .NET é: 3.1.23 |
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 |
