Come Interrompere l'esecuzione di una Sub

[Gianluigi]

Quello che mi lascia un po perplesso nel codice di kicco è che pur essendoci una sola finestra, abbia inserito questo codice:

Codice: [Seleziona]

Public Sub Form_Open()

  Application.MainWindow = Me

End

kicco non è che ne stai fraintendendo il significato?

È la stessa cosa che se tu avessi altre due finestre aperte (Form1 e Form2) e scrivessi in FMain:

Codice: [Seleziona]

Public Sub Form_Close()

  Form1.Close
  Form2.Close

End

Anche se può apparire banale, faccio un'altra precisazione: il codice di vuott deve stare nell'evento Close della finestra che contiene il ciclo.

 

[vuott]

...il codice di vuott deve stare nell'evento Close della finestra che contiene il ciclo.

Senza specifica e diversa indicazione ho ritenuto che il codice di kicco prevedesse un solo Form.

[kicco]

Quello che mi lascia un po perplesso nel codice di kicco è che pur essendoci una sola finestra, abbia inserito questo codice:

Codice: [Seleziona]

Public Sub Form_Open()

  Application.MainWindow = Me

End

kicco non è che ne stai fraintendendo il significato?

È la stessa cosa che se tu avessi altre due finestre aperte (Form1 e Form2) e scrivessi in FMain:

Codice: [Seleziona]

Public Sub Form_Close()

  Form1.Close
  Form2.Close

End

Anche se può apparire banale, faccio un'altra precisazione: il codice di vuott deve stare nell'evento Close della finestra che contiene il ciclo.

 

Nel Programma reale ci sono altre Form e uso proprio quel trucco che ho imparato da te per chiuderle tutte.
Nel caso dell'esempio ovviamente non sarebbe utile.

[kicco]

Ho corretto la routine del Test1 per renderla più simile all'originale aggiungendo un Wait 5.
Questo perchè applicando sostanzialmente l'esempio di cogier e controllando il flag che forza il Return sia del ciclo principale che dei cicli interni a quello principale, durante quel wait la routine rimane insensibile fino allo scadere dello stesso.
Vedi Test2_a.
Ho dovuto, per risolvere il problema usare al posto del Wait 5, cinque cicli For con un tempo di attesa di 1s controllando il flag ad ogni ciclo e quindi l'eventuale Return.
Vedi Test2_b.
Certo con Quit si risolve tutto anche se con effetto "ghigliottina" con messaggi vari in consolle che sostanzialmente, correggimi Gianluigi, indicano solo che un ciclo era ancora in essere! Non potremmo considerarlo "fisiologico"?
Ti prego, parlami ancora dopo questa affermazione! 

[Gianluigi]

Ho corretto la routine del Test1 per renderla più simile all'originale aggiungendo un Wait 5.
Questo perchè applicando sostanzialmente l'esempio di cogier e controllando il flag che forza il Return sia del ciclo principale che dei cicli interni a quello principale, durante quel wait la routine rimane insensibile fino allo scadere dello stesso.
Vedi Test2_a.
Ho dovuto, per risolvere il problema usare al posto del Wait 5, cinque cicli For con un tempo di attesa di 1s controllando il flag ad ogni ciclo e quindi l'eventuale Return.
Vedi Test2_b.

E questo nuovo codice dove lo hai nascosto?
 

Certo con Quit si risolve tutto anche se con effetto "ghigliottina" con messaggi vari in consolle che sostanzialmente, correggimi Gianluigi, indicano solo che un ciclo era ancora in essere! Non potremmo considerarlo "fisiologico"?

Ti prego, parlami ancora dopo questa affermazione! 

     

[kicco]

E questo nuovo codice dove lo hai nascosto?

L'ho allegato adesso al Post! 

[Gianluigi]

E questo nuovo codice dove lo hai nascosto?

L'ho allegato adesso al Post! 

Scaricato, più tardi ci do un'occhiata 

[Gianluigi]

Ho dovuto, per risolvere il problema usare al posto del Wait 5, cinque cicli For con un tempo di attesa di 1s controllando il flag ad ogni ciclo e quindi l'eventuale Return.
Vedi Test2_b.

Perché secondo te il test b funziona?

Hai provato a chiudere il form dal pulsante della barra?

Qui ci vorrebbe proprio una gif di vuott   

[Gianluigi]

Sarò stupido ma non mi è molto chiaro cosa rappresenta la bandierina effe e perché possa essere governata dai pulsanti.

Comunque se vuoi che funzioni, togli il codice da open e  BtExit e mettilo in close così, come ti era già stato suggerito:

Codice: [Seleziona]

Public Sub Form_Close()

  Application.MainWindow = Me
  bFlag = True

End

Public Sub BtExit_Click()

  Me.close

End

Poi se vuoi che fFlag cambi in false spostalo da dopo il Break e mettilo prima.

Comunque mi sembrava più stimolante il codice di vuott...

[vuott]

Comunque mi sembrava più stimolante il codice di vuott...

[kicco]

Sarò stupido ma non mi è molto chiaro cosa rappresenta la bandierina effe e perché possa essere governata dai pulsanti.

Tieni conto che il codice è una riduzione di una routine "reale". La bandierina effe rappresenta un evento esterno provocato da dati seriali.