Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Sub main()
  2.  
  3.   Dim perro As New ClassPerro
  4.   Dim copiaperro As New ClassPerro  
  5.  
  6.   'Datos de la clase
  7.   perro.nombre = "nazarena"
  8.   perro.n.NUMERO = 3
  9.   perro.varian = ["hola", "adios"]
  10.   perro.arrayInteger = [1, 2, 4, 56]
  11.   'Escribo el contenido de la clase
  12.   Print "Original:......................."
  13.   perro.escribe()
  14.  
  15.   'Hacemos la Copia
  16.  
  17.   copiaperro = CopyObject(perro)
  18.  
  19.   Print "La copia incial es:"
  20.   copiaperro.escribe()
  21.   'Voy a modificar la copia, pero el original se va a mantener sin cambios...
  22.   Print "copia modificada: -------------"
  23.   copiaperro.nombre = "Canela"
  24.   copiaperro.N.NUMERO = 4
  25.   copiaperro.varian = ["Hello", "adios Bye Bye", "perrito", 3.14]
  26.   copiaperro.arrayInteger = [10, 22, 3, 4, 34]
  27.   copiaperro.escribe()
  28.   Print "El original es:"
  29.   perro.escribe()
  30.   Print "Modifico Original, veo si ha cambiado en algo la copiaModificada...."
  31.   Print "El original Modificado es:"
  32.   perro.nombre = "nazarena Raza desconodia"
  33.   perro.n.NUMERO = 8003
  34.   perro.varian = ["Alfa", "Beta"]
  35.   perro.arrayInteger = [1, 2, 43, 56]
  36.   perro.escribe()
  37.   Print "Copia Modificada anteriormente:"
  38.   copiaperro.escribe()
  39.  
  40.   Print "--------------------------------------------------"
  41.   Print "Muestro las referencias de los objetos:"
  42.   Print "objetos:"; perro, copiaperro
  43.   Print "clases:"; perro.N, copiaperro.n
  44.   Print "Arrays Integer:"; perro.arrayInteger, copiaperro.arrayInteger
  45.   Print "Arrays Variant:"; perro.varian, copiaperro.varian
  46.  
  47. End