[VB.NET] Chiamare metodo da un oggetto ad un altro

[colink31]

Buon giorno,
sono nuovo del forum, pertanto inizio col salutare tutti.

Stò sviluppando un applicativo Windows form per interfacciarmi con un sistema di pistoni dove per ogni pistone istanzio un oggetto di tipo button-like

In pratica non mi è chiaro come possa chiamare nell'evento click sul bottone una sub della classe PLC la quale a sua volta viene istanziata dalla form.

Mi spiego meglio: la Form main istanzia n bottoni quanti sono i pistoni da comandare. Dalla form istanzio anche l'oggetto PLC che contiene le funzioni per la scrittura e la lettura sul Plc che comanda realmente i pistoni.
Come posso chiamare la funzione objPLC.AlzaPistone sull'evento click dall'oggetto bottone?

Spero di aver esposto comprensibilmente la questione, e ringrazio quanti vorranno aiutarmi.

--
Saluti
Colink

[Stoicenko]

bè nell'evento click la chiami.. non capisco dove sta il problema..

[colink31]

Originariamente inviato da Stoicenko
bè nell'evento click la chiami.. non capisco dove sta il problema..

Il fatto è che nell'oggetto button non vedo l'oggetto PLC (istanziato nella form).

[Stoicenko]

dubito che sia una cosa possibile.. forse l'oggetto plc non è dichiarato globalmente nella form ma in un metodo (il form load?) e quindi alla fine del metodo viene distrutto

ps: posta il codice che vediamo

[colink31]

Originariamente inviato da Stoicenko
dubito che sia una cosa possibile.. forse l'oggetto plc non è dichiarato globalmente nella form ma in un metodo (il form load?) e quindi alla fine del metodo viene distrutto

ps: posta il codice che vediamo

Public Class frmMain
Public objPlc As PLC
...


Public Sub New()

For Each xmlNode In xmlRows
...
Pistone = New CPistone(nID, nX, nY)
...
Next

objPlc = New PLC
end sub

End Class

[colink31]

Originariamente inviato da colink31
Public Class frmMain
Public objPlc As PLC
...


Public Sub New()

For Each xmlNode In xmlRows
...
Pistone = New CPistone(nID, nX, nY)
...
Next

objPlc = New PLC
end sub

End Class

Provo a rispondermi da solo:
se istanzio objPlc = New PLC prima di generare gli oggetti Pistine (i bottoni) e passo come parametro (definito byref nel costruttore) l'oggetto objPlc alla classe costruttore del pistone?
E' giusto dal punto di vista sintattico?

Public Sub New()
objPlc = New PLC

For Each xmlNode In xmlRows
...
Pistone = New CPistone(nID, nX, nY, objPlc)
...
Next

end sub

[Pirelli72]

Sinceramente non ho capito ne quale sia il problema ne cosa serve quel codice.

In ordine non ho capito:

1- Dove dichiari l'oggetto Pistone, visto che qui crei un'istanza e basta, mi sembra.

Pistone = New CPistone(nID, nX, nY)

2- Che classe è CPistone e cosa fa.

3- Cosa contiene la classe PLC visto che la passi come ByRef

4 Prima hai scritto:

Pistone = New CPistone(nID, nX, nY)

e poi:

Pistone = New CPistone(nID, nX, objPlc)

Andando a naso è chiaro che prima di passare come Byref la classe objPlc devi prima crearne un'istanza.

[Max Mercury]

Forse ho capito che vorresti fare, ma con il ciclo che hai messo dentro il costruttore
non ti crei n oggetti cPistone, semplicemente fai puntare la tua variabile Pistone
a n istanze che crei nel for.
Dovresti crearti una collezione di cPistone e dentro il for aggiungere i pistoni che crei
(mi pare di aver capito che sono 6) alla collection tipo:

Dim Pistoni as List (of CPistone)
...
dentro il costruttore nel for istanzierai i sei pistoni:

Pistoni.add(new cPistone(nID, nX, nY))


dentro l'handler di ogni pulsante poi gestirai la chiamata al metodo della classe cPistone:


Pistoni(index).EseguiQualcosa()

Se i button sono variabili e non sempre sei, allora dentro il for ti devi costruire pure dei commandButton che poi dovrai aggiungere alla collection control della form

[colink31]

Originariamente inviato da Max Mercury
Forse ho capito che vorresti fare, ma con il ciclo che hai messo dentro il costruttore
non ti crei n oggetti cPistone, semplicemente fai puntare la tua variabile Pistone
a n istanze che crei nel for.
Dovresti crearti una collezione di cPistone e dentro il for aggiungere i pistoni che crei
(mi pare di aver capito che sono 6) alla collection tipo:

Dim Pistoni as List (of CPistone)
...
dentro il costruttore nel for istanzierai i sei pistoni:

Pistoni.add(new cPistone(nID, nX, nY))


dentro l'handler di ogni pulsante poi gestirai la chiamata al metodo della classe cPistone:


Pistoni(index).EseguiQualcosa()

Se i button sono variabili e non sempre sei, allora dentro il for ti devi costruire pure dei commandButton che poi dovrai aggiungere alla collection control della form

Ho riportato il codice sintetizzando forse un pò troppo..
Pistone in realtà è un Hashtable che contiene tutte le 99 (e non 6) istanze dei pistoni da comandare. CPistone è una classe che eredita da button e aggiunge funzionalità.

Il problema è chiamare una funzione di PLC all'interno dell'oggetto pistone.

[Pirelli72]

Se magari rispondi alle domande..!