La mia presentazione sull'esercizio delle vacanze
Transcript of La mia presentazione sull'esercizio delle vacanze
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