Questo aiuterà?
bStop As Boolean
Public Sub Form_Open()
Me.Show
Wait 0.25
Start
End
Public Sub Start()
Dim iInt As Integer
Do
Inc iInt
Wait 0.5
Print iInt
If bStop = True Then Return
Loop
End
Public Sub Form_Close()
bStop = True
End
Quit interrompe sempre un programma, ma quasi mai è una buona soluzione per i programmi grafici, perché lascia in giro parecchie scorie.
Infatti la guida ufficiale consiglia l'uso dell'istruzione "Quit" per i programmi a riga di comando.
Un esempio semplice può essere quello di interrompere l'Evento "Application_Read()", consentendo al programma di chiudersi:
Private i As Integer
Private bo As Boolean
Public Sub Main()
Repeat
Inc i
Print i
Wait 0.3
Until bo == True
Quit ' Fa sì che il programma sia terminato
End
' Cliccando sul tasto "Invio" della tastiera, si scatena questo Evento:
Public Sub Application_Read()
bo = True
End
Poiché estremamente radicale, a mio avviso Quit va usato solo come "extrema ratio" per chiudere un programma altrimenti non terminabile.
Ripeto comunque la necessità che kicco mostri il codice (o una riproduzione essenziale delle routine e dei comandi fondamentali del codice originario), giacché - diversamente - alla sua domanda sulla eventuale esistenza di un "comando unico", se posta con finalità didattica, la soluzione di cogier può essere soddisfacente.
Sappiamo, però, che i cicli posseggono soluzioni proprie, "condizionali", previste appunto per soddisfare la richiesta di uscita; e di norma andrebbero usate quelle.
Infatti in un programma grafico l'uscita dal ciclo, effettuata mediante le previste modalità "condizionali" e causata dalla chiusura arbitraria della finestra principale del programma, non pregiudica in via generale il termine del programma medesimo, rendendo così inutile ed eccessivo l'uso dell'istruzione "Quit":
Private b As Byte
Public Sub Form_Open()
Me.Show
Ciclo()
End
Private Procedure Ciclo()
Repeat
Inc b
Print b
Wait 0.3
Until b == 100
End
Public Sub Form_Close() ' Chiudendo il Form, si scatena questo Evento
b = 100
End
In vero, l'uso di "Return", già proposto da cogier, risulta necessario, qualora dopo il ciclo vi siano altre righe di comando che in caso di uscita arbitraria dal ciclo, ottenuta con la chiusura forzata del Form, si intenda non far processare (quindi da saltare).
Ciò conferma che l'uso dell'istruzione "Return" determina, non solo - nel caso di specie - l'uscita dal ciclo, ma anche l'abbandono immediato e definitivo della sub-routine, ove essa è posta.
A tal riguardo si provino i seguenti codici.
Senza "Return" nel ciclo:
Private b As Byte
Public Sub Form_Open()
Me.Show
Ciclo()
End
Private Procedure Ciclo()
Repeat
Inc b
Print b
Wait 0.3
Until b == 100
Print "Riga di comando successiva al ciclo"
End
Public Sub Form_Close()
b = 100
End
Con "Return" nel ciclo per l'uscita immediata e definitiva dalla sub-routine:
Private b As Byte
Public Sub Form_Open()
Me.Show
Ciclo()
End
Private Procedure Ciclo()
Repeat
Inc b
Print b
If b > 100 Then Return
Wait 0.3
Until b == 100
Print "Riga di comando successiva al ciclo"
End
Public Sub Form_Close()
b = 200
End
Se non inserisci qui un semplice codice che ripropone in modo essenziale e breve le routine e le righe di comando fondamentali, non si potrà capire perfettamente la questione da te posta, né cercare una soluzione.
Eccolo:
Private fFlag As Boolean
Public Sub BtFalse_Click()
fFlag = False
End
Public Sub BtTrue_Click()
fFlag = True
End
Public Sub BtStart_Click()
Dim i As Integer
Dim ia As Integer
For i = 0 To 200
Print "Ciclo Principale " & i
For ia = 1 To 30
If fFlag = True Then
Break
fFlag = False
Endif
Wait 1
Next
If fFlag = False Then
Print "Scaduti i 30s"
Endif
fFlag = False
Next
fFlag = False
End
Rispondo al quesito iniziale: Esiste un comando specifico che permetta di interrompere l'esecuzione di un ciclo al di fuori del ciclo che gestisce l'evento stesso?
Risposta:NO!
La mio domanda nasceva dal fatto che chiudendo un programma che al suo interno prevede un ciclo che può durare anche 40s, si chiudeva tutto, la seriale, tutti i Form, ma il programma rimaneva "appeso" perchè il ciclo di 40s era ancora attivo.
Ho risolto ponendo dopo il Me.close ( Nel Form_open ho attivato Application.MainWindow = Me) l'istruzione Quit che interrompe l'Event Loop e quindi anche la subroutine incriminata permettendo la chiusura pulita.
Beh, vista la tua soluzione avresti dovuto rispondere si è Quit.
Quit interrompe sempre un programma, ma quasi mai è una buona soluzione per i programmi grafici, perché lascia in giro parecchie scorie.
Mi sembra strano che la tua console non migugni...
:ciao:
Lo so che Quit non va usato per uscire dai programmi grafici.
Ho usato infatti Me.close dopo aver messo Application.MainWindow = Me nel Form_open.
Solo dopo ho usato Quit
Magari potrei mettere un wait tra i due per attendere che tutti i Form siano chiusi correttamente.
Public Sub Form_Close()
....
....
Me.close
Quit
End
Per fare ciò, deve assicurarsi che il controllo del processo esca dai due cicli, previsti dalla routine "BtStart_Click()".
Riprendo il codice esemplificativo di kicco, tentando di risolvere il problema con l'uso delle modalità "condizionali", previste dagli specifici cicli, evitando quindi l'uso della ghigliottina "Quit".
Private fFlag As Boolean
Private i As Integer
Public Sub BtTrue_Click()
fFlag = True
End
Public Sub BtStart_Click()
Dim ia As Integer
Repeat
Print "Ciclo Principale " & i
ia = 1
While (ia < 30) And (fFlag == False)
Wait 1
Inc ia
Wend
If fFlag = False Then Print "Scaduti i 30s\n"
fFlag = False
Inc i
Until i > 200
Print "Uscito dal ciclo principale"
End
Public Sub BtExit_Click()
Me.Close
End
Public Sub Form_Close()
fFlag = True
i = 255
End
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:
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.
:ciao:
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:
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...