pro5
gestione numeri solo se positivi
TURBO PASCAL listato programma
program controlla; uses crt; var a,b,somma:integer; begin clrscr; write('positivo=');readln(a); write('positivo=');readln(b); if (a<=0) or (b<=0) then writeln('devono essere positivi') else begin somma:=a+b; writeln('somma=',somma); end; readln; end.
RUN per visualizzare positivo=8 positivo=7 somma=15
VBA per EXCEL
creare PULSANTE e inserirvi le istruzioni
ATTIVA con istruzioni |
Private Sub CommandButton1_Click() 'somma due numeri solo se sono positivi Dim a, b, somma As Integer a = Cells(2, 2) b = Cells(3, 2) If a <= 0 Then MsgBox "solo numero positivo", vbCritical a = 1 Cells(2, 2) = a If b <= 0 Then MsgBox "solo numero positivo", vbCritical b = 1 End If Cells(3, 2) = b End If somma = a + b Cells(4, 2) = somma End Sub
scrivere diciture in A2,A3,A4 e inserire numeri in B2,B3:
cliccareper vedere la somma
A | B | |
1 | ||
2 | a= | 5 |
3 | b= | 8 |
4 | somma | somma |
EXCEL
scrivere diciture in A3,A4,A5 e formula in B5
scrivere due numeri positivi in B3,B4
A | B | |
1 | ||
2 | ||
3 | a= | 5 |
4 | b= | 8 |
5 | somma= | =SE(O(B3<=0;B4<=0);"solo positivi";B3+B4) |
VISUAL BASIC istruzioni da inserire in PULSANTE ATTIVA(+2 textbox e 1 label)
creare PULSANTE e 2 caselle Textbox e 1 casella Label
inserire istruzioni in PULSANTE
ATTIVA con istruzioni |
Option Explicit Private Sub CommandButton1_Click() 'esegue prodotto solo per numeri positivi Dim a, b, somma As Integer a = TextBox1 b = TextBox2 If a <= 0 Or b <= 0 Then Label4.Caption = ("solo numeri positivi") Else Label4.Caption = a * b End If End Sub
scrivere due interi positivi in caselle textbox1,textbox2 poi ATTIVA
textbox1 con a da inserire |
textbox2 con b da inserire |
label14 con a*b |
ATTIVA con istruzioni |