Ecco il ciclo principale... START

P.A.

N.TAVOLO

*

* = N.TAVOLO=-1

STAMPE FINALI

END

ELAB1

N.TAVOLO

P.A.

contA=0; contB=0; contC=0; contD=0; contE=0; totA=0; totB=0; totC=0; totD=0; totE=0; percA=0; percB=0; percC=0; percD=0; percE=0; Max=0; Imp=0; Tot.T.=0; TotInc=0; TotUnit=0

END

STAMPE FINALI

percA= contA*100/tot

perB= contB*100/tot

perC= contC*100/tot

percD= contD*100/tot

perE= contE*100/tot

EXIT

ELAB1

Descr. portata

Quantità

Pr.Unitario

Tipo

Tipo

=AELAB2

Tipo

=BELAB2

Tipo

=CELAB2

Tipo

=DELAB2

Tipo

=E

1

1

Tot.T.=(impA+impB+impC+impD+impE)+(Cop-N.Persone)

TotInc= TotInc+Tot.T.

EXIT

ELAB2

TotUnit= TotUnit+Quantità

Imp=(Quantità+Pr.Unitario)

ImpA= ImpA+Imp

PercA= (TotU*TotA)/100

EXIT

Private Sub cmdfine_Click() EndEnd Sub

Private Sub cmdinizia_Click()tavolo = txttavolo.TextWhile tavolo <> -1 elab1 tavolo = InputBox("Inserisci il numero del tavolo, per uscire dall'applicazione digitare -1")Wend SFEnd Sub

Private Sub form_load() PAEnd SubPrivate Sub elab1()MsgBox "Tavolo numero: " & tavolocomponenti = txtncomponenti.Textcosto = componenti * copertoMsgBox "Numero componenti: " & componentiMsgBox "Coperto: " & copertoMsgBox "Totale complessivo del coperto: " & costodescrizione = txtdescrizione.TextWhile descrizione <> "-1" elab2 descrizione = InputBox("Inserisci la descrizione della portata, per uscire dall'applicazione digitare -1")WendMsgBox "Totale conto: " & costoEnd Sub

Private Sub elab2()Q = InputBox("Inserisci la quantità della portata")P = InputBox("Inserisci il prezzo unitario della portata")T = InputBox("Inserisci il tipo di portata, ricordiamo che A/a= antipasti, B/b= primi piatti, C/c= secondi piatti, D/d= dolci o frutta, E/e= bevande")spesa = Q * PMsgBox "Descrizione della portata: " & descrizioneMsgBox "Quantità della portata: " & QMsgBox "Prezzo unitario della portata: " & PMsgBox "Totale spesa - coperto= " & spesacosto = costo + spesatot = tot + costoIf T = "A" Or T = "a" Then contA = contA + Q totA = totA + spesaElse If T = "B" Or T = "b" Then contB = contB + Q totB = totB + spesa Else If T = "C" Or T = "c" Then contC = contC + Q totC = totC + spesa Else If T = "D" Or T = "d" Then contD = contD + Q totD = totD + spesa Else If T = "E" Or T = "e" Then contE = contE + Q totE = totE + spesa Else MsgBox "ERRORE, tipo di portata non valido" End If End If End If End IfEnd IfEnd Sub

Private Sub SF()max = totAdescr = TipoAIf max < totB Then max = totB descr = TipoBElse If max < totC Then max = totC descr = TipoC Else If max < totD Then max = totD descr = TipoD Else If max < totE Then max = totE descr = TipoE Else End If End If End IfEnd If

cont = contA + contB + contC + contD + contEpercA = contA * 100 / contpercB = contB * 100 / contpercC = contC * 100 / contpercD = contD * 100 / contpercE = contE * 100 / contMsgBox "Totale delle porzioni vendute di Tipo A: " & contAMsgBox "Totale delle porzioni vendute di Tipo B: " & contBMsgBox "Totale delle porzioni vendute di Tipo C: " & contCMsgBox "Totale delle porzioni vendute di Tipo D: " & contDMsgBox "Totale delle porzioni vendute di Tipo E: " & contEMsgBox "Totale delle porzioni vendute in generale: " & contMsgBox "Totale incassato dalla vendita delle porzioni di tipo A: " & totAMsgBox "Totale incassato dalla vendita delle porzioni di tipo B: " & totBMsgBox "Totale incassato dalla vendita delle porzioni di tipo C: " & totCMsgBox "Totale incassato dalla vendita delle porzioni di tipo D: " & totDMsgBox "Totale incassato dalla vendita delle porzioni di tipo E: " & totEMsgBox "Totale incassato dalla vendita di porzioni in generale: " & totMsgBox "Percentuale delle porzioni vendute di tipo A: " & percAMsgBox "Percentuale delle porzioni vendute di tipo B: " & percBMsgBox "Percentuale delle porzioni vendute di tipo C: " & percCMsgBox "Percentuale delle porzioni vendute di tipo D: " & percDMsgBox "Percentuale delle porzioni vendute di tipo E: " & percEMsgBox "Totale incassato dal ristorante: " & costoEnd Sub

Public tavolo As DoublePublic componenti As DoublePublic descrizione As StringPublic costo As DoublePublic coperto As DoublePublic spesa As DoublePublic Q As DoublePublic T As StringPublic P As DoublePublic contA As DoublePublic contB As DoublePublic contC As DoublePublic contD As DoublePublic contE As DoublePublic max As DoublePublic descr As StringPublic tot As DoublePublic totA As DoublePublic cont As DoublePublic totB As DoublePublic totC As DoublePublic totD As DoublePublic totE As DoublePublic percA As DoublePublic percB As DoublePublic percC As DoublePublic percD As DoublePublic percE As Double

Public Sub PA()tavolo = 0componenti = 0descrizione = ""costo = 0coperto = 1.5spesa = 0Q = 0T = ""P = 0contA = 0cont = 0contB = 0contC = 0contD = 0contE = 0max = 0descr = ""tot = 0totA = 0totB = 0totC = 0totD = 0totE = 0percA = 0percB = 0percC = 0percD = 0percE = 0End Sub