🚀 go-pugleaf

Alan1 wrote:

> 29/01/03
> Ho creato un piccolo applicativo per mio uso, ma quando il programma esegue
> una divisione con un numero inferiore a 1
> mi da "Errore run-time '11': Divisione per zero"
> So che esiste una gestione degli errrori da scrivere nella routine del
> calcolo, ma non so come scriverla. Mi date una dritta per piacere?
> Grazie a tutti
> Alan1
> 
> 
> 
> 
> 
>
Private Sub divisione_sicura()
 
On Error GoTo gestione_errori 

'attivo la gestione degli errori
'seplicemente faccio saltare l'esecuzione
'alla etichetta gestione_errori

a = 1 / 0
'1/0 genera l'errore 11 (divisione per zero)

MsgBox "Ok possiamo continuare", vbInformation, "Et voila'"
'dopo aver avvisato dell'errore ricomincero' da questa riga

on error goto 0
'disattivo il gestore degli errori
'ora sono al sicuro

Exit Sub
'per saltare il gestore degli errori


gestione_errori:
    If Err.Number = 11 Then
 
        MsgBox "Attento, non si puo' dividere per zero!!",
vbInformation, "EHI!"
        Resume Next
'riprendo l'esecuzione dalla riga successiva a quella che ha generato
errore.
    End If