document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public Sub Form_Open()
  4.  
  5.   Dim p As New Pato[]
  6.   Dim paux As Pato
  7.   Dim comportamiento As IVolar
  8.  
  9.   paux = New PatoGordo
  10.   p.Add(paux)
  11.   TextLabel1.text = "Pato nº 1: " & p[0].getVolar() & tipopato(p[0]) & "<br>"
  12.  
  13.   paux = New PatoHule
  14.   p.Add(paux)
  15.   TextLabel1.text &= "Pato nº 2: " & p[1].getVolar() & tipopato(p[1]) & "<br>"
  16.  
  17.   paux = New PatoRedBlue
  18.   p.Add(paux)
  19.   TextLabel1.text &= "Pato nº 3: " & p[2].getVolar() & tipopato(p[2]) & "<br>"
  20.  
  21.   \'el pato nº 3 ,subre un accidente y ahora ya no puede volar...
  22.   TextLabel1.text &= "<font color=\\"blue\\">Accidente del pato Pato nº 3!!!....</font><br>"
  23.   comportamiento = New NoVolar
  24.   p[2].setVolar(comportamiento)
  25.   TextLabel1.text &= "Pato nº 3: " & p[2].getVolar() & tipopato(p[2]) & "<br>"
  26.  
  27. End
  28.  
  29. Public Function tipopato(p As Pato) As String
  30.  
  31.   Return ", Clase de de pato: " & Object.Class(p).Name
  32.  
  33. End
');