Exercício 1 ficha 1
Ambiente gráfico da aplicação:
Agora vamos ao código!
Textboxs:
Textbox lado direito:
Private Sub Oper1_Change()
End Sub
Textbox lado esquerdo:
Private Sub Oper2_Change()
End Sub
Labels:
Símbolo do + no meio das textbox:
Private Sub Simbolo_Click()
End Sub
Label (onde aparece o resultado):
Private Sub resultado_Click()
End Sub
Botões:
Botão =:
Private Sub cmdigual_Click()
resultado.Caption = Val(Oper1.Text) + Val(Oper2.Text)
botao sair:
Private Sub cmdsair_Click()
End
End Sub


Sem comentários:
Enviar um comentário