Funzione che non esegue le istruzioni

Ciao a tutti.
Vengo al sodo del problema,dunque,dopo inserito dei numeri nella textbox faccio eseguire una conversione in numero intero e per evitare che il numero inserito sia minore a 1 o maggiore a 90
attivo la funzione per controllare se il numero inserito sia tra 1 e 90.
Di seguito il codice di inserimento nella textbox:

 Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
        If TextBox2.Text = String.Empty Then ' se è vuota la textbox passo alla successiva textbox
            Exit Sub
        Else
         Dim ritorno As Boolean = True
            intero = Convert.ToInt32(TextBox2.Text)
            ritorno = controlla(intero)  ' qui la funzione  controlla con il parametro
            If ritorno = False Then      ' se non è tra 1 e 90 messaggio di avviso
                MessageBox.Show("tra 1 e 90")
            End If
            myarray(0) = intero  ' qui è irrilevante al problema in quanto mi serve per ulteriore elaborazione
        End If
    End Sub

e qui il codice della funzione:

 Private Function controlla(ByVal numero) As Integer
        If numero < 1 Or numero > 90 Then
            Return False
        End If
    End Function

ora,se provo a mettere nella textbox2 il numero 11 la funzione mi ritorna false e non riesco a capire perché in quanto il numero 11 è nel range tra 1 e 90.
Sbaglio qualcosa che mi sfugge?

Secondo me cè qualche problema con la dichiarazione della funzione

Originariamente inviato da sistemista

controlla(ByVal numero) As Integer

Conrolla (byval Numero as integer) as boolean

In più manca il ritorno con true quindi l' else nella funzione controlla

Conrolla (byval Numero as integer) as boolean

Già provato non funziona lo stesso e poi in fase di debug il parametro numero riporta correttamente il numero 11 e successivamente il controllo if restituisce false in caso non sia nei parametri quindi non vedo il motivo di ritornare true se il numero è corretto nel range.

if numero < 1 or  numero >90 then....

e qui non deve entrare nella if condizionale in quanto numero non è ne minore ad 1 e ne maggiore a 90
quindi non entrando nella if non deve ritornare false.

Comparuzzo ... mi sa che devi limitarti col vino buono ...

    Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
        If TextBox2.Text = String.Empty Then
            Exit Sub
        Else
            Dim intero As Int32 = Convert.ToInt32(TextBox2.Text)
            Dim inRange As Boolean = controlla(intero)

            If Not inRange Then
                MessageBox.Show("tra 1 e 90")
                TextBox2.Focus()
            Else
                ' Valore ok
            End If
        End If
    End Sub

    Private Function controlla(ByVal numero) As Boolean
        Dim res As Boolean = True
        If numero < 1 Or numero > 90 Then res = False
        Return res
    End Function

Scusa se dissento.
Ma in linea torica di programmazione la funzione così come dichiarata restituiesce un intero e non un booleano.

Quindi quando la chiami ti da un numero (che poi in molti sistemi e linguaggi un booleano sia rappessentato con un numero poco importa)

Il fatto che non ci sia l' else sinifica che in caso ri valore nel range il valore di ritrno è indefinito quindi un qualsiasi numero interno.

Di per se la funzione non da errori ma il suo funzionamente dal prunto di vista della programmazione puramente teorica non è quello per cui è stata pensata / progettata.

Comparuzzo,riguardo al vino buono hai perfettamente ragione ma che vuoi con questi periodi...
intanto grazie, il codice ora è a posto ma non capisco il perché entra nella if anche se il parametro è corretto...

In quale if?

nella funzione controlla.

La if va ovviamente valutata ma non viene eseguita se la condizione non è vera ...

Buonasera e tanti auguri a tutti:

propongo un esercizio stilistico che poco ha a che fare con la risposta ma forse aiuta a risolvere parte del problema (in particolare l'ultima):

Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
   
        Dim Value as string = TextBox2.Text

	If Value = String.Empty OrElse Not IsNumeric(Value) Then  Exit Sub 
   
        If controlla(Convert.ToInt32(TextBox2.Text)) Then ' * E' più logico
            ' * Valore OK
        Else
            MessageBox.Show("tra 1 e 90")
            TextBox2.Focus()
        End If
   
End Sub
 
Private Function controlla(ByVal numero) As Boolean
    Return   (numero > 0 Or numero < 91)                 ' * Riga rieditata (grazie sspintux).
End Function

In questo modo assicuri che il valore passato sia un numero, non devi computare inutilmente una conversione del risultato ('NOT Controlla' non esiste più) e il codice è più leggibile.