procedura1

uso di procedura ( e funzione ) con passaggio di parametri

per vedere ppt

procede1
chiamata di procedura con passaggio valori a,b
inseriti da tastiera in textbox1, textbox2
calcolare somma a+b e prodotto a*b
eseguire quadrato a*a e cubo b*b*b
assegnare valore massimo 100 e 30 se numeri
inseriti superano il limite indicato(100 e 30)
(avviso con MsgBox)
cancellare e inserire nuovi valori

creare due pulsanti(inserire testo)
creare due textbox(nome automatico)
creare una listbox1(nome automatico)
creare otto label(nome automatico)

codice da copiare e incollare

Private Sub CommandButton1_Click()
Dim b As Integer
Dim a As Integer
a = TextBox1
If a > 100 Then
a = 100
MsgBox ("massimo per a = 100")
End If
b = TextBox2
If b > 30 Then
b = 30
MsgBox ("massino per b = 30")
End If
Call calcolare(a, b) ' chiamata di procedura con passaggio valori a , b '
Call eseguire(a, b) ' chiamata di procedura con passaggio valori a,b'
End Sub

Public Sub calcolare(a As Integer, b As Integer)
Dim somma, prodotto As Integer
somma = a + b
prodotto = a * b
Label1.Caption = somma
Label2.Caption = prodotto
End Sub

Public Sub eseguire(a As Integer, b As Integer)
Dim quadrato, cubo As Integer
quadrato = a * a
cubo = b * b * b
ListBox1.AddItem ("a*a = " & quadrato)
ListBox1.AddItem ("b*b*b = " & cubo)
End Sub

Private Sub commandbutton2_Click() ' cancellare tutto'
TextBox1 = ""
TextBox2 = ""
Label1 = ""
Label2 = ""
ListBox1.Clear
End Sub

uso di funzione con passaggio di parametri

per vedere ppt

Option Explicit

funzione1
esegue somma su due valori assegnati
a,b prefissati...x,y inseriti da tastiera
fornisce risultato in label1 e label4
cancellare tutto con pulsante 

creare due pulsanti(inserire testo)per attivare,cancellare
creare due textbox(nome automatico)per x,y
creare sei label (nome automatico)per legenda e stampa somma(1,4)

codice da copiare e incollare

Private Sub CommandButton1_Click()
Rem uso di funzione con dati prefissati o da inserire
Dim a As Integer
Dim b As Integer
Dim x As Integer
Dim y As Integer
a = 10
b = 20
Label1.Caption = esegue(a, b) 'attiva funzione per calcolo con a,b prefissati'
x = TextBox1
y = TextBox2
Label4.Caption = esegue(x, y) 'attiva funzione per calcolo con x,y inseriti'
End Sub

Public Function esegue(a As Integer, b As Integer) 'funzione da richiamare'
Dim somma As Integer
somma = a + b ' somma i due valori a+b oppure x+y'
esegue = somma 'fornisce somma eseguita'
End Function

Private Sub commandbutton2_Click() 'cancella tutto'
Label1 = ""
TextBox1 = ""
TextBox2 = ""
Label4 = ""
End Sub