PAscal

Centro de Computação
Gerência de Atendimento ao Cliente (e-mail [e-mail])

Exercício 4: Calculadora

Resolução do Exercício:

Fazer uma calculadora que tenha as seguintes operações: soma, subtração, divisão e multiplicação.

Tela do Exercício.
Private Sub cmdcalcular_Click()
If OptSoma.Value = True Then txtresult = Val(txtprim_num) + Val(txtseg_num)
ElseIf OptSub.Value = True Then txtresult = Val(txtprim_num) - Val(txtseg_num)
ElseIf OptMult.Value = True Then txtresult = Val(txtprim_num) * Val(txtseg_num)
ElseIf OptDiv.Value = True Then
If Val(txtseg_num) 0 Then txtresult = Val(txtprim_num) / Val(txtseg_num)
Else
MsgBox "Divisão por Zero!"
End If
End If
End Sub

Form
Caption =Formulário do Exercício
Name = Frmexerc
TextBox
Name = txtresult
Text = (BRANCO)
HScrollBar
Name = hScrPrim_valor
LargeChange = 10
Max = 1000
CommandButton
Caption = &Calcular
Name = cmdcalcular
OptionButton
Caption = Subtração
Name = OptSub
OptionButton
Caption = Divisão
Name = OptDiv
TextBox
Name = txtprim_num
Text = (BRANCO)
Label
AutoSize = True
Caption = Resultado da Operação:
Name = lblresult

Frame
Caption = Operações
Name = Frame2
TextBox
Name = txtseg_num
Text = (BRANCO)
HScrollBar
LargeChange = 10
Max = 1000
Name = HScrSeg_valor
CommandButton
Caption = &Sair
Name = cmdsair
OptionButton
Caption = Soma
Name = OptSoma
OptionButton
Caption = Multiplicação
Name = OptMult
Label
AutoSize = True
Caption = Primeiro Valor:
Name = lblprim_valor
Label
AutoSize = True
Caption = Segundo Valor:
Name = lblseg_valor

Private Sub hScrPrim_valor_Change() txtprim_num = hScrPrim_valor.Value
End Sub

Private Sub cmdsair_Click()
End
End Sub

Private Sub hScrPrim_valor_Scroll() txtprim_num = hScrPrim_valor.Value
End Sub
Private Sub HScrSeg_valor_Change() txtseg_num = HScrSeg_valor.Value
End Sub

Private Sub HScrSeg_valor_Scroll() txtseg_num = HScrSeg_valor.Value
End Sub

Visual Basic 5.0

39