pues estaba hablando con unos amigos y les estaba preguntando que como eran las clases con patiño, y en eso empezaron a recordar que patiño la primera clase coloca como actividad una calculadora y pues quise hacer una básica para ver que tal. ustedes pruebenla puede tener errores......(por eso posteo el código cuando los solucionen suben el archivo modificado)
aqui una imagen de la calculadora, cabe aclarar que es sencilla pero permite operaciones múltiples es decir sumas sucesivas, restas etc. así como el estilo de la calc de windows
Y como siempre ahora viene una parte del codigo la mas chika jajajaj se trata de la clase implementada para almacenar los valores, saber que operacion usar & cosas asi:
Public Class almacenamiento
'esta clase me va alamcenar los valores de las operacioen y me va
' adecir el orden de estos valores
'mis atributos
Dim posicion As Byte
Dim obtener1 As Decimal
Dim obtener2 As Decimal
Dim op As Decimal
Dim signo As Byte
Public Sub New() 'mi constructor
posicion = 0
op = 0
signo = 0
End Sub
'mis propiedades
Public Property dato1() As Decimal
Get
Return obtener1
End Get
Set(ByVal valor As Decimal)
obtener1 = valor
End Set
End Property
Public Property dato2() As Decimal
Get
Return obtener2
End Get
Set(ByVal valor As Decimal)
obtener2 = valor
End Set
End Property
Public Function conocer(Optional ByVal valor As Byte = 0) As Byte
If valor = 0 Then 'operaciones normales
If posicion = 0 Then
posicion = 1
Return 1
Else 'para posicion=1
posicion = 0
Return 0
End If
Else 'guardar el resultado de la suma en el valor1
posicion = 1
End If
End Function
Public Property presionado() As Byte ' si se presiono un signo
Get
Return op
End Get
Set(ByVal value As Byte)
op = value
End Set
End Property
Public Property operacion() As Byte
Get
Return signo
End Get
Set(ByVal sig As Byte)
signo = sig
End Set
End Property
End Class
Descarguen el proyecto desde: http://www.4shared.com/file/230633965/de31d1d0/calculadora.html
