variabile boolean

accetta solo valori inferiori a quello indicato (10):visualizza messaggio MsgBox
se valore accettabile lo passa alla procedura con Call esegue(a,n)

creare due pulsanti(inserire testo esplicativo), una textbox1 ( rinominata numero) , tre label (inserire testo)

Private Sub CommandButton1_Click()
Rem accetta solo numero inferiore a valore indicato 10
Dim errore As Boolean
Dim n As Integer
n = numero.Text
numero.SetFocus
If n > 10 Then errore = True
If errore Then
MsgBox "scrivi numero inferiore a 10"
numero = ""
numero.SetFocus
Else
Call esegue(2, n)
End If
End Sub

Private Sub esegue(a As Integer, b As Integer)
Rem esegue la somma 2+numero inserito
Dim somma As Integer
somma = a + b
Label2.Caption = somma
End Sub

Private Sub commandbutton2_Click() 'cancellare tutto
numero.Text = ""
Label2 = ""
End Sub

altro esempio.ppt vero2

come precedente, con due verifiche in successione:accetta solo interi , inferiori a 10
(per numero decimale usare segno virgola 4,5 , non 4.5 che verrebbe considerato intero)

Private Sub CommandButton1_Click()

Rem accetta solo numeri interi e minori di 10
Dim errore As Boolean
Dim errore1 As Boolean
Dim n As Integer
n = numero.Text
If numero.Text <> Int(numero.Text) Then errore = True
If errore Then
MsgBox "scrivi numero intero"
numero.SetFocus
End If
If numero.Text > 10 Then errore1 = True
numero = ""
If errore1 Then
MsgBox "scrivi numero < di 10"
numero.SetFocus
End If
If errore = False And errore1 = False Then
Call esegue(2, n)
End If
End Sub

Private Sub esegue(a As Integer, b As Integer)
Rem esegue la somma 2+numero inserito
Dim somma As Integer
somma = a + b
Label2.Caption = somma
End Sub

Private Sub commandbutton2_Click() 'cancellare tutto
numero.Text = ""
Label2 = ""
End Sub

vero3.ppt accetta solo numeri interi o decimali (usare numeri inferiori a 1000...)
oggetti come in precedente

Private Sub CommandButton1_Click()
Rem uso di controllo carattere da tastiera
Rem accetta solo numeri
Dim errore As Boolean
Dim n As Integer
If IsNumeric(numero.Text) = False Then errore = True
If errore Then
MsgBox "scrivere valore numerico"
numero.SetFocus
numero.Text = ""
End If
If errore = False Then
n = numero.Text
Call esegue(2, n)
End If
End Sub

Private Sub esegue(a As Integer, b As Integer)
Rem esegue la somma 2+numero inserito
Dim somma As Integer
somma = a + b
Label2.Caption = somma
End Sub

Private Sub commandbutton2_Click() 'cancellare tutto
numero.Text = ""
Label2 = ""
End Sub

vero4.ppt accetta solo caratteri letterali
oggetti come precedente

Private Sub CommandButton1_Click()
Rem uso di controllo carattere da tastiera
Rem accetta solo caratteri
Dim errore As Boolean
If IsNumeric(numero.Text) = True Then errore = True
If errore Then
MsgBox "scrivere carattere"
numero.SetFocus
numero.Text = ""
End If
If errore = False Then
Call esegue(2, 5)
End If
End Sub

Private Sub esegue(a As Integer, b As Integer)
Rem esegue la somma 2+5
Dim somma As Integer
somma = a + b
Label2.Caption = somma
End Sub

Private Sub commandbutton2_Click() 'cancellare tutto
numero.Text = ""
Label2 = ""
End Sub