pro28

gestione PROCEDURE PASCAL VBA VISUALBASIC

PASCAL

program pro28;
uses crt;
var a,b,c,d:integer;

(* procedura da chiamare *)
Procedure calcola(p,q:integer);
begin
 writeln('somma... =',p+q);
 writeln('prodotto =',p*q);
end;

begin
clrscr;
 a:=10;
 b:=20;
 c:=30;
 d:=40;
 calcola(a,b);
 writeln('---------------');
 calcola(c,d);
readln;
end.

RUN e visualizza

somma... =30
prodotto =200
---------------
somma... =70
prodotto =1200

VBA per EXCEL creare PULSANTE per istruzioni

Private Sub CommandButton1_Click()
'chiamata di procedura
Call calcolare(10, 20)
End Sub


Public Sub calcolare(a As Integer, b As Integer)
Dim somma As Integer
Dim prodotto As Integer
somma = a + b
prodotto = a * b
Cells(1, 2) = somma
Cells(2, 2) = prodotto
End Sub

**************************************************************

Private Sub CommandButton1_Click()
Dim b As Integer
Dim a As Integer
a = Cells(1, 4)
b = Cells(1, 5)
Call calcolare(a, b)
End Sub

Public Sub calcolare(a As Integer, b As Integer)
Dim somma, prodotto As Integer
somma = a + b
prodotto = a * b
Cells(2, 2) = somma
Cells(3, 2) = prodotto
End Sub

creare PULSANTE per istruzioni e inserire numeri in D1,E1:cliccare

per avere risultato

VISUAL BASIC

Private Sub CommandButton1_Click()
Dim b As Integer
Dim a As Integer
a = label1.caption
b = label2.caption
Call calcolare(a, b)
End Sub

Public Sub calcolare(a As Integer, b As Integer)
Dim somma, prodotto As Integer
somma = a + b
prodotto = a * b
label3.caption = somma
label4.caption=prodotto
End Sub

creare PULSANTE,4 label per inserire e visualizzare dati

inizio