Calculadora 1 (por Daniel)

Private Sub Borrrar_Click() pantalla.Caption = "" aux.Caption = "" aux2.Caption = "" End Sub Private Sub cero_Click() pantalla.Caption = pantalla.Caption + "0" End Sub Private Sub cinco_Click() pantalla.Caption = pantalla.Caption + "5" End Sub Private Sub coma_Click() pantalla.Caption = pantalla.Caption + "," End Sub Private Sub cuatro_Click() pantalla.Caption = pantalla.Caption + "4" End Sub Private Sub dividido_Click() aux.Caption = pantalla.Caption aux2.Caption = "/" pantalla.Caption = "" End Sub Private Sub dos_Click() pantalla.Caption = pantalla.Caption + "2" End Sub Private Sub igual_Click() If aux2.Caption = "+" Then pantalla.Caption = Val(aux.Caption) + Val(pantalla.Caption) End If If aux2.Caption = "-" Then pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption) End If If aux2.Caption = "*" Then pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption) End If If aux2.Caption = "/" Then pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption) End If aux.Caption = "" aux2.Caption = "" End Sub Private Sub mas_Click() aux.Caption = pantalla.Caption pantalla.Caption = "" End Sub Private Sub menos_Click() aux.Caption = pantalla.Caption aux2.Caption = "-" pantalla.Caption = "" End Sub Private Sub nueve_Click() pantalla.Caption = pantalla.Caption + "9" End Sub Private Sub ocho_Click() pantalla.Caption = pantalla.Caption + "8" End Sub Private Sub por_Click() aux.Caption = pantalla.Caption aux2.Caption = "*" pantalla.Caption = "" End Sub Private Sub seis_Click() pantalla.Caption = pantalla.Caption + "6" End Sub Private Sub siete_Click() pantalla.Caption = pantalla.Caption + "7" End Sub Private Sub tres_Click() pantalla.Caption = pantalla.Caption + "3" End Sub Private Sub uno_Click() pantalla.Caption = pantalla.Caption + "1" End Sub