Como calcular um bônus de 10% no Microsoft Visual Basic

Escrito por jaime avelar | Traduzido por rodrigo da silva
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como calcular um bônus de 10% no Microsoft Visual Basic
Calcule a quantidade percentual de um número no VB (John Foxx/Stockbyte/Getty Images)

A criação de um aplicativo Visual Basic para calcular pagamentos de bônus pode ser facilmente realizada usando um projeto Windows Forms. Você pode usar uma lista de controle de caixa para adicionar o salário-base dos funcionários e utilizar uma caixa de texto para exibir o resultado. Use o tipo de dados "Double" (Dobro) no VB para cálculos matemáticos quando precisar exibir números decimais. A propriedade "Items" (Itens) permite adicionar itens à lista do caixa e a propriedade "Text" (Texto) permite definir e obter dados da caixa de texto de controle.

Nível de dificuldade:
Moderadamente fácil

Outras pessoas estão lendo

Instruções

  1. 1

    Abra o Microsoft Visual Basic Express e clique em "New Project" (Novo projeto) no painel à esquerda da tela do computador. Clique em "Visual Basic" abaixo de "Installed Templates" (Modelos instalados), clique em "Windows Forms Application" (Aplicativo do Windows Forms) e depois em "OK" para iniciar um novo projeto.

  2. 2

    Clique duas vezes no controle "TextBox" (Caixa de texto) no painel "Toolbox" (Caixa de ferramentas) para adicionar uma caixa à sua forma. Adicione uma "ListBox" (Caixa de lista) utilizando a mesma técnica.

  3. 3

    Clique duas vezes no formulário para criar um evento de carregamento de formulário e digite o seguinte código para adicionar o salário base dos empregados na lista de controle de caixa:

    Me.ListBox1.Items.Add("52356") Me.ListBox1.Items.Add("60429") Me.ListBox1.Items.Add("74526") Me.ListBox1.Items.Add("89584")

  4. 4

    Clique duas vezes em "Button1" (Botão 1) para criar um clique de evento para o botão e adicione o seguinte código para calcular um bônus de 10% com base no salário do empregado selecionado:

    Dim basePay As Double Dim bonusPercent As Double Dim bonus As Double

    bonusPercent = 0.1

    basePay = Convert.ToDouble(Me.ListBox1.SelectedItem) bonus = (bonusPercent * basePay)

    Me.TextBox1.Text = bonus

  5. 5

    Pressione "F5" para executar o programa. Selecione um item na caixa de lista e clique em "Button1" (Botão 1) para calcular o bônus e exibir na lista de controle de caixa.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível