Visual Basic 6 - Interruzione della sub con procedura ottimizzata

Forum - Visual Basic 6 - Interruzione della sub con procedura ottimizzata

dylan666 (Normal User)
Pro

Messaggi: 129
Iscritto: 08/09/2009

Postato alle 12:35
Giovedì, 28/10/2010

Ciao a tutti, anche grazie al vostro aiuto tempo fa risolsi il problema di dover interrompere una serie di operazioni utilizzando una variabile e un bottone.

All'inizio è dichiarata una variabile boleana settata su False che chiameremo "Ferma".
In pratica tra una operazione e l'altra c'è un controllo della variabile e se la variabile è settata su "True" viene eseguito un "Exit Sub"

Un bottone chiamato "Stop" serve appunto a impostare su True la variabile.

Nel mio caso le operazioni tra le quali effettuare la verifica sono tante... e vorrei evitare di mettere tra ciascuna di esse la famosa parte

Codice sorgente - presumibilmente VB.NET

If Ferma = True Then
Exit Sub
End If

Come posso ottimizzare il codice in maniera da ridurre al minimo la ripetizione di righe uguali?

Grazie del supporto che mi darete

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 15:47
Giovedì, 28/10/2010

quali operazioni?
Mostra il codice che usi

dylan666 (Normal User)
Pro

Messaggi: 129
Iscritto: 08/09/2009

Postato alle 16:44
Giovedì, 28/10/2010

Testo quotato

Postato originariamente da GrG:

quali operazioni?
Mostra il codice che usi

Si parla di cicli

Codice sorgente - presumibilmente VB.NET

Dim Ferma As Boolean
 
Private Sub Form_Load()
Ferma = False
End Sub
 
Private Sub Command1_Click()
For a = 0 To 100000
DoEvents
    If Ferma = True Then Exit Sub
        Text1.Text = a
    Next a
 
For b = 0 To 100000
DoEvents
    If Ferma = True Then Exit Sub
        Text2.Text = b
    Next b
 
For c = 0 To 100000
DoEvents
    If Ferma = True Then Exit Sub
        Text3.Text = c
    Next c
 
For d = 0 To 100000
DoEvents
    If Ferma = True Then Exit Sub
        Text4.Text = d
    Next d
End Sub
 
Private Sub btnSTOP_Click()
    Ferma = True
End Sub

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 15:04
Venerdì, 29/10/2010

ma che scopo tutti questi cicli O.o?
cmq non si può risparmiare più di tanto, al massimo puoi accoriciare la riga:
If Ferma = True Then Exit Sub

creando una sub...

private sub stop()
If Ferma = True Then Exit Sub
end sub

così risparmi qualche carattere... scrivendo semplicemente:
call stop

dylan666 (Normal User)
Pro

Messaggi: 129
Iscritto: 08/09/2009

Postato alle 16:42
Venerdì, 29/10/2010

Testo quotato

Postato originariamente da GrG:
al massimo puoi accoriciare la riga:
If Ferma = True Then Exit Sub

creando una sub...

private sub stop()
If Ferma = True Then Exit Sub
end sub

così risparmi qualche carattere... scrivendo semplicemente:
call stop

Ma in quel modo non esco dalla Sub chiamata "Stop" inceve che da quella dove ho messo il call?