numerica6

esercitazione a livello didattico elementare con sintassi visual basic su powerpoint
inserimento di due numeri positivi e controllo se lo sono
chiamata di procedura e di due funzioni per eseguire calcolo con due numeri inseriti

Option Explicit


Private Sub attivare_Click()
Rem accetta solo valori positivi (non troppo grandi:integer)
Dim x As Integer
Dim y As Integer
x = TextBox1.Text
verifica1 (x)
y = TextBox2.Text
verifica2 (y)
Call somma(x, y) ' se condizioni vere richiama procedura
End Sub

Public Sub somma(a As Integer, b As Integer)
Dim sommati As Integer
sommati = a + b
ListBox1.AddItem ("somma dei due numeri= " & sommati)
End Sub

Public Function verifica1(a As Integer) As Integer
Dim errore As Boolean
If a < 0 Then
errore = True
MsgBox ("deve essere positivo:riprova")
TextBox1 = ""
TextBox1.SetFocus
End If
End Function

Public Function verifica2(a As Integer) As Integer
Dim errore As Boolean
If a < 0 Then
errore = True
MsgBox ("deve essere positivo:riprova")
TextBox2 = ""
TextBox2.SetFocus
End If
End Function

Private Sub cancellare_Click()
TextBox1 = ""
TextBox2 = ""
End Sub

vedi numerica6.ppt