numerica5

esercitazione a livello didattico elementare con sintassi visual basic su powerpoint
inserimento fattore moltiplicatore e nuero da moltiplicare
indicazione di fine inserimento con lo 0
chiamata di procedura per eseguire calcolo e visualizzare risultato

Option Explicit
Dim valore As Integer
Dim testo As String
Dim fattore As Integer


Private Sub CommandButton1_Click()
Rem richiede inserimento fattore e altro intero da moltiplicare
Rem possibile cambiare fattore e moltiplicando
ListBox1.AddItem (TextBox1.Text)
valore = TextBox1.Text
testo = ""
fattore = TextBox2
Rem chiamata di procedura per eseguire calcolo
Rem fino a indicazione di termine usando 0
Call opera(valore, testo, fattore)
Rem valore per ottenere fine inserimento
If TextBox1.Text = 0 Then
testo = "fine immissione"
Call opera(valore, testo, fattore)
End If
TextBox1.Text = ""
CommandButton1.SetFocus
TextBox1.SetFocus
End Sub

Public Sub opera(valore As Integer, testo As String, fattore As Integer)
ListBox2.AddItem ((valore * fattore) & (testo))
End Sub

Private Sub CommandButton2_Click()
Rem cancella tutto
ListBox1.Clear
ListBox2.Clear
TextBox2.SetFocus
TextBox2 = ""
TextBox1 = ""
End Sub

vedi numerica5.ppt