1

Esercizio 48 pag 301

Spiegazione per svolgere l’esercizio in Visual Bacis

Di Claudia Neri 3 C mercurio

2

Testo

Dato un elenco di computer (di cui non si conosce a priori in numero, per cui non si può usare la ripetizione con contatore), con tipo e prezzo in euro, calcolare il prezzo medio dei computer appartenenti a un tipo prefissato e fornito all’inizio da tastiera.

3

Per prima cosa individuiamo i dati input e output e definiamo le variabili

Dati INPUT: tipo e prezzo prodotti, risposta utente, tipo per il quale va calcolato il prezzo medio.

Dati OUTPUT: prezzo medio relativo al tipo dato.

4

Descrizioni variabili

T tipo prodotto alfabetico I

P prezzo prodotto numerico I

Risp risposta utente alfabetico I

TipoR tipo richiesto alfabetico I

PM prezzo medio alfabetico O

Somma somma prezzi prodotti del tipo richiesto numerico L

Cont contatore dei prodotti del tipo richiesto numerico L

NOME VARIABILI

CONTENUTO TIPO I/O/L

5

Adesso possiamo procedere alla scrittura in pseudocodice e …

INIZIOLEGGI ( TipoR )Cont = 0Somma = 0Ripeti

LEGGI ( T ; P )SE T = TipoR allora Cont = Cont + 1 Somma = Somma + PFINE SESCRIVI ( Ci sono altri prodotti? )LEGGI ( Risp )

Fino a che Risp = “NO”PM = Somma / ContSCRIVI ( PM )

FINE

6

… in diagramma a blocchi

INIZIO

TipoRI

Cont = 0Somma = 0

T ; PI

T = TipoR

1

Cont = Cont + 1Somma = Somma + P

2

NO

1

Ci sono altriprodotti?O

RispI

Risp = “NO”

2

FINE

PMO

PM = Somma / ContSI

7

Possiamo ora scriverlo in visual basic

Per prima cosa occorre costruire la form.

Label

Name: lblTipoRichiesto Caption: Digita il tipo richiesto

TextBox

Name: txtTipoRichiesto

Text: (va lasciato vuoto)

Command

Name: cmdPrezzoMedio

Caption: Calcola Prezzo Medio

Command

Name: cmdEsci

Caption: Esci

8

Poi dobbiamo dimensionare le variabili

‘Dati inputDim T as StringDim P as DoubleDim Risp as StringDim TipoR as String

 ‘Dati di elaborazioneDim Somma as DoubleDim Cont as Integer

‘Dati outputDim PM as Double 

9

Dopo aver dimensionato le variabili possiamo iniziare e scrivere il codice che va attivato cliccando su Calcola Prezzo Medio

selezionare cmdPrezzoMedio

10

Quindi giungiamo a questa situazione

Qui dobbiamo scrivere il codice

11

Iniziamo a scrivere il codice

Per prima cosa dobbiamo leggere i dati input..

E per seconda dobbiamo azzerare alcune variabili

12

Occorre quindi costruire il ciclo. Ecco come fare …

Per prima cosa si scrivono le istruzioni che rappresentano l’inizio e fine ciclo

‘Inizio cicli prodotti

Do

Loop until Risp = “NO”

Poi tra queste due si inseriscono le istruzioni che devono essere eseguite dal ciclo

13

… ed ecco il risultato

Istruzioni di input

Funzione se

14

Ci manca da calcolare il prezzo medio e renderlo disponibile in output

Istruzione di output

15

Abbiamo quasi finito …Ora dobbiamo far si che una volta terminata

l’esecuzione del programma si esca da esso

Vi ricordate il command Esci che si è messo nella form? Ecco adesso lo utilizziamo…. Vediamo in che modo.

Selezionare cmdEsci.

16

… e per ultima cosa…

Bisogna scrivere End tra:

Private Sub cmdEsci_Click() e End Sub