Projeto Aprenda em Casa - Cursos gratuitos

Clube VB - Botões de Opção

Aula 19

Os botões de opção também são conhecidos pelo nome de botões de rádio. O uso deste tem o objetivo de permitir ao usuário selecionar uma opção dentre as disponíveis (apenas uma única opção). Quando usados em um programa, por permitirem apenas uma seleção dentre as disponíveis, gerando estão agrupados em um quadro. Dentre as propriedades mais utilizadas dos botões de rádio, destacamos:

Propriedade	Valor
Name	define o nome do componente. Nome este que identificará o mesmo durante a codificação do sistema.
Caption	Define um conteúdo para a opção a nível de usuário
Value	Através desta propriedade poderemos testar se o botão está acionado ou não (true ou false).
Style	Aqui você define se o botão terá a aparência padrão ( 0-standard) ou a aparência de um botão (1-graphical)

Dentre os eventos, o mais utilizado é o Click() que é acionado assim que usuário seleciona o botão, ou seja, marca a sua opção.

Vamos criar um projeto exemplo, onde o usuário irá entrar com o valor total da compra e, de acordo com a opção de pagamento, terá um desconto, o valor permanecerá o mesmo ou então teremos um acréscimo no valor total a ser pago.

1. Inicie um novo projeto em VB;

2. Insira na parte superior do formulário um LABEL e altere a propriedade Caption deste para VALOR TOTAL DA COMPRA;

3. Insira ao lado do label citado um componente TEXTBOX e apague o conteúdo da propriedade TEXT;

4. Insira abaixo do label um componente OptionButton e altere a propriedade CAPTION do mesmo para Á VISTA COM 10% DE DESCONTO;

5. Insira abaixo um novo componente OptionButton e altere a propriedade CAPTION deste para CHEQUE PARA 30 DIAS SEM JUROS;

6. Insira abaixo um novo componente OptionButton e altere a propriedade CAPTION deste para CHEQUE PARA 60 DIAS COM JUROS DE 3%;

7. Abaixo, insira um componente Label e altere a propriedade CAPTION deste para TOTAL A PAGAR

8. Ao lado, insira um componente TextBox e apague o conteúdo da propriedade TEXT.

9. Ao final deste procedimento, seu formulário terá o seguinte aspecto:

Nosso próximo passo é criar a codificação do sistema. Esta é bastante simples, ao clicar (evento click) em qualquer um dos botões de rádio disponíveis, o sistema irá fornecer no segundo TextBox o valor total a ser pago pelo cliente, já calculado o desconto ou acréscimo sobre o valor total ou, se for o caso, mantendo o valor total.

Para codificar a primeira opção, ou seja, para o pagamento à vista e calcular 10% de desconto, dê um clique duplo sobre o componente OptionButton1 e entre com a seguinte codificação:

Private Sub Option1_Click()
a1 = Val(Text1.Text)
a2 = (a1 * 0.9)
Text2.Text = Str(FormatCurrency(a2, 2, vbTrue, vbTrue, vbTrue))
End Sub

Observe que aqui, o primeiro passo foi transferir para a variável A1 o conteúdo da caixa de textos TEXT1 devidamente transformado em número através da função VAL. Em seguida estamos multiplicando o valor da compra por 0.9 (oferecendo 10% de desconto) e transferindo este valor sobre a forma de moeda (função FORMATCURRENCY) para dentro da segunda caixa de texto TEXT2.

Vamos então codifcar o segundo botão de rádio. Dê um clique duplo sobre o mesmo e entre com a seguinte codificação:

Private Sub Option2_Click()
Text2.Text = Text1.Text
End Sub

Este procedimento é mais simples, como o valor é o mesmo (sem acréscimo ou desconto), estamos apenas transferindo para a caixa de edição 02 o conteúdo da caixa de edição 01.

Vamos agora codificar o terceiro botão de rádio. Dê um clique duplo sobre o mesmo e entre com a seguinte codificação:

Private Sub Option3_Click()
a1 = Val(Text1.Text)
a2 = ((a1 * 3) / 100)
a3 = a1 + a2
Text2.Text = Str(FormatCurrency(a3, 2, vbTrue, vbTrue, vbTrue))
End Sub

Observe que a lógica aqui empregada é similar ao do primeiro botão de rádio, mudando apenas as operações aritméticas realizadas.

No próximo módulo iremos estudar as caixas de seleção.

Voltar