[VB] A proposito di classi e strutture

[DilanDog]

Se qualcuno come me programma da un po' di tempo in Basic e derivati conoscerà bene il concetto di struttura, o "tipi" (type), non fosse altro per il salvataggio dei dati sui cosiddetti files ad accesso "random" in cui ogni record corrisponde ad una struttura.
Ora che sto introducendo sempre più la programmazione tramite classi in vecchi progetti che facevano largo uso di strutture ed accesso ai dati tramite la modalità precedentemente descritta, mi ritrovo con un problema diciamo fastidioso: le strutture di dati non si possono passare come argomenti ad una procedura di classe nè si possono avere associate ad una variabile di ritorno da una funzione. L'unico modo per avere accesso dentro ad una classe è quello di rendere la struttura e relativa variabile associata visibile a livello globale

Esempio:

Codice: Seleziona tutto

'Modulo globale
TYPE Struct
a as integer
b as integer
c as integer
END TYPE

'Funzione all'interno di una classe
Public function MiaFunc() as Struct '-> Ritorna errore
public Sub MiaSub(St as Struct) '-> Ritorna errore


Questa cosa purtroppo costringe a replicare tutte le variabili di una struttura con una classe che espone altrettante proprietà, il che oltre ad essere un lavoro "in più", rallenta notevolmente l'esecuzione quando si caricano centinaia di record da un file binario utilizzando appunto un'array di strutture.

Solo io ho questo problema? Non vi è mai capitato di dover incrociare classi e variabili a struttura? Come avete risolto? Ma soprattutto....sono riuscito a spiegarmi???

[Silver Black]

All'interno di una classe non funziona, sicuro? perché all'esterno funziona perfettamente il passaggio di una variabile RECORD...

(ma non dovevi passare a Delphi per la OOP? Anche perché se stai riscrivendo tutto tanto vale...)

[DilanDog]

All'interno di una classe non funziona, sicuro? perché all'esterno funziona perfettamente il passaggio di una variabile RECORD...

Si, esce l'errore "Only public user defined types defined in public object modules can be used as parameters..." ecc. ecc. che tra l'altro letteralmente tradotto vorrebbe dire che solo gli UDT definiti in moduli pubblici possono essere passati come parametri....e in effetti quelli che tento di passare lo sono! Peccato che non funziona lo stesso Ho letto altre lamentele dello stesso tipo su altre community.

(ma non dovevi passare a Delphi per la OOP? Anche perché se stai riscrivendo tutto tanto vale...)

Magari...purtroppo sto cercando di imparare Delphi per mio interesse personale, ma sul lavoro la politica aziendale prevede "only visual basic forever", e non ti dico per far accettare al titolare un certo tipo di programmazione un po' più strutturata che fatica ogni volta! Fosse per lui scriverebbe ancora tutto in un'unica pagina con gosub e goto a non finire! Ed ogni volta che "perdo tempo" a riscrivere pezzi di codice senza aggiungere nulla di nuovo ma semplicemente per mettere ordine prima di poter finalmente eseguire la "vera" modifica richiesta me lo trovo dietro a chiedere "che stai a fa?"
Giusto ieri stava scrivendo un programmino per automatizzare il suo plastico di trenini (eh, il duro lavoro degli imprenditori.... ) e mi ha chiesto come si faceva ad inserire in un ciclo for: tentando di spiegargli che forse era meglio strutturare il tutto in modo diverso, utilizzando un timer di sistema, mi ha detto "no, no, no, usando un ciclo do:loop con un timer che esce quando sono passati i dieci secondi!"
E tu vuoi parlare di Delphi e programmazione ad oggetti ad un personaggio del genere???
Purtroppo qui la filosofia è "intanto che funzioni, poi si vedrà". E intanto io sto imparando Delphi per migrare verso nuovi orizzonti..... Ma nel frattempo mi serve la pagnotta e quindi faccio quel che posso con VB

[Silver Black]

Si, esce l'errore "Only public user defined types defined in public object modules can be used as parameters..." ecc. ecc. che tra l'altro letteralmente tradotto vorrebbe dire che solo gli UDT definiti in moduli pubblici possono essere passati come parametri....e in effetti quelli che tento di passare lo sono! Peccato che non funziona lo stesso Ho letto altre lamentele dello stesso tipo su altre community.

Ma concordi con me che con le sub/function normali funziona? perché a me funzioan.

Magari...purtroppo sto cercando di imparare Delphi per mio interesse personale, ma sul lavoro la politica aziendale prevede "only visual basic forever"

Forever? Ma è MS che lo ha già abbandonato, state sviluppando con una cosa MORTA. Questo lo sa il tuo capo?

Purtroppo qui la filosofia è "intanto che funzioni, poi si vedrà". E intanto io sto imparando Delphi per migrare verso nuovi orizzonti..... Ma nel frattempo mi serve la pagnotta e quindi faccio quel che posso con VB

Fai bene, almeno se ti prepari con Delphi avrai un paracadute semmai un giorno dovessi saltare dall'aereo in caduta libera...

P.S.
Comunque io lavoro in proprio e non ho un capo... aaah sapessi come si sta bene!!!

[DilanDog]

Ma concordi con me che con le sub/function normali funziona? perché a me funzioan.

Si, nelle sub e function normali funziona regolarmente, l'errore esce se la struttura è effettivamente privata di quel modulo, giustamente. L'incongruenza è solamente nelle procedure all'interno delle classi

Forever? Ma è MS che lo ha già abbandonato, state sviluppando con una cosa MORTA. Questo lo sa il tuo capo?

Si, ma la cosa non gli tange, nel senso che l'importante è quello che vede il cliente non quello che c'è dietro, e al cliente che sia fatto in VB o in "cipperimerlo" poco gli importa. Poi che nel medio/lungo termine ci si metta il triplo del tempo e che sia maggiore il rischio di errore non è importante, no? Sicuramente prima o poi si troverà ad un punto di non ritorno, ma per come stanno le cose e per il nostro tipo di mercato credo che vada in pensione prima di arrivarci E' principalmente un problema di mentalità sbagliata, e la testa non gliela cambia nessuno.

P.S.
Comunque io lavoro in proprio e non ho un capo... aaah sapessi come si sta bene!!!

....work in progress

[Silver Black]

Si, nelle sub e function normali funziona regolarmente, l'errore esce se la struttura è effettivamente privata di quel modulo, giustamente. L'incongruenza è solamente nelle procedure all'interno delle classi

Ah, ok, almeno questo è un punto saldo.
Un altro punto a sfavore della OOP in Vb insomma...

Si, ma la cosa non gli tange, nel senso che l'importante è quello che vede il cliente non quello che c'è dietro, e al cliente che sia fatto in VB o in "cipperimerlo" poco gli importa. Poi che nel medio/lungo termine ci si metta il triplo del tempo e che sia maggiore il rischio di errore non è importante, no?

Lungimirante...

....work in progress

Grande!!!