funzioni e procedure

uso di function con formato diverso
dati prefissati da codice

per vedere ppt

funzio1
due pulsanti(funzione,cancellare),una listbox1

Option Explicit

Private Sub funzione1_Click()
Dim a As Integer
Dim b As Integer
a = 50
b = 60
ListBox1.AddItem (sommati(a, b)) 'chiama funzione con dati prefissati a,b
End Sub


Private Sub cancellare_Click()
ListBox1.Clear
End Sub


Public Function sommati(a As Integer, b As Integer) As Integer 'funzione
Dim somma As Integer
somma = a + b 'esegue funzione
sommati = somma
End Function

dati inseriti da tastiera

per vedere ppt

funzio2
due pulsanti(funzione1,cancellare)
una listbox1
due textbox(1,2)
due label(inserire testo)


Option Explicit

Private Sub funzione1_Click()
Dim a As Integer
Dim b As Integer
a = TextBox1.Text
b = TextBox2.Text
ListBox1.AddItem (sommato(a, b)) ' chiama funzione con dati da inserire
cancellare.SetFocus
End Sub


Public Function sommato(a As Integer, b As Integer) As Integer 'funzione
Dim somma As Integer
somma = a + b 'esegue funzione
sommato = somma
End Function

Private Sub cancellare_Click()
ListBox1.Clear
TextBox1 = ""
TextBox2 = ""
End Sub

uso di procedure

per vedere ppt

funzio4
due pulsanti(procedura1,cancellare)
due textbox(1,2)
una listbox1
due label(inserire testo)


Option Explicit

Private Sub procedura1_Click()
Dim x As Integer
Dim y As Integer
x = TextBox1.Text
y = TextBox2.Text
Call sommare(x, y)
End Sub


Public Sub sommare(a As Integer, b As Integer)
Dim somma As Integer
somma = a + b
ListBox1.AddItem ("somma = " & somma)
ListBox1.AddItem ("------------")
End Sub

Private Sub cancellare_Click()
TextBox1.Text = ""
TextBox2.Text = ""
ListBox1.Clear
TextBox1.SetFocus
End Sub

per vedere ppt

funzio3

creare pulsante(procedura1) e lixtbox1

Option Explicit

Private Sub procedura1_Click()
Call sommare(10, 20, 30)
End Sub

Public Sub sommare(a As Integer, b As Integer, c As Integer)
Dim somma As Integer
somma = a + b + c
ListBox1.AddItem ("somma = " & somma)
End Sub