Di

Lisa Frosini

Testo problemaIn un ristorante si vuole calcolare il conto dei vari clienti digitando le

seguenti informazioni:• Numero tavolo;• Numero persone;• Descrizione portata;• Prezzo unitario;• Tipo (Antipasti=A; Primi piatti=B; Secondi piatti=C; Dolce e

frutta=D; Bevande=E)Determinare:• Il conto di ogni singolo tavolo per più tavoli;• Il totale incassato dal ristorante;• Per ciascun tipo di portata il totale delle unità vendute e l’importo

totale relativo;• La portata più venduta dal ristorante;• La percentuale di unità distribuite per ciascun tipo di portata.

Dati in input

Ntavolo=numero tavoloNpersone=numero personeDescportata=descrizione portataQp=quantità portataPu=prezzo unitarioTipo=tipo

Dati in outputconto=conto del tavolototg=totale incassato dal ristoranteconta=totale delle unità vendute di tipo Acontb=totale delle unità venute di tipo Bcontc=totale delle unità vendute di tipo Ccontd=totale delle unità vendute di tipo Dconte=totale delle unità vendute di tipo Etota=importo delle unità vendute di tipo Atotb=importo delle unità vendute di tipo Btotc=importo delle unità vendute di tipo Ctotd=importo delle unità vendute di tipo Dtote=importo delle unità vendute di tipo Eperca=percentuale delle unità del tipo Apercb=percentuale delle unità del tipo Bpercc=percentuale delle unità del tipo Cpercd=percentuale delle unità del tipo Dpercde=percentuale delle unità del tipo EMax=portata più venduta del ristorante

START

P.A. 1

NTAVOLO

*

ELAB 1

NTAVOLO

END

* NPERSONE>-1

L’inizio del diagramma

!!

P.A. 1

conta=0; contb=0; contc=0; contd=0; conte=0; perca=0;percb=0; percc=0; percd=0;perce=0; Max=0; Desc=0;

C1=1. 50;totimpa=0; totimpb=0totimpc=0; totimpd=0;

totimpe=0; totincassato=0;somquantità=0; somprezzo=0;

coperto=0

EXIT

La preparazion

e ambiente!!

START

P.A. 2

PERSONE

DESCRIZIONE

*

ELAB 2

DESCRIZIONE

EXIT

Questo è il secondo

ciclo!

STAMPE FINALI

*DESCRIZIONE= -1

ELAB 2

Q.P.

P.U.

TIPO

*

conta=conta+qp

imp=p.u. *q.p

*

contb=contb+qp

totimpb=totimpb+imp

2

1

*3

4

Questo è il secondo ciclo con tutte le

operazioni!!

totimpa=totimpa+impimp=p.u. *q.p

34

contc=contc+q.p

totimpc=totimpc+imp

*

contd=contd+q.p

totimpd=totimpd+imp

conte=conte+q.p

totimpe=totimpe+imp

2

1

EXIT

imp=p.u. *q.p

imp=p.u. *q.pimp=p.u. *q.p

STAMPE FINALI

somquantità=somquantità+q.p

somprezzo=somprezzo+p.u.

conto=(somprezzo* somquantità)+ coperto

perca=(conta*100)/somquantità

percb=(contb*100)/somquantità

percc=(contc*100)/somquantità

percd=(contd*100)/somquantità

1

Ecco le stampe finali!!

1

perce=(conte*100)/somquantità

*

totimpa= Max

Max= totimpb

* totimpb>Max

*Max= totimpc

2

* totimpc>Max

2

*Max= totimpd

*Max= totimpe

* totimpd>Max* totimpe>Max

conto; totincassato; conta; contb; contc: contd; conte; perca; percb;

percc; percd; perce;totimpa; totimpb;totimpc; totimpd;totimpe; Max

Tavolo

Num persone

Descrizione

Quantità

Prezzo unitario

Tipo

E ora comincia

Visul Basic!!Questa è la

Form!!

'preparazione ambientePublic conta As DoublePublic contb As DoublePublic contc As DoublePublic contd As DoublePublic conte As DoublePublic perca As DoublePublic percb As DoublePublic percc As DoublePublic percd As DoublePublic perce As DoublePublic Max As DoublePublic totimpa As DoublePublic totimpb As DoublePublic totimpc As DoublePublic totimpd As DoublePublic totimpe As DoublePublic somquantità As DoublePublic somprezzo As DoublePublic conto As DoublePublic totincassato As DoublePublic coperto As DoublePublic C1 As Double

Prima di cominciare con il linguaggio di

visual Basic dobbiamo fare

il modulo!!

Public Sub PA()conta = 0contb = 0contc = 0contd = 0conte = 0perca = 0percb = 0percc = 0percd = 0perce = 0Max = 0Desc = 0C1 = 1.5totimpa = 0totimpb = 0totimpc = 0totimpd = 0totimpe = 0totincassato = 0somquantità = 0coperto = 0somprezzo = 0End Sub

La preparazione

ambiente sempre nel modulo!!

Private Sub Cmdinizio_Click()While Txttavolo.Text <> -1 elab1 Txttavolo.Text = InputBox(" numero tavolo")WendEnd Sub

Private Sub elab1()npersone = Txtcomponenti.TextWhile Txtdescrizione.Text = "fine" elab2 Txtdescrizione.Text = InputBox("descrizione portata")Wendcoperto = npersone * C1stampefinaliEnd Sub

E ora il progetto!!

Questi sonol’inizio e il

primo ciclo di lavoro!!

Public Sub elab2()If Txttipo.Text = "A" Then conta = conta + Txtquantità.Text importo = Txtprezzo.Text * Txtquantità.Text totimpa = totimpa + importoElse If Txttipo.Text = "B" Then contb = contb + Txtquantità.Text importo = Txtprezzo.Text * Txtquantità.Text totimpb = totimpb + importo Else If Txttipo.Text = "C" Then contc = contc + Txtquantità.Text importo = Txtprezzo.Text * Txtquantità.Text totimpc = totimpc + importo Else If Txttipo.Text = "D" Then contd = contd + Txtquantità.Text importo = Txtprezzo.Text * Txtquantità.Text totimpd = totimpd + importo Else conte = conte + Txtquantità.Text importo = Txtprezzo.Text * Txtquantità.Text totimpe = totimpe + importo End If End If End If

Il secondo ciclo e tutti i

calcoli!!

End Ifsomprezzo = somprezzo + Txtprezzo.Textsomquantità = somquantità + Txtquantità.TextEnd Sub

Public Sub stampefinali()perca = (conta * 100) / somquantitàpercb = (contb * 100) / somquantitàpercc = (contc * 100) / somquantitàpercd = (contd * 100) / somquantitàperce = (conte * 100) / somquantitàconto = (somquantità * somprezzo) + copertoMax = totimpaIf totimpb > Max Then Max = totimpbElseEnd IfIf totimpc > Max Then Max = totimpcElseEnd IfIf totimpd > Max Then Max = totimpdElseEnd If

Le stampe finali!!

If totimpe > Max Then Max = totimpeElseEnd IfMsgBox contaMsgBox contbMsgBox contcMsgBox contdMsgBox conteMsgBox percaMsgBox percbMsgBox perccMsgBox percdMsgBox perceMsgBox MaxMsgBox totimpaMsgBox totimpbMsgBox totimpcMsgBox totimpdMsgBox totimpeMsgBox contoMsgBox totincassatoEnd Sub

FINE ESERCIZIO!!