[RISOLTO] Chliamata di una funzione dalla classe padre ad una classe figlia

[g.grandi]

Non so se sto affrontando il problema in modo sbagliato, ma vado a descrivere cosa vorrei fare. Devo creare un progetto che contiene un gruppo di oggetti con funzioni identiche compreso un timer che deve richiamare una sub specializzata diversa per ogni oggetto del gruppo. L'idea è quella di raggruppare tutte le funzioni, compreso il timer, in una classe dalla quale derivare con il comando inherit ogni singolo oggetto contenente la sub specializzata. Qui però, mi sono arenato perchè non so come (e non so nemmeno se sia possibile) richiamare dal timer della classe padre, la sub presente nella classe derivata.

Grazie per il disturbo.
Giovanni Grandi

[vuott]

Se non ho capito male  , vi è una Classe sostanzialmente principale che contiene il Timer, il quale con una certa frequenza richiama molte sub-procedure, oppure funzioni, contenute in altrettante Classi secondarie.
Se è così, direi che devi cominciare a dichiarare ed instanziare le Classi secondarie. Poi........

[milio]

Classe padre
Public sub TuoTimer_Timer ()

  Me.TuaSub ()

End

Classe figlia
Public Sub TuaSub ()

  'Codice diverso per ogni sub figlia

End

[vuott]

Vedi ? Milio è stato più risolutivo: bando alle ciance !  

Lui ha posto una sola Classe secondaria che va a contenere più sub-procedure, tante quante sono gli oggetti.

Ma tu la parola Inherits devi assolutamente impostarla ?

[g.grandi]

Ammetto che sono alle prime armi con l'uso delle classi! L'esempio di Milio è una variante alla mia esigenza e può andare, ma ho comunque il problema che quando viene eseguita la Me.TuaSub() mi riporta l'errore che la TuaSub è sconosciuta nella classe padre. Cerco di fare una sintesi del mio codice:

Classe Padre  ----------------------

Public Sub _new()

  ...
  TuoTimer = NEW Timer AS "TuoTimer"
  TuoTimer.Enabled = FALSE


End Sub

Public sub TuoTimer_Timer ()

  Me.TuaSub ()

End

Public Sub Start()

  TuoTimer.Delay = 100
  TuoTimer.Enabled = TRUE 

End Sub

fine classe padre  --------------------


Classe Figlia  ---------------------

INHERIT Padre

Public Sub _new()

  ....

End Sub

Public Sub TuaSub ()

  'Codice diverso per ogni sub figlia

End

fine classe figlia --------------------


FMain.Class  ------------------

PUBLIC oggetto AS NEW Figlia(....)

Object.Attach(oggetto, ME, "MiaFiglia")

oggetto.Start()

fine Main  ------------------


Grazie, Giovanni

[vuott]

FMain.Class  ------------------

Codice: gambas [Seleziona]

PUBLIC oggetto AS NEW Figlia(....)

Object.Attach(oggetto, ME, "MiaFiglia")

oggetto.Start()

fine Main  ------------------

A me dà errore alla riga oggetto.Start() in quanto nella Classe figlia, chiamata oggetto, non c'è quella funzione ".start()".

Ritengo, inoltre, che, qualora tu non debba far sollevare eventi dalla Classe secondaria figlia, la riga

Codice: gambas [Seleziona]

Object.Attach(oggetto, ME, "MiaFiglia")

diventa superflua, in quanto tu istanzi la figlia già con la precedente riga:

Codice: gambas [Seleziona]

PUBLIC oggetto AS NEW Figlia

alla quale fra l'altro non vanno aggiunte quelle parantesi.

[g.grandi]

Ho creato l'esempio semplificato (che allego) dove si presenta l'errore alla chiamata di Me.TuaSub().

A me dà errore alla riga oggetto.Start() in quanto nella Classe figlia, chiamata oggetto, non c'è quella funzione ".start()".

Nell'esempio allegato non presenta questo problema.

Ritengo, inoltre, che, qualora tu non debba far sollevare eventi dalla Classe secondaria figlia, la riga
Codice: gambas
view plaincopy to clipboardprint?

    Object.Attach(oggetto, ME, "MiaFiglia") 

diventa superflua, in quanto tu istanzi la figlia già con la precedente riga:

Nel programma ho la necissità di sollevare eventi.

Codice: gambas
view plaincopy to clipboardprint?

    PUBLIC oggetto AS NEW Figlia 

alla quale fra l'altro non vanno aggiunte quelle parantesi.

Le ho messe solo per richiamare l'attenzione che avevo dei parametri da passare alla sub _new

Ciao, Giovanni

[vuott]

A me dà errore alla riga oggetto.Start() in quanto nella Classe figlia, chiamata oggetto, non c'è quella funzione ".start()".

Nell'esempio allegato non presenta questo problema.

Sì, scusami, avevo dimenticato  di porre la parola Inherits nella Classe figlia !



Riguardo al problema principale da te sollevato, devi individuare bene la Classe per richiamare i suoi simboli. Pertanto, la sub-routine TuoTimer va modificata come segue:

Codice: gambas [Seleziona]

Public Sub TuoTimer_Timer()

   FMain.oggetto.TuaSub()

End

[g.grandi]

Grazie del suggerimento. Come al solito mi annego nel classico bicchiere d'acqua.

Ho aggiunto un metodo nella classe padre al quale passo il riferimento della classe figlia creata. In questo modo posso tenere la classe padre generica da utilizzare per tutti gli oggetti derivati.

Ciao, Giovanni