Da

Giulia Casolari

In 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.

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

conto=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

Primo ciclo di lavoro

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 preparazione

ambiente

START

P.A. 2

PERSONE

DESCRIZIONE

*

ELAB 2

DESCRIZIONE

EXIT

STAMPE FINALI

*DESCRIZIONE= -1 Secondo ciclo di lavoro

ELAB 2

Q.P.

P.U.

TIPO

*

conta=conta+qp

imp=p.u. *q.p

*contb=contb+qp

totimpb=totimpb+imp

2

1

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

All’interno del secondo

ciclo

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

La seconda parte

all’interno del ciclo

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

Le stampe finali

1

perce=(conte*100)/somquantità

*

totimpa= Max

Max= totimpb

* totimpb>Max

*Max= totimpc

2

* totimpc>Max

Seconda parte delle

stampe finali

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

Terza parte delle

stampe finali

Tavolo

Num persone

Descrizione

Quantità

Prezzo unitario

Tipo

Questa è la form

dell’inizio di visual basic

'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

Questo è 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 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

Inizio del problema di

visual basic e del primo ciclo

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

I relativi calcoli nel secondo

ciclo

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